/[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.153 by dcrosher, Wed Mar 22 16:40:01 2006 UTC revision 1.154 by nsiivola, Wed Apr 12 08:43:55 2006 UTC
# Line 1136  stack." Line 1136  stack."
1136      (declare (type function function))      (declare (type function function))
1137      (sb-thread:with-mutex (lock) (funcall function)))      (sb-thread:with-mutex (lock) (funcall function)))
1138    
1139      (defimplementation make-recursive-lock (&key name)
1140        (sb-thread:make-mutex :name name))
1141    
1142      (defimplementation call-with-recursive-lock-held (lock function)
1143        (declare (type function function))
1144        (sb-thread:with-recursive-lock (lock) (funcall function)))
1145    
1146    (defimplementation current-thread ()    (defimplementation current-thread ()
1147      sb-thread:*current-thread*)      sb-thread:*current-thread*)
1148    

Legend:
Removed from v.1.153  
changed lines
  Added in v.1.154

  ViewVC Help
Powered by ViewVC 1.1.5