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

diff --git a/base.lisp b/base.lisp
index ecfd2792acf2cae51df83376542d717e0ceb7ebb..7054761ea88fbf77243537dc57faacfb4d0faa46 100644 (file)
--- 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*
 (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)
                    :direction :output
                    :if-exists :supersede)
      (dtd-prologue ,format)