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

Diff of /slime/swank-abcl.lisp

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

revision 1.7 by asimon, Sun Jun 27 17:10:33 2004 UTC revision 1.8 by asimon, Mon Jun 28 17:46:13 2004 UTC
# Line 310  Should work (with a patched xref.lisp) b Line 310  Should work (with a patched xref.lisp) b
310    #+nil(mp:start-scheduler))    #+nil(mp:start-scheduler))
311    
312  (defimplementation spawn (fn &key name)  (defimplementation spawn (fn &key name)
313    (ext:make-thread (lambda () (funcall fn))))    (ext:make-thread (lambda () (funcall fn)) :name name))
314    
315  (defvar *thread-props-lock* (ext:make-thread-lock))  (defvar *thread-props-lock* (ext:make-thread-lock))
316    
# Line 331  Should work (with a patched xref.lisp) b Line 331  Should work (with a patched xref.lisp) b
331                  (getf (gethash thread *thread-props*) 'id))))                  (getf (gethash thread *thread-props*) 'id))))
332    
333  (defimplementation thread-name (thread)  (defimplementation thread-name (thread)
334    (princ-to-string thread))    (ext:thread-name thread))
335    
336  (defimplementation thread-status (thread)  (defimplementation thread-status (thread)
337    (format nil "Thread is ~:[dead~;alive~]" (ext:thread-alive-p thread)))    (format nil "Thread is ~:[dead~;alive~]" (ext:thread-alive-p thread)))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5