[slime-cvs] CVS slime
CVS User trittweiler
trittweiler at common-lisp.net
Sun Sep 20 10:51:50 UTC 2009
Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv19538
Modified Files:
swank-abcl.lisp ChangeLog
Log Message:
* swank-abcl.lisp (thread-description): Fix typo.
(set-thread-description): Ditto.
--- /project/slime/cvsroot/slime/swank-abcl.lisp 2009/09/20 09:04:53 1.73
+++ /project/slime/cvsroot/slime/swank-abcl.lisp 2009/09/20 10:51:50 1.74
@@ -344,7 +344,7 @@
(backtrace start end)))
(defimplementation print-frame (frame stream)
- (write-string
+ (write-string
#+#.(swank-backend::with-symbol 'backtrace 'sys)
(sys:frame-to-string frame)
#-#.(swank-backend::with-symbol 'backtrace 'sys)
@@ -589,12 +589,12 @@
(defparameter *thread-description-map* (make-hash-table))
(defimplementation thread-description (thread)
- (synchronized-on *thread-description-map*
+ (threads:synchronized-on *thread-description-map*
(or (gethash thread *thread-description-map*)
- "No description available.")))
+ "")))
(defimplementation set-thread-description (thread description)
- (synchronized-on *thread-description-map*
+ (threads:synchronized-on *thread-description-map*
(setf (gethash thread *thread-description-map*) description)))
(defimplementation make-lock (&key name)
--- /project/slime/cvsroot/slime/ChangeLog 2009/09/20 09:39:16 1.1860
+++ /project/slime/cvsroot/slime/ChangeLog 2009/09/20 10:51:50 1.1861
@@ -1,5 +1,10 @@
2009-09-20 Tobias C. Rittweiler <tcr at freebits.de>
+ * swank-abcl.lisp (thread-description): Fix typo.
+ (set-thread-description): Ditto.
+
+2009-09-20 Tobias C. Rittweiler <tcr at freebits.de>
+
Generalize M-? (or M-_ respectively.)
It will now list:
More information about the slime-cvs
mailing list