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