Changeset 9234


Ignore:
Timestamp:
Apr 22, 2008, 7:39:36 PM (11 years ago)
Author:
gz
Message:

Don't crash if not enuff vars in scope

File:
1 edited

Legend:

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

    r9180 r9234  
    641641                 (local-vars (append (nthcdr nargs vars) (inherited-vars)))
    642642                 (local-indices (append (nthcdr nargs map-indices) (inherited-indices)))
    643                  (arg-vars (nbutlast vars nlocals))
    644                  (arg-indices (nbutlast map-indices nlocals)))
     643                 (arg-vars (if (<= nlocals 0) vars (nbutlast vars nlocals)))
     644                 (arg-indices (if (<= nlocals 0) map-indices (nbutlast map-indices nlocals))))
    645645            (flet ((get-arg-value (name)
    646646                     (let* ((pos (position name arg-vars :test #'eq)))
Note: See TracChangeset for help on using the changeset viewer.