Loading image.lisp +8 −2 Original line number Diff line number Diff line Loading @@ -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 $ ;;;; ;;;;------------------------------------------------------------------ Loading Loading @@ -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*)) Loading Loading
image.lisp +8 −2 Original line number Diff line number Diff line Loading @@ -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 $ ;;;; ;;;;------------------------------------------------------------------ Loading Loading @@ -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*)) Loading