Hello,
With an updated version of mcclim and SBCL 0.9.5, my software Autowrite
does not run anymore (see stackframe below).
The same software compiles and runs fine with CMUCL and a previous clim
core.
--
Irène
http://dept-info.labri.u-bordeaux.fr/~idurand
The function (SETF RECTANGLE-EDGES*) is undefined.
[Condition of type UNDEFINED-FUNCTION]
Restarts:
0: [ABORT] Return to application command loop
1: [ABORT-REQUEST] Abort handling SLIME request.
2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {A462359}>)
Backtrace:
0: ("bogus stack frame")
1: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument> 0 #<GOATEE::SCREEN-LINE X 81:81 Y 0:0 "" {A9CDB11}>)
2: ((SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (GOATEE::SCREEN-LINE)) (#(NIL 0 10 4 11) . #()) #<unavailable argument> #<GOATEE::SCREEN-LINE X 81:81 Y 0:0 "" {A9CDB11}> (:X-POSITION 81 :Y-POSITION 0 :PARENT #<GOATEE:SIMPLE-SCREEN-AREA X 81:81 Y 0:0 {A797881}> :BUFFER-LINE #<GOATEE::EXTENT-BUFFER-LINE ""> :LAST-TICK 2 ...))
3: ((LAMBDA (SB-PCL::|.P0.| SB-PCL::|.P1.| SB-PCL::|.P2.| SB-PCL::|.P3.| SB-PCL::|.P4.| SB-PCL::|.P5.| SB-PCL::|.P6.| SB-PCL::|.P7.|)) #<unavailable argument> #<unavailable argument> #<unavailable argument> #<unavailable argument> #<unavailable argument> #<unavailable argument> #<unavailable argument> #<unavailable argument>)
4: ((SB-PCL::FAST-METHOD GOATEE::INITIALIZE-AREA-FROM-BUFFER (GOATEE:SIMPLE-SCREEN-AREA T)) (#(NIL 16) . #()) #<unavailable argument> #<GOATEE:SIMPLE-SCREEN-AREA X 81:81 Y 0:0 {A797881}> #<GOATEE::EDITABLE-BUFFER {A53CC29}>)
5: ((SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (GOATEE:SIMPLE-SCREEN-AREA)) (#(NIL 17 15 22 21 19 16) . #()) #<unavailable argument> #<GOATEE:SIMPLE-SCREEN-AREA X 81:81 Y 0:0 {A797881}> (:AREA-STREAM #<INTERACTOR-PANE INTERACTOR-PANE {ACCB111}> :BUFFER #<GOATEE::EDITABLE-BUFFER {A53CC29}> :X-POSITION 81 :Y-POSITION 0 :CURSOR-VISIBILITY T ...))
6: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.DFUN-REST-ARG.)) #<unavailable argument> #<unavailable argument> #<GOATEE:SIMPLE-SCREEN-AREA X 81:81 Y 0:0 {A797881}> (:AREA-STREAM #<INTERACTOR-PANE INTERACTOR-PANE {ACCB111}> :BUFFER #<GOATEE::EDITABLE-BUFFER {A53CC29}> :X-POSITION 81 :Y-POSITION 0 :CURSOR-VISIBILITY T ...))
7: ((SB-PCL::FAST-METHOD MAKE-INSTANCE (CLASS)) #<unavailable argument> #<unavailable argument> #<STANDARD-CLASS GOATEE:SIMPLE-SCREEN-AREA> (:AREA-STREAM #<INTERACTOR-PANE INTERACTOR-PANE {ACCB111}> :BUFFER #<GOATEE::EDITABLE-BUFFER {A53CC29}> :X-POSITION 81 :Y-POSITION 0 :CURSOR-VISIBILITY T ...))
8: ((SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (GOATEE:GOATEE-INPUT-EDITING-MIXIN)) #<unavailable argument> #<unavailable argument> #<STANDARD-INPUT-EDITING-STREAM {986DAE1}> (:STREAM #<INTERACTOR-PANE INTERACTOR-PANE {ACCB111}> :INITIAL-CONTENTS ""))
9: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.DFUN-REST-ARG.)) #<unavailable argument> #<unavailable argument> #<STANDARD-INPUT-EDITING-STREAM {986DAE1}> (:STREAM #<INTERACTOR-PANE INTERACTOR-PANE {ACCB111}> :INITIAL-CONTENTS ""))
10: ((SB-PCL::FAST-METHOD MAKE-INSTANCE (CLASS)) #<unavailable argument> #<unavailable argument> #<STANDARD-CLASS STANDARD-INPUT-EDITING-STREAM> (:STREAM #<INTERACTOR-PANE INTERACTOR-PANE {ACCB111}> :INITIAL-CONTENTS ""))
11: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING (EXTENDED-INPUT-STREAM T T T T)) #<unavailable argument> #<unavailable argument> #<INTERACTOR-PANE INTERACTOR-PANE {ACCB111}> #<CLOSURE (LAMBDA (STREAM)) {97BBD85}> #<CLOSURE (LAMBDA (STREAM CLIM-INTERNALS::CONT)) {97BBDD5}> "" STANDARD-INPUT-EDITING-STREAM)
12: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (EXTENDED-OUTPUT-STREAM T T T T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING #)> :PV-CELL NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (5)) :ARG-INFO (5)) #<INTERACTOR-PANE INTERACTOR-PANE {ACCB111}> #<CLOSURE (LAMBDA (STREAM)) {97BBD85}> #<CLOSURE (LAMBDA (STREAM CLIM-INTERNALS::CONT)) {97BBDD5}> "" STANDARD-INPUT-EDITING-STREAM)
13: (ACCEPT (COMMAND :COMMAND-TABLE #<STANDARD-COMMAND-TABLE AUTOWRITE {A023991}>) :STREAM #<INTERACTOR-PANE INTERACTOR-PANE {ACCB111}> :PROMPT NIL :DEFAULT (CLIM-INTERNALS::COM-NULL-COMMAND) :DEFAULT-TYPE CLIM-INTERNALS::NULL-COMMAND)
14: (READ-COMMAND #<STANDARD-COMMAND-TABLE AUTOWRITE {A023991}> :STREAM #<INTERACTOR-PANE INTERACTOR-PANE {ACCB111}> :COMMAND-PARSER NIL :COMMAND-UNPARSER NIL :PARTIAL-COMMAND-PARSER NIL :USE-KEYSTROKES NIL)
15: (READ-COMMAND-USING-KEYSTROKES #<STANDARD-COMMAND-TABLE AUTOWRITE {A023991}> NIL :STREAM #<INTERACTOR-PANE INTERACTOR-PANE {ACCB111}> :COMMAND-PARSER NIL :COMMAND-UNPARSER NIL :PARTIAL-COMMAND-PARSER NIL)
16: (READ-COMMAND #<STANDARD-COMMAND-TABLE AUTOWRITE {A023991}> :STREAM #<INTERACTOR-PANE INTERACTOR-PANE {ACCB111}> :COMMAND-PARSER NIL :COMMAND-UNPARSER NIL :PARTIAL-COMMAND-PARSER NIL :USE-KEYSTROKES T)
17: ((SB-PCL::FAST-METHOD READ-FRAME-COMMAND :AROUND (APPLICATION-FRAME)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD READ-FRAME-COMMAND #)> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<AUTOWRITE {961A071}> (:STREAM #<INTERACTOR-PANE INTERACTOR-PANE {ACCB111}>))
18: ((SB-PCL::FAST-METHOD DEFAULT-FRAME-TOP-LEVEL (APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<AUTOWRITE {961A071}> NIL)
19: ((SB-PCL::FAST-METHOD DEFAULT-FRAME-TOP-LEVEL (APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<AUTOWRITE {961A071}> NIL)
20: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.DFUN-REST-ARG.)) #<unavailable argument> #<unavailable argument> #<AUTOWRITE {961A071}> NIL)
21: ((SB-PCL::FAST-METHOD RUN-FRAME-TOP-LEVEL (APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<AUTOWRITE {961A071}> #<unavailable argument>)
22: ((SB-PCL::FAST-METHOD RUN-FRAME-TOP-LEVEL :AROUND (APPLICATION-FRAME)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD RUN-FRAME-TOP-LEVEL #)> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<AUTOWRITE {961A071}> NIL)
23: (INTERFACE)
24: (SB-INT:EVAL-IN-LEXENV (START) #<NULL-LEXENV>)
25: (SWANK::EVAL-REGION "(start)
" T)
26: ((LAMBDA NIL))
27: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<unused argument> #<unused argument> #<CLOSURE (LAMBDA NIL) {A6EF1FD}>)
28: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA NIL) {A6EF1FD}>)
29: (SB-INT:EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(start)
") #<NULL-LEXENV>)
30: ((LAMBDA NIL))
31: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {A6EEB9D}>)
32: ((LAMBDA NIL))
33: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL) {9E5E8DD}>)
34: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {A310E51}> #<CLOSURE (LAMBDA NIL) {A6EEA5D}>)
35: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {A310E51}> #<FUNCTION (LAMBDA NIL) {9E5E8DD}>)
36: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {A310E51}>)
37: ((LAMBDA NIL))
38: ((LAMBDA NIL))
39: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {A46B07D}>)
40: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {A310E51}> #<CLOSURE (LAMBDA NIL) {A46B08D}>)
41: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {A310E51}> #<CLOSURE (LAMBDA NIL) {A46B07D}>)
42: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA NIL) {A46B05D}>)
43: ((LAMBDA NIL))
44: ("foreign function: call_into_lisp")
45: ("foreign function: funcall0")
46: ("foreign function: new_thread_trampoline")
47: ("foreign function: #x53EB80")