From 547606c42e7f643eaebd6b4370de23756c604735 Mon Sep 17 00:00:00 2001
From: Andreas Fuchs <asf@boinkor.net>
Date: Fri, 26 Aug 2011 13:14:26 -0700
Subject: [PATCH] Fix two declarations in Xt keysym code.

I'd left those in when developing unicode input and forgot about
them. This may speed up things, as well as fix the build on some
platform where source-level debugging isn't available.

Change-Id: Ifb32883a8dbef709fc50ca4cb33fb430d94fe993
---
 tk-silica/xt-silica.lisp | 3 +--
 tk/xm-widgets.lisp       | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/tk-silica/xt-silica.lisp b/tk-silica/xt-silica.lisp
index b46f7563..858a6d4e 100644
--- a/tk-silica/xt-silica.lisp
+++ b/tk-silica/xt-silica.lisp
@@ -1510,8 +1510,7 @@ setup."
 
 ;;;
 (defun lookup-character-and-keysym (sheet mirror event)
-  (declare #+nil (optimize (speed 3) (safety 0))
-           (optimize (speed 0) (safety 3) (debug 3))
+  (declare (optimize (speed 3) (safety 0))
            (ignore sheet))
   (multiple-value-bind (character keysym)
       (if (eql :key-press (tk::event-type event))
diff --git a/tk/xm-widgets.lisp b/tk/xm-widgets.lisp
index 4859c9f8..c97a31b5 100644
--- a/tk/xm-widgets.lisp
+++ b/tk/xm-widgets.lisp
@@ -319,7 +319,7 @@
        (excl:without-interrupts (push buffer *lookup-string-buffers*)))))
 
 (defun lookup-multibyte-string (event widget)
-  (declare (optimize (speed 0) (safety 3) (debug 3)))
+  (declare (optimize (speed 3) (safety 0)))
   (with-lookup-string-buffer (buffer)
     (with-ref-par ((keysym 0 :unsigned-long)
                    (status 0 :int))
-- 
GitLab