/[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.108 by heller, Mon Nov 15 23:07:37 2004 UTC revision 1.109 by heller, Fri Nov 19 01:19:25 2004 UTC
# Line 838  stack." Line 838  stack."
838      (format nil "Thread ~D" thread))      (format nil "Thread ~D" thread))
839    
840    (defimplementation thread-status (thread)    (defimplementation thread-status (thread)
841      (declare (ignore thread))      (sb-sys:without-gcing
842      "???")       (let ((thread (sb-thread::thread-sap-from-id thread)))
843           (cond (thread
844                  (let* ((sap (sb-sys:sap-ref-sap thread
845                                                  (* sb-vm::thread-state-slot
846                                                     sb-vm::n-word-bytes)))
847                         (state (ash (sb-sys:sap-int sap)
848                                     (- sb-vm::n-fixnum-tag-bits))))
849                    (case state
850                      (0 "running")
851                      (1 "stopping")
852                      (2 "stopped")
853                      (3 "dead")
854                      (t (format nil "??? ~A" state)))))
855                 (t "??? ???"))))))
856    
857    (defimplementation make-lock (&key name)    (defimplementation make-lock (&key name)
858      (sb-thread:make-mutex :name name))      (sb-thread:make-mutex :name name))

Legend:
Removed from v.1.108  
changed lines
  Added in v.1.109

  ViewVC Help
Powered by ViewVC 1.1.5