Revision: 4631 Author: edi URL: http://bknr.net/trac/changeset/4631

ECL fix

U trunk/thirdparty/hunchentoot/CHANGELOG U trunk/thirdparty/hunchentoot/specials.lisp

Modified: trunk/thirdparty/hunchentoot/CHANGELOG =================================================================== --- trunk/thirdparty/hunchentoot/CHANGELOG 2011-01-21 18:58:17 UTC (rev 4630) +++ trunk/thirdparty/hunchentoot/CHANGELOG 2011-01-21 19:01:44 UTC (rev 4631) @@ -1,3 +1,4 @@ +Patch for compilation with ECL (Sohail Somani) Fix DEFINE-EASY-HANDLER for multiple acceptors (Nicolas Neuss) Revived *SHOW-LISP-BACKTRACES-P* Made sure "100 Continue" is returned even if the client sends "Expect: 100-continue" twice (reported by Gordon Sims)

Modified: trunk/thirdparty/hunchentoot/specials.lisp =================================================================== --- trunk/thirdparty/hunchentoot/specials.lisp 2011-01-21 18:58:17 UTC (rev 4630) +++ trunk/thirdparty/hunchentoot/specials.lisp 2011-01-21 19:01:44 UTC (rev 4631) @@ -315,9 +315,10 @@ "The default connection timeout used when an acceptor is reading from and writing to a socket stream.")

-(define-symbol-macro *supports-threads-p* - #+:lispworks t - #-:lispworks bt:*supports-threads-p*) +(eval-when (:compile-toplevel :load-toplevel :execute) + (define-symbol-macro *supports-threads-p* + #+:lispworks t + #-:lispworks bt:*supports-threads-p*))

(defvar *global-session-db-lock* (load-time-value (and *supports-threads-p* (make-lock "global-session-db-lock")))