Added back with-backplane

backplane-server.lisp

@@ -127,8 +127,13 @@
                           :mechanism :sasl-plain)
                backplane))))
 
-;; (defmacro with-backplane (backplane &rest ops)
-;;   (let ((bp-sym (gensym)))
-;;     `(let ((,bp-sym ,backplane))
-;;        (unwind-protect (progn ,@ops)
-;;          (cl-xmpp:disconnect ,bp-sym)))))
+(defmacro with-backplane (bp-clause &rest ops)
+  (when (or (not (listp bp-clause))
+            (not (= 2 (length bp-clause)))
+            (not (symbolp (car bp-clause))))
+    (error "bad backplane clause"))
+  (let ((bp-name (car bp-clause)))
+    `(let ((,bp-name ,(cadr bp-clause)))
+       (unwind-protect
+            (progn ,@ops)
+         (cl-xmpp:disconnect ,bp-name)))))

package.lisp

@@ -17,4 +17,5 @@
                 #:error-p
                 #:parse-message
                 #:handle-message
-                #:backplane-connect))
+                #:backplane-connect
+                #:with-backplane))