(t
`(progn ,@body))))
-;;; what's the best thing to do with these on unithread?
-#+NIl
+;;; what's the best thing to do with these on unithread? commented
+;;; functions are the thread versions, just to remind me what they do
+;;; there
+#+nil
(defun condition-wait (queue lock)
"Atomically release LOCK and enqueue ourselves on QUEUE. Another
thread may subsequently notify us using CONDITION-NOTIFY, at which
"Notify one of the processes waiting on QUEUE"
(signal-queue-head queue))
-
-;;;; multiple independent listeners
-
-(defvar *session-lock* nil)
+(defun maybe-install-futex-functions () nil)
;;;; job control
+(defun init-job-control () t)
(defun debugger-wait-until-foreground-thread (stream) t)
+(defun get-foreground () t)
+(defun release-foreground (&optional next) t)
+(defun terminate-session ())