April 2005 - mcclim-devel - mailman3.common-lisp.net

[mcclim-devel] A tough day for me and McCLIM
by rpgoldman＠sift.info 03 Apr '05

03 Apr '05

I was just testing out the inspector, and was able to reliably cause it to blow up. CL-USER(168): (clouseau:inspector *taems-model* :new-process t) #<MULTIPROCESSING:PROCESS Inspector Clouseau: #<TAEMS-MODEL @ #x72023142> @ #x72f7cd42> ...crashes with the followign error: Error: Attempt to access the plist field of #<TAEMS-MODEL @ #x72023142> which is not a symbol. [condition type: SIMPLE-ERROR] Restart actions (select using :continue): 0: Return to application command loop 1: Abort entirely from this process. [Current process: Inspector Clouseau: *TAEMS-MODEL*] [1] CL-USER(1): CL-USER(169): (clouseau:inspector '*taems-model* :new-process t) #<MULTIPROCESSING:PROCESS Inspector Clouseau: *TAEMS-MODEL* @ #x728a4da2> This works ok (presumably because it's a symbol it has a property list?), but when I click on the value cell of the *taems-model* variable, Clouseau blows up with the same error. The proximate cause seems to be PRINT-DOCUMENTATION, which pulls the documentation and then tries to print it, as can be seen in this error: CL-USER(171): (documentation *taems-model* t) Error: Attempt to access the plist field of #<TAEMS-MODEL @ #x72023142> which is not a symbol. [condition type: SIMPLE-ERROR] Restart actions (select using :continue): 0: Return to Top Level (an "abort" restart). 1: Abort entirely from this process. Does this mean that ACL is not doing the Right Thing with the documentation function? Or is CLOUSEAU wrong to assume that everything will have documentation? Seems like documentation might not be defined on objects, if I read the CLHS correctly. The following change to PRINT-DOCUMENTATION seems to fix my problem. Not sure how right it is, though. (defun print-documentation (object pane) "Print OBJECT's documentation, if any, to PANE" (when (catch 'no-docs (handler-bind ((warning #'muffle-warning) (error #'(lambda (c) (declare (ignore c)) (throw 'no-docs nil)))) (documentation object t))) (with-heading-style (pane) (format pane "~&Documentation: ")) (princ (documentation object t) pane)))

2 3

Re: [mcclim-devel] sb-bsd-sockets
by Boris Tschirschwitz 03 Apr '05

03 Apr '05

Hi. Thanks for all the help. It turns out that Brian's suggestion to modify mcclim.asd takes care of getting rid of clx. Boris. PS: Of course, climacs still depends on clx Brian Mastenbrook wrote: > > On Mar 30, 2005, at 2:10 PM, Boris Tschirschwitz wrote: > >> Hi. >> >> I am trying to use McCLIM with openmcl. >> When compiling the beagle backend I get the error message that >> sb-bsd-sockets can't be found, apparently clx depends on it and >> mcclim depends on clx, even with beagle. >> Making sb-bsd-sockets from sbcl-contrib known to asdf helps until >> sb-bsd-sockets wants sb-grovel and eventually sb-ext. This one I >> can't find on sbcl. >> >> Am I really supposed to use all these SBCL packages? >> If so, where do I get the sb-ext? >> >> Thanks, >> Boris. >> > > Hi Boris, > > You should edit the file mcclim.asd in the root of the McCLIM source > tree to use the beagle backend instead of the CLX backend. By default > only the CLX backend is enabled because the beagle backend is still a > bit buggy. Search for clim-looks in the file and comment out the line > that sets up the clx backend as a dependancy, and uncomment the one > which sets up the beagle backend. > -- > Brian Mastenbrook > brian(a)mastenbrook.net > http://www.iscblog.info/ > > >

2 2

[mcclim-devel] Better defaults for CLX backend
by Christophe Rhodes 02 Apr '05

02 Apr '05

Hi, Attached are a diff and a new file to implement better defaults for the clx server path: parsing $DISPLAY as a Unix user might expect. Behaviour should be unchanged in the case that the $DISPLAY environment variable is unreadable. The immediate effect of this patch is that clim over ssh will work. That said, I have completely failed to test this patch even to the point of compiling it, as locally both my sbcl and my clx are broken. If someone could test this and report back (or commit it themselves), that would be good. Cheers, Christophe

1 1

[mcclim-devel] A question re. (setf bounding-rectangle-m...) methods
by Aleksandar Bakic 02 Apr '05

02 Apr '05

Hi, I am trying to get Scigraph to work with CMUCL. So far I found what I believe is a CMUCL 0305 bug: the third/last multiple-value-setq in function device-draw-line in scigraph/draw.lisp exercises incorrect compilation of the function. I replaced it with an equivalent multiple-value-bind and that fixed the problem. (Both versions of the function worked when interpreted.) Perhaps someone wants to take a look; I'll post to cmucl-devel if I do not get any feedback. Then I encountered a similar problem with (setf bounding-rectangle-min-x) and friends in the same file. The error below is confusing (it occurs when I play with zoom in/zoom out), but I noticed that the compiler complains about missing setf methods when I recompiled the file. Then I looked at regions.lisp and the spec, and I could not find the setf methods implemented or documented. Again, the error is not raised by CMUCL 0305 when I the code in scigraph/draw.lisp is interpreted. Any suggestions are welcome. Alex Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER: 10 is not of type (MOD 10) [Condition of type TYPE-ERROR] Restarts: 0: [ABORT] Return to application command loop 1: [SCIGRAPH-TOP-LEVEL] Abort to SCIGRAPH Top Level 2: [DESTROY] Destroy the process Backtrace: 0: (%CLIP-LINE 1083 161 928 341 ...) 1: (DEVICE-DRAW-LINE #<APPLICATION-PANE DISPLAY {5A38C2D5}> 1083 161 928 ...) 2: ("DEFMETHOD DATUM-STYLE-DISPLAYER (GRAPH-DATUM-LINE-SYMBOLOGY-MIXIN T (EQL LINE-SYMBOL))" #<APPLICATION-PANE DISPLAY {5A38C2D5}> 928 341 (1572 5177/5000)) 3: ((METHOD INVOKE-WITH-NEW-OUTPUT-RECORD NIL (OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<APPLICATION-PANE DISPLAY {5A38C2D5}> #<Closure Over Function (FLET #:CONTINUATION37) {589F3B59}> ...) 4: ("DEFMETHOD DATUM-DISPLAYER AROUND (PRESENTABLE-DATA-MIXIN T)" #<APPLICATION-PANE DISPLAY {5A38C2D5}> 928 341 (1572 5177/5000)) 5: (MAP NIL #<Closure Over Function "DEFMETHOD DISPLAY-DATA (ESSENTIAL-GRAPH-DATA-MAP-MIXIN T T)" {5882E631}> ((2096 261/200) (2095 1317/1000) (2094 13259/10000) (2093 13277/10000) (2092 13463/10000) ...)) 6: ((METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL NIL (MEDIUM T T)) (#(2 5 6 3 2 ...) . #(# #)) #<unused-arg> #1=#<CLIM-CLX::CLX-MEDIUM {5A4A7D45}> #1# ...) 7: ((METHOD GRAPH-DISPLAY-DATA NIL (GRAPH-DATASETS-MIXIN T)) (#(32 33) . #()) #<unused-arg> #<ANNOTATED-GRAPH ANNOTATED-GRAPH-3> #<APPLICATION-PANE DISPLAY {5A38C2D5}>) 8: ((METHOD GRAPH-WITH-CLIPPING NIL (BASIC-GRAPH T T T)) #<#1=unused-arg> #<#1#> #<ANNOTATED-GRAPH ANNOTATED-GRAPH-3> #<APPLICATION-PANE DISPLAY {5A38C2D5}> ...) 9: ("LAMBDA (G9552 G9553 G9554)" #<#1=unused-arg> #<#1#> #<ANNOTATED-GRAPH ANNOTATED-GRAPH-3> #<APPLICATION-PANE DISPLAY {5A38C2D5}>) 10: ((METHOD INVOKE-WITH-NEW-OUTPUT-RECORD NIL (OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<APPLICATION-PANE DISPLAY {5A38C2D5}> #<Closure Over Function (FLET #:CONTINUATION97 (FLET #:UPDATING-OUTPUT-CONTINUATION6)) {5881ED81}> ...) 11: ((FLET #:UPDATING-OUTPUT-CONTINUATION6) #<APPLICATION-PANE DISPLAY {5A38C2D5}>) 12: ((METHOD INVOKE-WITH-NEW-OUTPUT-RECORD NIL (OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<APPLICATION-PANE DISPLAY {5A38C2D5}> #<Closure Over Function (FLET #:CONTINUATION14 CLIM-INTERNALS::%INVOKE-UPDATING) {5881E919}> ...) 13: (CLIM-INTERNALS::%INVOKE-UPDATING #<STANDARD-UPDATING-OUTPUT-RECORD X 0.0d0:0.0d0 Y 0.0d0:0.0d0 #<ANNOTATED-GRAPH ANNOTATED-GRAPH-3> {5881E36D}> #<APPLICATION-PANE DISPLAY {5A38C2D5}> #<Closure Over Function (FLET #:UPDATING-OUTPUT-CONTINUATION6) {5881D961}>) 14: ((FLET #:CONTINUATION44) #<APPLICATION-PANE DISPLAY {5A38C2D5}> #<STANDARD-UPDATING-OUTPUT-RECORD X 0.0d0:0.0d0 Y 0.0d0:0.0d0 #<ANNOTATED-GRAPH ANNOTATED-GRAPH-3> {5881E36D}>) 15: ((METHOD INVOKE-WITH-NEW-OUTPUT-RECORD NIL (OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<APPLICATION-PANE DISPLAY {5A38C2D5}> #<Closure Over Function (FLET #:CONTINUATION44) {5881D989}> ...) 16: ((METHOD INVOKE-UPDATING-OUTPUT NIL (CLIM-INTERNALS::UPDATING-OUTPUT-STREAM-MIXIN T T T T ...)) (#(46) . #(#)) #<unused-arg> #<APPLICATION-PANE DISPLAY {5A38C2D5}> #<Closure Over Function (FLET #:UPDATING-OUTPUT-CONTINUATION6) {5881D961}> ...) 17: ((METHOD DISPLAY (:AROUND) (PRESENTABLE-GRAPH-MIXIN T)) (#(50 49) . #()) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Closure Over Function "LAMBDA (G9552 G9553 G9554)" {5A002AF9}> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2)) #<ANNOTATED-GRAPH ANNOTATED-GRAPH-3> #<APPLICATION-PANE DISPLAY {5A38C2D5}>) 18: ((METHOD EXECUTE-FRAME-COMMAND (:AROUND) (T T)) #<unused-arg> #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function (METHOD EXECUTE-FRAME-COMMAND NIL #) {58C7E8C1}> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2)) #<GRAPH-VIEWER {58618B55}> (COM-ZOOM-IN #<ANNOTATED-GRAPH ANNOTATED-GRAPH-3> #<APPLICATION-PANE DISPLAY {5A38C2D5}>)) 19: ((METHOD DEFAULT-FRAME-TOP-LEVEL NIL (APPLICATION-FRAME)) (#() . #(# # # # # ...)) #<unused-arg> #<GRAPH-VIEWER {58618B55}> NIL) __________________________________ Do you Yahoo!? Make Yahoo! your home page http://www.yahoo.com/r/hs

1 1

[mcclim-devel] problem with format-graph-from-roots, ACL 6.2
by rpgoldman＠sift.info 01 Apr '05

01 Apr '05

I took some code invoking format-graph-from-roots from before the mothering release and was trying to run it, and got a crash. I traced fairly far down the stack and found something anomalous that I was hoping someone could help me with. In the course of drawing one of my graph-nodes, I get to this point in the stack: [1c] GRAPH-MDP(108): :fr ((METHOD INVOKE-WITH-DRAWING-OPTIONS (SHEET T)) #<APPLICATION-PANE APP @ #x72139792> #<Closure (FLET DRAW-TAEMS-NODE #:G7069) @ #xbfff547a> :INK #.+FOREGROUND-INK+ :TEXT-STYLE #<STANDARD-TEXT-STYLE :FIX :ROMAN :NORMAL>) Now what's odd in that is that I seem to be using the method for the case where the first parameter is of unrestricted type (T). But there is ANOTHER (better?) definition for the case where the first argument is a SHEET. As far as I can tell, the second argument IS a sheet: [1c] GRAPH-MDP(111): (setf foo (second *)) #<APPLICATION-PANE APP @ #x72139792> [1c] GRAPH-MDP(112): (clim::sheetp foo) T [1c] GRAPH-MDP(113): (typep foo 'clim::sheet) T I think the upshot of this is that the extra arguments (the drawing options) are tossed away, instead of being passed on to the closure. At the end of the day, this means that we try to call invoke-with-sheet-medium-bound with the arguments: CLOSURE NIL CLIM-CLX::CLX-MEDIUM whereas that generic function seems to expect CLOSURE MEDIUM-OR-NIL SHEET Thanks, R

1 0