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

Modified Files: image.lisp Log Message: Use copy-funobj-code-vector-slots to initialize stack-allocated funobjs.

Date: Mon Jan 10 09:18:59 2005 Author: ffjeld

Index: movitz/image.lisp diff -u movitz/image.lisp:1.87 movitz/image.lisp:1.88 --- movitz/image.lisp:1.87 Tue Jan 4 17:53:53 2005 +++ movitz/image.lisp Mon Jan 10 09:18:56 2005 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.87 2005/01/04 16:53:53 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.88 2005/01/10 08:18:56 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -482,6 +482,11 @@ :map-binary-read-delayed 'movitz-word-code-vector :binary-tag :primitive-function) (dynamic-jump-next + :binary-type code-vector-word + :map-binary-write 'movitz-intern-code-vector + :map-binary-read-delayed 'movitz-word-code-vector + :binary-tag :primitive-function) + (copy-funobj-code-vector-slots :binary-type code-vector-word :map-binary-write 'movitz-intern-code-vector :map-binary-read-delayed 'movitz-word-code-vector