Changeset 9484


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

Move %real-print-stream def to before it's used

File:
1 edited

Legend:

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

    r9464 r9484  
    2929;;;; Standard CL IO frobs
    3030
     31
     32(declaim (inline %real-print-stream))
     33(defun %real-print-stream (&optional (stream nil))
     34  (cond ((null stream)
     35         *standard-output*)
     36        ((eq stream t)
     37         *terminal-io*)
     38        (t stream)))
    3139
    3240;;; OK, EOFP isn't CL ...
     
    17021710         (report-bad-arg stream '(or stream (member nil t))))))
    17031711
    1704 (declaim (inline %real-print-stream))
    1705 (defun %real-print-stream (&optional (stream nil))
    1706   (cond ((null stream)
    1707          *standard-output*)
    1708         ((eq stream t)
    1709          *terminal-io*)
    1710         (t stream)))
    1711 
    17121712(defun write-1 (object stream &optional levels-left)
    17131713  (setq stream (%real-print-stream stream))
Note: See TracChangeset for help on using the changeset viewer.