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

[Frode Vatvedt Fjeld]

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