Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 5209)
+++ /trunk/ccl/lib/macros.lisp	(revision 5210)
@@ -3175,4 +3175,13 @@
          ,@body))))
 
+(defmacro with-ioblock-input-lock-grabbed ((ioblock) &body body)
+  `(with-lock-grabbed ((ioblock-inbuf-lock ,ioblock))
+    ,@body))
+
+(defmacro with-ioblock-output-lock-grabbed ((ioblock) &body body)
+  `(with-lock-grabbed ((ioblock-outbuf-lock ,ioblock))
+    ,@body))
+  
+
 (defmacro with-stream-ioblock-input ((ioblock stream &key
                                              speedy)