Ignore:
Timestamp:
Jul 28, 2006, 6:49:58 AM (13 years ago)
Author:
gb
Message:

Define SELECT-STREAM-CLASS on FUNDAMENTAL-FILE-STREAM.

File:
1 edited

Legend:

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

    r4904 r4915  
    484484      (call-next-method))))
    485485
    486 (defmethod select-stream-class ((class file-stream) in-p out-p char-p)
     486(defmethod select-stream-class ((class fundamental-file-stream) in-p out-p char-p)
    487487  (if char-p
    488488    (if (and in-p out-p)
Note: See TracChangeset for help on using the changeset viewer.