Changeset 7516 for branches/working-0710


Ignore:
Timestamp:
Oct 25, 2007, 12:07:00 AM (12 years ago)
Author:
gb
Message:

Don't define %STREAM-IOBLOCK as an accessor for basic-streams.
(This was done mostly to create a test case for some method-snapping code,
but it's worth doing.)

File:
1 edited

Legend:

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

    r7468 r7516  
    32583258
    32593259
    3260    
     3260(defun optimal-buffer-size (fd)
     3261  (or (nth-value 6 (%fstat fd)) *elements-per-buffer*))
     3262
    32613263
    32623264;;; Note that we can get "bivalent" streams by specifiying :character-p t
     
    32653267                          (direction :input)
    32663268                          (interactive t)
    3267                           (elements-per-buffer *elements-per-buffer*)
     3269                          (elements-per-buffer (optimal-buffer-size fd))
    32683270                          (element-type 'character)
    32693271                          (class 'fd-stream)
     
    36023604    s))
    36033605
    3604 (defmethod %stream-ioblock ((s basic-stream))
    3605   (basic-stream.state s))
     3606
    36063607
    36073608(defmethod (setf stream-ioblock) (ioblock (s basic-stream))
     
    46484649
    46494650(defun stream-ioblock (stream error-if-nil)
    4650   (or (%stream-ioblock stream)
     4651  (or (if (typep stream 'basic-stream)
     4652        (basic-stream.state stream)
     4653        (%stream-ioblock stream))
    46514654      (when error-if-nil
    46524655        (stream-is-closed stream))))
     
    47584761
    47594762(defmethod stream-surrounding-characters ((stream basic-character-input-stream))
    4760     (let* ((ioblock (stream-ioblock stream nil)))
     4763    (let* ((ioblock (basic-stream.state stream)))
    47614764      (and ioblock (%ioblock-surrounding-characters ioblock))))
    47624765
     
    57285731
    57295732(defmethod stream-external-format ((s basic-character-stream))
    5730   (%ioblock-external-format (stream-ioblock s t)))
     5733  (%ioblock-external-format (basic-stream-ioblock s)))
    57315734
    57325735(defmethod (setf stream-external-format) (new (s basic-character-stream))
    5733   (setf (%ioblock-external-format (stream-ioblock s t))
     5736  (setf (%ioblock-external-format (basic-stream-ioblock s))
    57345737        (normalize-external-format (stream-domain s) new)))
    57355738
Note: See TracChangeset for help on using the changeset viewer.