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))
  29
  30 (defun thread-yield () nil)