Changeset 14067 for trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

Timestamp:

08/09/12 09:19:40 (9 years ago)

Author:

ehuelsmann

Message:

Fix declarations being dropped on inline expansions.

Report by James M. Lawrence.

File:

• trunk/abcl/src/org/armedbear/lisp/compile-file.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

@@ -529 +529 @@
             (setf (inline-expansion name)
                   (jvm::generate-inline-expansion block-name
-                                                  lambda-list body))
+                                                  lambda-list
+                                                  (append decls body)))
             (output-form `(setf (inline-expansion ',name)
                                 ',(inline-expansion name))))))