Changeset 8022


Ignore:
Timestamp:
Jan 8, 2008, 8:43:14 AM (12 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/arglist.lisp

    r7254 r8022  
    207207              (keys))
    208208      (let* ((rest nil)
    209              (map (car (function-symbol-map lfun))))
     209             (map (if (> pc target::arg-check-trap-pc-limit)
     210                    (car (function-symbol-map lfun)))))
    210211        (if (and map pc)
    211212          (let ((total (+ nreq nopt (if (or restp lexprp) 1 0) (or nkeys 0)))
Note: See TracChangeset for help on using the changeset viewer.