[Openmcl-devel] Atomic instructions

Chun Tian (binghe) binghe.lisp at gmail.com
Thu Jan 9 05:27:53 PST 2014

Sorry, it doesn't work ... try this: (ccl::%rplaca-conditional x y z).  There's also ccl::%rplacd-conditional.


Il giorno 09/gen/2014, alle ore 21:21, "Chun Tian (binghe)" <binghe.lisp at gmail.com> ha scritto:

> I think (ccl::conditional-store (car x) y z) should work.
> --binghe
> Il giorno 09/gen/2014, alle ore 01:59, Taoufik Dachraoui <dachraoui.taoufik at gmail.com> ha scritto:
>> Hi
>> Also, besides atomic-push, I would like to do the following atomically:
>> (if (eq (car x) y) (setf	(car x) z))
>> How this can de done with CCL using Test and Set instruction of the CPU?
>> If I can implement such things using a lapfunction it would be great; thanks
>> for your help.
>> Kind regards
>> Taoufik
>> _______________________________________________
>> Openmcl-devel mailing list
>> Openmcl-devel at clozure.com
>> http://clozure.com/mailman/listinfo/openmcl-devel

More information about the Openmcl-devel mailing list