(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)
Priority: optional
Maintainer: Kevin M. Rosenberg <kmr@debian.org>
Build-Depends-Indep: debhelper (>> 4.0.0)
-Standards-Version: 3.6.1.0
+Standards-Version: 3.6.1.1
Package: cl-lml
Architecture: all
all: site
site:
- lisp -init `pwd`/make.lisp
+ sbcl --load `pwd`/make.lisp
clean:
@rm -f *~ \#*\# .\#* memdump
(with-open-file (*html-output* (lml-file-name ',out-file :output)
:direction :output
:if-exists :supersede)
- (print-std-page (lml-file-name ,out-file :source) ,title ,@body))))
+ (print-std-page (lml-file-name ',out-file :source) ,title ,@body))))
(defmacro titled-pre-section (title &body body)
`(progn