Changeset 5210

Timestamp:

Sep 18, 2006, 8:42:59 PM (18 years ago)

Author:

Gary Byers

Message:

Macros for locking the input/output locks of an ioblock, assuming that it exists.

File:

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

trunk/ccl/lib/macros.lisp

@@ -3175 +3175 @@
          ,@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)