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

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Nov 11 06:55:54 2010
New Revision: 13020

Log:
Another Don't manually iterate through subforms, use
available function for it.


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	Thu Nov 11 06:55:54 2010
@@ -6561,9 +6561,7 @@
       (emit-getfield +lisp-thread+ "_values" +lisp-object-array+)
       (astore values-register)
       (let ((*register* *register*))
-        (dolist (subform cleanup-forms)
-          (compile-form subform nil nil)))
-      (maybe-emit-clear-values cleanup-forms)
+        (compile-progn-body cleanup-forms nil nil))
       (emit-push-current-thread)
       (aload values-register)
       (emit-putfield +lisp-thread+ "_values" +lisp-object-array+)