Changeset 11880 for trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Timestamp:

05/16/09 09:02:21 (15 years ago)

Author:

ehuelsmann

Message:

Remove the KIND slot from the COMPILAND structure:
ever since we stopped compiling XEPs, we don't
distinguish :EXTERNAL and :INTERNAL compilands anymore.

File:

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

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

@@ -8019 +8019 @@
 
          (descriptor (analyze-args compiland))
-         (execute-method-name (if (eq (compiland-kind compiland) :external)
-                                  "execute" "_execute"))
-         (execute-method (make-method :name execute-method-name
+         (execute-method (make-method :name (if (and *child-p*
+                                                     *closure-variables*)
+                                                "_execute" "execute")
                                       :descriptor descriptor))
          (*code* ())
@@ -8234 +8234 @@
                  (if *closure-variables*
                      (progn
-                       (setf execute-method-name
-                             (setf (method-name execute-method) "_execute"))
                        (setf (method-name-index execute-method)
                              (pool-name (method-name execute-method)))