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)))