From 691ae348b6b801ebfe79a2b982ee6d398a4b474d Mon Sep 17 00:00:00 2001
From: Andreas Fuchs <asf@boinkor.net>
Date: Thu, 17 Sep 2009 15:34:58 +0200
Subject: [PATCH] Remove a debugging format statement that I left in
 accidentally.

---
 aclpc/acl-mirror.lisp | 2 --
 1 file changed, 2 deletions(-)

diff --git a/aclpc/acl-mirror.lisp b/aclpc/acl-mirror.lisp
index f225ceb7..a5243d9b 100644
--- a/aclpc/acl-mirror.lisp
+++ b/aclpc/acl-mirror.lisp
@@ -76,8 +76,6 @@
                      ((:device :pixel)
                       (make-bounding-rectangle
                        screen-left screen-top screen-right screen-bottom))))
-             (format *trace-output* "~&height: ~A vs. real height: ~A~%"
-                     screen-height (- screen-bottom screen-top))
              (setf (sheet-native-transformation graft) +identity-transformation+)
              (setf (sheet-direct-mirror graft) screen)
              (update-mirror-transformation port graft)))))))
-- 
GitLab