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] ---------------------------------------------------------------------