From: Christophe Rhodes <csr21@cantab.net>
Date: Thu, 29 Oct 2009 17:53:21 +0000 (+0000)
Subject: 1.0.32.4: fix INSPECT on closures
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7f90f12c4be8b2852eb6c767738966b7bd4aecc6;p=sbcl.git

1.0.32.4: fix INSPECT on closures

(really fix %closure-values, but the inspector was the only user of this)
---

diff --git a/NEWS b/NEWS
index 98662fd..eb79254 100644
--- a/NEWS
+++ b/NEWS
@@ -4,6 +4,7 @@ changes relative to sbcl-1.0.32:
     x86-64/linux.  (thanks to Daniel Janus)
   * bug fix: restore buildability on the MIPS platform.  (regression from
     1.0.30.38, reported by Samium Gromoff)
+  * bug fix: inspecting closures is less likely to fail with a type error.
 
 changes in sbcl-1.0.32 relative to sbcl-1.0.31:
   * optimization: faster FIND and POSITION on strings of unknown element type
diff --git a/src/code/kernel.lisp b/src/code/kernel.lisp
index 7bf7e4e..c0e4557 100644
--- a/src/code/kernel.lisp
+++ b/src/code/kernel.lisp
@@ -174,7 +174,7 @@
   (declare (closure closure))
   (let (values)
     (do-closure-values (elt closure)
-      (push elt closure))
+      (push elt values))
     (nreverse values)))
 
 ;;; Extract the function from CLOSURE.
diff --git a/version.lisp-expr b/version.lisp-expr
index c677cc1..261dc49 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.32.3"
+"1.0.32.4"