Silence notes about being specialised EQ templates on x86oids
[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 (defmacro with-mutex ((mutex) &body body)
19   (declare (ignore mutex))
20   `(locally ,@body))
21
22 (defmacro with-recursive-lock ((mutex) &body body)
23   (declare (ignore mutex))
24   `(locally ,@body))
25
26 (defmacro barrier ((kind) &body body)
27   (declare (ignore kind))
28   `(progn ,@body))