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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Mon Jan 30 11:42:37 2012
New Revision: 13833

Log:
When there's no &rest parameter, pass 'null' as the value for its name.

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

Modified: trunk/abcl/src/org/armedbear/lisp/Closure.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Closure.java	Mon Jan 30 02:09:59 2012	(r13832)
+++ trunk/abcl/src/org/armedbear/lisp/Closure.java	Mon Jan 30 11:42:37 2012	(r13833)
@@ -107,7 +107,8 @@
                   key.keyword));
       arglist = new ArgumentListProcessor(this, reqParams, optParams,
                                           keyParams, keys != NIL,
-                                          moreKeys != NIL, rest);
+                                          moreKeys != NIL,
+                                          (rest == NIL) ? null : rest);
   }