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 ()