[armedbear-cvs] r12987 - trunk/abcl/src/org/armedbear/lisp

[Mark Evenson]

Author: mevenson
Date: Sun Oct 31 04:48:46 2010
New Revision: 12987

Log:
Use a lexical variable rather than SETQ for backtrace

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



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

Modified: trunk/abcl/src/org/armedbear/lisp/top-level.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/top-level.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/top-level.lisp	Sun Oct 31 04:48:46 2010
@@ -108,14 +108,14 @@
     (write-string prefix stream))
   (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))))