Ignore:
Timestamp:
Jan 14, 2010, 8:49:15 AM (11 years ago)
Author:
gb
Message:

Propagate r13368 to 1.4. See ticket:642 .

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.4/source/level-1/l1-readloop-lds.lisp

    r13159 r13387  
    555555        (*print-right-margin* nil)
    556556        (*signal-printing-errors* nil)
    557         (s (make-indenting-string-output-stream prefixchar nil)))
     557        (s (make-indenting-string-output-stream prefixchar nil))
     558        (sub (make-string-output-stream))
     559        (indent 0))
    558560    (format s "~A ~A: " prefixchar msg)
    559     (setf (indenting-string-output-stream-indent s) (column s))
     561    (setf (indenting-string-output-stream-indent s) (setq indent (column s)))
     562    (decf (stream-line-length sub) indent)
    560563    ;(format s "~A" condition) ; evil if circle
    561     (report-condition condition s)
     564    (report-condition condition sub)
     565    (format s "~A" (get-output-stream-string sub))
    562566    (if (not (and (typep condition 'simple-program-error)
    563567                  (simple-program-error-context condition)))
Note: See TracChangeset for help on using the changeset viewer.