February 2006 - mcclim-devel - mailman3.common-lisp.net

[mcclim-devel] The function (SETF RECTANGLE-EDGES*) is undefined.
by Irene DURAND 03 Feb '06

03 Feb '06

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")

2 1

[mcclim-devel] Newbie problems with "accepting-values" / no method for CLIM:STREAM-CURSOR-POSITION
by Peter Braroe 03 Feb '06

03 Feb '06

Hello all! I am trying to get into mcCLIM to write a frontend to a text (news) analysis tool... I use CMUCL and have followed the INSTALL.CMU file and most of the demos work fine. But as I get down to it and start writing code to use "accepting-values" for instance I get the message below. I also get it when running the demos so i assume that something is wrong with the environment... but what? It's probably something simple but I have tried to figgure it out for a lot of hours and some ideas would be greatly appreciated! Thanks, /Peter PS I tried wihout SLIME but that didn't work either. See second trace below. CL-USER> (clim-demo::accepting-interval) No matching method for the generic function #<STANDARD-GENERIC-FUNCTION CLIM:STREAM-CURSOR-POSITION (2) {58BBC3B9}>, when called with arguments (#<Two-Way Stream, Input = #<SWANK-BACKEND::SLIME-INPUT-STREAM {58B7D7B5}>, Output = #<Stream for descriptor 7>>). [Condition of type PCL::NO-APPLICABLE-METHOD-ERROR] Restarts: 0: [CONTINUE] Retry call to :FUNCTION. 1: [ABORT] Abort handling SLIME request. 2: [ABORT] Return to Top-Level. Backtrace: 0: ("DEFMETHOD NO-APPLICABLE-METHOD (T)" #<#1=unused-arg> #<#1#> #<STANDARD-GENERIC-FUNCTION CLIM:STREAM-CURSOR-POSITION (2) {58BBC3B9}> (#<Two-Way Stream, Input = #<SWANK-BACKEND::SLIME-INPUT-STREAM {58B7D7B5}>, Output = #<Stream for descriptor 7>>)) 1: (CLIM-INTERNALS::INVOKE-ACCEPTING-VALUES #<Two-Way Stream, Input = #<SWANK-BACKEND::SLIME-INPUT-STREAM {58B7D7B5}>, Output = #<Stream for descriptor 7>> #<Closure Over Function (FLET #:ACCEPTING-VALUES-CONTINUATION1 CLIM-DEMO::ACCEPTING-INTERVAL) {58A68171}> :OWN-WINDOW #<unused-arg> ...) 2: (CLIM-DEMO::ACCEPTING-INTERVAL :MIN -1.0 :MAX 1.0 ...) 3: (SWANK::EVAL-REGION "(clim-demo::accepting-interval)" T) 4: ("DEFSLIMEFUN LISTENER-EVAL") _____________________TRACE WITHOUT SLIME ________________________________________ * (clim-demo::accepting-interval) No matching method for the generic function #<STANDARD-GENERIC-FUNCTION CLIM:STREAM-CURSOR-POSITION (2) {58B61979}>, when called with arguments (#<Synonym Stream to *TERMINAL-IO*>). [Condition of type PCL::NO-APPLICABLE-METHOD-ERROR] Restarts: 0: [CONTINUE] Retry call to :FUNCTION. 1: [ABORT ] Return to Top-Level. Debug (type H for help) ("DEFMETHOD NO-APPLICABLE-METHOD (T)" #<unused-arg> #<unused-arg> #<STANDARD-GENERIC-FUNCTION CLIM:STREAM-CURSOR-POSITION (2) {58B61979}> (#<Synonym Stream to *TERMINAL-IO*>)) Source: ; File: target:pcl/braid.lisp (CERROR "Retry call to ~S." 'NO-APPLICABLE-METHOD-ERROR :FUNCTION GENERIC-FUNCTION ...) 0]

4 4

[mcclim-devel] An easy question?
by Friedrich Dominicus 01 Feb '06

01 Feb '06

I'm trying to understand a bit more of clim. Now I'm stuck. How do I write an accept method which an be used in subset-completion? e.g I have the class (defclass t1 () ((val :initarg :val... (sval :initarge ...)))) Now I want to present a list of things to the user he/she can choose from something like (accept `(subset-completion ,(list (make-instance 't1 :val... (make-instance 't1 :val ....)))) I got a somewhat working solution with present-to-string but what I really want is something like this | | "(val t1 , (sval " .... for the first object | | "(val t1) .... for the second object etc. I'm sure there is something for that .... Help would be very appriciated. Regards Friedrich

1 0