Email Archive: sbcl-commits (read-only)
|
[Sbcl-commits] CVS: sbcl/src/code kernel.lisp,1.15,1.16
From: Christophe Rhodes <crhodes@us...> - 2009-10-29 17:53
|
Update of /cvsroot/sbcl/sbcl/src/code
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv9320/src/code
Modified Files:
kernel.lisp
Log Message:
1.0.32.4: fix INSPECT on closures
(really fix %closure-values, but the inspector was the only user of this)
Index: kernel.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/kernel.lisp,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- kernel.lisp 21 Jun 2009 10:26:25 -0000 1.15
+++ kernel.lisp 29 Oct 2009 17:53:22 -0000 1.16
@@ -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.
|
Thread View
| Thread | Author | Date |
|---|---|---|
| [Sbcl-commits] CVS: sbcl/src/code kernel.lisp,1.15,1.16 | Christophe Rhodes <crhodes@us...> |