[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv12598

Modified Files:
	swank.lisp 
Log Message:
(frame-for-emacs): Print the frame number a little nicer with ~2D.
Date: Thu Dec 16 22:16:51 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.271 slime/swank.lisp:1.272
--- slime/swank.lisp:1.271	Wed Dec 15 23:30:56 2004
+++ slime/swank.lisp	Thu Dec 16 22:16:50 2004
@@ -1474,7 +1474,7 @@
 		      (princ-to-string restart))))
 
 (defun frame-for-emacs (n frame)
-  (let* ((label (format nil "  ~D: " n))
+  (let* ((label (format nil " ~2D: " n))
          (string (with-output-to-string (stream) 
                      (princ label stream) 
                      (print-frame frame stream))))