Changeset 7314


Ignore:
Timestamp:
Sep 28, 2007, 4:56:10 PM (12 years ago)
Author:
gb
Message:

Try to make (SETF STREAM-EXTERNAL-FORMAT) work.
Whether there should be a SETF inverse on a CL-package symbol that's not
supposed to be SETFable is another question, as is whether/how well this
works.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-streams.lisp

    r7211 r7314  
    313313  (report-bad-arg s 'stream))
    314314
    315 (defmethod (setf stream-external-format) (new (s t))
    316   (normalize-external-format (stream-domain s) new)
    317   (stream-external-format s))
    318315
    319316
     
    57085705    (when (eq encoding (get-character-encoding nil))
    57095706      (setq encoding nil))
     5707    (setq line-termination (cdr (assoc line-termination
     5708                                       *canonical-line-termination-conventions*)))
     5709    (setf (ioblock-encoding ioblock) encoding)
    57105710    (when (ioblock-inbuf ioblock)
    57115711      (setup-ioblock-input ioblock t (ioblock-element-type ioblock) (ioblock-sharing ioblock) encoding line-termination))
     
    57245724  (%ioblock-external-format (stream-ioblock s t)))
    57255725
     5726(defmethod (setf stream-external-format) (new (s buffered-stream-mixin))
     5727  (setf (%ioblock-external-format (stream-ioblock s t))
     5728        (normalize-external-format (stream-domain s) new)))
     5729
    57265730
    57275731; end of L1-streams.lisp
Note: See TracChangeset for help on using the changeset viewer.