[slime-cvs] CVS slime

[mbaringer]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv15611

Modified Files:
	swank.lisp ChangeLog 
Log Message:
(*sldb-condition-printer*): New variable.
(safe-condition-message): Use the current binding
of *sldb-condition-printer* to print the condition to a string.


--- /project/slime/cvsroot/slime/swank.lisp	2007/12/20 10:33:37	1.523
+++ /project/slime/cvsroot/slime/swank.lisp	2008/02/04 16:25:08	1.524
@@ -2056,12 +2056,15 @@
                                       ,(princ-to-string real-condition))))
   (throw 'sldb-loop-catcher nil))
 
+(defvar *sldb-condition-printer* #'format-sldb-condition
+  "Function called to print a condition to an SLDB buffer.")
+
 (defun safe-condition-message (condition)
   "Safely print condition to a string, handling any errors during
 printing."
   (let ((*print-pretty* t) (*print-right-margin* 65))
     (handler-case
-        (format-sldb-condition condition)
+        (funcall *sldb-condition-printer* condition)
       (error (cond)
         ;; Beware of recursive errors in printing, so only use the condition
         ;; if it is printable itself:
--- /project/slime/cvsroot/slime/ChangeLog	2008/02/04 12:15:27	1.1277
+++ /project/slime/cvsroot/slime/ChangeLog	2008/02/04 16:25:10	1.1278
@@ -1,5 +1,9 @@
 2008-02-03  Marco Baringer  <mb at bese.it>
 
+	* swank.lisp (*sldb-condition-printer*): New variable.
+	(safe-condition-message): Use the current binding
+	of *sldb-condition-printer* to print the condition to a string.
+
 	* slime.el (sldb-invoke-restart-by-name): New function. Invokes a
 	restart by name, uses completion to read restart's name.
 	(slime-define-keys sldb-mode-map): Bind