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