Changeset 4326
- Timestamp:
- 10/12/03 16:13:54 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/StandardObject.java
r4321 r4326 3 3 * 4 4 * Copyright (C) 2003 Peter Graves 5 * $Id: StandardObject.java,v 1. 7 2003-10-12 03:37:52piso Exp $5 * $Id: StandardObject.java,v 1.8 2003-10-12 16:13:54 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 32 32 } 33 33 34 pr ivateStandardObject(LispClass cls, LispObject slots)34 protected StandardObject(LispClass cls, LispObject slots) 35 35 { 36 36 this.cls = cls; … … 105 105 if (first == BuiltInClass.STANDARD_CLASS) 106 106 return new StandardClass(); 107 if (first instanceof LispClass) 107 if (first instanceof LispClass) { 108 Symbol symbol = ((LispClass)first).getSymbol(); 109 if (symbol == Symbol.STANDARD_GENERIC_FUNCTION) 110 return new GenericFunction((LispClass)first, second); 108 111 return new StandardObject((LispClass)first, second); 112 } 109 113 throw new ConditionThrowable(new TypeError(first, "class")); 110 114 }
Note: See TracChangeset
for help on using the changeset viewer.