Changeset 4602

Timestamp:

11/02/03 04:29:26 (18 years ago)

Author:

piso

Message:

CELL-ERROR

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: make_condition.java,v 1.7 2003-11-02 00:22:08 piso Exp $
+ * $Id: make_condition.java,v 1.8 2003-11-02 04:29:26 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -40 +40 @@
         if (type == Symbol.ERROR)
             return new LispError(initArgs);
+        if (type == Symbol.CELL_ERROR)
+            return new CellError(initArgs);
         if (type == Symbol.PACKAGE_ERROR)
             return new PackageError(initArgs);