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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Aug 12 13:07:01 2011
New Revision: 13471

Log:
LOCAL-FUNCTION has a 'compiland' field now, no CLASS-FILE anymore.

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	Fri Aug 12 12:43:37 2011	(r13470)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Fri Aug 12 13:07:01 2011	(r13471)
@@ -4160,7 +4160,7 @@
              (emit-getstatic *this-class*
                          (declare-local-function
                           (make-local-function
-                           :class-file (compiland-class-file compiland)))
+                           :compiland compiland))
                          +lisp-object+)))))
   (cond ((null *closure-variables*))    ; Nothing to do.
         ((compiland-closure-register *current-compiland*)