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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(make-compiler-note): Don't send the short-message across the wire if
the slot is nil.
Date: Tue Feb 17 16:54:36 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.120 slime/swank.lisp:1.121
--- slime/swank.lisp:1.120	Mon Feb 16 16:46:13 2004
+++ slime/swank.lisp	Tue Feb 17 16:54:36 2004
@@ -922,11 +922,11 @@
 (defun make-compiler-note (condition)
   "Make a compiler note data structure from a compiler-condition."
   (declare (type compiler-condition condition))
-  (list :message (message condition)
-        :short-message (or (short-message condition)
-                           (message condition))
-        :severity (severity condition)
-        :location (location condition)))
+  (list* :message (message condition)
+         :severity (severity condition)
+         :location (location condition)
+         (let ((s (short-message condition)))
+           (if s (list :short-message s)))))
 
 (defun swank-compiler (function)
   (clear-compiler-notes)