Changeset 4928

Timestamp:

Jul 29, 2006, 5:26:10 AM (18 years ago)

Author:

Gary Byers

Message:

OPEN handles BASIC-STREAMs; not yet the default.

File:

• trunk/ccl/level-1/l1-streams.lisp (modified) (2 diffs)

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

@@ -2905 +2905 @@
                       (class 'fundamental-file-stream)
                       (elements-per-buffer *elements-per-buffer*)
-                      (sharing :private))
+                      (sharing :private)
+                      (basic nil))
   "Return a stream which reads from or writes to FILENAME.
   Defined keywords:
@@ -2925 +2926 @@
                           class
                           external-format
-                          sharing))
+                          sharing
+                          basic))
       (retry-open ()
                   :report (lambda (stream) (format stream "Retry opening ~s" filename))