From eed9254936fe91e36dd4dbca02c342021917eeb1 Mon Sep 17 00:00:00 2001 From: Alexey Dejneka Date: Mon, 13 Sep 2004 06:01:11 +0000 Subject: [PATCH] 0.8.14.12: * New bug. --- BUGS | 13 +++++++++++++ version.lisp-expr | 2 +- 2 files changed, 14 insertions(+), 1 deletion(-) 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 diff --git a/version.lisp-expr b/version.lisp-expr index 6b47397..d028610 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.14.11" +"0.8.14.12" -- 1.7.10.4