projects
/
lml.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r3357: remove load-compile-op from .asd file
[lml.git]
/
stdsite.lisp
diff --git
a/stdsite.lisp
b/stdsite.lisp
index 5c96142d5a5393d44d2ae8c571c65b56190259c6..d36c83ec33ab58ba3e99b1a6d89ba9fe63382ddf 100644
(file)
--- a/
stdsite.lisp
+++ b/
stdsite.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: stdsite.lisp,v 1.
1 2002/09/30 10:26:43
kevin Exp $
+;;;; $Id: stdsite.lisp,v 1.
2 2002/10/18 06:34:05
kevin Exp $
;;;;
;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-30,7
+30,7
@@
(defmacro std-head (title &body body)
`(head
(title ,title)
(defmacro std-head (title &body body)
`(head
(title ,title)
- (lml-load
#p
"head.lml_")
+ (lml-load "head.lml_")
,@body))
,@body))
@@
-43,18
+43,18
@@
(when (probe-file src-file)
(div-c "lastmod"
(lml-print "Last modified: ~A" (date-string (file-write-date src-file))))))
(when (probe-file src-file)
(div-c "lastmod"
(lml-print "Last modified: ~A" (date-string (file-write-date src-file))))))
- (lml-load
#p
"footer.lml_"))
+ (lml-load "footer.lml_"))
(values))
(defmacro std-body (file &body body)
`(body
(values))
(defmacro std-body (file &body body)
`(body
- (lml-load
#p
"banner.lml_")
+ (lml-load "banner.lml_")
(table-c "stdbodytable" :border "0" :cellpadding "3"
(tbody
(tr :valign "top"
(td-c "stdcontentcell"
(table-c "stdbodytable" :border "0" :cellpadding "3"
(tbody
(tr :valign "top"
(td-c "stdcontentcell"
- (lml-load
#p
"contents.lml_"))
+ (lml-load "contents.lml_"))
(td :valign "top"
,@body
(std-footer ,file)))))))
(td :valign "top"
,@body
(std-footer ,file)))))))