[movitz-cvs] CVS movitz

[ffjeld]

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

Modified Files:
	image.lisp 
Log Message:
Improved paranoia in intern-movitz-symbol.


--- /project/movitz/cvsroot/movitz/image.lisp	2008/04/27 19:18:16	1.124
+++ /project/movitz/cvsroot/movitz/image.lisp	2008/07/09 19:54:56	1.125
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.124 2008/04/27 19:18:16 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.125 2008/07/09 19:54:56 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1139,7 +1139,13 @@
 		    sum)))))
 
 (defun intern-movitz-symbol (name)
-  (assert (not (eq (symbol-package name) (find-package :common-lisp)))
+  (assert (not (member (symbol-package name)
+		       '(:common-lisp :movitz)
+		       :key #'find-package))
+      (name)
+    "Trying to movitz-intern a symbol in the ~A package: ~S" (symbol-package name) name)
+  (assert (not (eq (symbol-package name)
+		   (find-package :movitz)))
       (name)
     "Trying to movitz-intern a symbol in the Common-Lisp package: ~S" name)
   (or (gethash name (image-oblist *image*))