Thread koans: possible replacement for SEMAPHORE-COUNT about lisp-koans HOT 6 OPEN

Thats what I mean.

from lisp-koans.

Nope, purely illustrative.

from lisp-koans.

I've posted sionescu/bordeaux-threads#70 - let's see how it goes.

from lisp-koans.

Just to not the code alluded to is:

(defun signal-semaphore (semaphore)
(bordeaux-threads:signal-semaphore
(semaphore-semaphore semaphore))
(incf (semaphore-count semaphore)))

(defun wait-on-semaphore (semaphore)
(bordeaux-threads:wait-on-semaphore
(semaphore-semaphore semaphore))
(decf (semaphore-count semaphore)))

(defun semaphore-name (semaphore)
(semaphore-name (semaphore-semaphore semaphore)))

;; Incrementing a bordeaux-threads semaphore is an atomic operation
;; but our increment is not.
(defvar g-semaphore (make-our-semaphore :name "g" :count 0))

(defun semaphore-increments-g ()
(signal-semaphore g-semaphore))

(define-test test-increment-semaphore
(assert-equal ___ (semaphore-count g-semaphore))
(bordeaux-threads:join-thread (bordeaux-threads:make-thread 'semaphore-increments-g :name "S incrementor 1"))
(bordeaux-threads:join-thread (bordeaux-threads:make-thread 'semaphore-increments-g :name "S incrementor 2"))
(bordeaux-threads:join-thread (bordeaux-threads:make-thread 'semaphore-increments-g :name "S incrementor 3"))
(assert-equal ___ (semaphore-count g-semaphore)))

It's probably useful to find a semaphore count for purely testing the semaphore code,
but not for anyone else, so no great reason to export such a function.
It also bugs me I see no testing for threads in CCL

from lisp-koans.

It also bugs me I see no testing for threads in CCL

What do you mean, testing? You mean no tests for threads in CCL the implementation? I cannot see them in https://github.com/Clozure/ccl-tests/ either.

from lisp-koans.

Clozure/ccl-tests#6

from lisp-koans.