Changeset 438


Ignore:
Timestamp:
Jan 30, 2004, 3:52:29 PM (21 years ago)
Author:
Gary Byers
Message:

FRESH-LINE uses STREAM-FRESH-LINE.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-1/l1-io.lisp

    r397 r438  
    3535
    3636(defun fresh-line (&optional (stream *standard-output*))
    37   (let* ((stream (real-print-stream stream)))
    38     (unless (eql 0 (column stream))
    39       (terpri stream)
    40       t)))
     37  (stream-fresh-line (real-print-stream stream)))
    4138
    4239
Note: See TracChangeset for help on using the changeset viewer.