[closure-cvs] CVS update: closure/src/renderer/clim-device.lisp closure/src/renderer/images.lisp

Eric Marsden emarsden at common-lisp.net
Sun Jul 17 09:38:57 UTC 2005


Update of /project/closure/cvsroot/closure/src/renderer
In directory common-lisp.net:/tmp/cvs-serv16745/src/renderer

Modified Files:
	clim-device.lisp images.lisp 
Log Message:
Reduce amount of debugging information printed to console.

Date: Sun Jul 17 11:38:54 2005
Author: emarsden

Index: closure/src/renderer/clim-device.lisp
diff -u closure/src/renderer/clim-device.lisp:1.12 closure/src/renderer/clim-device.lisp:1.13
--- closure/src/renderer/clim-device.lisp:1.12	Wed Jul 13 15:44:55 2005
+++ closure/src/renderer/clim-device.lisp	Sun Jul 17 11:38:54 2005
@@ -221,8 +221,6 @@
     res))
 
 (defun background-pixmap+mask (document drawable bg)
-  #+emarsden2005-06-23
-  (print `(background-pixmap+mask ,bg))
   (cond ((r2::background-%pixmap bg)
          ;; already there
          (values (r2::background-%pixmap bg)
@@ -371,6 +369,7 @@
     (unless (eql (r2::background-image bg) :none)
       (multiple-value-bind (pixmap mask)
           (background-pixmap+mask document (sheet-direct-mirror (medium-sheet medium)) bg)
+        #+emarsden2005-07-15
         (print (list 'x11-draw-background pixmap mask))
         (unless (eql pixmap :none)
           (let* ((iw (xlib:drawable-width pixmap))


Index: closure/src/renderer/images.lisp
diff -u closure/src/renderer/images.lisp:1.2 closure/src/renderer/images.lisp:1.3
--- closure/src/renderer/images.lisp:1.2	Sun Mar 13 19:03:24 2005
+++ closure/src/renderer/images.lisp	Sun Jul 17 11:38:54 2005
@@ -79,7 +79,7 @@
                         (t
                          (warn "Auch das hat nix genuetzt.")
                          (cond (deliver-broken-image-p
-                                (format T "~%;; ~A -> using broken image." url)
+                                (format *debug-io* "~%;; ~A -> using broken image." url)
                                 (broken-aimage document))
                                (t
                                 (error "Image mime type `~A' or `~A' not understood."
@@ -88,10 +88,10 @@
     (cond ((null aimage)
            (cond (deliver-broken-image-p
                   (progn
-                    (format T "~%;; ~A -> using broken image. [zweite variante]" url)
+                    (format *debug-io* "~%;; ~A -> using broken image. [zweite variante]" url)
                     (broken-aimage document) ))
                  (t
-                  (format T "~&;; Was unable to read ~S as image, because of:~%;; | ~A."
+                  (format *debug-io* "~&;; Was unable to read ~S as image, because of:~%;; | ~A."
                           url condition)
                   (values nil condition))))
           (t
@@ -173,7 +173,7 @@
       (let ((cmd (format nil "~A <~A >~A" filter-name
                          (namestring (truename temp-filename))
                          (namestring pnm-filename))))
-        (format T "~%;; running: ~A" cmd)
+        (format *debug-io* "~%;; running: ~A" cmd)
         (run-unix-shell-command cmd))
       (progn                            ;ignore-errors
         (with-open-file (input pnm-filename
@@ -235,4 +235,4 @@
                    :direction :output
                    :if-exists :new-version
                    :element-type '(unsigned-byte 8))
-    (write-ppm-image aimage sink)))
\ No newline at end of file
+    (write-ppm-image aimage sink)))




More information about the Closure-cvs mailing list