Changeset 4038

Timestamp:

09/24/03 00:06:42 (20 years ago)

Author:

piso

Message:

Added explicit tags.

File:

• trunk/j/src/org/armedbear/lisp/Do.java (modified) (3 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Do.java,v 1.2 2003-09-23 14:55:45 piso Exp $
+ * $Id: Do.java,v 1.3 2003-09-24 00:06:42 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -24 +24 @@
 public final class Do extends Lisp
 {
+    // ### do
     private static final SpecialOperator DO = new SpecialOperator("do") {
         public LispObject execute(LispObject args, Environment env)
@@ -32 +33 @@
     };
 
+    // ### do*
     private static final SpecialOperator DO_ = new SpecialOperator("do*") {
         public LispObject execute(LispObject args, Environment env)