Changeset 10702


Ignore:
Timestamp:
Sep 11, 2008, 11:10:27 AM (11 years ago)
Author:
gb
Message:

Propagate r10701 to trunk.

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-symhash.lisp

    r10340 r10702  
    307307(defun %pkg-ref-intern (str ref)
    308308  (%intern str (or (package-ref.pkg ref)
    309                    (setf (package-ref.pkg ref)
    310                          (%find-pkg (package-ref.name ref))))))
     309                   (%kernel-restart $xnopkg (package-ref.name ref)))))
    311310
    312311(defun unintern (symbol &optional (package *package*))
Note: See TracChangeset for help on using the changeset viewer.