[movitz-cvs] CVS update: movitz/image.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	image.lisp 
Log Message:
Added 'complicated-eql' that understands ratios. Also, now = is
essentially the same as eql.

Date: Sat Jul 31 17:37:22 2004
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.59 movitz/image.lisp:1.60
--- movitz/image.lisp:1.59	Sat Jul 31 16:34:52 2004
+++ movitz/image.lisp	Sat Jul 31 17:37:22 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.59 2004/07/31 23:34:52 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.60 2004/08/01 00:37:22 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -289,6 +289,12 @@
     :binary-tag :primitive-function)
    (+
     :initform 'muerte.cl:+
+    :binary-type word
+    :binary-tag :global-function
+    :map-binary-write 'movitz-intern
+    :map-binary-read-delayed 'movitz-word)
+   (complicated-eql
+    :initform 'muerte::complicated-eql
     :binary-type word
     :binary-tag :global-function
     :map-binary-write 'movitz-intern