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