projects
/
lml2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5219: *** empty log message ***
[lml2.git]
/
htmlgen.lisp
diff --git
a/htmlgen.lisp
b/htmlgen.lisp
index f77b6b6a344d94aef7256c16978cba53d7652d3b..387ba8bfd73ee60c5316a1866895a4e080e77f33 100644
(file)
--- a/
htmlgen.lisp
+++ b/
htmlgen.lisp
@@
-1,6
+1,6
@@
;; -*- mode: common-lisp; package: lml2 -*-
;;
;; -*- mode: common-lisp; package: lml2 -*-
;;
-;; $Id: htmlgen.lisp,v 1.1
0 2003/06/25 21:24
:09 kevin Exp $
+;; $Id: htmlgen.lisp,v 1.1
1 2003/06/29 16:21
:09 kevin Exp $
;;
;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA
;; copyright (c) 2003 Kevin Rosenberg
;;
;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA
;; copyright (c) 2003 Kevin Rosenberg
@@
-750,7
+750,7
@@
(unless body
(error "must have a body with :insert-file"))
`(progn ,@(mapcar #'(lambda (bod)
(unless body
(error "must have a body with :insert-file"))
`(progn ,@(mapcar #'(lambda (bod)
- `(lml-load
-path
,bod))
+ `(lml-load ,bod))
body))))
(named-function html-nbsp-print-function
body))))
(named-function html-nbsp-print-function
@@
-758,7
+758,7
@@
(declare (ignore ent unknown subst stream args))
(assert (eql 2 (length form)))
(if (eq cmd :full)
(declare (ignore ent unknown subst stream args))
(assert (eql 2 (length form)))
(if (eq cmd :full)
- (lml-load
-path
(cadr form))
+ (lml-load (cadr form))
(error ":insert-file must be given an argument")))))
(error ":insert-file must be given an argument")))))