Index: /branches/ide-1.0/ccl/lib/arglist.lisp
===================================================================
--- /branches/ide-1.0/ccl/lib/arglist.lisp	(revision 6626)
+++ /branches/ide-1.0/ccl/lib/arglist.lisp	(revision 6627)
@@ -168,5 +168,5 @@
           (values nil (zerop ncells)))))))
 
-(defun arg-names-from-map (lfun)
+(defun arg-names-from-map (lfun pc)
   (multiple-value-bind (nreq nopt restp nkeys allow-other-keys
                              optinit lexprp
@@ -179,5 +179,5 @@
       (let* ((rest nil)
              (map (car (function-symbol-map lfun))))
-        (if map
+        (if (and map pc)
           (let ((total (+ nreq nopt (if (or restp lexprp) 1 0) (or nkeys 0)))
                 (idx (- (length map) nclosed)))