[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog swank-cmucl.lisp 
Log Message:
* swank-cmucl.lisp (safe-definition-finding): Remove whitespace
around error messages.
(trim-whitespace): New function.



--- /project/slime/cvsroot/slime/ChangeLog	2007/08/28 22:03:26	1.1183
+++ /project/slime/cvsroot/slime/ChangeLog	2007/08/28 22:23:53	1.1184
@@ -1,3 +1,9 @@
+2007-08-29  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-cmucl.lisp (safe-definition-finding): Remove whitespace
+	around error messages.
+	(trim-whitespace): New function.
+
 2007-08-28  Helmut Eller  <heller at common-lisp.net>
 
 	Fix some output related bugs.
--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2007/08/23 19:03:37	1.171
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2007/08/28 22:23:53	1.172
@@ -697,7 +697,11 @@
     (if *debug-definition-finding*
         (body)
         (handler-case (values (progn , at body) nil)
-          (error (c) (values (list :error (princ-to-string c)) c))))))
+          (error (c) (values `(:error ,(trim-whitespace (princ-to-string c)))
+                             c))))))
+
+(defun trim-whitespace (string)
+  (string-trim #(#\newline #\space #\tab) string))
 
 (defun code-location-source-location (code-location)
   "Safe wrapper around `code-location-from-source-location'."