/[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.12 by heller, Sat Jan 31 11:50:25 2004 UTC revision 1.13 by heller, Sat Feb 7 19:30:05 2004 UTC
# Line 323  Line 323 
323  (defimplementation spawn (fn &key name)  (defimplementation spawn (fn &key name)
324    (mp:process-run-function name fn))    (mp:process-run-function name fn))
325    
326  ;; XXX: shurtcut  (defimplementation thread-name (thread)
327  (defimplementation thread-id ()    (mp:process-name thread))
   (mp:process-name mp:*current-process*))  
328    
329  (defimplementation thread-name (thread-id)  (defimplementation thread-status (thread)
330    thread-id)    (format nil "~A ~D" (mp:process-whostate thread)
331              (mp:process-priority thread)))
332    
333  (defimplementation make-lock (&key name)  (defimplementation make-lock (&key name)
334    (mp:make-process-lock :name name))    (mp:make-process-lock :name name))
# Line 340  Line 340 
340    mp:*current-process*)    mp:*current-process*)
341    
342  (defimplementation all-threads ()  (defimplementation all-threads ()
343    mp:*all-processes*)    (copy-list mp:*all-processes*))
344    
345  (defimplementation interrupt-thread (thread fn)  (defimplementation interrupt-thread (thread fn)
346    (mp:process-interrupt thread fn))    (mp:process-interrupt thread fn))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.5