From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sat, 8 Aug 2009 17:58:06 +0000 (+0400)
Subject: doc: removed verbose messages from colorize-lisp-examples
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=d1418553d03847d8ddcfee8c08255faf3f5e4478;p=cl-gtk2.git

doc: removed verbose messages from colorize-lisp-examples
---

diff --git a/doc/colorize-lisp-examples.lisp b/doc/colorize-lisp-examples.lisp
index ee428f3..a269c1d 100644
--- a/doc/colorize-lisp-examples.lisp
+++ b/doc/colorize-lisp-examples.lisp
@@ -287,7 +287,7 @@ span.paren6:hover { color : inherit; background-color : #FFBAFF; }
        (if (> current-position (length string))
            (return-from scan-string
              (progn
-               (format *trace-output* "Scan was called ~S times.~%"
+               #+nil(format *trace-output* "Scan was called ~S times.~%"
                        *scan-calls*)
                (finish-current (length string) nil (constantly nil))
                result))
@@ -1020,7 +1020,7 @@ preprocessing output in a @lisp block before passing to colorize."
                                '("<pre class=\"lisp\">"
                                  "<pre class=\"smalllisp\">"))))
                  (cond (len
-                         (format t "processing ~A~%" line)
+                         #+nil(format t "processing ~A~%" line)
                          (setq line-processor #'process-line-inside-pre)
                          (write-string "<pre class=\"lisp\">" output)
                          (push (subseq line (+ len +indent+)) piece-of-code)
@@ -1036,6 +1036,7 @@ preprocessing output in a @lisp block before passing to colorize."
                                                :name :wild)))
     (let* ((name (namestring html-file))
            (temp-name (strcat name ".temp")))
+      (format t "processing ~A~%" name)
       (process-file name temp-name)
       (system "mv ~A ~A" temp-name name))))