Changeset 12979

Timestamp:

10/17/10 19:36:13 (12 years ago)

Author:

astalla

Message:

Do not create class files for local functions that have been inlined

File:

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

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

@@ -919 +919 @@
        (setf (local-function-definition local-function)
        (copy-tree definition))
-       (setf (local-function-inline-expansion local-function)
-       (generate-inline-expansion block-name lambda-list body))
+       ;(setf (local-function-inline-expansion local-function)
+       ;(generate-inline-expansion block-name lambda-list body))
        (p1-compiland compiland)))
    (push local-function local-functions)))
@@ -934 +934 @@
        (push special *visible-variables*))
      (setf (flet-form block)
-     (list* (car form) local-functions (p1-body (cddr form))))
+     (list* (car form)
+      (remove-if (lambda (fn)
+             (and (inline-p (local-function-name fn))
+            (not (local-function-references-needed-p fn))))
+           local-functions)
+      (p1-body (cddr form))))
      block)))))