From e7cefaeeb0a2f4d4dc6a4600c8f28c09cb726da1 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 1 Jan 2004 14:30:56 +0000 Subject: [PATCH] r8446: remove broken method --- htmlgen.lisp | 23 +---------------------- 1 file changed, 1 insertion(+), 22 deletions(-) diff --git a/htmlgen.lisp b/htmlgen.lisp index 7ec4756..97287b2 100644 --- a/htmlgen.lisp +++ b/htmlgen.lisp @@ -916,26 +916,5 @@ (write-char (cadr form) stream) (error ":write-char must be given an argument"))))) -;; fast formatter -(def-special-html :fformat - (named-function html-write-char-function - (lambda (ent args argsp body) - (declare (ignore ent args argsp)) - `(progn ,@(mapcar #'(lambda (bod) - `(progn - (format *html-stream* " ~(~A~)=\"" (car ,bod)) - (apply #'format *html-stream* (cdr ,bod)) - (write-char #\" *html-stream*))) - body)))) - - (named-function html-write-char-print-function - (lambda (ent cmd args form subst unknown stream) - (declare (ignore args ent unknown subst)) - (assert (eql 2 (length form))) - (if (eq cmd :full) - (progn - (format stream " ~(~A~)=\"" (car form)) - (apply #'format stream (cdr form)) - (write-char #\" stream)) - (error ":fformat must be given an argument"))))) + -- 2.34.1