Changeset 16532


Ignore:
Timestamp:
Sep 5, 2015, 12:40:28 AM (4 years ago)
Author:
svspire
Message:

Make atomic-incf-decf handle structure references.
Fixes #1309.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/macros.lisp

    r16362 r16532  
    33873387        (car `(%atomic-incf-car ,(cadr place) ,delta))
    33883388        (cdr `(%atomic-incf-cdr ,(cadr place) ,delta))
    3389         (svref `(%atomic-incf-gvector ,@(cdr place) ,delta))))
     3389        ((svref struct-ref) `(%atomic-incf-gvector ,@(cdr place) ,delta))))
    33903390    (if (and (symbolp place) (eq :special (variable-information place env)))
    33913391      (let* ((base (gensym))
Note: See TracChangeset for help on using the changeset viewer.