Raymond Toy <[EMAIL PROTECTED]> writes:
>>>>>> "Chisheng" == Chisheng Huang <[EMAIL PROTECTED]> writes:
>
> Chisheng> I can compile my system without any problem with CMUCL 19a (x86
> linux),
> Chisheng> Snapshot 2004-07, and Snapshot 2004-08. If I compile my system
> with
> Chisheng> Snapshot 2004-09 or any snapshot made thereafter, I'll get a
> TYPE-ERROR
> Chisheng> condition:
>
> Yuck. Right around the time save-lisp stopped working.
Good:) Higher likelihood to have this fixed!
> Chisheng> (defun v-help-tips-query-widget-selected (widget tip-text
> tip-private
> Chisheng> event)
> Chisheng> (declare (ignore tip-text tip-private))
> Chisheng> (let ((x (truncate (the Double-Float (gdk::event-x-root
> event))))
> Chisheng> (y (truncate (the Double-Float (gdk::event-y-root
> event)))))
> Chisheng> (gtk:idle-add
> Chisheng> #'(lambda ()
> Chisheng> (v-help-tips-query-idle-show-help
> Chisheng> (if (and *tips-query-focus-widget*
> Chisheng> (point-xy-in-widget?
> *tips-query-focus-widget* x
> Chisheng> y))
> Chisheng> *tips-query-focus-widget*
> Chisheng> widget)))))
> Chisheng> t)
>
> 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.
I can actually do C-c C-c on both functions in Slime without any problem.
I'm not sure if I can distill a simpler test case to reproduce the error
but I'll give it a try.
>
> Chisheng> Again, I just do not see what's wrong with this
> Chisheng> function. Does anybody know how to debug this kind of
> Chisheng> errors? Attached at the end of this email are 2 back
> Chisheng> traces.
>
> Can you send the backtraces?
Oops, the 2 backtraces were probably stripped off by the list server.
Here is the first one for V-HELP-TIPS-QUERY-WIDGET-SELECTED:
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
NIL is not of type C::CONTINUATION
[Condition of type TYPE-ERROR]
Restarts:
0: [ABORT] Abort handling SLIME request.
1: Return to Top-Level.
Debug (type H for help)
(C::FIND-PUSHED-CONTINUATIONS #<C::CBLOCK Start = c1 {5938E6CD}>)
Source:
; File: target:compiler/stack.lisp
; File has been modified since compilation:
; target:compiler/stack.lisp
; Using form offset instead of character position.
(NODE-BLOCK DEST)
0]
CL-USER> back
0: (C::FIND-PUSHED-CONTINUATIONS #<C::CBLOCK Start = c1 {5938E6CD}>)
1: (C::STACK-ANALYZE
#<C:COMPONENT #x593952B5 NAME= "DEFUN
V-HELP-TIPS-QUERY-WIDGET-SELECTED">)
2: (C::NATIVE-COMPILE-COMPONENT
#<C:COMPONENT #x593952B5 NAME= "DEFUN
V-HELP-TIPS-QUERY-WIDGET-SELECTED">)
3: (C::COMPILE-COMPONENT
#<C:COMPONENT #x593952B5 NAME= "DEFUN
V-HELP-TIPS-QUERY-WIDGET-SELECTED">)
4: (C::COMPILE-TOP-LEVEL
(#<LAMBDA #x5938D495
NAME= "Top-Level Form"
TYPE= #<KERNEL::BUILT-IN-CLASS FUNCTION (read-only) {2804D6F5}>
WHERE-FROM= :DEFINED
VARS= NIL>)
NIL)
5: (C::CONVERT-AND-MAYBE-COMPILE
(C::%DEFUN 'V-HELP-TIPS-QUERY-WIDGET-SELECTED
#'(LAMBDA (WIDGET TIP-TEXT TIP-PRIVATE EVENT)
(DECLARE (IGNORE TIP-TEXT TIP-PRIVATE))
(BLOCK V-HELP-TIPS-QUERY-WIDGET-SELECTED
(LET #
#)
T))
NIL
'(DEFUN V-HELP-TIPS-QUERY-WIDGET-SELECTED
(WIDGET TIP-TEXT TIP-PRIVATE EVENT)
(DECLARE (IGNORE TIP-TEXT TIP-PRIVATE))
(LET (# #)
(GTK:IDLE-ADD #'#))
T))
((C::%DEFUN 'V-HELP-TIPS-QUERY-WIDGET-SELECTED
#'(LAMBDA (WIDGET TIP-TEXT TIP-PRIVATE EVENT)
(DECLARE #)
(BLOCK V-HELP-TIPS-QUERY-WIDGET-SELECTED # T))
NIL
'(DEFUN V-HELP-TIPS-QUERY-WIDGET-SELECTED
(WIDGET TIP-TEXT TIP-PRIVATE EVENT)
(DECLARE #)
(LET #
#)
T))
C::ORIGINAL-SOURCE-START 0 13))
6: (C::PROCESS-FORM
(C::%DEFUN 'V-HELP-TIPS-QUERY-WIDGET-SELECTED
#'(LAMBDA (WIDGET TIP-TEXT TIP-PRIVATE EVENT)
(DECLARE (IGNORE TIP-TEXT TIP-PRIVATE))
(BLOCK V-HELP-TIPS-QUERY-WIDGET-SELECTED
(LET #
#)
T))
NIL
'(DEFUN V-HELP-TIPS-QUERY-WIDGET-SELECTED
(WIDGET TIP-TEXT TIP-PRIVATE EVENT)
(DECLARE (IGNORE TIP-TEXT TIP-PRIVATE))
(LET (# #)
(GTK:IDLE-ADD #'#))
T))
(C::ORIGINAL-SOURCE-START 0 13))
7: (C::PROCESS-FORM
(DEFUN V-HELP-TIPS-QUERY-WIDGET-SELECTED
(WIDGET TIP-TEXT TIP-PRIVATE EVENT)
(DECLARE (IGNORE TIP-TEXT TIP-PRIVATE))
(LET ((X #) (Y #))
(GTK:IDLE-ADD #'(LAMBDA # #)))
T)
(C::ORIGINAL-SOURCE-START 0 13))
8: (C::PROCESS-FORM 2
(DEFUN V-HELP-TIPS-QUERY-WIDGET-SELECTED
(WIDGET TIP-TEXT TIP-PRIVATE EVENT)
(DECLARE (IGNORE TIP-TEXT TIP-PRIVATE))
(LET ((X #) (Y #))
(GTK:IDLE-ADD #'(LAMBDA # #)))
T)
(C::ORIGINAL-SOURCE-START 0 13))[:EXTERNAL]
9: (C::PROCESS-SOURCES #<Source-Info>)
10: ((FLET #:G0
C::SUB-COMPILE-FILE))
11: (C::SUB-COMPILE-FILE #<Source-Info> NIL)
12: (C::SUB-COMPILE-FILE 1 #<Source-Info> NIL)[:EXTERNAL]
13: (COMPILE-FILE "/home/cph/v-new-cmucl/slate/help-ui.lisp"
:OUTPUT-FILE
"/home/cph/v-new-cmucl/build/v/slate/help-ui.x86f"
:ERROR-FILE
"/home/cph/v-new-cmucl/build/v/slate/help-ui.err"
:TRACE-FILE
NIL
:ERROR-OUTPUT
T
:LOAD
NIL
:EXTERNAL-FORMAT
#<unused-arg>
:VERBOSE
NIL
:PRINT
NIL
:PROGRESS
NIL
:BLOCK-COMPILE
NIL
:ENTRY-POINTS
NIL
:BYTE-COMPILE
NIL)
14: (MAKE::COMPILE-FILE-OPERATION #<FILE: help-ui> :NEW-SOURCE-ALL)
15: (MAKE::COMPILE-AND-LOAD-OPERATION #<FILE: help-ui> :NEW-SOURCE-ALL)
16: (MAKE::OPERATE-ON-COMPONENT #<FILE: help-ui> :COMPILE :NEW-SOURCE-ALL)
17: (MAKE::OPERATE-ON-COMPONENT #<FILE: help-ui> :COMPILE :NEW-SOURCE-ALL)
18: (MAKE::OPERATE-ON-COMPONENTS #<MODULE: slate>
:COMPILE
:NEW-SOURCE-ALL
(#<FILE: events> #<FILE: fonts>
#<FILE: select-one-item-popup>
#<FILE: screens> #<FILE: utilities>
#<FILE: classes> #<FILE: color-utilities>
#<FILE: colormaps> #<FILE: generics>
#<FILE: globals>))
19: (MAKE::OPERATE-ON-COMPONENT #<MODULE: slate> :COMPILE :NEW-SOURCE-ALL)
20: (MAKE::OPERATE-ON-COMPONENT #<MODULE: slate> :COMPILE :NEW-SOURCE-ALL)
21: (MAKE::OPERATE-ON-COMPONENTS #<DEFSYSTEM: v>
:COMPILE
:NEW-SOURCE-AND-DEPENDENTS
(#<MODULE: adobe> #<MODULE: cart>
#<MODULE: statistics> #<MODULE: fortran>
#<MODULE: preferences> #<MODULE: data-rep>
#<MODULE: pixmaps> #<MODULE: clos>
#<MODULE: transform> #<MODULE: geometry>
#<MODULE: tools> #<MODULE: gate>
#<MODULE: misc> #<MODULE: package>
#<MODULE: png> #<MODULE: md5> #<MODULE:
rsa>))
22: (MAKE::OPERATE-ON-COMPONENT #<DEFSYSTEM: v>
:COMPILE
:NEW-SOURCE-AND-DEPENDENTS)
23: (MAKE::OPERATE-ON-COMPONENT #<DEFSYSTEM: v>
:COMPILE
:NEW-SOURCE-AND-DEPENDENTS)
24: ((FLET #:G17
))
25: (MAKE:OPERATE-ON-SYSTEM "v"
:COMPILE
:FORCE
NIL
:VERSION
NIL
:TEST
NIL
:VERBOSE
NIL
:LOAD-SOURCE-INSTEAD-OF-BINARY
NIL
:LOAD-SOURCE-IF-NO-BINARY
NIL
:BOTHER-USER-IF-NO-BINARY
NIL
:COMPILE-DURING-LOAD
NIL
:DRIBBLE
NIL
:MINIMAL-LOAD
NIL
:OVERRIDE-COMPILATION-UNIT
T)[:OPTIONAL]
26: (MAKE:OPERATE-ON-SYSTEM "v"
:COMPILE
:FORCE
NIL
:VERSION
NIL
:TEST
NIL
:VERBOSE
NIL
:LOAD-SOURCE-INSTEAD-OF-BINARY
NIL
:LOAD-SOURCE-IF-NO-BINARY
NIL
:BOTHER-USER-IF-NO-BINARY
NIL
:COMPILE-DURING-LOAD
NIL
:DRIBBLE
NIL
:MINIMAL-LOAD
NIL
:OVERRIDE-COMPILATION-UNIT
T)[:OPTIONAL]
27: (MAKE:OPERATE-ON-SYSTEM "v"
:COMPILE
:FORCE
NIL
:VERSION
NIL
:TEST
NIL
:VERBOSE
NIL
:LOAD-SOURCE-INSTEAD-OF-BINARY
NIL
:LOAD-SOURCE-IF-NO-BINARY
NIL
:BOTHER-USER-IF-NO-BINARY
NIL
:COMPILE-DURING-LOAD
NIL
:DRIBBLE
NIL
:MINIMAL-LOAD
NIL
:OVERRIDE-COMPILATION-UNIT
T)[:OPTIONAL]
28: (SWANK::EVAL-REGION "(mk:oos \"v\" :compile)
"
T)
29: ("DEFSLIMEFUN LISTENER-EVAL")
30: (SWANK:LISTENER-EVAL "(mk:oos \"v\" :compile)")
Here is the second one for COLOR-HEXA-CSTRING:
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
NIL is not of type C::CONTINUATION
[Condition of type TYPE-ERROR]
Restarts:
0: [ABORT] Abort handling SLIME request.
1: Return to Top-Level.
Debug (type H for help)
(C::FIND-PUSHED-CONTINUATIONS #<C::CBLOCK Start = c1 {586D50CD}>)
Source:
; File: target:compiler/stack.lisp
; File has been modified since compilation:
; target:compiler/stack.lisp
; Using form offset instead of character position.
(NODE-BLOCK DEST)
0]
CL-USER> back
0: (C::FIND-PUSHED-CONTINUATIONS #<C::CBLOCK Start = c1 {586D50CD}>)
1: (C::STACK-ANALYZE
#<C:COMPONENT #x5869353D NAME= "DEFUN COLOR-HEXA-CSTRING">)
2: (C::NATIVE-COMPILE-COMPONENT
#<C:COMPONENT #x5869353D NAME= "DEFUN COLOR-HEXA-CSTRING">)
3: (C::COMPILE-COMPONENT
#<C:COMPONENT #x5869353D NAME= "DEFUN COLOR-HEXA-CSTRING">)
4: (C::COMPILE-TOP-LEVEL
(#<LAMBDA #x5868AF8D
NAME= "Top-Level Form"
TYPE= #<KERNEL::BUILT-IN-CLASS FUNCTION (read-only) {2804D6F5}>
WHERE-FROM= :DEFINED
VARS= NIL>)
NIL)
5: (C::CONVERT-AND-MAYBE-COMPILE
(C::%DEFUN 'COLOR-HEXA-CSTRING
#'(LAMBDA (COLOR)
(DECLARE (TYPE COLOR COLOR))
(BLOCK COLOR-HEXA-CSTRING (MULTIPLE-VALUE-BIND # # # #)))
NIL
'(DEFUN COLOR-HEXA-CSTRING (COLOR)
(DECLARE (TYPE COLOR COLOR))
(MULTIPLE-VALUE-BIND
(R G B)
(COLOR->RGB COLOR)
(DECLARE #)
(FORMAT NIL "#~2,'0X~2,'0X~2,'0X" # # #))))
((C::%DEFUN 'COLOR-HEXA-CSTRING
#'(LAMBDA (COLOR) (DECLARE #) (BLOCK COLOR-HEXA-CSTRING #))
NIL
'(DEFUN COLOR-HEXA-CSTRING (COLOR)
(DECLARE #)
(MULTIPLE-VALUE-BIND # # # #)))
C::ORIGINAL-SOURCE-START 0 2))
6: (C::PROCESS-FORM
(C::%DEFUN 'COLOR-HEXA-CSTRING
#'(LAMBDA (COLOR)
(DECLARE (TYPE COLOR COLOR))
(BLOCK COLOR-HEXA-CSTRING (MULTIPLE-VALUE-BIND # # # #)))
NIL
'(DEFUN COLOR-HEXA-CSTRING (COLOR)
(DECLARE (TYPE COLOR COLOR))
(MULTIPLE-VALUE-BIND
(R G B)
(COLOR->RGB COLOR)
(DECLARE #)
(FORMAT NIL "#~2,'0X~2,'0X~2,'0X" # # #))))
(C::ORIGINAL-SOURCE-START 0 2))
7: (C::PROCESS-FORM
(DEFUN COLOR-HEXA-CSTRING (COLOR)
(DECLARE (TYPE COLOR COLOR))
(MULTIPLE-VALUE-BIND
(R G B)
(COLOR->RGB COLOR)
(DECLARE (TYPE # R G B))
(FORMAT NIL
"#~2,'0X~2,'0X~2,'0X"
(TRUNCATE #)
(TRUNCATE #)
(TRUNCATE #))))
(C::ORIGINAL-SOURCE-START 0 2))
8: (C::PROCESS-FORM 2
(DEFUN COLOR-HEXA-CSTRING (COLOR)
(DECLARE (TYPE COLOR COLOR))
(MULTIPLE-VALUE-BIND
(R G B)
(COLOR->RGB COLOR)
(DECLARE (TYPE # R G B))
(FORMAT NIL
"#~2,'0X~2,'0X~2,'0X"
(TRUNCATE #)
(TRUNCATE #)
(TRUNCATE #))))
(C::ORIGINAL-SOURCE-START 0 2))[:EXTERNAL]
9: (C::PROCESS-SOURCES #<Source-Info>)
10: ((FLET #:G0
C::SUB-COMPILE-FILE))
11: (C::SUB-COMPILE-FILE #<Source-Info> NIL)
12: (C::SUB-COMPILE-FILE 1 #<Source-Info> NIL)[:EXTERNAL]
13: (COMPILE-FILE "/home/cph/v-new-cmucl/slate/tool-suites.lisp"
:OUTPUT-FILE
"/home/cph/v-new-cmucl/build/v/slate/tool-suites.x86f"
:ERROR-FILE
"/home/cph/v-new-cmucl/build/v/slate/tool-suites.err"
:TRACE-FILE
NIL
:ERROR-OUTPUT
T
:LOAD
NIL
:EXTERNAL-FORMAT
#<unused-arg>
:VERBOSE
NIL
:PRINT
NIL
:PROGRESS
NIL
:BLOCK-COMPILE
NIL
:ENTRY-POINTS
NIL
:BYTE-COMPILE
NIL)
14: (MAKE::COMPILE-FILE-OPERATION #<FILE: tool-suites> T)
15: (MAKE::COMPILE-AND-LOAD-OPERATION #<FILE: tool-suites> T)
16: (MAKE::OPERATE-ON-COMPONENT #<FILE: tool-suites> :COMPILE T)
17: (MAKE::OPERATE-ON-COMPONENT #<FILE: tool-suites> :COMPILE T)
18: (MAKE::OPERATE-ON-COMPONENTS #<MODULE: slate>
:COMPILE
T
(#<FILE: toolbars> #<FILE: rclick-menus>
#<FILE: menu-items> #<FILE: help-ui>
#<FILE: events> #<FILE: fonts>
#<FILE: select-one-item-popup>
#<FILE: screens> #<FILE: utilities>
#<FILE: classes> #<FILE: color-utilities>
#<FILE: colormaps> #<FILE: generics>
#<FILE: globals>))
19: (MAKE::OPERATE-ON-COMPONENT #<MODULE: slate> :COMPILE T)
20: (MAKE::OPERATE-ON-COMPONENT #<MODULE: slate> :COMPILE T)
21: (MAKE::OPERATE-ON-COMPONENTS #<DEFSYSTEM: v>
:COMPILE
T
(#<MODULE: adobe> #<MODULE: cart>
#<MODULE: statistics> #<MODULE: fortran>
#<MODULE: preferences> #<MODULE: data-rep>
#<MODULE: pixmaps> #<MODULE: clos>
#<MODULE: transform> #<MODULE: geometry>
#<MODULE: tools> #<MODULE: gate>
#<MODULE: misc> #<MODULE: package>
#<MODULE: png> #<MODULE: md5> #<MODULE:
rsa>))
22: (MAKE::OPERATE-ON-COMPONENT #<DEFSYSTEM: v> :COMPILE T)
23: (MAKE::OPERATE-ON-COMPONENT #<DEFSYSTEM: v> :COMPILE T)
24: ((FLET #:G17
))
25: (MAKE:OPERATE-ON-SYSTEM "v"
:COMPILE
:FORCE
T
:VERSION
NIL
:TEST
NIL
:VERBOSE
NIL
:LOAD-SOURCE-INSTEAD-OF-BINARY
NIL
:LOAD-SOURCE-IF-NO-BINARY
NIL
:BOTHER-USER-IF-NO-BINARY
NIL
:COMPILE-DURING-LOAD
NIL
:DRIBBLE
NIL
:MINIMAL-LOAD
NIL
:OVERRIDE-COMPILATION-UNIT
T)[:OPTIONAL]
26: (MAKE:OPERATE-ON-SYSTEM "v"
:COMPILE
:FORCE
T
:VERSION
NIL
:TEST
NIL
:VERBOSE
NIL
:LOAD-SOURCE-INSTEAD-OF-BINARY
NIL
:LOAD-SOURCE-IF-NO-BINARY
NIL
:BOTHER-USER-IF-NO-BINARY
NIL
:COMPILE-DURING-LOAD
NIL
:DRIBBLE
NIL
:MINIMAL-LOAD
NIL
:OVERRIDE-COMPILATION-UNIT
T)[:OPTIONAL]
27: (MAKE:OPERATE-ON-SYSTEM "v"
:COMPILE
:FORCE
T
:VERSION
NIL
:TEST
NIL
:VERBOSE
NIL
:LOAD-SOURCE-INSTEAD-OF-BINARY
NIL
:LOAD-SOURCE-IF-NO-BINARY
NIL
:BOTHER-USER-IF-NO-BINARY
NIL
:COMPILE-DURING-LOAD
NIL
:DRIBBLE
NIL
:MINIMAL-LOAD
NIL
:OVERRIDE-COMPILATION-UNIT
T)[:OPTIONAL]
28: (SWANK::EVAL-REGION "(mk:oos \"v\" :compile :force t)
"
T)
29: ("DEFSLIMEFUN LISTENER-EVAL")
30: (SWANK:LISTENER-EVAL "(mk:oos \"v\" :compile :force t)")
Thanks a lot.
-cph
