diff --git a/tk-silica/xt-silica.lisp b/tk-silica/xt-silica.lisp index b46f75630b2809cf16fff98e66cff0a3b45f00f6..858a6d4e364dd5468a51e77716881b1d27193032 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 4859c9f82f283d44122e7287e059c30e08779079..c97a31b5da40fa1d90dd1226ecc6ac8d886bc9d6 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))