Changeset 8022

Timestamp:

Jan 8, 2008, 12:43:14 AM (17 years ago)

Author:

Gary Byers

Message:

ARG-NAMES-FROM-MAP: give up if PC is before/at target::arg-check-trap-pc-limit.

File:

• branches/working-0711/ccl/lib/arglist.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/arglist.lisp

@@ -207 +207 @@
               (keys))
       (let* ((rest nil)
-             (map (car (function-symbol-map lfun))))
+             (map (if (> pc target::arg-check-trap-pc-limit)
+                    (car (function-symbol-map lfun)))))
         (if (and map pc)
           (let ((total (+ nreq nopt (if (or restp lexprp) 1 0) (or nkeys 0)))