Changeset 4489
- Timestamp:
- 10/21/03 18:41:54 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Primitives.java
r4442 r4489 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Primitives.java,v 1.47 8 2003-10-17 19:37:45piso Exp $5 * $Id: Primitives.java,v 1.479 2003-10-21 18:41:54 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 3356 3356 }; 3357 3357 3358 // ### assert3359 // Should be a macro.3360 private static final SpecialOperator ASSERT =3361 new SpecialOperator("assert") {3362 public LispObject execute(LispObject args, Environment env)3363 throws ConditionThrowable3364 {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 3373 3358 // ### write-char 3374 3359 // write-char character &optional output-stream => character
Note: See TracChangeset
for help on using the changeset viewer.