(defpackage :sb-concurrency
- (:use :cl :sb-thread)
+ (:use :cl :sb-thread :sb-int)
(:export
;; MAILBOX
"LIST-MAILBOX-MESSAGES"
"QUEUE-EMPTY-P"
"QUEUE-NAME"
"QUEUEP"
+
+ ;; GATE
+ "CLOSE-GATE"
+ "GATE"
+ "GATE-NAME"
+ "GATE-OPEN-P"
+ "GATEP"
+ "MAKE-GATE"
+ "OPEN-GATE"
+ "WAIT-ON-GATE"
))
\ No newline at end of file