Ignore:
Timestamp:
Jan 25, 2008, 10:21:30 AM (13 years ago)
Author:
gb
Message:

Be a little more defensive about null relative PC.

File:
1 edited

Legend:

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

    r8036 r8284  
    9696          (call 'funcall)
    9797          (call `(function ,(concatenate 'string "#<" (%lfun-name-string lfun) ">")))))
    98       (if (<= pc target::arg-check-trap-pc-limit)
     98      (if (and pc (<= pc target::arg-check-trap-pc-limit))
    9999        (append (call) (arg-check-call-arguments cfp lfun))
    100100        (multiple-value-bind (req opt restp keys)
     
    102102          (when (or (not (eql 0 req)) (not (eql 0 opt)) restp keys)
    103103            (let* ((arglist (arglist-from-map lfun)))
    104               (if (null arglist)
     104              (if (or (null arglist) (null pc))
    105105                (call "???")
    106106                (progn
Note: See TracChangeset for help on using the changeset viewer.