[mcclim-devel] A question re. (setf bounding-rectangle-m...) methods

[Aleksandar Bakic]

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