> I don't have gdk or gtk here, but if I make up packages I don't have
> problems compiling this. I fear I need more context.
>
Here is how you reproduce the error with Snapshot 2004-09 or any snapshot
made thereafter on an x86 linux box (I'm using Gentoo). Cut and paste the
following into REPL:
(defpackage :gdk)
(defpackage :gtk)
(declaim (optimize (safety 3) (debug 3) (speed 1)))
(defun what (widget event)
(let ((x (truncate (the Double-Float (gdk::event-x-root event))))
(y (truncate (the Double-Float (gdk::event-y-root event)))))
(gtk::idle-add
#'(lambda ()
(v-help-tips-query-idle-show-help
(if (and *tips-query-focus-widget*
(point-xy-in-widget? *tips-query-focus-widget* x y))
*tips-query-focus-widget*
widget))))))
(compile 'what)
If you omit (DECLAIM ...), the error won't happen.
Best,
-cph
