Changeset 5265

Timestamp:

Sep 26, 2006, 7:49:18 PM (18 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/ccl/level-1/l1-sysio.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-sysio.lisp

@@ -609 +609 @@
           'fundamental-file-stream)))))
 
+(defmethod select-stream-class ((class file-stream) in-p out-p char-p)
+  (if char-p
+    (if (and in-p out-p)
+      'fundamental-file-character-io-stream
+      (if in-p
+        'fundamental-file-character-input-stream
+        (if out-p
+          'fundamental-file-character-output-stream
+          'fundamental-file-stream)))
+    (if (and in-p out-p)
+      'fundamental-file-binary-io-stream
+      (if in-p
+        'fundamental-file-binary-input-stream
+        (if out-p
+          'fundamental-file-binary-output-stream
+          'fundamental-file-stream)))))
+
 (defmethod map-to-basic-stream-class-name ((name (eql 'fundamental-file-stream)))
+  'basic-file-stream)
+
+(defmethod map-to-basic-stream-class-name ((name (eql 'file-stream)))
   'basic-file-stream)