Component server

You are here: All Systems / trivial-sockets / server

(in-package :trivial-sockets)

(defmacro with-server ((name arguments) &body forms)
  `(let (,name)
     (unwind-protect
         (progn
           (setf ,name (open-server ,@arguments))
           (locally
               ,@forms))
       (when ,name (close-server ,name)))))

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.