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

[Mark Evenson]

Author: mevenson
Date: Tue Dec 28 16:01:10 2010
New Revision: 13110

Log:
Always emit a newline at the end of printing a backtrace for aesthetics.

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	Tue Dec 28 16:01:10 2010
@@ -134,7 +134,9 @@
           (print-frame frame *debug-io* :prefix (format nil "~3D: " n))
           (incf n)
           (when (>= n count)
+            (fresh-line *debug-io*)
             (return))))))
+  (fresh-line *debug-io*)
   (values))
 
 (defun frame-command (args)