Changeset 13974

Timestamp:

Jul 17, 2010, 4:01:10 AM (14 years ago)

Author:

Gary Byers

Message:

Defer package lookup until token's been constructed; fixes ticket:698.

File:

• trunk/source/level-1/l1-reader.lisp (modified) (2 diffs)

trunk/source/level-1/l1-reader.lisp

@@ -2355 +2355 @@
       (let* ((string (token.string token)))
         (or (%find-pkg string colonpos)
+            (subseq string 0 colonpos)
+            #+nomore
             (signal-reader-error stream "Reference to unknown package ~s." (subseq string 0 colonpos)))))
     *package*))
@@ -2460 +2462 @@
                   (progn                  ; Muck with readtable case of extended token.
                     (%casify-token tb (unless (atom escapes) escapes))
-                    (let* ((pkg (or explicit-package *package*)))
+                    (let* ((pkg (if explicit-package (pkg-arg explicit-package) *package*)))
                       (if (or double-colon (eq pkg *keyword-package*))
                         (without-interrupts