Ignore:
Timestamp:
May 15, 2008, 2:09:03 PM (12 years ago)
Author:
gz
Message:

Propagate r9408 to here so doesn't get lost in back-merge

File:
1 edited

Legend:

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

    r9427 r9485  
    102102
    103103(defmethod stream-element-type ((x t))
     104  (report-bad-arg x 'stream))
     105
     106(defmethod stream-force-output ((x t))
    104107  (report-bad-arg x 'stream))
    105108
     
    58365839
    58375840                             
    5838 (defun column (&optional stream)
    5839   (let* ((stream (real-print-stream stream)))
    5840     (stream-line-column stream)))       
    5841 
    58425841(defun (setf %ioblock-external-format) (ef ioblock)
    58435842  (let* ((encoding (get-character-encoding (external-format-character-encoding ef)))
Note: See TracChangeset for help on using the changeset viewer.