Commit 4013f98d authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld
Browse files

Improved paranoia in intern-movitz-symbol.

parent 91645f3f
Loading
Loading
Loading
Loading
+8 −2
Original line number Diff line number Diff line
@@ -9,7 +9,7 @@
;;;; Created at:    Sun Oct 22 00:22:43 2000
;;;; Distribution:  See the accompanying file COPYING.
;;;;                
;;;; $Id: image.lisp,v 1.123 2008/04/21 19:45:51 ffjeld Exp $
;;;; $Id: image.lisp,v 1.124 2008/04/27 19:18:16 ffjeld Exp $
;;;;                
;;;;------------------------------------------------------------------

@@ -1139,7 +1139,13 @@ In sum this accounts for ~,1F%, or ~D bytes.~%;;~%"
		    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*))