diff --git a/ansi-tests/clear-output.lsp b/ansi-tests/clear-output.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..384fd26c5cdc7605608fd1b605dbcf96961ca326
--- /dev/null
+++ b/ansi-tests/clear-output.lsp
@@ -0,0 +1,50 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Wed Jan 28 06:43:17 2004
+;;;; Contains: Tests of CLEAR-OUTPUT
+
+(in-package :cl-test)
+
+(deftest clear-output.1
+  (progn (finish-output) (clear-output))
+  nil)
+
+(deftest clear-output.2
+  (progn (finish-output) (clear-output t))
+  nil)
+
+(deftest clear-output.3
+  (progn (finish-output) (clear-output nil))
+  nil)
+
+(deftest clear-output.4
+  (loop for s in (list *debug-io* *error-output* *query-io*
+		       *standard-output* *trace-output* *terminal-io*)
+	for dummy = (finish-output s)
+	for results = (multiple-value-list (clear-output s))
+	unless (equal results '(nil))
+	collect s)
+  nil)
+
+;;; Error tests
+
+(deftest clear-output.error.1
+  (signals-error (clear-output nil nil) program-error)
+  t)
+
+(deftest clear-output.error.2
+  (signals-error (clear-output t nil) program-error)
+  t)
+
+(deftest clear-output.error.3
+  (loop for x in *mini-universe*
+	unless (or (member x '(nil t))
+		   (typep x 'stream)
+		   (equalt
+		    (eval `(multiple-value-list
+			    (signals-error (clear-output ',x) type-error)))
+		    '(t)))
+	collect x)
+  nil)
+
+
diff --git a/ansi-tests/finish-output.lsp b/ansi-tests/finish-output.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..9ae795d1f59ef649fbf25d8f0b331a45c97225d6
--- /dev/null
+++ b/ansi-tests/finish-output.lsp
@@ -0,0 +1,47 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Wed Jan 28 06:38:20 2004
+;;;; Contains: Tests of FINISH-OUTPUT
+
+(in-package :cl-test)
+
+(deftest finish-output.1
+  (finish-output)
+  nil)
+
+(deftest finish-output.2
+  (finish-output t)
+  nil)
+
+(deftest finish-output.3
+  (finish-output nil)
+  nil)
+
+(deftest finish-output.4
+  (loop for s in (list *debug-io* *error-output* *query-io*
+		       *standard-output* *trace-output* *terminal-io*)
+	for results = (multiple-value-list (finish-output s))
+	unless (equal results '(nil))
+	collect s)
+  nil)
+
+;;; Error tests
+
+(deftest finish-output.error.1
+  (signals-error (finish-output nil nil) program-error)
+  t)
+
+(deftest finish-output.error.2
+  (signals-error (finish-output t nil) program-error)
+  t)
+
+(deftest finish-output.error.3
+  (loop for x in *mini-universe*
+	unless (or (member x '(nil t))
+		   (typep x 'stream)
+		   (equalt
+		    (eval `(multiple-value-list
+			    (signals-error (finish-output ',x) type-error)))
+		    '(t)))
+	collect x)
+  nil)
diff --git a/ansi-tests/force-output.lsp b/ansi-tests/force-output.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..979a6d9506c9c544be9fba20dc3e8eedf4de5e9f
--- /dev/null
+++ b/ansi-tests/force-output.lsp
@@ -0,0 +1,48 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Wed Jan 28 06:41:46 2004
+;;;; Contains: Tests of FORCE-OUTPUT
+
+(in-package :cl-test)
+
+(deftest force-output.1
+  (force-output)
+  nil)
+
+(deftest force-output.2
+  (force-output t)
+  nil)
+
+(deftest force-output.3
+  (force-output nil)
+  nil)
+
+(deftest force-output.4
+  (loop for s in (list *debug-io* *error-output* *query-io*
+		       *standard-output* *trace-output* *terminal-io*)
+	for results = (multiple-value-list (force-output s))
+	unless (equal results '(nil))
+	collect s)
+  nil)
+
+;;; Error tests
+
+(deftest force-output.error.1
+  (signals-error (force-output nil nil) program-error)
+  t)
+
+(deftest force-output.error.2
+  (signals-error (force-output t nil) program-error)
+  t)
+
+(deftest force-output.error.3
+  (loop for x in *mini-universe*
+	unless (or (member x '(nil t))
+		   (typep x 'stream)
+		   (equalt
+		    (eval `(multiple-value-list
+			    (signals-error (force-output ',x) type-error)))
+		    '(t)))
+	collect x)
+  nil)
+
diff --git a/ansi-tests/load-streams.lsp b/ansi-tests/load-streams.lsp
index bbb36ff68440a3abf84cf0a7d25b7b4019f46ad8..bf70864f8120cefcc93bc858456462f62a1ae93b 100644
--- a/ansi-tests/load-streams.lsp
+++ b/ansi-tests/load-streams.lsp
@@ -30,4 +30,9 @@
 (load "open.lsp")
 (load "stream-external-format.lsp")
 (load "with-open-file.lsp")
-(load "listen.lsp")
\ No newline at end of file
+(load "listen.lsp")
+(load "clear-input.lsp")
+(load "finish-output.lsp")
+(load "force-output.lsp")
+(load "clear-output.lsp")
+