From b7b42f432101b275216dc55334001a5c868ccfa7 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 24 Jun 2003 17:51:22 +0000 Subject: [PATCH] r5191: *** empty log message *** --- 2/htmlgen.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/2/htmlgen.lisp b/2/htmlgen.lisp index 62c45dd..3149977 100644 --- a/2/htmlgen.lisp +++ b/2/htmlgen.lisp @@ -1,6 +1,6 @@ ;; -*- mode: common-lisp; package: lml2 -*- ;; -;; $Id: htmlgen.lisp,v 1.6 2003/06/24 17:48:41 kevin Exp $ +;; $Id: htmlgen.lisp,v 1.7 2003/06/24 17:51:22 kevin Exp $ ;; ;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA ;; copyright (c) 2003 Kevin Rosenberg @@ -759,14 +759,14 @@ (def-special-html :insert-file (named-function html-nbsp-function (lambda (ent args argsp body) - (declare (ignore ent argsp)) + (declare (ignore ent args argsp)) (unless body (error "must have a body with :insert-file")) `(lml-load-path (car ',body)))) (named-function html-nbsp-print-function (lambda (ent cmd args form subst unknown stream) - (declare (ignore ent unknown subst stream form)) + (declare (ignore ent unknown subst stream args)) (if* (eq cmd :full) then (lml-load-path (cadr form)) else (error ":insert-file must be given an argument"))))) -- 2.34.1