Changeset 4489


Ignore:
Timestamp:
10/21/03 18:41:54 (18 years ago)
Author:
piso
Message:

Removed ASSERT (now implemented in fixme.lisp).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Primitives.java

    r4442 r4489  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.478 2003-10-17 19:37:45 piso Exp $
     5 * $Id: Primitives.java,v 1.479 2003-10-21 18:41:54 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    33563356    };
    33573357
    3358     // ### assert
    3359     // Should be a macro.
    3360     private static final SpecialOperator ASSERT =
    3361         new SpecialOperator("assert") {
    3362         public LispObject execute(LispObject args, Environment env)
    3363             throws ConditionThrowable
    3364         {
    3365             if (args.length() != 1)
    3366                 throw new ConditionThrowable(new WrongNumberOfArgumentsException(this));
    3367             if (eval(args.car(), env, LispThread.currentThread()) == NIL)
    3368                 throw new ConditionThrowable(new LispError("assertion failed: " + args.car()));
    3369             return NIL;
    3370         }
    3371     };
    3372 
    33733358    // ### write-char
    33743359    // write-char character &optional output-stream => character
Note: See TracChangeset for help on using the changeset viewer.