;;hold onto lock for long enough that child can't get it immediately
(sleep 20)
(interrupt-thread child (lambda () (format t "l ~A~%" (mutex-value lock))))
;;hold onto lock for long enough that child can't get it immediately
(sleep 20)
(interrupt-thread child (lambda () (format t "l ~A~%" (mutex-value lock))))