Changeset 12636

Timestamp:

04/26/10 21:57:28 (13 years ago)

Author:

ehuelsmann

Message:

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

Analysis by: Alessio Stalla.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (2 diffs)

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

@@ -5007 +5007 @@
 
 (defun p2-progv-node (block target representation)
-  (declare (ignore representation))
   (let* ((form (progv-form block))
          (symbols-form (cadr form))
@@ -5028 +5027 @@
       ;; 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)))