From b0722fd440598669828a9ba2a28fd45d48d1edf7 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 24 Jun 2003 16:41:44 +0000 Subject: [PATCH] r5188: *** empty log message *** --- htmlgen.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/htmlgen.lisp b/htmlgen.lisp index 3740158..e5de7cf 100644 --- a/htmlgen.lisp +++ b/htmlgen.lisp @@ -1,6 +1,6 @@ ;; -*- mode: common-lisp; package: lml2 -*- ;; -;; $Id: htmlgen.lisp,v 1.4 2003/06/24 16:30:05 kevin Exp $ +;; $Id: htmlgen.lisp,v 1.5 2003/06/24 16:41:44 kevin Exp $ ;; ;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA ;; copyright (c) 2003 Kevin Rosenberg @@ -764,11 +764,11 @@ (declare (ignore ent argsp)) (unless body (error "must have a body with :insert-file")) - `(lml-load-path (car ,args) *html-stream*))) + `(lml-load-path (car ',body)))) (named-function html-nbsp-print-function (lambda (ent cmd args form subst unknown stream) - (declare (ignore args ent unknown subst)) + (declare (ignore ent unknown subst stream form)) (if* (eq cmd :full) - then (lml-load-path (car args)) + then (lml-load-path (cadr form)) else (error ":insert-file must be given an argument"))))) -- 2.34.1