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 (defun make-spinlock (&key name value)
  27   (declare (ignore name value))
  28   nil)
  29
  30 (defun get-spinlock (spinlock)
  31   (declare (ignore spinlock))
  32   t)
  33
  34 (defun release-spinlock (spinlock)
  35   (declare (ignore spinlock))
  36   nil)
  37
  38 (defmacro with-spinlock ((spinlock) &body body)
  39   (declare (ignore spinlock))
  40   `(locally ,@body))