/[slime]/slime/swank-sbcl.lisp
ViewVC logotype

Diff of /slime/swank-sbcl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.197 by trittweiler, Fri Jul 4 22:04:12 2008 UTC revision 1.198 by trittweiler, Sat Jul 5 11:48:11 2008 UTC
# Line 1212  stack." Line 1212  stack."
1212      (if (sb-thread:thread-alive-p thread)      (if (sb-thread:thread-alive-p thread)
1213          "RUNNING"          "RUNNING"
1214          "STOPPED"))          "STOPPED"))
1215      #+#.(swank-backend::sbcl-with-weak-hash-tables)
1216      (progn
1217        (defparameter *thread-description-map*
1218          (make-weak-key-hash-table))
1219    
1220        (defvar *thread-descr-map-lock*
1221          (sb-thread:make-mutex :name "thread description map lock"))
1222    
1223        (defimplementation thread-description (thread)
1224          (sb-thread:with-mutex (*thread-descr-map-lock*)
1225            (or (gethash thread *thread-description-map*) "")))
1226    
1227        (defimplementation set-thread-description (thread description)
1228          (sb-thread:with-mutex (*thread-descr-map-lock*)
1229            (setf (gethash thread *thread-description-map*) description))))
1230    
1231    (defimplementation make-lock (&key name)    (defimplementation make-lock (&key name)
1232      (sb-thread:make-mutex :name name))      (sb-thread:make-mutex :name name))
1233    

Legend:
Removed from v.1.197  
changed lines
  Added in v.1.198

  ViewVC Help
Powered by ViewVC 1.1.5