Changeset 4280

Timestamp:

10/10/03 14:16:19 (19 years ago)

Author:

piso

Message:

%SET-CLASS-NAME

File:

• trunk/j/src/org/armedbear/lisp/LispClass.java (modified) (4 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: LispClass.java,v 1.28 2003-09-28 18:32:49 piso Exp $
+ * $Id: LispClass.java,v 1.29 2003-10-10 14:16:19 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -42 +42 @@
     }
 
-    protected final Symbol symbol;
+    protected Symbol symbol;
     private LispObject directSuperclasses;
     private LispObject classPrecedenceList = NIL;
+
+    protected LispClass()
+    {
+    }
 
     protected LispClass(Symbol symbol)
@@ -207 +211 @@
 
     // ### class-name
-    private static final Primitive1 CLASS_NAME = new Primitive1("class-name") {
+    private static final Primitive1 CLASS_NAME = new Primitive1("class-name")
+    {
         public LispObject execute(LispObject arg) throws ConditionThrowable
         {
@@ -215 +220 @@
             catch (ClassCastException e) {
                 throw new ConditionThrowable(new TypeError(arg, "class"));
+            }
+        }
+    };
+
+    // ### %set-class-name
+    private static final Primitive2 _SET_CLASS_NAME =
+        new Primitive2("%set-class-name", PACKAGE_SYS, false)
+    {
+        public LispObject execute(LispObject first, LispObject second)
+            throws ConditionThrowable
+        {
+            try {
+                ((LispClass)first).symbol = checkSymbol(second);
+                return second;
+            }
+            catch (ClassCastException e) {
+                throw new ConditionThrowable(new TypeError(first, "class"));
             }
         }