teach debugger about &MORE arguments
[sbcl.git] / src / code / cross-thread.lisp
1 ;;;; cross-compile-time-only replacements for threading stuff
2
3 ;;;; This software is part of the SBCL system. See the README file for
4 ;;;; more information.
5 ;;;;
6 ;;;; This software is derived from the CMU CL system, which was
7 ;;;; written at Carnegie Mellon University and released into the
8 ;;;; public domain. The software is in the public domain and is
9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
10 ;;;; files for more information.
11
12 (in-package "SB!THREAD")
13
14 (defun make-mutex (&key name value)
15   (declare (ignore name value))
16   nil)
17
18 #!+(and sb-lutex sb-thread)
19 (defun make-lutex () nil)
20
21 (defmacro with-mutex ((mutex) &body body)
22   (declare (ignore mutex))
23   `(locally ,@body))
24
25 (defmacro with-recursive-lock ((mutex) &body body)
26   (declare (ignore mutex))
27   `(locally ,@body))
28
29 (defun make-spinlock (&key name value)
30   (declare (ignore name value))
31   nil)
32
33 (defun get-spinlock (spinlock)
34   (declare (ignore spinlock))
35   t)
36
37 (defun release-spinlock (spinlock)
38   (declare (ignore spinlock))
39   nil)
40
41 (defmacro with-spinlock ((spinlock) &body body)
42   (declare (ignore spinlock))
43   `(locally ,@body))