[armedbear-cvs] r12636 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Apr 26 17:57:28 2010
New Revision: 12636

Log:
Fix "expecting integer on stack" issue reported by Alan Ruttenberg.

Analysis by: Alessio Stalla.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Mon Apr 26 17:57:28 2010
@@ -5006,7 +5006,6 @@
          (compile-constant (eval (second form)) target representation))))
 
 (defun p2-progv-node (block target representation)
-  (declare (ignore representation))
   (let* ((form (progv-form block))
          (symbols-form (cadr form))
          (values-form (caddr form))
@@ -5027,7 +5026,7 @@
                        (list +lisp-object+ +lisp-object+ +lisp-thread+) nil)
       ;; Implicit PROGN.
     (let ((*blocks* (cons block *blocks*)))
-      (compile-progn-body (cdddr form) target))
+      (compile-progn-body (cdddr form) target representation))
     (restore-environment-and-make-handler environment-register label-START)))
 
 (defun p2-quote (form target representation)