From: Alexey Dejneka <adejneka@comail.ru>
Date: Sun, 6 Jan 2008 06:17:26 +0000 (+0000)
Subject: 1.0.3.17: new bug in DX value-cells.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=df57e2847578a1cccf7df14c078a231c0629977a;p=sbcl.git

1.0.3.17: new bug in DX value-cells.
---

diff --git a/BUGS b/BUGS
index 55d9b4f..4090ef5 100644
--- a/BUGS
+++ b/BUGS
@@ -1845,3 +1845,20 @@ WORKAROUND:
  performance elsewhere.
 
  Other generic sequence functions have this problem as well.
+
+419: stack-allocated indirect closure variables are not popped
+
+    (locally (declare (optimize speed (safety 0)))
+      (defun bug419 (x)
+        (multiple-value-call #'list
+          (eval '(values 1 2 3))
+          (let ((x x))
+            (declare (dynamic-extent x))
+            (flet ((mget (y)
+                     (+ x y))
+                   (mset (z)
+                     (incf x z)))
+              (declare (dynamic-extent #'mget #'mset))
+              ((lambda (f g) (eval `(progn ,f ,g (values 4 5 6)))) #'mget #'mset))))))
+
+  (ASSERT (EQUAL (BUG419) '(1 2 3 4 5 6))) => failure
diff --git a/version.lisp-expr b/version.lisp-expr
index e5c0951..023458d 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".)
-"1.0.13.16"
+"1.0.13.17"