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

Modified Files: integers.lisp Log Message: Implemented + on negatives in terms of -.

Date: Wed Jul 14 05:36:50 2004 Author: ffjeld

Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.58 movitz/losp/muerte/integers.lisp:1.59 --- movitz/losp/muerte/integers.lisp:1.58 Wed Jul 14 05:28:06 2004 +++ movitz/losp/muerte/integers.lisp Wed Jul 14 05:36:50 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.58 2004/07/14 12:28:06 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.59 2004/07/14 12:36:50 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -362,6 +362,12 @@ pfix-pbig-done) )) + (((integer * -1) (integer 0 *)) + (- y (- x))) + (((integer 0 *) (integer * -1)) + (- x (- y))) + (((integer * -1) (integer * -1)) + (+ (- x) (- y))) ))) (do-it))) (t (&rest terms)