Factored locking primitives out to their own implementation-dependend

files.  Part of the porting effort to LispWorks.

src/cmu-locking.cl

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