Add initial support for SBCL, currently restricted to SERVE-EVENT.

src/sbcl-locking.lisp

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