Changeset 9238


Ignore:
Timestamp:
Apr 23, 2008, 1:29:15 PM (11 years ago)
Author:
gz
Message:

Propagate r9234 to trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/backtrace.lisp

    r8973 r9238  
    630630                 (local-vars (append (nthcdr nargs vars) (inherited-vars)))
    631631                 (local-indices (append (nthcdr nargs map-indices) (inherited-indices)))
    632                  (arg-vars (nbutlast vars nlocals))
    633                  (arg-indices (nbutlast map-indices nlocals)))
     632                 (arg-vars (if (<= nlocals 0) vars (nbutlast vars nlocals)))
     633                 (arg-indices (if (<= nlocals 0) map-indices (nbutlast map-indices nlocals))))
    634634            (flet ((get-arg-value (name)
    635635                     (let* ((pos (position name arg-vars :test #'eq)))
Note: See TracChangeset for help on using the changeset viewer.