From 9ca9b564c84e3af011c125010bb14a716556cebf Mon Sep 17 00:00:00 2001
From: Jan Moringen <jmoringe@techfak.uni-bielefeld.de>
Date: Thu, 1 May 2014 20:45:26 +0200
Subject: [PATCH] Document INTERACTIVE-THREADS, FOREGROUND-THREAD

---
 src/code/target-thread.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/code/target-thread.lisp b/src/code/target-thread.lisp
index 6475746b7..8c0c4fadf 100644
--- a/src/code/target-thread.lisp
+++ b/src/code/target-thread.lisp
@@ -1339,9 +1339,15 @@ have the foreground next."
     (condition-broadcast (session-interactive-threads-queue *session*))))
 
 (defun interactive-threads (&optional (session *session*))
+  #!+sb-doc
+  "Return the interactive threads of SESSION defaulting to the current
+session."
   (session-interactive-threads session))
 
 (defun foreground-thread (&optional (session *session*))
+  #!+sb-doc
+  "Return the foreground thread of SESSION defaulting to the current
+session."
   (first (interactive-threads session)))
 
 (defun make-listener-thread (tty-name)
-- 
2.11.4.GIT