Manual reports SB-THREAD:GET-FOREGROUND, so export it

contrib/sb-aclrepl/repl.lisp

@@ -756,7 +756,7 @@
         (frame-number (when (and (plusp *break-level*)
                                  sb-debug::*current-frame*)
                         (sb-di::frame-number sb-debug::*current-frame*))))
-    (sb-thread::get-foreground)
+    (sb-thread:get-foreground)
     (fresh-line stream)
     (if (functionp *prompt*)
         (write-string (funcall *prompt*

src/code/debug.lisp

@@ -74,7 +74,7 @@ provide bindings for printer control variables.")
   "Should the debugger display beginner-oriented help messages?")
 
 (defun debug-prompt (stream)
-  (sb-thread::get-foreground)
+  (sb-thread:get-foreground)
   (format stream
           "~%~W~:[~;[~W~]] "
           (sb-di:frame-number *current-frame*)

src/code/toplevel.lisp

@@ -703,7 +703,7 @@ that provides the REPL for the system. Assumes that *STANDARD-INPUT* and
    (unwind-protect
         (progn
           (scrub-control-stack)
-          (sb-thread::get-foreground)
+          (sb-thread:get-foreground)
           (unless noprint
             (flush-standard-output-streams)
             (funcall *repl-prompt-fun* *standard-output*)

src/cold/exports.lisp

@@ -3391,6 +3391,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*.")
            ;; Sessions
 
            "MAKE-LISTENER-THREAD"
+           "GET-FOREGROUND"
            "RELEASE-FOREGROUND"
            "WITH-NEW-SESSION"
            ;; Semaphores

tests/session.impure.lisp

@@ -22,7 +22,7 @@
 
 (defun get-foreground-quietly ()
   (let ((*query-io* (make-quiet-io-stream)))
-    (sb-thread::get-foreground)))
+    (sb-thread:get-foreground)))
 
 ;; this used to deadlock on session-lock
 (with-test (:name (:no-session-deadlock))
@@ -77,7 +77,7 @@
 ;;; The sequence of actions in this test creates a situation in which
 ;;; the list of interactive threads of the current session contains a
 ;;; single thread.
-(with-test (:name (sb-thread::get-foreground :inifite-loop :bug-1682671))
+(with-test (:name (sb-thread:get-foreground :inifite-loop :bug-1682671))
   (let ((state nil)
         (lock (sb-thread:make-mutex :name "get-foreground test lock"))
         (variable (sb-thread:make-waitqueue :name "get-foreground test waitqueue")))
@@ -117,7 +117,7 @@
 ;;; session. However, this did not previously include notifying the
 ;;; interactive threads waitqueue, resulting in GET-FOREGROUND hanging
 ;;; after termination of the previous foreground thread.
-(with-test (:name (sb-thread::get-foreground :hang :missing-broadcast))
+(with-test (:name (sb-thread:get-foreground :hang :missing-broadcast))
   (let ((thread (make-join-thread
                  (lambda () (sleep 1))
                  :name "get-foreground hang missing-broadcast test")))
@@ -127,7 +127,7 @@
 ;;; Releasing foreground to an already dead thread previously made the
 ;;; dead thread the foreground thread. At that point, all succeeding
 ;;; GET-FOREGROUND calls would just hang.
-(with-test (:name (sb-thread::get-foreground :hang :already-dead))
+(with-test (:name (sb-thread:get-foreground :hang :already-dead))
   (let ((thread (sb-thread:make-thread
                  (lambda ())
                  :name "get-foreground hang already-dead test")))

tests/threads.pure.lisp

@@ -46,7 +46,7 @@
                   :skipped-on (not :sb-thread)
                   :broken-on :win32)
  (let ((thread (make-thread (lambda ()
-                              (sb-thread::get-foreground)))))
+                              (sb-thread:get-foreground)))))
    (sleep 1)
    (assert (thread-alive-p thread))
    (terminate-thread thread)