Changeset 3755

Timestamp:

09/14/03 13:05:45 (19 years ago)

Author:

piso

Message:

STRINGP(), SIMPLE-STRING-P()

Location:

trunk/j/src/org/armedbear/lisp

Files:

• LispObject.java (modified) (2 diffs)
• LispString.java (modified) (2 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: LispObject.java,v 1.46 2003-09-14 12:25:54 piso Exp $
+ * $Id: LispObject.java,v 1.47 2003-09-14 13:03:33 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -219 +219 @@
     }
 
+    public LispObject STRINGP()
+    {
+        return NIL;
+    }
+
+    public LispObject SIMPLE_STRING_P()
+    {
+        return NIL;
+    }
+
     public int length() throws LispError
     {

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: LispString.java,v 1.54 2003-08-25 17:57:51 piso Exp $
+ * $Id: LispString.java,v 1.55 2003-09-14 13:05:45 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -84 +84 @@
         }
         return super.typep(typeSpecifier);
+    }
+
+    public LispObject STRINGP()
+    {
+        return T;
+    }
+
+    public LispObject SIMPLE_STRING_P()
+    {
+        return fillPointer < 0 ? T : NIL;
     }