[Openmcl-cvs-notifications] r10702 - /trunk/source/level-1/l1-symhash.lisp

[gb at clozure.com]

Author: gb
Date: Thu Sep 11 07:10:27 2008
New Revision: 10702

Log:
Propagate r10701 to trunk.

Calls to INTERN misbehaved if the package name was a constant that
named a non-extant package.



Modified:
    trunk/source/level-1/l1-symhash.lisp

Modified: trunk/source/level-1/l1-symhash.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-symhash.lisp (original)
+++ trunk/source/level-1/l1-symhash.lisp Thu Sep 11 07:10:27 2008
@@ -306,8 +306,7 @@
 =

 (defun %pkg-ref-intern (str ref)
   (%intern str (or (package-ref.pkg ref)
-                   (setf (package-ref.pkg ref)
-                         (%find-pkg (package-ref.name ref))))))
+                   (%kernel-restart $xnopkg (package-ref.name ref)))))
 =

 (defun unintern (symbol &optional (package *package*))
   "Makes SYMBOL no longer present in PACKAGE. If SYMBOL was present