Changeset 4489

Timestamp:

10/21/03 18:41:54 (18 years ago)

Author:

piso

Message:

Removed ASSERT (now implemented in fixme.lisp).

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.478 2003-10-17 19:37:45 piso Exp $
+ * $Id: Primitives.java,v 1.479 2003-10-21 18:41:54 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -3356 +3356 @@
     };
 
-    // ### assert
-    // Should be a macro.
-    private static final SpecialOperator ASSERT =
-        new SpecialOperator("assert") {
-        public LispObject execute(LispObject args, Environment env)
-            throws ConditionThrowable
-        {
-            if (args.length() != 1)
-                throw new ConditionThrowable(new WrongNumberOfArgumentsException(this));
-            if (eval(args.car(), env, LispThread.currentThread()) == NIL)
-                throw new ConditionThrowable(new LispError("assertion failed: " + args.car()));
-            return NIL;
-        }
-    };
-
     // ### write-char
     // write-char character &optional output-stream => character