X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=BUGS;h=57305afa709770391fa1bd8ca2b19a4aff5626cd;hb=eed9254936fe91e36dd4dbca02c342021917eeb1;hp=8fb3dc53ceecf295a973873a8e0782b41f455b78;hpb=8902b8b6bd2e9285749dd39d313b33b6c69c5213;p=sbcl.git diff --git a/BUGS b/BUGS index 8fb3dc5..57305af 100644 --- a/BUGS +++ b/BUGS @@ -1596,3 +1596,16 @@ WORKAROUND: => (EXPT X 2) from CLHS entry for DEFINE-COMPILER-MACRO fails in 0.8.13.41 with an error. Fixed in CMUCL 19a. + +348: + Structure slot setters do not preserve evaluation order: + + (defstruct foo (x)) + + (let ((i (eval '-2)) + (x (make-foo))) + (funcall #'(setf foo-x) + (incf i) + (aref (vector x) (incf i))) + (foo-x x)) + => error