- Timestamp:
- 10/20/12 10:39:03 (8 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/Profiler.java
r14206 r14207 77 77 Symbol.GENERIC_FUNCTION_METHODS.execute(object); 78 78 } 79 // TODO: extract methods from non-standard80 // generic functions here once they are81 // implemented82 79 while (methods != null && methods != NIL) { 83 LispObject m aybeMethod = methods.car();84 if (maybeMethod instanceof StandardObject) {85 StandardObject method = (StandardObject) maybeMethod;86 LispObject function = method.getInstanceSlotValue(Symbol._FUNCTION);87 88 89 80 LispObject method = methods.car(); 81 LispObject function = 82 Symbol.METHOD_FUNCTION.execute(method); 83 if (function != NIL) { 84 function.setCallCount(0); 85 function.setHotCount(0); 86 methods = methods.cdr(); 90 87 } 91 88 } -
trunk/abcl/src/org/armedbear/lisp/Symbol.java
r14134 r14207 2987 2987 public static final Symbol METAOBJECT = 2988 2988 PACKAGE_MOP.addExternalSymbol("METAOBJECT"); 2989 public static final Symbol METHOD_FUNCTION = 2990 PACKAGE_MOP.addExternalSymbol("METHOD-FUNCTION"); 2989 2991 public static final Symbol SPECIALIZER = 2990 2992 PACKAGE_MOP.addExternalSymbol("SPECIALIZER");
Note: See TracChangeset
for help on using the changeset viewer.