Hi,
I can compile my system without any problem with CMUCL 19a (x86 linux),
Snapshot 2004-07, and Snapshot 2004-08. If I compile my system with
Snapshot 2004-09 or any snapshot made thereafter, I'll get a TYPE-ERROR
condition:
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
NIL is not of type C::CONTINUATION
[Condition of type TYPE-ERROR]
when CMUCL compiles the following function:
(defun v-help-tips-query-widget-selected (widget tip-text tip-private event)
(declare (ignore tip-text tip-private))
(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)))))
t)
I just do not see how this function can cause that error. If I comment
out the (LET ....) in V-HELP-TIPS-QUERY-WIDGET-SELECTED and compile the
whole system from scratch again, compilation can get pass this function
but will eventually go belly up again with the same TYPE-ERROR condition
as before when the following function is compiled:
(defun color-hexa-cstring (color)
(declare (type Color color))
(multiple-value-bind (r g b)
(color->rgb color)
(declare (type (Single-Float 0.0 1.0) r g b))
(format nil
"#~2,'0X~2,'0X~2,'0X"
(truncate (* 255.0 r))
(truncate (* 255.0 g))
(truncate (* 255.0 b)))))
Again, I just do not see what's wrong with this function. Does anybody
know how to debug this kind of errors? Attached at the end of this email
are 2 back traces.
Best wishes,
-cph
