Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv3906
Modified Files: image.lisp Log Message: Improved support for ratios in compare (i.e. <, <=, >, etc).
Date: Fri Jul 30 14:06:22 2004 Author: ffjeld
Index: movitz/image.lisp diff -u movitz/image.lisp:1.57 movitz/image.lisp:1.58 --- movitz/image.lisp:1.57 Thu Jul 29 09:18:47 2004 +++ movitz/image.lisp Fri Jul 30 14:06: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.57 2004/07/29 16:18:47 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.58 2004/07/30 21:06:22 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -294,6 +294,11 @@ :map-binary-write 'movitz-intern :map-binary-read-delayed 'movitz-word) (complicated-class-of + :binary-type word + :binary-tag :global-function + :map-binary-read-delayed 'movitz-word + :map-binary-write 'movitz-intern) + (complicated-compare :binary-type word :binary-tag :global-function :map-binary-read-delayed 'movitz-word