Changeset 3946

Timestamp:

09/21/03 01:56:15 (20 years ago)

Author:

piso

Message:

Work in progress.

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: make_condition.java,v 1.1 2003-09-20 16:56:33 piso Exp $
+ * $Id: make_condition.java,v 1.2 2003-09-21 01:56:15 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -22 +22 @@
 package org.armedbear.lisp;
 
+// ### make-condition
 public final class make_condition extends Primitive
 {
@@ -29 +30 @@
     }
 
+    // make-condition type &rest slot-initializations => condition
     public LispObject execute(LispObject[] args) throws ConditionThrowable
     {
-        return new Condition();
+        if (args.length < 1)
+            throw new ConditionThrowable(new WrongNumberOfArgumentsException(this));
+        LispObject type = args[0];
+        LispObject initArgs = NIL;
+        for (int i = args.length; i-- > 1;)
+            initArgs = new Cons(args[i], initArgs);
+        if (type == Symbol.CONDITION)
+            return new Condition(initArgs);
+        if (type == Symbol.SIMPLE_CONDITION)
+            return new SimpleCondition(initArgs);
+        if (type == Symbol.ERROR)
+            return new LispError(initArgs);
+        if (type == Symbol.SIMPLE_ERROR)
+            return new SimpleError(initArgs);
+        if (type == Symbol.UNBOUND_VARIABLE)
+            return new UnboundVariable(initArgs);
+        if (type == Symbol.UNDEFINED_FUNCTION)
+            return new UndefinedFunction(initArgs);
+        throw new ConditionThrowable(new LispError("MAKE-CONDITION: unsupported type " + type));
     }