[mcclim-devel] INSPECTOR::CLASS-SLOTS: no MOP error when evaluating sample Inspector form
Paolo Amoroso
amoroso at mclink.it
Sun Jan 30 13:51:46 UTC 2005
When I evaluate the sample Inspector form in Apps/Inspector/INSTALL:
(inspector::inspector (clim:make-application-frame 'inspector::inspector :obj 20))
An incomplete application frame appears, and I get the error with
backtrace included below. I use the latest McCLIM CVS sources with
CMUCL Snapshot 2005-01 under Slackware Linux 10.0.
Paolo
---------------------------------------------------------------------
Error in function INSPECTOR::CLASS-SLOTS: no MOP
[Condition of type SIMPLE-ERROR]
Restarts:
0: [ABORT] Return to application command loop
1: Return to Top-Level.
Debug (type H for help)
(INSPECTOR::CLASS-SLOTS #<unused-arg>)
Source:
; File: /home/paolo/src/mcclim/Apps/Inspector/inspector.lisp
(ERROR "no MOP")
0] backtrace
0: (INSPECTOR::CLASS-SLOTS #<unused-arg>)
1: ((LABELS #:.CONT.29
(FLET #:CONTINUATION32
#))
#<unused-arg>)
2: ((FLET #:CONTINUATION15
(FLET #:CONTINUATION3
CLIM-INTERNALS::INVOKE-FORMATTING-TABLE))
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>)
3: ((METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS NIL
(CLIM:OUTPUT-RECORDING-STREAM T T T))
#<unused-arg> #<unused-arg>
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>
#<Closure Over Function (FLET #:CONTINUATION15
#)
{589B8FB1}>
...)
4: ((FLET #:CONTINUATION3
CLIM-INTERNALS::INVOKE-FORMATTING-TABLE)
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>
#<CLIM:STANDARD-TABLE-OUTPUT-RECORD X 0.0d0:0.0d0 Y 0.0d0:0.0d0 {589B8E45}>)
5: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL
(CLIM:OUTPUT-RECORDING-STREAM T T T))
(#() . #(#)) #<unused-arg>
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>
#<Closure Over Function (FLET #:CONTINUATION3
CLIM-INTERNALS::INVOKE-FORMATTING-TABLE)
{589B8761}>
...)
6: ((FLET #:CONTINUATION32
(FLET #:CONTINUATION37
#))
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<unused-arg>)
7: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL
(CLIM:OUTPUT-RECORDING-STREAM T T T))
(#() . #(#)) #<unused-arg>
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>
#<Closure Over Function (FLET #:CONTINUATION32
#)
{589B7FD1}>
...)
8: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL
(CLIM:OUTPUT-RECORDING-STREAM T T T))
(#() . #(#)) #<unused-arg>
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>
#<Closure Over Function (FLET #:CONTINUATION37
#)
{58381DE1}>
...)
9: ((FLET #:CONTINUATION15
(FLET #:CONTINUATION3
CLIM-INTERNALS::INVOKE-FORMATTING-TABLE))
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>)
10: ((METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS NIL
(CLIM:OUTPUT-RECORDING-STREAM T T T))
#<unused-arg> #<unused-arg>
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>
#<Closure Over Function (FLET #:CONTINUATION15
#)
{58380F71}>
...)
11: ((FLET #:CONTINUATION3
CLIM-INTERNALS::INVOKE-FORMATTING-TABLE)
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>
#<CLIM:STANDARD-TABLE-OUTPUT-RECORD X 0.0d0:0.0d0 Y 0.0d0:0.0d0
{5838032D}>)
12: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL
(CLIM:OUTPUT-RECORDING-STREAM T T T))
(#() . #(#)) #<unused-arg>
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>
#<Closure Over Function (FLET #:CONTINUATION3
CLIM-INTERNALS::INVOKE-FORMATTING-TABLE)
{5837F961}>
...)
13: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL
(CLIM:OUTPUT-RECORDING-STREAM T T T))
(#() . #(#)) #<unused-arg>
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>
#<Closure Over Function (FLET #:CONTINUATION149
)
{58295A01}>
...)
14: ((METHOD INSPECTOR::INSPECT-OBJECT NIL (STANDARD-OBJECT T)) (#() . #(#))
#<unused-arg> #<INSPECTOR::INSPECTOR {589A0D6D}>
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>)
15: ((METHOD INSPECTOR::INSPECT-OBJECT (:AROUND) (T T)) #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Function # {58C640B9}>
:PV-CELL (# . #)
:NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
:FUNCTION #
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO #)
:ARG-INFO (2))
#<INSPECTOR::INSPECTOR {589A0D6D}>
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>)
16: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G6398 G6399 G6400)" #<unused-arg>
#<unused-arg> #<INSPECTOR::INSPECTOR {58A0AD4D}>
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> ...)
17: ((METHOD CLIM:REDISPLAY-FRAME-PANE (:AROUND) (CLIM:APPLICATION-FRAME T))
(#(21 21) . #())
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Closure Over Function "LAMBDA (.KEYARGS-START. .VALID-KEYS. G6398 G6399 G6400)"
{5827E9B9}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2 . T))
#<INSPECTOR::INSPECTOR {58A0AD4D}>
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> ...)
18: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#))
#<unused-arg>
#<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)"
{5806EC69}>
#<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>)
19: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#))
#<unused-arg>
#<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)"
{5806EC69}>
#<CLIM-INTERNALS::BORDER-PANE "(Unnamed Pane)" {58CAEC25}>)
20: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#))
#<unused-arg>
#<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)"
{5806EC69}>
#<CLIM:VRACK-PANE "(Unnamed Pane)" {58CAEB65}>)
21: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#))
#<unused-arg>
#<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)"
{5806EC69}>
#<CLIM-EXTENSIONS:VIEWPORT-PANE "(Unnamed Pane)" {58CAEC15}>)
22: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#))
#<unused-arg>
#<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)"
{5806EC69}>
#<CLIM:SCROLLER-PANE "(Unnamed Pane)" {58CAEBE5}>)
23: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#))
#<unused-arg>
#<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)"
{5806EC69}>
#<CLIM:VRACK-PANE "(Unnamed Pane)" {58CAEBA5}>)
24: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#))
#<unused-arg>
#<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)"
{5806EC69}>
#<CLIM:VRACK-PANE "(Unnamed Pane)" {58C7CB6D}>)
25: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#))
#<unused-arg>
#<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)"
{5806EC69}>
#<CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET
{581106D5}>)
26: ((METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME))
(#() . #(# # # # # ...)) #<unused-arg> #<INSPECTOR::INSPECTOR {58A0AD4D}>
NIL)
27: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G4920)" #<unused-arg> #<unused-arg>
#<INSPECTOR::INSPECTOR {58A0AD4D}> NIL)
28: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME))
(#(20) . #()) #<unused-arg> #<INSPECTOR::INSPECTOR {58A0AD4D}>
#<unused-arg>)
29: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME))
(#(16 15) . #(#))
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Function # {11682759}>
:PV-CELL (# . #)
:NEXT-METHOD-CALL NIL
:ARG-INFO (1 . T))
#<INSPECTOR::INSPECTOR {58A0AD4D}> NIL)
30: (INSPECTOR::INSPECTOR #<INSPECTOR::INSPECTOR {589A0D6D}>)
31: (INTERACTIVE-EVAL
(INSPECTOR::INSPECTOR
(CLIM:MAKE-APPLICATION-FRAME 'INSPECTOR::INSPECTOR :OBJ 20)))
32: (LISP::%TOP-LEVEL)
33: ((LABELS LISP::RESTART-LISP
SAVE-LISP))
0]
---------------------------------------------------------------------
--
Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log
More information about the mcclim-devel
mailing list