Changeset 12987

Timestamp:

10/31/10 08:48:46 (12 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:

• trunk/abcl/src/org/armedbear/lisp/top-level.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/top-level.lisp

@@ -109 +109 @@
   (etypecase frame
     (sys::lisp-stack-frame
-     (pprint-logical-block (stream nil :prefix "(" :suffix ")")
-       (setq frame (sys:frame-to-list frame))
-       (ignore-errors
-         (prin1 (car frame) stream)
-         (let ((args (cdr frame)))
-           (if (listp args)
-               (format stream "~{ ~_~S~}" args)
-               (format stream " ~S" args))))))
+     (let ((frame (sys:frame-to-list frame)))
+       (pprint-logical-block (stream nil :prefix "(" :suffix ")")
+         (ignore-errors
+           (prin1 (car frame) stream)
+           (let ((args (cdr frame)))
+             (if (listp args)
+                 (format stream "~{ ~_~S~}" args)
+                 (format stream " ~S" args)))))))
     (sys::java-stack-frame
      (write-string (sys:frame-to-string frame) stream))))