Ignore:
Timestamp:
Sep 27, 2006, 2:49:18 AM (13 years ago)
Author:
gb
Message:

SELECT-STREAM-CLASS: should probably take a BASIC-P argument.

File:
1 edited

Legend:

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

    r5255 r5265  
    609609          'fundamental-file-stream)))))
    610610
     611(defmethod select-stream-class ((class file-stream) in-p out-p char-p)
     612  (if char-p
     613    (if (and in-p out-p)
     614      'fundamental-file-character-io-stream
     615      (if in-p
     616        'fundamental-file-character-input-stream
     617        (if out-p
     618          'fundamental-file-character-output-stream
     619          'fundamental-file-stream)))
     620    (if (and in-p out-p)
     621      'fundamental-file-binary-io-stream
     622      (if in-p
     623        'fundamental-file-binary-input-stream
     624        (if out-p
     625          'fundamental-file-binary-output-stream
     626          'fundamental-file-stream)))))
     627
    611628(defmethod map-to-basic-stream-class-name ((name (eql 'fundamental-file-stream)))
     629  'basic-file-stream)
     630
     631(defmethod map-to-basic-stream-class-name ((name (eql 'file-stream)))
    612632  'basic-file-stream)
    613633
Note: See TracChangeset for help on using the changeset viewer.