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

10 Apr 2006

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv4724
Modified Files:
    image.lisp 
Log Message:
Read floats by rationalizing.

--- /project/movitz/cvsroot/movitz/image.lisp	2005/08/21 13:47:16	1.104
+++ /project/movitz/cvsroot/movitz/image.lisp	2006/04/10 11:48:20	1.105
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.104 2005/08/21 13:47:16 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.105 2006/04/10 11:48:20 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -1495,7 +1495,9 @@
    	   (mapcar #'(lambda (slot)
    		       (movitz-read (slot-value expr (if (consp slot) (car slot) slot))))
    		   slot-descriptions))
-		 movitz-object))))))))
+		 movitz-object)))
+	    (float			; XXX
+	     (movitz-read (rationalize expr))))))))
;;;

    