/[slime]/slime/swank-ecl.lisp
ViewVC logotype

Diff of /slime/swank-ecl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by gcarncross, Fri May 2 01:43:23 2008 UTC revision 1.23 by gcarncross, Thu May 8 22:55:02 2008 UTC
# Line 271  Line 271 
271                 (when (plusp i)                 (when (plusp i)
272                   (let* ((x (elt *backtrace* i))                   (let* ((x (elt *backtrace* i))
273                          (name (si::frs-tag f)))                          (name (si::frs-tag f)))
274                     (unless (fixnump name)                     (unless (si::fixnump name)
275                       (push name (third x)))))))                       (push name (third x)))))))
276      (setf *backtrace* (remove-if #'is-ignorable-fun-p (nreverse *backtrace*)))      (setf *backtrace* (remove-if #'is-ignorable-fun-p (nreverse *backtrace*)))
277      (Setf *tmp* *backtrace*)      (Setf *tmp* *backtrace*)
# Line 320  Line 320 
320               (record1 (cdr record)))               (record1 (cdr record)))
321          (cond ((symbolp record0)          (cond ((symbolp record0)
322                 (setq variables (acons record0 record1 variables)))                 (setq variables (acons record0 record1 variables)))
323                ((not (fixnump record0))                ((not (si::fixnump record0))
324                 (push record1 functions))                 (push record1 functions))
325                ((symbolp record1)                ((symbolp record1)
326                 (push record1 blocks))                 (push record1 blocks))

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

  ViewVC Help
Powered by ViewVC 1.1.5