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) )