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

Modified Files: image.lisp Log Message: Removed dead code.

Date: Fri Jul 9 04:16:24 2004 Author: ffjeld

Index: movitz/image.lisp diff -u movitz/image.lisp:1.42 movitz/image.lisp:1.43 --- movitz/image.lisp:1.42 Thu Jul 8 11:53:24 2004 +++ movitz/image.lisp Fri Jul 9 04:16:24 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.42 2004/07/08 18:53:24 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.43 2004/07/09 11:16:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -330,38 +330,6 @@ (movitz-read-and-intern (funcall 'muerte::movitz-find-class x) 'word)) :map-binary-read-delayed 'movitz-word) -;;; (the-class-fixnum -;;; :binary-type word -;;; :initform 'fixnum -;;; :map-binary-write (lambda (x type) -;;; (declare (ignore type)) -;;; (movitz-read-and-intern (funcall 'muerte::movitz-find-class x) -;;; 'word)) -;;; :map-binary-read-delayed 'movitz-word) -;;; (the-class-cons -;;; :binary-type word -;;; :initform 'cons -;;; :map-binary-write (lambda (x type) -;;; (declare (ignore type)) -;;; (movitz-read-and-intern (funcall 'muerte::movitz-find-class x) -;;; 'word)) -;;; :map-binary-read-delayed 'movitz-word) -;;; (the-class-null -;;; :binary-type word -;;; :initform 'null -;;; :map-binary-write (lambda (x type) -;;; (declare (ignore type)) -;;; (movitz-read-and-intern (funcall 'muerte::movitz-find-class x) -;;; 'word)) -;;; :map-binary-read-delayed 'movitz-word) -;;; (the-class-symbol -;;; :binary-type word -;;; :initform 'symbol -;;; :map-binary-write (lambda (x type) -;;; (declare (ignore type)) -;;; (movitz-read-and-intern (funcall 'muerte::movitz-find-class x) -;;; 'word)) -;;; :map-binary-read-delayed 'movitz-word) (interrupt-handlers :binary-type word :map-binary-write 'movitz-intern