Changeset 14206

Timestamp:

10/20/12 09:44:54 (8 years ago)

Author:

rschlatte

Message:

Use correct slot name to get at the discriminating function.

• we used cl:function as slot name, which is not ANSI-compliant.

File:

• trunk/abcl/src/org/armedbear/lisp/Profiler.java (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/Profiler.java

@@ -84 +84 @@
                                 if (maybeMethod instanceof StandardObject) {
                                     StandardObject method = (StandardObject) maybeMethod;
-                                    LispObject function = method.getInstanceSlotValue(Symbol.FUNCTION);
+                                    LispObject function = method.getInstanceSlotValue(Symbol._FUNCTION);
                                     function.setCallCount(0);
                                     function.setHotCount(0);