Pierre R. Mai
5aa138df6d
seems to need eval-when wrapped around certain defconstant forms when used in the same file (maybe because of compiler-macros).
25 lines
506 B
Common Lisp
25 lines
506 B
Common Lisp
;;;; CLASH --- The Common Lisp Adaptable Simple HTTP server
|
|
;;;; This is copyrighted software. See documentation for terms.
|
|
;;;;
|
|
;;;; acl-locking.cl --- Platform independent locking primitives
|
|
;;;;
|
|
;;;; Checkout Tag: $Name$
|
|
;;;; $Id$
|
|
|
|
(in-package :CLASH)
|
|
|
|
;;;; %File Description:
|
|
;;;;
|
|
;;;;
|
|
;;;;
|
|
|
|
;;; Locking primitives for ACL
|
|
|
|
(defmacro pop-atomically (place)
|
|
`(mp:without-scheduling
|
|
(pop ,place)))
|
|
|
|
(defmacro push-atomically (value place)
|
|
`(mp:without-scheduling
|
|
(push ,value ,place)))
|