Changeset 4322

Timestamp:

10/12/03 13:45:13 (19 years ago)

Author:

piso

Message:

classOf()

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: LispString.java,v 1.61 2003-09-28 16:26:31 piso Exp $
+ * $Id: LispString.java,v 1.62 2003-10-12 13:45:13 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -64 +64 @@
     }
 
-    public LispObject typep(LispObject typeSpecifier) throws ConditionThrowable
-    {
-        if (typeSpecifier instanceof Symbol) {
-            if (typeSpecifier == Symbol.STRING)
+    public LispClass classOf()
+    {
+        return BuiltInClass.STRING;
+    }
+
+    public LispObject typep(LispObject type) throws ConditionThrowable
+    {
+        if (type instanceof Symbol) {
+            if (type == Symbol.STRING)
                 return T;
-            if (typeSpecifier == Symbol.BASE_STRING)
+            if (type == Symbol.BASE_STRING)
                 return T;
-            if (typeSpecifier == Symbol.SIMPLE_STRING ||
-                typeSpecifier == Symbol.SIMPLE_BASE_STRING)
+            if (type == Symbol.SIMPLE_STRING ||
+                type == Symbol.SIMPLE_BASE_STRING)
                 return fillPointer < 0 ? T : NIL;
         }
-        return super.typep(typeSpecifier);
+        if (type == BuiltInClass.STRING)
+            return T;
+        return super.typep(type);
     }