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))