r5373: Auto commit for Debian build
authorKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 21 Jul 2003 18:10:00 +0000 (18:10 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 21 Jul 2003 18:10:00 +0000 (18:10 +0000)
ChangeLog
debian/changelog
htmlgen.lisp

index 1168561..db0c732 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
+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 
index c8f4007..1521f34 100644 (file)
@@ -1,3 +1,9 @@
+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
index b920ec0..39f979f 100644 (file)
@@ -1,6 +1,6 @@
 ;; -*- 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)