Changeset 4633

Timestamp:

11/03/03 18:49:20 (18 years ago)

Author:

piso

Message:

typeOf(), classOf()

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Condition.java,v 1.13 2003-11-02 00:24:54 piso Exp $
+ * $Id: Condition.java,v 1.14 2003-11-03 18:49:20 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -54 +54 @@
     public LispObject typeOf()
     {
+        LispClass c = getLispClass();
+        if (c != null)
+            return c.getSymbol();
         return Symbol.CONDITION;
     }
@@ -59 +62 @@
     public LispClass classOf()
     {
+        LispClass c = getLispClass();
+        if (c != null)
+            return c;
         return BuiltInClass.CONDITION;
     }