Changeset 9364


Ignore:
Timestamp:
May 6, 2008, 12:02:51 AM (11 years ago)
Author:
gz
Message:

define *common-lisp-user-package*, use it in format-call-function and with-standard-io-syntax in place of runtime find-package calls

Location:
branches/working-0711/ccl
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-boot-3.lisp

    r3971 r9364  
    2121
    2222(catch :toplevel
     23  (defconstant *common-lisp-user-package*
    2324    (or (find-package "COMMON-LISP-USER")
    24         (make-package "COMMON-LISP-USER" :use '("COMMON-LISP" "CCL") :NICKNAMES '("CL-USER")))
     25        (make-package "COMMON-LISP-USER" :use '("COMMON-LISP" "CCL") :NICKNAMES '("CL-USER"))))
    2526)
    2627
  • branches/working-0711/ccl/lib/format.lisp

    r9117 r9364  
    486486          package)
    487487      (cond (cpos
    488              (setq package (string-upcase (%substr string ipos cpos)))
     488             (setq package (find-package (string-upcase (%substr string ipos cpos))))
    489489             (when (eql #\: (schar string (%i+ 1 cpos)))
    490490               (setq cpos (%i+ cpos 1)))
    491491             (setq ipos (%i+ cpos 1)))
    492             (t (setq package :cl-user)))
    493       (let ((thing (intern (string-upcase (%substr string ipos epos)) (find-package package))))
     492            (t (setq package *common-lisp-user-package*)))
     493      (let ((thing (intern (string-upcase (%substr string ipos epos)) package)))
    494494        (setq *format-index* epos) ; or 1+ epos?
    495495        (apply thing stream (pop-format-arg) colon atsign parms)))))
  • branches/working-0711/ccl/lib/macros.lisp

    r9182 r9364  
    14801480       *READTABLE*                      the standard readtable"
    14811481  (multiple-value-bind (decls body) (parse-body body env)
    1482     `(let ((*package* (find-package "CL-USER"))
     1482    `(let ((*package* *common-lisp-user-package*)
    14831483           (*print-array* t)
    14841484           (*print-base* 10.)
Note: See TracChangeset for help on using the changeset viewer.