Changeset 3708

Timestamp:

09/11/03 16:08:24 (20 years ago)

Author:

piso

Message:

typep()

File:

• trunk/j/src/org/armedbear/lisp/LispCharacter.java (modified) (3 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: LispCharacter.java,v 1.20 2003-08-15 17:18:02 piso Exp $
+ * $Id: LispCharacter.java,v 1.21 2003-09-11 16:08:24 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -57 +57 @@
         if (typeSpecifier instanceof Cons)
             return CompoundTypeSpecifier.getInstance(typeSpecifier).test(this);
-
         if (typeSpecifier == Symbol.CHARACTER)
             return T;
@@ -63 +62 @@
             return T;
         if (typeSpecifier == Symbol.STANDARD_CHAR)
+            return isStandardChar();
+        if (typeSpecifier == Type.CHARACTER)
+            return T;
+        if (typeSpecifier == Type.BASE_CHAR)
+            return T;
+        if (typeSpecifier == Type.STANDARD_CHAR)
             return isStandardChar();
         return super.typep(typeSpecifier);