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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(make-compiler-note): Include short-message.
Date: Mon Feb 16 16:46:13 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.119 slime/swank.lisp:1.120
--- slime/swank.lisp:1.119	Sun Feb  8 14:12:38 2004
+++ slime/swank.lisp	Mon Feb 16 16:46:13 2004
@@ -741,10 +741,6 @@
                      (princ label stream) (funcall fn stream)))))
     (subseq string (length label))))
 
-(defslimefun sldb-can-continue-p ()
-  "Return T if there is a continue restart; otherwise NIL."
-  (if (find-restart 'continue) t nil))
-  
 (defslimefun sldb-continue ()
   (continue))
 
@@ -927,6 +923,8 @@
   "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)))