Changeset 14497
- Timestamp:
- 05/15/13 06:42:41 (10 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/FuncallableStandardObject.java
r14495 r14497 195 195 } 196 196 FuncallableStandardObject o = new FuncallableStandardObject((Layout)l); 197 if ( arg == StandardClass.STANDARD_GENERIC_FUNCTION || Symbol.SUBTYPEP.execute(arg, StandardClass.STANDARD_GENERIC_FUNCTION) != NIL) {197 if (Symbol.SUBTYPEP.execute(arg, LispClass.findClass(Symbol.STANDARD_GENERIC_FUNCTION)) != NIL) { 198 198 // KLUDGE: this initialization should be moved Lisp-side 199 199 o.setInstanceSlotValue(Symbol.NAME, NIL); -
trunk/abcl/src/org/armedbear/lisp/LispObject.java
r14448 r14497 671 671 ((Symbol)this).setDocumentation(Symbol.FUNCTION, doc); 672 672 return doc; 673 } else if (fn.typep(S tandardClass.STANDARD_GENERIC_FUNCTION) != NIL) {673 } else if (fn.typep(Symbol.STANDARD_GENERIC_FUNCTION) != NIL) { 674 674 return Symbol.SLOT_VALUE.execute(fn, Symbol._DOCUMENTATION); 675 675 } -
trunk/abcl/src/org/armedbear/lisp/Primitives.java
r14494 r14497 4249 4249 // will break for generic functions that aren't subclasses 4250 4250 // of standard-generic-function as well. 4251 if (first.typep(S tandardClass.STANDARD_GENERIC_FUNCTION) != NIL) {4251 if (first.typep(Symbol.STANDARD_GENERIC_FUNCTION) != NIL) { 4252 4252 ((StandardObject)first).setInstanceSlotValue(Symbol.NAME, second); 4253 4253 return second; -
trunk/abcl/src/org/armedbear/lisp/Profiler.java
r14448 r14497 73 73 object.setHotCount(0); 74 74 LispObject methods = null; 75 if (object.typep(S tandardClass.STANDARD_GENERIC_FUNCTION) != NIL) {75 if (object.typep(Symbol.STANDARD_GENERIC_FUNCTION) != NIL) { 76 76 methods = 77 77 Symbol.GENERIC_FUNCTION_METHODS.execute(object);
Note: See TracChangeset
for help on using the changeset viewer.