;;;; cross-compile-time-only replacements for threading stuff

  This software is part of the SBCL system . See the README file for
;;;; more information.
;;;;
  This software is derived from the CMU CL system , which was
  written at Carnegie Mellon University and released into the
;;;; public domain. The software is in the public domain and is
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.

(in-package "SB!THREAD")

(defun make-mutex (&key name value)
  (declare (ignore name value))
  nil)

#!+(and sb-lutex sb-thread)
(defun make-lutex () nil)

(defmacro with-mutex ((mutex) &body body)
  (declare (ignore mutex))
  `(locally ,@body))

(defmacro with-recursive-lock ((mutex) &body body)
  (declare (ignore mutex))
  `(locally ,@body))

(defun make-spinlock (&key name value)
  (declare (ignore name value))
  nil)

(defun get-spinlock (spinlock)
  (declare (ignore spinlock))
  t)

(defun release-spinlock (spinlock)
  (declare (ignore spinlock))
  nil)

(defmacro with-spinlock ((spinlock) &body body)
  (declare (ignore spinlock))
  `(locally ,@body))

 cross-compile-time-only replacements for threading stuff
 more information.

 public domain. The software is in the public domain and is
 provided with absolutely no warranty. See the COPYING and CREDITS
 files for more information.

  This software is part of the SBCL system . See the README file for
  This software is derived from the CMU CL system , which was
  written at Carnegie Mellon University and released into the

(in-package "SB!THREAD")

(defun make-mutex (&key name value)
  (declare (ignore name value))
  nil)

#!+(and sb-lutex sb-thread)
(defun make-lutex () nil)

(defmacro with-mutex ((mutex) &body body)
  (declare (ignore mutex))
  `(locally ,@body))

(defmacro with-recursive-lock ((mutex) &body body)
  (declare (ignore mutex))
  `(locally ,@body))

(defun make-spinlock (&key name value)
  (declare (ignore name value))
  nil)

(defun get-spinlock (spinlock)
  (declare (ignore spinlock))
  t)

(defun release-spinlock (spinlock)
  (declare (ignore spinlock))
  nil)

(defmacro with-spinlock ((spinlock) &body body)
  (declare (ignore spinlock))
  `(locally ,@body))
