diff --git a/aclpc/acl-mirror.lisp b/aclpc/acl-mirror.lisp index f225ceb782f152c395e9e74942f4b832d2586468..a5243d9b6ea3984c54295a60affc0776309e8ce5 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)))))))