[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv25410

Modified Files:
	swank.lisp ChangeLog 
Log Message:
	* swank.lisp (debug-in-emacs): Moved (WITH-BINDINGS
	*SLDB-PRINTER-BINDINGS* ...), from here...
	(sldb-loop): ... to here. Otherwise results from a user doing an
	eval-in-frame were truncated.

	Reported by Jeff Workman.


--- /project/slime/cvsroot/slime/swank.lisp	2009/02/26 20:53:07	1.637
+++ /project/slime/cvsroot/slime/swank.lisp	2009/02/26 21:19:45	1.638
@@ -2479,8 +2479,9 @@
     (force-user-output)
     (call-with-debugging-environment
      (lambda ()
-       (with-bindings *sldb-printer-bindings*
-         (sldb-loop *sldb-level*))))))
+       ;; We used to have (WITH-BINDING *SLDB-PRINTER-BINDINGS* ...)
+       ;; here, but that truncated the result of an eval-in-frame.
+       (sldb-loop *sldb-level*)))))
 
 (defun sldb-loop (level)
   (unwind-protect
@@ -2488,7 +2489,8 @@
         (with-simple-restart (abort "Return to sldb level ~D." level)
           (send-to-emacs 
            (list* :debug (current-thread-id) level
-                  (debugger-info-for-emacs 0 *sldb-initial-frames*)))
+                  (with-bindings *sldb-printer-bindings*
+                    (debugger-info-for-emacs 0 *sldb-initial-frames*))))
           (send-to-emacs 
            (list :debug-activate (current-thread-id) level nil))
           (loop 
--- /project/slime/cvsroot/slime/ChangeLog	2009/02/26 20:53:07	1.1692
+++ /project/slime/cvsroot/slime/ChangeLog	2009/02/26 21:19:45	1.1693
@@ -1,5 +1,14 @@
 2009-02-26  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* swank.lisp (debug-in-emacs): Moved (WITH-BINDINGS
+	*SLDB-PRINTER-BINDINGS* ...), from here...
+	(sldb-loop): ... to here. Otherwise results from a user doing an
+	eval-in-frame were truncated.
+
+	Reported by Jeff Workman.
+
+2009-02-26  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* swank.lisp (hash-table-to-alist): New function.
 	([method] emacs-inspect (hash-table)): Sort keys if they're all
 	numbers, symbols, or strings.