File: server.lisp

package info (click to toggle)
trivial-sockets 0.3-5
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 108 kB
  • ctags: 51
  • sloc: lisp: 444; makefile: 36
file content (10 lines) | stat: -rw-r--r-- 256 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
 
(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)))))