[bknr-cvs] hans changed trunk/thirdparty/cl-unicode/

[BKNR Commits]

Revision: 3669
Author: hans
URL: http://bknr.net/trac/changeset/3669

Print progress diagnostics only when *compile-verbose* is set.

U   trunk/thirdparty/cl-unicode/build/dump.lisp
U   trunk/thirdparty/cl-unicode/build/read.lisp
U   trunk/thirdparty/cl-unicode/util.lisp

Modified: trunk/thirdparty/cl-unicode/build/dump.lisp
===================================================================
--- trunk/thirdparty/cl-unicode/build/dump.lisp	2008-07-28 19:11:30 UTC (rev 3668)
+++ trunk/thirdparty/cl-unicode/build/dump.lisp	2008-07-29 07:32:15 UTC (rev 3669)
@@ -106,8 +106,9 @@
 location of this source file.  Writes a Lisp header to the files
 unless NO-HEADER-P is true."
   `(let ((pathname (merge-pathnames ,relative-path *this-file*)))
-     (format t "~&;;; Writing source file ~A" (file-namestring pathname))
-     (force-output)
+     (when *compile-verbose*
+       (format t "~&;;; Writing source file ~A" (file-namestring pathname))
+       (force-output))
      (with-open-file (,stream pathname
                               :direction :output
                               :if-exists :supersede)

Modified: trunk/thirdparty/cl-unicode/build/read.lisp
===================================================================
--- trunk/thirdparty/cl-unicode/build/read.lisp	2008-07-28 19:11:30 UTC (rev 3668)
+++ trunk/thirdparty/cl-unicode/build/read.lisp	2008-07-29 07:32:15 UTC (rev 3669)
@@ -43,8 +43,9 @@
   (let ((variables (extract-variables bindings))
         (types (extract-types bindings)))
     `(let ((pathname (merge-pathnames ,file-name (merge-pathnames "data/" *this-file*))))
-       (format t "~&;;; Parsing Unicode file ~A" (file-namestring pathname))
-       (force-output)
+       (when *compile-verbose*
+         (format t "~&;;; Parsing Unicode file ~A" (file-namestring pathname))
+         (force-output))
        (with-open-file (binary-in pathname :element-type 'flex:octet)
          ;; Unicode data files must be read as UTF-8
          (let ((in (flex:make-flexi-stream binary-in :external-format '(:utf-8 :eol-style :lf))))
@@ -274,7 +275,8 @@
 data files and building the corresponding Lisp datastructures in
 memory."
   (fill-database)
-  (format t "~&;;; Building hash tables")
-  (force-output)
+  (when *compile-verbose
+    (format t "~&;;; Building hash tables")
+    (force-output))
   (build-name-mappings)
   (build-case-mapping))

Modified: trunk/thirdparty/cl-unicode/util.lisp
===================================================================
--- trunk/thirdparty/cl-unicode/util.lisp	2008-07-28 19:11:30 UTC (rev 3668)
+++ trunk/thirdparty/cl-unicode/util.lisp	2008-07-29 07:32:15 UTC (rev 3669)
@@ -215,7 +215,9 @@
 the *HANGUL-SYLLABLES-TO-CODE-POINTS* hash table.  Used for
 CHARACTER-NAMED."
   (declare #.*standard-optimize-settings*)
-  (format t "~&;;; Computing Hangul syllable names")
+  (when *compile-verbose*
+    (format t "~&;;; Computing Hangul syllable names")
+    (force-output))
   (loop for code-point from +first-hangul-syllable+ to +last-hangul-syllable+
         for name = (compute-hangul-name code-point)
         do (setf (gethash name *hangul-syllables-to-code-points*) code-point)))