wat

PiperOrigin-RevId: 615801017

Author: common-lisp-dev-copybara

thread-test.lisp

@@ -53,6 +53,7 @@
      (expect (eq (current-thread) (current-thread)))
      (expect (eq (current-thread) (current-thread))))))
 
+#+nil
 (deftest test-recursive-mutex ()
   (let ((mutex (make-mutex "TEST"))
         (count 0))
@@ -68,7 +69,7 @@
                 (increment))))
     (expect (= count 500))))
 
-(deftest test-frmutex ()
+#+nil(deftest test-frmutex ()
   (let ((mutex (make-frmutex "FR"))
         (count1 0)
         (count2 0))
@@ -98,6 +99,7 @@
   (let ((mutex (make-frmutex)))
     (expect mutex)))
 
+#+nil
 (deftest test-unprotected-mutex-safe ()
   (declare (optimize (safety 3)))
   (let ((mutex (make-mutex "TEST")))
@@ -106,6 +108,7 @@
         (with-mutex (mutex :protect nil)
           (throw :foo :no-error))))))
 
+#+nil
 (deftest test-unprotected-mutex-unsafe ()
   (declare (optimize (safety 0)))
   (let ((mutex (make-mutex "TEST")))
@@ -119,6 +122,7 @@
     (expect (holding-mutex-p mutex))))
 
 
+#+nil
 (deftest test-with-value-computed-once ()
   (let ((promise (make-promise "once"))
         (count0 (list 0))

thread.lisp

@@ -188,6 +188,9 @@ Related:
   #-(or ccl sbcl)
   (assert nil nil "Unimplemented: HOLDING-MUTEX-P"))
 
+(defmacro with-mutex ((m) &body body) `(sb-thread:with-mutex (,m) ,@body))
+
+#+nil
 (defmacro with-mutex ((mutex &key (lock t) (reenter t) (protect t) (inline :default))
                       &environment env &body body)
   "Defines BODY as a critical section that is guarded by MUTEX.
@@ -225,6 +228,7 @@ there is still possibility that the MUTEX remains locked resulting in an undefin
                     (,lock-form (,mutex) (&body))
                     (&body))))))))
 
+#+nil
 (defmacro with-mutex-once ((mutex) &environment env &body body)
   "Executes BODY while holding the MUTEX.
 Checks that the current thread is NOT the owner of the MUTEX."
@@ -236,6 +240,7 @@ Checks that the current thread is NOT the owner of the MUTEX."
        (with-recursive-lock-held (,mutex)
          (locally ,@body)))))
 
+#+nil
 (defmacro with-unprotected-mutex ((mutex &key (lock t) (reenter t))
                                   &environment env &body body)
   "Like WITH-MUTEX but without an (expensive) UNWIND-PROTECT.
@@ -270,6 +275,7 @@ If REENTER is NIL and the MUTEX is owned by the current thread, a MUTEX-ERROR is
                  (error 'mutex-error "Unwind with an unprotected mutex ~A!" ,mutex)))))
         (form)))))
 
+#+nil
 (defmacro with-unprotected-mutex-once ((mutex &key (lock t)) &body body)
   "Like WITH-MUTEX-ONCE but without an (expensive) UNWIND-PROTECT.
 The mutex is locked if the LOCK form evaluates to non-nil at runtime.
@@ -313,6 +319,7 @@ The promise must not be fulfilled, yet."
   (dcheck (promise-fulfilled-p promise))
   (cdr promise))
 
+#+nil
 (defun %with-value-computed-once (promise body)
   (declare (promise promise) (function body))
   ;; Check if promise is not fulfilled, yet?
@@ -328,6 +335,7 @@ The promise must not be fulfilled, yet."
   ;; Return results.
   (promise-value promise))
 
+#+nil
 (defmacro with-value-computed-once ((promise) &body body)
   "Compute the value of the BODY only once and store it in the PROMISE.