with-sockets macro

hanshuebner · Sep 6, 2011 · 945e300 · 945e300
1 parent 3e23d1d
commit 945e300
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/zeromq-api.lisp b/zeromq-api.lisp
@@ -104,6 +104,15 @@
 	  (progn ,@body)
        (zmq_close ,socket))))
 
+(defmacro with-sockets (sockets &body body)
+  (loop for (socket context type) in sockets
+     collect `(,socket (zmq_socket ,context ,(lookup-constant type))) into bindings
+     collect `(zmq_close ,socket) into cleanup
+     finally (return `(let ,bindings
+                        (unwind-protect
+                             (progn ,@body)
+                          (progn ,@cleanup))))))
+
 (defun send (s msg &optional flags)
   (%send s (msg-raw msg) (or flags 0)))