Changeset 8385

Timestamp:

01/22/05 17:18:20 (18 years ago)

Author:

asimon

Message:

unify/simplify signal() according to Peter's suggestion

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2005 Peter Graves
- * $Id: Lisp.java,v 1.312 2005-01-22 11:39:44 piso Exp $
+ * $Id: Lisp.java,v 1.313 2005-01-22 17:18:20 asimon Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -268 +268 @@
     };
 
-    public static final LispObject signal(Condition condition)
-        throws ConditionThrowable
-    {
-        return Symbol.SIGNAL.getSymbolFunction().execute(condition);
-    }
-
-    public static final LispObject signal(Symbol condition)
-        throws ConditionThrowable
-    {
-        return Packages.findPackage("SYSTEM").findSymbol("SIGNAL").getSymbolFunction().execute(condition);
-    }
- 
+    public static final LispObject signal(LispObject condition)
+        throws ConditionThrowable
+    {
+        return Symbol.SIGNAL.execute(condition);
+    }
 
     protected static volatile boolean interrupted;