[movitz-cvs] CVS movitz/losp/muerte - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

7 Apr 2007

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv24391
Modified Files:
    integers.lisp 
Log Message:
Fix bug that would return nil from (- nil 0) rather than err.

--- /project/movitz/cvsroot/movitz/losp/muerte/integers.lisp	2006/05/02 20:02:09	1.122
+++ /project/movitz/cvsroot/movitz/losp/muerte/integers.lisp	2007/04/07 07:56:45	1.123
@@ -9,7 +9,7 @@
 ;;;; Created at:    Wed Nov  8 18:44:57 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: integers.lisp,v 1.122 2006/05/02 20:02:09 ffjeld Exp $
+;;;; $Id: integers.lisp,v 1.123 2007/04/07 07:56:45 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -622,7 +622,7 @@
       (macrolet
      ((do-it ()
         `(number-double-dispatch (minuend subtrahend)
-		((t (eql 0))
+		((number (eql 0))
    	 minuend)
    	(((eql 0) t)
    	 (- subtrahend))

    