+2003-07-21 Kevin M. Rosenberg <kevin@rosenberg.net>
+ * htmlgen.lisp:
+ - Add code walker to combine sequential write-string
+ calls
+
2003-07-15 Kevin M. Rosenberg <kevin@rosenberg.net>
-
* htmlgen.lisp:
- Finished removal of if* macro
- Added attribute processing tags
+cl-lml2 (1.4.1-1) unstable; urgency=low
+
+ * Improve code walker
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Mon, 21 Jul 2003 12:01:34 -0600
+
cl-lml2 (1.4-1) unstable; urgency=low
* Add code walker to collapse sequential constant strings
;; -*- mode: common-lisp; package: lml2 -*-
;;
-;; $Id: htmlgen.lisp,v 1.18 2003/07/21 16:36:22 kevin Exp $
+;; $Id: htmlgen.lisp,v 1.19 2003/07/21 18:10:00 kevin Exp $
;;
;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA
;; copyright (c) 2003 Kevin Rosenberg
((atom form)
(flush-strings)
(push form res))
+ ((and (eq (car form) 'cl:write-string)
+ (stringp (cadr form)))
+ (if strs
+ (if (eq last-stream (third form))
+ (setq strs (concatenate 'string strs (second form)))
+ (progn
+ (flush-strings)
+ (setq strs (second form))
+ (setq last-stream (third form))))
+ (progn
+ (setq strs (second form))
+ (setq last-stream (third form)))))
(t
- (cond
- ((and (eq (car form) 'cl:write-string)
- (stringp (cadr form)))
- (if strs
- (if (eq last-stream (third form))
- (setq strs (concatenate 'string strs (second form)))
- (progn
- (flush-strings)
- (setq strs (second form))
- (setq last-stream (third form))))
- (progn
- (setq strs (second form))
- (setq last-stream (third form)))))
- (t
- (flush-strings)
- (push form res)))))))))
+ (flush-strings)
+ (push (post-process-html-forms form) res)))))))
(defmacro html-out-stream-check (stream)