Update of /project/closure/cvsroot/closure/src/html In directory clnet:/tmp/cvs-serv11810/src/html Modified Files: html-style.lisp Log Message: Use Bordeaux Threads for all threading primitives, so that non-GUI parts of Closure don't have to depend on CLIM anymore. - Removed all mp/ functions from glisp. - Use condition variables instead of process-wait. --- /project/closure/cvsroot/closure/src/html/html-style.lisp 2006/12/31 12:05:33 1.9 +++ /project/closure/cvsroot/closure/src/html/html-style.lisp 2006/12/31 15:42:41 1.10 @@ -378,13 +378,13 @@ (make-hash-table :test #'equalp)) (defparameter *style-sheet-cache*/lock - (mp/make-lock :name "*style-sheet-cache*")) + (bordeaux-threads:make-lock "*style-sheet-cache*")) (defun maybe-parse-style-sheet-from-url (url &key (name "anonymous") (supersheet nil) (media-type :all)) (multiple-value-bind (looked presentp) - (mp/with-lock (*style-sheet-cache*/lock) + (bordeaux-threads:with-recursive-lock-held (*style-sheet-cache*/lock) (gethash url *style-sheet-cache*)) (cond (presentp (format *debug-io* "~&;; Serving style sheet ~S [at ~S] from cache.~%" @@ -398,7 +398,7 @@ :name name :supersheet supersheet :media-type media-type))) - (mp/with-lock (*style-sheet-cache*/lock) + (bordeaux-threads:with-recursive-lock-held (*style-sheet-cache*/lock) (setf (gethash url *style-sheet-cache*) res)) res)))))