OSCL/CLASH
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update LWL port to work on modern LispWorks.

Browse Source
This commit is contained in:
Pierre R. Mai
2016-09-15 11:32:28 +02:00
parent 9ee91852f9
commit 0be606f7a0
2 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
clash.asd Normal file → Executable file
View File

@ -30,7 +30,7 @@
(:file "sbcl-locking" :depends-on ("package")) (:file "sbcl-locking" :depends-on ("package"))
#+cmu #+cmu
(:file "cmu-locking" :depends-on ("package")) (:file "cmu-locking" :depends-on ("package"))
#+lispworks4.1 #+lispworks
(:file "lwl-locking" :depends-on ("package")) (:file "lwl-locking" :depends-on ("package"))
#+allegro #+allegro
(:file "acl-locking" :depends-on ("package")))) (:file "acl-locking" :depends-on ("package"))))
@ -88,7 +88,7 @@
(:file "simple-sbcl") (:file "simple-sbcl")
#+cmu #+cmu
(:file "simple-cmu") (:file "simple-cmu")
#+lispworks4.1 #+lispworks
(:file "simple-lwl") (:file "simple-lwl")
#+allegro #+allegro
(:file "simple-acl")) (:file "simple-acl"))

6
src/lwl-locking.lisp Normal file → Executable file
View File

@ -15,9 +15,7 @@
;;; Locking primitives for LWL ;;; Locking primitives for LWL
(defmacro pop-atomically (place) (defmacro pop-atomically (place)
`(mp:without-preemption `(system:atomic-pop ,place))
(pop ,place)))
(defmacro push-atomically (value place) (defmacro push-atomically (value place)
`(mp:without-preemption `(system:atomic-push ,value ,place))
(push ,value ,place)))