- suppressed printing of three notes.

src/constants.lisp

@@ -16,6 +16,12 @@
 
 (in-package :constants)
 
+(defun actual-program-name ()
+  (declare (sb-ext:muffle-conditions sb-ext:compiler-note))
+  (if (string= +program-name+ "tinmop")
+      "tinmop"
+      (format nil "~a (original name: \"tinmop\")" +program-name+)))
+
 (define-constant +help-about-message+
     (format nil
             "~a
@@ -37,7 +43,7 @@ along with this program.
 For bug report please point your browser to:
 
 ~a"
-            +program-name+
+            (actual-program-name)
             +issue-tracker+)
   :test #'string=)
 
@@ -72,9 +78,7 @@ This program is  distributed in the hope that it  will be useful, but
 WITHOUT  ANY   WARRANTY;  without   even  the  implied   warranty  of
 MERCHANTABILITY or  FITNESS FOR  A PARTICULAR  PURPOSE.  See  the GNU
 General Public License for more details."
-          (if (string= +program-name+ "tinmop")
-              "tinmop"
-              (format nil "~a (original name: \"tinmop\")" +program-name+))
+          (actual-program-name)
           +issue-tracker+)
 
   :test #'string=)

src/main-window.lisp

@@ -77,8 +77,10 @@
 
 (defun parse-subwin-w (w-as-string)
   "Parse a window width, `w-as-string' a fraction of the main window width"
+  (declare (sb-ext:muffle-conditions sb-ext:compiler-note))
   (parse-subwin-size w-as-string (win-width *main-window*)))
 
 (defun parse-subwin-h (h-as-string)
   "Parse a window height, `h-as-string' a fraction of the main window height"
+  (declare (sb-ext:muffle-conditions sb-ext:compiler-note))
   (parse-subwin-size h-as-string (win-height *main-window*)))