[movitz-cvs] CVS update: movitz/image.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

21 Oct 2004

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv3571
Modified Files:
    image.lisp 
Log Message:
Removed dead code.
Date: Thu Oct 21 22:40:32 2004
Author: ffjeld
Index: movitz/image.lisp
diff -u movitz/image.lisp:1.71 movitz/image.lisp:1.72

--- movitz/image.lisp:1.71	Sat Sep 25 17:40:30 2004
+++ movitz/image.lisp	Thu Oct 21 22:40:32 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.71 2004/09/25 15:40:30 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.72 2004/10/21 20:40:32 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -1457,21 +1457,7 @@
         (make-movitz-hash-table expr))
        (ratio
         (make-instance 'movitz-ratio
-	       :value expr)
-	     #+ignore
-	     (let ((slot-descriptions (gethash 'muerte.cl::ratio
-					       (image-struct-slot-descriptions *image*)
-					       nil)))
-	       (unless slot-descriptions
-		 (error "Don't know how to movitz-read ratios (yet)." expr))
-	       (let ((movitz-object (make-instance 'movitz-struct
-				      :class (muerte::movitz-find-class 'muerte.cl::ratio)
-				      :length (length slot-descriptions))))
-		 (setf (image-lisp-to-movitz-object *image* expr) movitz-object)
-		 (setf (slot-value movitz-object 'slot-values)
-		   (list (movitz-read (numerator expr))
-			 (movitz-read (denominator expr))))
-		 movitz-object)))
+	       :value expr))
        (structure-object
         (let ((slot-descriptions (gethash (type-of expr)
    				       (image-struct-slot-descriptions *image*)

    