mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-26 06:22:33 -08:00
Code Issues Projects Releases Packages Wiki Activity

multiprocessing: create atomic structure slot accessors by default

Browse source 
Previously we were only creating atomic accessors when explicitely
told so, which is problematic for compatibility reasons, since it
requires compatibility libraries to define their own versions of
defstruct just for ECL. This change is backwards compatible.
This commit is contained in:
Marius Gerbershagen 2019-10-26 19:44:59 +02:00
parent 6ade6d4491
commit 12fedc5fe3
3 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/doc/manual/extensions/mp_ref_atomic.txi
View file

@ -98,10 +98,12 @@ Currently, the following places are supported:
@code{car}, @code{cdr}, @code{first}, @code{rest}, @code{svref},
@code{symbol-plist}, @code{symbol-value}, @code{slot-value},
@code{clos:standard-instance-access},
@code{clos:funcallable-standard-instance-access}, a struct accessor
defined by @code{defstruct} with the @code{:atomic-accessors} option
enabled or any other place for which a compare-and-swap expansion was
defined by @code{mp:defcas} or @code{mp:define-cas-expander}.
@code{clos:funcallable-standard-instance-access}, a structure slot
accessor@footnote{The creation of atomic structure slot accessors can be
deactivated by supplying a @code{(:atomic-accessors nil)} option to
@code{defstruct}.} or any other place for which a compare-and-swap
expansion was defined by @code{mp:defcas} or
@code{mp:define-cas-expander}.
For @code{slot-value}, @code{slot-unbound} is called if the slot is
unbound unless @var{old} is @code{eq} to @code{si:unbound}, in which
@ -129,7 +131,7 @@ Example:
Atomic update of a structure slot. If the update would not be atomic,
the result would be unpredictable.
@lisp
(defstruct (test-struct :atomic-accessors)
(defstruct test-struct
(slot1 0))
(let ((struct (make-test-struct)))
(mapc #'mp:process-join