Changeset 13974 for trunk/source/level-1


Ignore:
Timestamp:
Jul 17, 2010, 11:01:10 AM (9 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

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

    r13964 r13974  
    23552355      (let* ((string (token.string token)))
    23562356        (or (%find-pkg string colonpos)
     2357            (subseq string 0 colonpos)
     2358            #+nomore
    23572359            (signal-reader-error stream "Reference to unknown package ~s." (subseq string 0 colonpos)))))
    23582360    *package*))
     
    24602462                  (progn                  ; Muck with readtable case of extended token.
    24612463                    (%casify-token tb (unless (atom escapes) escapes))
    2462                     (let* ((pkg (or explicit-package *package*)))
     2464                    (let* ((pkg (if explicit-package (pkg-arg explicit-package) *package*)))
    24632465                      (if (or double-colon (eq pkg *keyword-package*))
    24642466                        (without-interrupts
Note: See TracChangeset for help on using the changeset viewer.