[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv28020

Modified Files:
	storage-types.lisp 
Log Message:
Add update-movitz-object (movitz-std-instance).


--- /project/movitz/cvsroot/movitz/storage-types.lisp	2008/03/15 20:57:06	1.60
+++ /project/movitz/cvsroot/movitz/storage-types.lisp	2008/03/20 22:24:27	1.61
@@ -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.60 2008/03/15 20:57:06 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.61 2008/03/20 22:24:27 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1218,6 +1218,9 @@
 	       :stream stream))))
   object)
 
+(defmethod update-movitz-object ((object movitz-std-instance) lisp-object)
+  object)
+
 ;;;;
 
 (define-binary-class movitz-bignum (movitz-heap-object-other)