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

Timestamp:

10/01/10 08:24:41 (13 years ago)

Author:

ehuelsmann

Message:

Fix #88: "We need SYS:COMPILED-LISP-FUNCTION-P" to distinguish
Java-defined and Lisp-defined functions (for SLIME).

File:

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

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

@@ -809 +809 @@
          (*current-code-attribute* code))
     (setf (code-max-locals code) 1)
-    (unless (eq super +lisp-primitive+)
+    (unless (eq super +lisp-compiled-primitive+)
       (multiple-value-bind
             (req opt key key-p rest
@@ -877 +877 @@
                                             +lisp-object+ +lisp-object+))))))
     (aload 0) ;; this
-    (cond ((eq super +lisp-primitive+)
+    (cond ((eq super +lisp-compiled-primitive+)
            (emit-constructor-lambda-name lambda-name)
            (emit-constructor-lambda-list args)
@@ -7051 +7051 @@
       (and *child-p* *closure-variables*))
         +lisp-compiled-closure+
-      +lisp-primitive+))
+      +lisp-compiled-primitive+))
 
     (setf (abcl-class-file-lambda-list class-file) args)