Subject: Re: fault between snapshot 2004-09 and snapshot 2004-09

|
| > 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.
|

I have no trouble compiling this on a build from 2/27/05 - FreeBSD.

Paul



Reply via email to