Changeset 12987


Ignore:
Timestamp:
10/31/10 08:48:46 (11 years ago)
Author:
Mark Evenson
Message:

Use a lexical variable rather than SETQ for backtrace

This definitely corrects bad style, and PRINT-FRAME should not be
modifying its arguments.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/top-level.lisp

    r12975 r12987  
    109109  (etypecase frame
    110110    (sys::lisp-stack-frame
    111      (pprint-logical-block (stream nil :prefix "(" :suffix ")")
    112        (setq frame (sys:frame-to-list frame))
    113        (ignore-errors
    114          (prin1 (car frame) stream)
    115          (let ((args (cdr frame)))
    116            (if (listp args)
    117                (format stream "~{ ~_~S~}" args)
    118                (format stream " ~S" args))))))
     111     (let ((frame (sys:frame-to-list frame)))
     112       (pprint-logical-block (stream nil :prefix "(" :suffix ")")
     113         (ignore-errors
     114           (prin1 (car frame) stream)
     115           (let ((args (cdr frame)))
     116             (if (listp args)
     117                 (format stream "~{ ~_~S~}" args)
     118                 (format stream " ~S" args)))))))
    119119    (sys::java-stack-frame
    120120     (write-string (sys:frame-to-string frame) stream))))
Note: See TracChangeset for help on using the changeset viewer.