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

[BKNR Commits]

Revision: 4646
Author: hans
URL: http://bknr.net/trac/changeset/4646

fixes for lispworks
U   trunk/thirdparty/hunchentoot/acceptor.lisp
U   trunk/thirdparty/hunchentoot/lispworks.lisp

Modified: trunk/thirdparty/hunchentoot/acceptor.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/acceptor.lisp	2011-02-10 17:22:00 UTC (rev 4645)
+++ trunk/thirdparty/hunchentoot/acceptor.lisp	2011-02-10 19:33:05 UTC (rev 4646)
@@ -29,7 +29,7 @@
 
 (in-package :hunchentoot)
 
-(eval-when (:load-toplevel)
+(eval-when (:load-toplevel :compile-toplevel :execute)
   (defun default-document-directory (&optional sub-directory)
     (asdf:system-relative-pathname :hunchentoot (format nil "www/~@[~A~]" sub-directory))))
 

Modified: trunk/thirdparty/hunchentoot/lispworks.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/lispworks.lisp	2011-02-10 17:22:00 UTC (rev 4645)
+++ trunk/thirdparty/hunchentoot/lispworks.lisp	2011-02-10 19:33:05 UTC (rev 4646)
@@ -122,3 +122,12 @@
 
 (editor:setup-indent "handler-case*" 1 2 4)
 
+(defun make-condition-variable (&key name)
+  (declare (ignore name))
+  (mp:make-condition-variable))
+
+(defun condition-variable-signal (condition-variable)
+  (mp:condition-variable-signal condition-variable))
+
+(defun condition-variable-wait (condition-variable lock)
+  (mp:condition-variable-wait condition-variable lock))