[cl-net-snmp-cvs] r93 - vendor/cl-http/lw/server

[ctian at common-lisp.net]

Author: ctian
Date: Sat Oct 20 07:00:27 2007
New Revision: 93

Modified:
   vendor/cl-http/lw/server/tcp-interface.lisp
Log:
Fix more LW 5 bugs

Modified: vendor/cl-http/lw/server/tcp-interface.lisp
==============================================================================
--- vendor/cl-http/lw/server/tcp-interface.lisp	(original)
+++ vendor/cl-http/lw/server/tcp-interface.lisp	Sat Oct 20 07:00:27 2007
@@ -375,7 +375,7 @@
   (disable-http-service))
 
 ;; force shutdown of all servers and free resources on exit from lisp.
-#+LispWorks4
+#+(or LispWorks4 LispWorks5)
 (eval-when (:load-toplevel)
 (lw:define-action "When quitting image" "Shutdown CL-HTTP" #'shutdown-http-service)
 )