Changeset 3841
- Timestamp:
- 09/17/03 15:00:45 (20 years ago)
- Location:
- trunk/j/src/org/armedbear/lisp
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Array.java
r3832 r3841 3 3 * 4 4 * Copyright (C) 2003 Peter Graves 5 * $Id: Array.java,v 1. 9 2003-09-16 19:01:07piso Exp $5 * $Id: Array.java,v 1.10 2003-09-17 14:55:59 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 124 124 } 125 125 126 public LispClass classOf() 127 { 128 return LispClass.ARRAY; 129 } 130 126 131 public LispObject typep(LispObject typeSpecifier) throws LispError 127 132 { … … 130 135 if (typeSpecifier == Symbol.SIMPLE_ARRAY) 131 136 return T; 132 if (typeSpecifier instanceof LispClass) { 133 final String name = typeSpecifier.getName(); 134 if (name.equals("ARRAY")) 135 return T; 136 } 137 if (typeSpecifier == LispClass.ARRAY) 138 return T; 137 139 return super.typep(typeSpecifier); 138 140 } -
trunk/j/src/org/armedbear/lisp/Cons.java
r3791 r3841 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Cons.java,v 1.2 5 2003-09-15 05:02:04piso Exp $5 * $Id: Cons.java,v 1.26 2003-09-17 14:59:50 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 46 46 } 47 47 48 public LispClass classOf() 49 { 50 return LispClass.CONS; 51 } 52 48 53 public LispObject typep(LispObject typeSpecifier) throws LispError 49 54 { … … 53 58 return T; 54 59 if (typeSpecifier == Symbol.SEQUENCE) 60 return T; 61 if (typeSpecifier == LispClass.LIST) 62 return T; 63 if (typeSpecifier == LispClass.CONS) 64 return T; 65 if (typeSpecifier == LispClass.SEQUENCE) 55 66 return T; 56 67 if (typeSpecifier == Symbol.ATOM) -
trunk/j/src/org/armedbear/lisp/Function.java
r3414 r3841 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Function.java,v 1.2 0 2003-08-15 17:18:02piso Exp $5 * $Id: Function.java,v 1.21 2003-09-17 15:00:45 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 102 102 } 103 103 104 public LispClass classOf() 105 { 106 return LispClass.FUNCTION; 107 } 108 104 109 public LispObject typep(LispObject typeSpecifier) throws LispError 105 110 { … … 107 112 return T; 108 113 if (typeSpecifier == Symbol.COMPILED_FUNCTION) 114 return T; 115 if (typeSpecifier == LispClass.FUNCTION) 109 116 return T; 110 117 return super.typep(typeSpecifier); -
trunk/j/src/org/armedbear/lisp/Package.java
r3791 r3841 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Package.java,v 1.4 2 2003-09-15 04:59:28piso Exp $5 * $Id: Package.java,v 1.43 2003-09-17 14:56:53 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 53 53 } 54 54 55 public LispClass classOf() 56 { 57 return LispClass.PACKAGE; 58 } 59 55 60 public LispObject typep(LispObject typeSpecifier) throws LispError 56 61 { 57 62 if (typeSpecifier == Symbol.PACKAGE) 63 return T; 64 if (typeSpecifier == LispClass.PACKAGE) 58 65 return T; 59 66 return super.typep(typeSpecifier); … … 210 217 for (int i = names.length; i-- > 0;) { 211 218 String symbolName = names[i]; 219 // There shouldn't be any internal symbols in the COMMON-LISP 220 // package. 212 221 Debug.assertTrue(internalSymbols.get(symbolName) == null); 222 // The symbol in question may have been exported already. If we 223 // replace an existing symbol, we'll lose any information that 224 // might be associated with it. So we check first... 213 225 if (externalSymbols.get(symbolName) == null) 214 226 externalSymbols.put(symbolName, new Symbol(symbolName, this));
Note: See TracChangeset
for help on using the changeset viewer.