[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/

[BKNR Commits]

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