[fset-cvs] r23 - trunk/Code

[Scott L. Burson]

Author: sburson
Date: Tue Nov  4 05:36:20 2008
New Revision: 23

Log:
Oops -- error in port interface for threaded SBCL.



Modified:
   trunk/Code/port.lisp

Modified: trunk/Code/port.lisp
==============================================================================
--- trunk/Code/port.lisp	(original)
+++ trunk/Code/port.lisp	Tue Nov  4 05:36:20 2008
@@ -83,6 +83,7 @@
 #+(and sbcl (not sb-thread))
 (progn
   (defun make-lock (&optional name)
+    (declare (ignore name))
     nil)
   (defmacro with-lock ((lock &key (wait? t)) &body body)
     (declare (ignore lock wait?))
@@ -106,10 +107,10 @@
   (deflex *Memory-Barrier-Lock*
     (sb-thread:make-mutex :name "Memory Barrier Lock"))
   (defmacro read-memory-barrier ()
-    '(mp:with-process-lock (*Memory-Barrier-Lock*)
+    '(sb-thread:with-mutex (*Memory-Barrier-Lock*)
        nil))
   (defmacro write-memory-barrier ()
-    '(mp:with-process-lock (*Memory-Barrier-Lock*)
+    '(sb-thread:with-mutex (*Memory-Barrier-Lock*)
        nil)))