[armedbear-cvs] r12546 - trunk/abcl/src/org/armedbear/lisp

[Mark Evenson]

Author: mevenson
Date: Mon Mar 15 12:09:42 2010
New Revision: 12546

Log:
nreverse() *command-line-arguments-list* to natural order.

Found by Alan Ruttenburg.


Modified:
   trunk/abcl/src/org/armedbear/lisp/Interpreter.java

Modified: trunk/abcl/src/org/armedbear/lisp/Interpreter.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Interpreter.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Interpreter.java	Mon Mar 15 12:09:42 2010
@@ -247,6 +247,7 @@
                 }
             }
         }
+        arglist.nreverse();
 
         _COMMAND_LINE_ARGUMENT_LIST_.setSymbolValue(arglist);
     }