[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-serv20715

Modified Files:
	integers.lisp 
Log Message:
In ceiling, calculate correct remainder.

Date: Wed Jul 14 06:53:16 2004
Author: ffjeld

Index: movitz/losp/muerte/integers.lisp
diff -u movitz/losp/muerte/integers.lisp:1.60 movitz/losp/muerte/integers.lisp:1.61
--- movitz/losp/muerte/integers.lisp:1.60	Wed Jul 14 06:48:11 2004
+++ movitz/losp/muerte/integers.lisp	Wed Jul 14 06:53:16 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.60 2004/07/14 13:48:11 ffjeld Exp $
+;;;; $Id: integers.lisp,v 1.61 2004/07/14 13:53:16 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1509,7 +1509,9 @@
 (defun ceiling (number &optional (divisor 1))
   (case (+ (if (minusp number) #b10 0)
 	   (if (minusp divisor) #b01 0))
-    (#b00 (truncate (+ number divisor -1) divisor))
+    (#b00 (multiple-value-bind (q r)
+	      (truncate (+ number divisor -1) divisor)
+	    (values q (- r (1- divisor)))))
     (t (error "Don't know."))))
 
 (defun rem (dividend divisor)