/[usocket]/trivial-sockets/server.lisp
ViewVC logotype

Contents of /trivial-sockets/server.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 364 - (show annotations)
Sun Jul 13 18:16:19 2008 UTC (5 years, 9 months ago) by ehuelsmann
File size: 256 byte(s)
Trivial sockets imported as gotten from the clbuild project mirror.
1 (in-package :trivial-sockets)
2
3 (defmacro with-server ((name arguments) &body forms)
4 `(let (,name)
5 (unwind-protect
6 (progn
7 (setf ,name (open-server ,@arguments))
8 (locally
9 ,@forms))
10 (when ,name (close-server ,name)))))

  ViewVC Help
Powered by ViewVC 1.1.5