[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.

--binghe

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