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

[Mark Evenson]

Author: mevenson
Date: Mon Jul 13 04:43:42 2009
New Revision: 12041

Log:
Fix (ext:arglist 'ext:arglist) => NIL. (Tobias Rittweiler).



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

Modified: trunk/abcl/src/org/armedbear/lisp/arglist.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/arglist.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/arglist.java	Mon Jul 13 04:43:42 2009
@@ -64,7 +64,7 @@
 
     // ### arglist
     private static final Primitive ARGLIST =
-        new Primitive("arglist", PACKAGE_EXT, true)
+        new Primitive("arglist", PACKAGE_EXT, true, "extended-function-designator")
     {
         @Override
         public LispObject execute(LispObject arg) throws ConditionThrowable