;; -*- mode: common-lisp; package: lml2 -*-
;;
-;; $Id: htmlgen.lisp,v 1.10 2003/06/25 21:24:09 kevin Exp $
+;; $Id: htmlgen.lisp,v 1.11 2003/06/29 16:21:09 kevin Exp $
;;
;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA
;; copyright (c) 2003 Kevin Rosenberg
(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
(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")))))