Changeset 4414
- Timestamp:
- 10/16/03 19:40:49 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Primitives.java
r4400 r4414 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Primitives.java,v 1.47 6 2003-10-16 00:32:26piso Exp $5 * $Id: Primitives.java,v 1.477 2003-10-16 19:40:49 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 3175 3175 }; 3176 3176 3177 // ### multiple-value-se q3177 // ### multiple-value-setq 3178 3178 // multiple-value-setq vars form => result 3179 3179 // Result is the primary value returned by the form. 3180 3180 // Should be a macro. 3181 3181 private static final SpecialOperator MULTIPLE_VALUE_SETQ = 3182 new SpecialOperator("multiple-value-setq") { 3182 new SpecialOperator("multiple-value-setq") 3183 { 3183 3184 public LispObject execute(LispObject args, Environment env) 3184 3185 throws ConditionThrowable … … 3231 3232 // ### multiple-value-prog1 3232 3233 private static final SpecialOperator MULTIPLE_VALUE_PROG1 = 3233 new SpecialOperator("multiple-value-prog1") { 3234 new SpecialOperator("multiple-value-prog1") 3235 { 3234 3236 public LispObject execute(LispObject args, Environment env) 3235 3237 throws ConditionThrowable … … 3249 3251 // ### multiple-value-call 3250 3252 private static final SpecialOperator MULTIPLE_VALUE_CALL = 3251 new SpecialOperator("multiple-value-call") { 3253 new SpecialOperator("multiple-value-call") 3254 { 3252 3255 public LispObject execute(LispObject args, Environment env) 3253 3256 throws ConditionThrowable
Note: See TracChangeset
for help on using the changeset viewer.