Factored locking primitives out to their own implementation-dependend

files.  Part of the porting effort to LispWorks.

src/lwl-locking.cl

@@ -0,0 +1,24 @@
+;;;; CLASH --- The Common Lisp Adaptable Simple HTTP server
+;;;; This is copyrighted software.  See documentation for terms.
+;;;; 
+;;;; lwl-locking.cl --- Platform independent locking primitives
+;;;; 
+;;;; Checkout Tag: $Name$
+;;;; $Id$
+
+(in-package :CLASH)
+
+;;;; %File Description:
+;;;; 
+;;;; 
+;;;; 
+
+;;; Locking primitives for LWL
+
+(defmacro pop-atomically (place)
+  `(mp:without-preemption
+    (pop ,place)))
+
+(defmacro push-atomically (value place)
+  `(mp:without-preemption
+    (push ,value ,place)))