From 3af8ba4d01c6331525f183ffdacb68b632a22ed4 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sat, 29 Jan 2005 02:22:15 +0000
Subject: [PATCH] r10304: add quote for lml-file-name now that it is a funciton

---
 base.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/base.lisp b/base.lisp
index ecfd279..7054761 100644
--- a/base.lisp
+++ b/base.lisp
@@ -79,7 +79,7 @@
 (defmacro html-file-page ((out-file &key (format :xhtml11))
 			  &body body)
   `(with-open-file (*html-stream*
-		    (lml-file-name ,out-file :output)
+		    (lml-file-name ',out-file :output)
 		    :direction :output
 		    :if-exists :supersede)
      (dtd-prologue ,format)
-- 
2.34.1