Changeset 9432


Ignore:
Timestamp:
May 9, 2008, 10:18:29 AM (11 years ago)
Author:
gb
Message:

No more *CL-USER-PACKAGE* constant (for obscure reasons.) Just do
FIND-PACKAGE; could use PKG-ARG.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/lib/format.lisp

    r9364 r9432  
    490490               (setq cpos (%i+ cpos 1)))
    491491             (setq ipos (%i+ cpos 1)))
    492             (t (setq package *common-lisp-user-package*)))
     492            (t (setq package (find-package "CL-USER"))))
    493493      (let ((thing (intern (string-upcase (%substr string ipos epos)) package)))
    494494        (setq *format-index* epos) ; or 1+ epos?
Note: See TracChangeset for help on using the changeset viewer.