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