Changeset 6627

Timestamp:

May 29, 2007, 5:36:12 AM (18 years ago)

Author:

Gary Byers

Message:

ARG-NAMES-FROM-MAP takes a PC argument.

File:

• branches/ide-1.0/ccl/lib/arglist.lisp (modified) (2 diffs)

branches/ide-1.0/ccl/lib/arglist.lisp

@@ -168 +168 @@
           (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 +179 @@
       (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)))