From f967b95ae5fd411a19f07fff49c0ba451471e4b0 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 24 Jun 2003 01:12:57 +0000 Subject: [PATCH] r5182: *** empty log message *** --- htmlgen.lisp | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/htmlgen.lisp b/htmlgen.lisp index d773748..e315b27 100644 --- a/htmlgen.lisp +++ b/htmlgen.lisp @@ -1,6 +1,6 @@ ;; -*- mode: common-lisp; package: lml2 -*- ;; -;; $Id: htmlgen.lisp,v 1.2 2003/06/23 20:08:06 kevin Exp $ +;; $Id: htmlgen.lisp,v 1.3 2003/06/24 01:12:17 kevin Exp $ ;; ;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA ;; copyright (c) 2003 Kevin Rosenberg @@ -742,3 +742,18 @@ (declare (ignore ent cmd args subst unknown)) (format stream "" (cadr form))))) + +(def-special-html :nbsp + (named-function html-nbsp-function + (lambda (ent args argsp body) + (declare (ignore ent args argsp)) + (when body + (error "can't have a body with :nbsp -- body is ~s" body)) + `(write-string " " *html-stream*))) + + (named-function html-nbsp-print-function + (lambda (ent cmd args form subst unknown stream) + (declare (ignore args ent unknown subst)) + (if* (eq cmd :set) + then (write-string " " stream) + else (error ":nbsp in an illegal place: ~s" form))))) -- 2.34.1