Index: /trunk/ccl/library/lispequ.lisp
===================================================================
--- /trunk/ccl/library/lispequ.lisp	(revision 4897)
+++ /trunk/ccl/library/lispequ.lisp	(revision 4898)
@@ -1278,5 +1278,24 @@
   lisp-thread.state-change-lock
   )
-      
+
+;;; "basic" (e.g., builtin, non-extensible) streams.
+(def-accessors (basic-stream) %svref
+  basic-stream.class                    ; a class object
+  basic-stream.flags                    ; fixnum; bits.
+  basic-stream.state                    ; typically an ioblock
+)
+
+(def-accessors (basic-file-stream) %svref
+  basic-file-stream.class                    ; a class object
+  basic-file-stream.flags                    ; fixnum; bits.
+  basic-file-stream.state                    ; typically an ioblock
+  basic-file-stream.filename
+  basic-file-stream.actual-filename
+  )
+
+  
+  
+
+
 (provide "LISPEQU")