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