Changeset 4912

Timestamp:

Jul 27, 2006, 11:47:19 PM (18 years ago)

Author:

Gary Byers

Message:

BASIC-STREAM-IOBLOCK.

File:

• trunk/ccl/lib/macros.lisp (modified) (1 diff)

trunk/ccl/lib/macros.lisp

@@ -3261 +3261 @@
           (return ,res))))))
 
+(defmacro basic-stream-ioblock (s)
+  `(or (basic-stream.state ,s)
+    (stream-is-closed ,s)))
+
 (defsetf interrupt-level set-interrupt-level)