Changeset 4906

Timestamp:

Jul 24, 2006, 3:51:05 AM (18 years ago)

Author:

Gary Byers

Message:

Add a plist to basic-/basic-file-stream.

File:

• trunk/ccl/library/lispequ.lisp (modified) (2 diffs)

trunk/ccl/library/lispequ.lisp

@@ -875 +875 @@
 
 
-
+ 
 
 
@@ -1284 +1284 @@
   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)
   
-