Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv11878
Modified Files: image.lisp Log Message: Added a small check for the package-name when dumping packages, so as not to blindly dump packages that are native to the host system should a symbol in such a package accidentally be referenced.
Date: Wed May 19 10:59:53 2004 Author: ffjeld
Index: movitz/image.lisp diff -u movitz/image.lisp:1.27 movitz/image.lisp:1.28 --- movitz/image.lisp:1.27 Wed Apr 21 11:06:50 2004 +++ movitz/image.lisp Wed May 19 10:59:52 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.27 2004/04/21 15:06:50 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.28 2004/05/19 14:59:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -1065,6 +1065,12 @@ name symbol) name))) (ensure-package (package-name lisp-package) + (assert (not (member (package-name lisp-package) + #+allegro '(excl common-lisp sys aclmop) + #-allegro '(common-lisp) + :test #'string=)) () + "I don't think you really want to dump the package ~A with Movitz." + lisp-package) (setf (gethash lisp-package lisp-to-movitz-package) (or (gethash package-name packages-hash nil) (let ((p (funcall 'muerte::make-package-object