Changeset 11880


Ignore:
Timestamp:
05/16/09 09:02:21 (13 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.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11877 r11880  
    80198019
    80208020         (descriptor (analyze-args compiland))
    8021          (execute-method-name (if (eq (compiland-kind compiland) :external)
    8022                                   "execute" "_execute"))
    8023          (execute-method (make-method :name execute-method-name
     8021         (execute-method (make-method :name (if (and *child-p*
     8022                                                     *closure-variables*)
     8023                                                "_execute" "execute")
    80248024                                      :descriptor descriptor))
    80258025         (*code* ())
     
    82348234                 (if *closure-variables*
    82358235                     (progn
    8236                        (setf execute-method-name
    8237                              (setf (method-name execute-method) "_execute"))
    82388236                       (setf (method-name-index execute-method)
    82398237                             (pool-name (method-name execute-method)))
  • trunk/abcl/src/org/armedbear/lisp/jvm.lisp

    r11878 r11880  
    154154(defstruct compiland
    155155  name
    156   (kind :external)  ; :INTERNAL or :EXTERNAL
    157156  lambda-expression
    158157  arg-vars          ; variables for lambda arguments
Note: See TracChangeset for help on using the changeset viewer.