Changeset 4898

Timestamp:

Jul 23, 2006, 1:53:47 AM (18 years ago)

Author:

Gary Byers

Message:

Start to define what a BASIC-STREAM looks like.

File:

• trunk/ccl/library/lispequ.lisp (modified) (1 diff)

trunk/ccl/library/lispequ.lisp

@@ -1278 +1278 @@
   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")