Changeset 8762


Ignore:
Timestamp:
Mar 13, 2008, 6:27:15 AM (12 years ago)
Author:
gb
Message:

Use an INDENTING-STRING-OUTPUT-STREAM to print compiler warnings, which
may span multiple lines.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/sysutils.lisp

    r7952 r8762  
    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.