Changeset 15362
- Timestamp:
- 08/06/20 16:03:13 (3 years ago)
- Location:
- trunk/abcl
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/.gitignore
r15224 r15362 5 5 ext 6 6 scratch 7 .idea/ 8 *.iml 9 target/ 7 10 \#*\# 8 11 \.\#* -
trunk/abcl/src/org/armedbear/lisp/ArgumentListProcessor.java
r15361 r15362 806 806 * - AuxParam 807 807 * */ 808 public static abstract class Param {808 public static abstract class Param implements Serializable { 809 809 810 810 /** Assigns values to be bound to the correcsponding variables to the -
trunk/abcl/src/org/armedbear/lisp/Primitives.java
r15144 r15362 37 37 import static org.armedbear.lisp.Lisp.*; 38 38 39 import java.io.Serializable; 39 40 import java.math.BigInteger; 40 41 import java.util.ArrayList; … … 3720 3721 3721 3722 // ### block 3723 private static class BlockMarker extends LispObject implements Serializable {} 3724 3722 3725 private static final SpecialOperator BLOCK = new sf_block(); 3723 3726 private static final class sf_block extends SpecialOperator { … … 3736 3739 LispObject body = ((Cons)args).cdr(); 3737 3740 Environment ext = new Environment(env); 3738 final LispObject block = new LispObject();3741 final LispObject block = new BlockMarker(); 3739 3742 ext.addBlock(tag, block); 3740 3743 LispObject result = NIL;
Note: See TracChangeset
for help on using the changeset viewer.