← Back to branch summary

~ubuntu-branches/ubuntu/breezy/cl-kmrcl/breezy

« back to all changes in this revision

Viewing changes to processes.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Kevin M. Rosenberg
  • Date: 2005-04-30 04:13:54 UTC
  • mfrom: (1.1.2 upstream) (2.1.1 sarge)
  • Revision ID: james.westby@ubuntu.com-20050430041354-jaeledyxbaei8co3
Tags: 1.84-1
New upstreamc

Show diffs side-by-side

added added

removed removed

Lines of Context:
processes.lisp
7
7
;;;; Programmer:    Kevin M. Rosenberg
8
8
;;;; Date Started:  June 2003
9
9
;;;;
10
 
;;;; $Id: processes.lisp 10152 2004-11-11 21:58:28Z kevin $
 
10
;;;; $Id: processes.lisp 10361 2005-03-19 21:40:21Z kevin $
11
11
;;;; *************************************************************************
12
12
 
13
13
(in-package #:kmrcl)
46
46
  #+lispworks
47
47
  `(mp:with-lock (,lock) ,@body)
48
48
  #+sb-thread
49
 
  `(sb-thread:with-mutex (,lock) ,@body)
 
49
  `(sb-thread:with-recursive-lock (,lock) ,@body)
50
50
  #+openmcl
51
51
  `(ccl:with-lock-grabbed (,lock) ,@body)
52
52
  #-(or allegro cmu lispworks sb-thread openmcl)