From: Kevin M. Rosenberg Date: Thu, 1 Jan 2004 14:30:56 +0000 (+0000) Subject: r8446: remove broken method X-Git-Tag: v1.6.2~25 X-Git-Url: http://git.kpe.io/?p=lml2.git;a=commitdiff_plain;h=e7cefaeeb0a2f4d4dc6a4600c8f28c09cb726da1 r8446: remove broken method --- 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"))))) +