13 Apr
2007
13 Apr
'07
11:21 a.m.
On Fri, 13 Apr 2007 12:50:34 +0200, Pierre THIERRY nowhere.man@levallois.eu.org wrote:
I suppose you could take advantage of the fact the global variables are dynamic ones:
(defvar *dispatch-table1* ...) (defvar *dispatch-table2* ...)
(let ((*dispatch-table* *dispatch-table1*)) (start-server :port 8001))
(let ((*dispatch-table* *dispatch-table2*)) (start-server :port 8002))
I didn't try this code, though, it's just what seemed natural to me for this use.
That won't work because of MP. You'd have to use implementation-specific facilities like this one:
http://www.lispworks.com/documentation/lw50/LWRM/html/lwref-399.htm