Changeset 4414

Timestamp:

10/16/03 19:40:49 (18 years ago)

Author:

piso

Message:

Minor cleanup.

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (4 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.476 2003-10-16 00:32:26 piso Exp $
+ * $Id: Primitives.java,v 1.477 2003-10-16 19:40:49 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -3175 +3175 @@
     };
 
-    // ### multiple-value-seq
+    // ### multiple-value-setq
     // multiple-value-setq vars form => result
     // Result is the primary value returned by the form.
     // Should be a macro.
     private static final SpecialOperator MULTIPLE_VALUE_SETQ =
-        new SpecialOperator("multiple-value-setq") {
+        new SpecialOperator("multiple-value-setq")
+    {
         public LispObject execute(LispObject args, Environment env)
             throws ConditionThrowable
@@ -3231 +3232 @@
     // ### multiple-value-prog1
     private static final SpecialOperator MULTIPLE_VALUE_PROG1 =
-        new SpecialOperator("multiple-value-prog1") {
+        new SpecialOperator("multiple-value-prog1")
+    {
         public LispObject execute(LispObject args, Environment env)
             throws ConditionThrowable
@@ -3249 +3251 @@
     // ### multiple-value-call
     private static final SpecialOperator MULTIPLE_VALUE_CALL =
-        new SpecialOperator("multiple-value-call") {
+        new SpecialOperator("multiple-value-call")
+    {
         public LispObject execute(LispObject args, Environment env)
             throws ConditionThrowable