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

[Frode Vatvedt Fjeld]

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