Index: /trunk/ccl/library/lispequ.lisp
===================================================================
--- /trunk/ccl/library/lispequ.lisp	(revision 4905)
+++ /trunk/ccl/library/lispequ.lisp	(revision 4906)
@@ -875,5 +875,5 @@
 
 
-
+ 
 
 
@@ -1284,16 +1284,23 @@
   basic-stream.flags                    ; fixnum; bits.
   basic-stream.state                    ; typically an ioblock
+  basic-stream.info                     ; a plist for less-often-used things.
 )
 
 (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.class               ; a class object
+  basic-file-stream.flags               ; fixnum; bits.
+  basic-file-stream.state               ; typically an ioblock
+  basic-file-stream.info                ; a plist for less-often-used things.
   basic-file-stream.filename
   basic-file-stream.actual-filename
   )
 
+;;; Bits in basic-stream.flags
+(defenum (:prefix "BASIC-STREAM-FLAG.")
+  open-input
+  open-output
+  open-binary
+  file-stream)
   
-