Permalink
Browse files

ECL fix

  • Loading branch information...
1 parent fa3b4e2 commit f7b88237e724da2e58b2f45cc565599773313815 Edi Weitz committed Jan 21, 2011
Showing with 5 additions and 3 deletions.
  1. +1 −0 CHANGELOG
  2. +4 −3 specials.lisp
View
@@ -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)
View
@@ -315,9 +315,10 @@ encode cookie values.")
"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")))

0 comments on commit f7b8823

Please sign in to comment.