Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv4276
Modified Files: ratios.lisp Log Message: Improved support for ratios in compare (i.e. <, <=, >, etc).
Date: Fri Jul 30 14:06:31 2004 Author: ffjeld
Index: movitz/losp/muerte/ratios.lisp diff -u movitz/losp/muerte/ratios.lisp:1.2 movitz/losp/muerte/ratios.lisp:1.3 --- movitz/losp/muerte/ratios.lisp:1.2 Thu Jul 29 09:20:43 2004 +++ movitz/losp/muerte/ratios.lisp Fri Jul 30 14:06:31 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Jul 20 00:39:59 2004 ;;;; -;;;; $Id: ratios.lisp,v 1.2 2004/07/29 16:20:43 ffjeld Exp $ +;;;; $Id: ratios.lisp,v 1.3 2004/07/30 21:06:31 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -26,7 +26,6 @@ numerator denominator)
(defun make-rational (numerator denominator) - (assert (not (eq 0 denominator))) (check-type numerator integer) (check-type denominator integer) (cond