Changeset 4902

Timestamp:

Jul 23, 2006, 2:05:22 AM (18 years ago)

Author:

Gary Byers

Message:

*class-table* entry for BASIC-STREAM.

File:

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

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

@@ -1181 +1181 @@
 
 
-;(defvar puke nil)
 
 (defun %require-type-class-cell (arg class-cell)
@@ -2108 +2107 @@
         (setf (%svref v target::subtag-istruct)
               #'(lambda (i) (or (find-class (%svref i 0) nil) *istruct-class*)))
+        (setf (%svref v target::subtag-basic-stream)
+              #'(lambda (b) (basic-stream.class b)))
         (setf (%svref v target::subtag-instance)
               #'%class-of-instance)