;; CMU CL code did. -- WHN 20000715
'(t instance
funcallable-instance
- function stream)))
+ function stream
+ file-stream string-stream)))
sb-kernel::*built-in-classes*))))
(/noshow "done setting up SB-PCL::*BUILT-IN-CLASSES*")
\f
(defclass stream (instance) ()
(:metaclass built-in-class))
+(defclass file-stream (stream) ()
+ (:metaclass built-in-class))
+
+(defclass string-stream (stream) ()
+ (:metaclass built-in-class))
+
(defclass slot-object (t) ()
(:metaclass slot-class))