From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sat, 29 Jan 2005 02:22:15 +0000 (+0000)
Subject: r10304: add quote for lml-file-name now that it is a funciton
X-Git-Tag: v1.6.2~16
X-Git-Url: http://git.kpe.io/?p=lml2.git;a=commitdiff_plain;h=3af8ba4d01c6331525f183ffdacb68b632a22ed4

r10304: add quote for lml-file-name now that it is a funciton
---

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)