Changeset 8769


Ignore:
Timestamp:
Mar 13, 2008, 10:41:23 AM (11 years ago)
Author:
gb
Message:

Use an INDENTING-STRING-OUTPUT-STREAM in SIGNAL-COMPILER-WARNING.
to better deal with multiline output.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/sysutils.lisp

    r7952 r8769  
    588588        (format s "~&;~A warnings " (if (null eval-p) "Compiler" "Interpreter"))
    589589        (if w-file (format s "for ~S :" w-file) (princ ":" s)))
    590       (format s "~&;   ~A" w))
     590      (let* ((indenting-stream (make-indenting-string-output-stream #\; 4)))
     591        (format indenting-stream "~%~a" w)
     592        (format s "~a" (get-output-stream-string indenting-stream))))
    591593    (values harsh-p any-p w-file)))
    592594
Note: See TracChangeset for help on using the changeset viewer.