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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Jan 11 09:40:41 2009
New Revision: 11554

Log:
Followup to the introduction of compile-forms-and-maybe-emit-clear-values.

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	Sun Jan 11 09:40:41 2009
@@ -682,7 +682,7 @@
 	 (loop for (form arg1 arg2) on forms-and-compile-args by #'cdddr
 	    do (compile-form form arg1 arg2)
 	    collecting form)))
-    (maybe-emit-clear-values forms-for-emit-clear)))
+    (apply #'maybe-emit-clear-values forms-for-emit-clear)))
 
 (defknown emit-unbox-fixnum () t)
 (defun emit-unbox-fixnum ()