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

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed May 20 18:49:56 2009
New Revision: 11911

Log:
Followup to last commit.

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	Wed May 20 18:49:56 2009
@@ -8409,7 +8409,7 @@
               (setf warnings-p t
                     failure-p t)
               nil)))
-      (values (%jvm-compile name org-definition expression environment)
+      (values (%jvm-compile name definition expression environment)
               warnings-p failure-p))))
 
 (defvar *file-compilation* nil)