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