[closure-cvs] CVS closure/src/html

[dlichteblau]

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