Added access authorization framework, added port to ACL 5. ACL 5
seems to need eval-when wrapped around certain defconstant forms when used in the same file (maybe because of compiler-macros).
This commit is contained in:
24
src/acl-locking.cl
Normal file
24
src/acl-locking.cl
Normal file
@ -0,0 +1,24 @@
|
||||
;;;; 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)))
|
||||
Reference in New Issue
Block a user