[armedbear-cvs] r14206 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Sat Oct 20 02:44:54 2012
New Revision: 14206

Log:
Use correct slot name to get at the discriminating function.

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/Profiler.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Profiler.java	Thu Oct 18 23:43:14 2012	(r14205)
+++ trunk/abcl/src/org/armedbear/lisp/Profiler.java	Sat Oct 20 02:44:54 2012	(r14206)
@@ -83,7 +83,7 @@
                                 LispObject maybeMethod = methods.car();
                                 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);
                                     methods = methods.cdr();