Changeset 4923

Timestamp:

Jul 29, 2006, 2:39:20 AM (18 years ago)

Author:

Gary Byers

Message:

BASIC-IO-STREAM; ALLOCATE-BASIC-STREAM makes one more slot in
BASIC-FILE-STREAM.

File:

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

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

@@ -1451 +1451 @@
 (make-built-in-class 'basic-input-stream 'basic-stream 'input-stream)
 (make-built-in-class 'basic-output-stream 'basic-stream 'input-stream)
+(make-built-in-class 'basic-io-stream 'basic-input-stream 'basic-output-stream)
 (make-built-in-class 'basic-character-input-stream 'basic-input-stream 'basic-character-stream 'character-input-stream)
 (make-built-in-class 'basic-character-output-stream 'basic-output-stream 'basic-character-stream 'character-output-stream)
@@ -1495 +1496 @@
 (defun allocate-basic-stream (class)
   (if (subtypep class 'basic-file-stream)
-    (gvector :basic-stream class 0 nil nil nil nil)
+    (gvector :basic-stream class 0 nil nil nil nil nil)
     (gvector :basic-stream class 0 nil nil)))