[movitz-cvs] CVS update: movitz/losp/muerte/integers.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv17940

Modified Files:
	integers.lisp 
Log Message:
Implement the fact that (truncate fixnum bignum) results in (values 0 fixnum).

Date: Tue Jul 13 15:43:40 2004
Author: ffjeld

Index: movitz/losp/muerte/integers.lisp
diff -u movitz/losp/muerte/integers.lisp:1.52 movitz/losp/muerte/integers.lisp:1.53
--- movitz/losp/muerte/integers.lisp:1.52	Tue Jul 13 14:01:42 2004
+++ movitz/losp/muerte/integers.lisp	Tue Jul 13 15:43:40 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Wed Nov  8 18:44:57 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: integers.lisp,v 1.52 2004/07/13 21:01:42 ffjeld Exp $
+;;;; $Id: integers.lisp,v 1.53 2004/07/13 22:43:40 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1335,6 +1335,8 @@
 	   (:xorl :ecx :ecx)
 	   (:movb 2 :cl)		; return values: qutient, remainder.
 	   (:stc)))
+	((positive-fixnum positive-bignum)
+	 (values 0 number))
 	((positive-bignum positive-fixnum)
 	 (macrolet
 	     ((do-it ()