1 files changed, 23 insertions, 0 deletions
diff --git a/src/testdir/test33.ok b/src/testdir/test33.ok
new file mode 100644
index 000000000..cd1d87a14
--- /dev/null
+++ b/src/testdir/test33.ok
@@ -0,0 +1,23 @@
+(defun html-file (base)
+  (format nil "~(~A~).html" base))
+
+(defmacro page (name title &rest body)
+  (let ((ti (gensym)))
+       `(with-open-file (*standard-output*
+			 (html-file ,name)
+			 :direction :output
+			 :if-exists :supersede)
+			(let ((,ti ,title))
+			     (as title ,ti)
+			     (with center 
+				   (as h2 (string-upcase ,ti)))
+			     (brs 3)
+			     ,@body))))
+
+;;; Utilities for generating links
+
+(defmacro with-link (dest &rest body)
+  `(progn
+    (format t "<a href=\"~A\">" (html-file ,dest))
+    ,@body
+    (princ "</a>")))