Changeset 5290

Timestamp:

Oct 5, 2006, 3:59:08 AM (18 years ago)

Author:

Gary Byers

Message:

Set class-prototypes for basic-streams just before we make the first one.

File:

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

trunk/ccl/level-1/l1-boot-2.lisp

@@ -73 +73 @@
 (defvar *stdout* ())
 (defvar *stderr* ())
+
+
+(defun set-basic-stream-prototype (class)
+  (when (subtypep class 'basic-stream)
+    (setf (%class.prototype class) (or (%class.prototype class)
+                                       (allocate-basic-stream class)))
+    (dolist (subclass (class-direct-subclasses class))
+      (set-basic-stream-prototype subclass))))
+
+(set-basic-stream-prototype (find-class 'basic-stream))
+
 
 ;;; The hard parts here have to do with setting up *TERMINAL-IO*.