Ignore:
Timestamp:
May 15, 2008, 2:35:27 PM (11 years ago)
Author:
gz
Message:

Propagate r9464 to here so doesn't get lost in back-merge

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/level-1/l1-format.lisp

    r9424 r9486  
    6464; *format-control-string* and *format-length*, before returning.
    6565
    66 (defun sub-format (stream *format-index* *format-length* &aux (string *format-control-string*) char)
    67   (prog* ((length *format-length*) (i *format-index*) (lastpos i))
    68     (declare (fixnum i length lastpos))
     66(defun sub-format (stream *format-index* *format-length* &aux char)
     67  (prog* ((string (require-type *format-control-string* 'simple-string))
     68          (length *format-length*)
     69          (i *format-index*)
     70          (lastpos i))
     71    (declare (fixnum i length lastpos) (type simple-string string))
    6972    (go START)
    7073    EOF-ERROR
     
    7982        (let* ((limit (the fixnum (1- i))))
    8083          (unless (= limit lastpos)
    81             (write-string string stream :start  lastpos :end limit)))
     84            (write-simple-string string stream  lastpos limit)))
    8285        (let ((params nil) (fn) (colon nil) (atsign nil))
    8386          (block nil
Note: See TracChangeset for help on using the changeset viewer.