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