(defun test () (let ((lock (mp:make-lock)) (cvar (mp:make-condition-variable)) (flag nil)) (mp:process-run-function "test" (lambda () (mp:with-lock (lock) (setf flag t) (mp:condition-variable-signal cvar)))) (mp:with-lock (lock) (loop until flag do (mp:condition-variable-wait cvar lock))))) (defun run () (loop (test) (format t ".") (finish-output)))
RUN eventually hangs with latest git 1d3355d, but not with 12.2.1.
Linux xi 3.2.0-24-generic-pae #39-Ubuntu SMP Mon May 21 18:54:21 UTC 2012 i686 i686 i386 GNU/Linux
gcc version 4.6.3 (Ubuntu/Linaro 4.6.3-1ubuntu5)