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

Diff of /slime/swank-allegro.lisp

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

revision 1.39 by heller, Fri Jun 25 08:05:21 2004 UTC revision 1.40 by heller, Sun Jun 27 15:00:23 2004 UTC
# Line 297  Line 297 
297  (defimplementation spawn (fn &key name)  (defimplementation spawn (fn &key name)
298    (mp:process-run-function name fn))    (mp:process-run-function name fn))
299    
300    (defvar *id-lock* (mp:make-process-lock :name "id lock"))
301    (defvar *thread-id-counter* 0)
302    
303    (defimplementation thread-id (thread)
304      (mp:with-process-lock (*id-lock*)
305        (or (getf (mp:process-property-list thread) 'id)
306            (setf (getf (mp:process-property-list thread) 'id)
307                  (incf *thread-id-counter*)))))
308    
309    (defimplementation find-thread (id)
310      (find id mp:*all-processes*
311            :key (lambda (p) (getf (mp:process-property-list p) 'id))))
312    
313  (defimplementation thread-name (thread)  (defimplementation thread-name (thread)
314    (mp:process-name thread))    (mp:process-name thread))
315    

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

  ViewVC Help
Powered by ViewVC 1.1.5