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

Diff of /slime/swank-lispworks.lisp

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

revision 1.47 by heller, Fri Jun 25 08:05:38 2004 UTC revision 1.48 by heller, Sun Jun 27 15:00:43 2004 UTC
# Line 91  Line 91 
91    
92  (defimplementation call-without-interrupts (fn)  (defimplementation call-without-interrupts (fn)
93    (lw:without-interrupts (funcall fn)))    (lw:without-interrupts (funcall fn)))
94    
95  (defimplementation getpid ()  (defimplementation getpid ()
96    #+win32 (win32:get-current-process-id)    #+win32 (win32:get-current-process-id)
97    #-win32 (system::getpid))    #-win32 (system::getpid))
# Line 196  Return NIL if the symbol is unbound." Line 196  Return NIL if the symbol is unbound."
196    "Unwind FRAME N times."    "Unwind FRAME N times."
197    (do ((frame frame (dbg::frame-next frame))    (do ((frame frame (dbg::frame-next frame))
198         (i n (if (interesting-frame-p frame) (1- i) i)))         (i n (if (interesting-frame-p frame) (1- i) i)))
199        ((and (interesting-frame-p frame) (zerop i)) frame)        ((or (not frame)
200      (assert frame)))             (and (interesting-frame-p frame) (zerop i)))
201           frame)))
202    
203  (defun nth-frame (index)  (defun nth-frame (index)
204    (nth-next-frame *sldb-top-frame* index))    (nth-next-frame *sldb-top-frame* index))
# Line 537  Return NIL if the symbol is unbound." Line 538  Return NIL if the symbol is unbound."
538                   :key (lambda (x) (symbol-package (car x))))))                   :key (lambda (x) (symbol-package (car x))))))
539      (mp:process-run-function name () fn)))      (mp:process-run-function name () fn)))
540    
541    (defvar *id-lock* (mp:make-lock))
542    (defvar *thread-id-counter* 0)
543    
544    (defimplementation thread-id (thread)
545      (mp:with-lock (*id-lock*)
546        (or (getf (mp:process-plist thread) 'id)
547            (setf (getf (mp:process-plist thread) 'id)
548                  (incf *thread-id-counter*)))))
549    
550    (defimplementation find-thread (id)
551      (find id (mp:list-all-processes)
552            :key (lambda (p) (getf (mp:process-plist p) 'id))))
553    
554  (defimplementation thread-name (thread)  (defimplementation thread-name (thread)
555    (mp:process-name thread))    (mp:process-name thread))
556    

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

  ViewVC Help
Powered by ViewVC 1.1.5