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

Modified Files: storage-types.lisp Log Message: Removed some dead code.

Date: Thu Jul 8 05:01:52 2004 Author: ffjeld

Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.25 movitz/storage-types.lisp:1.26 --- movitz/storage-types.lisp:1.25 Wed Jul 7 10:37:06 2004 +++ movitz/storage-types.lisp Thu Jul 8 05:01:51 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: storage-types.lisp,v 1.25 2004/07/07 17:37:06 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.26 2004/07/08 12:01:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -830,13 +830,6 @@ "Unable to resolve jumper ~S." data) (write-binary 'u32 stream (+ x (movitz-intern-code-vector (movitz-funobj-code-vector obj))))))))) - -;;;(defmethod print-object ((obj movitz-funobj) stream) -;;; (format stream "#<MOVITZ-FUNOBJ ~<ll: ~A~> ~<const: ~A~> ~<code: ~A~>>" -;;; (movitz-funobj-lambda-list obj) -;;; (movitz-funobj-const-list obj) -;;; (movitz-funobj-code-vector obj)) -;;; (call-next-method))

(defmethod print-object ((object movitz-funobj) stream) (if (not (slot-boundp object 'name))