r11290: add _final.lml processing

[lml.git] / base.lisp

diff --git a/base.lisp b/base.lisp
index 5a51d4f31cb694ce04a98839510ef1248be17e6a..4d7a5f4fda3462b1596177aca662187a3626c206 100644 (file)
--- a/base.lisp
+++ b/base.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: base.lisp,v 1.23 2003/06/20 08:35:22 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -253,7 +253,7 @@
 
 (defmacro page (out-file &body body)
   `(with-open-file (*html-output*
-                   (lml-file-name ,out-file :output)
+                   (lml-file-name ',out-file :output)
                    :direction :output
                    :if-exists :supersede)
      (xhtml-prologue)