Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 4911)
+++ /trunk/ccl/lib/macros.lisp	(revision 4912)
@@ -3261,4 +3261,8 @@
 	  (return ,res))))))
 
+(defmacro basic-stream-ioblock (s)
+  `(or (basic-stream.state ,s)
+    (stream-is-closed ,s)))
+
 (defsetf interrupt-level set-interrupt-level)