diff --git a/ansi-tests/format.lsp b/ansi-tests/format.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..00f770675ed65476de495f43e44ecb22a14b2300
--- /dev/null
+++ b/ansi-tests/format.lsp
@@ -0,0 +1,15 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Mon Feb 23 05:08:17 2004
+;;;; Contains: Tests of FORMAT
+
+(in-package :cl-test)
+
+
+(defun def-format-test (name args result)
+  `(deftest ,name
+     (equalt
+      (with-standard-io-syntax
+       (with-output-to-string (s) (format s ,@args)))
+      result)
+     t))