Changeset 11158


Ignore:
Timestamp:
Oct 18, 2008, 6:19:22 PM (11 years ago)
Author:
gz
Message:

Small optimizations tweaks

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/format.lisp

    r11137 r11158  
    336336        (if (functionp control-string)
    337337          (apply control-string stream format-arguments)
    338           (let ((*format-control-string* (ensure-simple-string control-string))
    339                 (*format-pprint* nil)
    340                 (*format-justification-semi* nil))
     338          (let* ((control-string (ensure-simple-string control-string))
     339                 (*format-control-string* control-string)
     340                 (*format-pprint* nil)
     341                 (*format-justification-semi* nil))
     342            (declare (type simple-string control-string))
    341343            (cond
    342344              ;; Try to avoid pprint overhead in this case.
     
    496498          package)
    497499      (cond (cpos
    498              (setq package (string-upcase (%substr string ipos cpos)))
     500             (setq package (find-package (string-upcase (%substr string ipos cpos))))
    499501             (when (eql #\: (schar string (%i+ 1 cpos)))
    500502               (setq cpos (%i+ cpos 1)))
    501503             (setq ipos (%i+ cpos 1)))
    502             (t (setq package :cl-user)))
    503       (let ((thing (intern (string-upcase (%substr string ipos epos)) (find-package package))))
     504            (t (setq package (find-package "CL-USER"))))
     505      (let ((thing (intern (string-upcase (%substr string ipos epos)) package)))
    504506        (setq *format-index* epos) ; or 1+ epos?
    505507        (apply thing stream (pop-format-arg) colon atsign parms)))))
Note: See TracChangeset for help on using the changeset viewer.