Index: /branches/working-0711/ccl/lib/arglist.lisp
===================================================================
--- /branches/working-0711/ccl/lib/arglist.lisp	(revision 8380)
+++ /branches/working-0711/ccl/lib/arglist.lisp	(revision 8381)
@@ -185,4 +185,5 @@
               (when restp
                 (push (if lexprp '&lexpr '&rest) res)
+                #+no
                 (when nkeys
                   (when (> idx nkeys) (decf idx nkeys)))