Changeset 3627

Timestamp:

09/08/03 17:41:49 (19 years ago)

Author:

piso

Message:

(subtypep 'keyword 'atom) => T T

File:

• trunk/j/src/org/armedbear/lisp/Type.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Type.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Type.java,v 1.17 2003-09-08 17:15:47 piso Exp $
+ * $Id: Type.java,v 1.18 2003-09-08 17:41:49 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -149 +149 @@
     // Subtypes of SYMBOL
     public static final Type BOOLEAN   = new Type(Symbol.BOOLEAN, SYMBOL);
-    public static final Type KEYWORD   = new Type(Symbol.KEYWORD, SYMBOL);
+    public static final Type KEYWORD   = new Type(Symbol.KEYWORD, SYMBOL, ATOM);
 
     // Subtypes of SEQUENCE