[mcclim-devel] No presentation type error for STANDARD-GENERIC-FUNCTION when running inspector example

Paolo Amoroso amoroso at mclink.it
Mon Feb 14 14:41:39 UTC 2005


When I run this sample inspector form:

  (clouseau:inspector #'documentation)

from the Clouseau documentation in Apps/Inspector/INSTALL, I get the
error and backtrace included below.  I use the latest McCLIM CVS
sources (rebuilt from source after deleting old fasl files) with CMUCL
Snapshot 2005-02 under Slackware Linux 10.0.


Paolo

-------------------------------------------------------------------------
Error in function CLIM-INTERNALS::PROTOTYPE-OR-ERROR:
   STANDARD-GENERIC-FUNCTION is an unknown presentation type
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [ABORT] Return to application command loop
  1:         Return to Top-Level.

Debug  (type H for help)

(CLIM-INTERNALS::PROTOTYPE-OR-ERROR STANDARD-GENERIC-FUNCTION)
Source:
; File: /home/paolo/src/mcclim/presentations.lisp
(ERROR "~S is an unknown presentation type" NAME)
0] backtrace

0: (CLIM-INTERNALS::PROTOTYPE-OR-ERROR STANDARD-GENERIC-FUNCTION)
1: (CLIM-INTERNALS::PRESENTATION-CONTAINS-POSITION
    #<CLIM:STANDARD-PRESENTATION 0.0:400,0.0:365.0 STANDARD-GENERIC-FUNCTION
      {58242285}>
    367
    296)
2: (CLIM-INTERNALS::MAP-OVER-PRESENTATIONS-CONTAINING-POSITION
    #<Closure Over Function "DEFUN MAP-APPLICABLE-TRANSLATORS" {58727589}>
    #<CLIM:STANDARD-PRESENTATION 0.0:400,0.0:365.0 STANDARD-GENERIC-FUNCTION
      {58242285}>
    367
    296)
3: ((METHOD CLIM:MAP-OVER-OUTPUT-RECORDS-CONTAINING-POSITION NIL
     (T CLIM:STANDARD-SEQUENCE-OUTPUT-RECORD T T))
    (#(6) . #()) #<unused-arg>
    #<Closure Over Function "DEFUN MAP-OVER-PRESENTATIONS-CONTAINING-POSITION"
      {587275C1}>
    #<CLIM:STANDARD-TREE-OUTPUT-HISTORY X 0.0:400 Y 0.0:365.0 {5816BCED}> ...)
4: (CLIM-INTERNALS::MAP-OVER-PRESENTATIONS-CONTAINING-POSITION
    #<Closure Over Function "DEFUN MAP-APPLICABLE-TRANSLATORS" {58727589}>
    #<CLIM:STANDARD-TREE-OUTPUT-HISTORY X 0.0:400 Y 0.0:365.0 {5816BCED}>
    367
    296)
5: (CLIM-INTERNALS::MAP-APPLICABLE-TRANSLATORS
    #<Closure Over Function "DEFUN FIND-INNERMOST-PRESENTATION-MATCH"
      {58727559}>
    #<CLIM:STANDARD-TREE-OUTPUT-HISTORY X 0.0:400 Y 0.0:365.0 {5816BCED}>
    ((# . #) (# . #) (CLIM:MENU-ITEM . #))
    #<CLOUSEAU:INSPECTOR {58EEFEF5}>
    ...)
6: (CLIM-INTERNALS::FIND-INNERMOST-PRESENTATION-MATCH
    ((# . #) (# . #) (CLIM:MENU-ITEM . #))
    #<CLIM:STANDARD-TREE-OUTPUT-HISTORY X 0.0:400 Y 0.0:365.0 {5816BCED}>
    #<CLOUSEAU:INSPECTOR {58EEFEF5}>
    #<CLIM:APPLICATION-PANE CLOUSEAU::APP {581199FD}>
    ...)
7: (CLIM:FIND-INNERMOST-APPLICABLE-PRESENTATION
    ((# . #) (# . #) (CLIM:MENU-ITEM . #))
    #<CLIM:APPLICATION-PANE CLOUSEAU::APP {581199FD}>
    367
    296
    ...)
8: (CLIM-INTERNALS::FRAME-HIGHLIGHT-AT-POSITION
    #<CLOUSEAU:INSPECTOR {58EEFEF5}>
    #<CLIM:APPLICATION-PANE CLOUSEAU::APP {581199FD}>
    367
    296
    ...)
9: ((METHOD CLIM-INTERNALS::FRAME-INPUT-CONTEXT-TRACK-POINTER (:BEFORE)
     (CLIM:STANDARD-APPLICATION-FRAME T CLIM:OUTPUT-RECORDING-STREAM T))
    #<unused-arg> #<unused-arg> #<CLOUSEAU:INSPECTOR {58EEFEF5}>
    ((# . #) (# . #) (CLIM:MENU-ITEM . #)) ...)
10: ("LAMBDA (G4238 G4239 G4240)" #<unused-arg> #<unused-arg>
     #<CLOUSEAU:INSPECTOR {58EEFEF5}> ((# . #) (# . #) (CLIM:MENU-ITEM . #))
     ...)
11: (CLIM:HIGHLIGHT-APPLICABLE-PRESENTATION #<CLOUSEAU:INSPECTOR {58EEFEF5}>
                                            #<CLIM:INTERACTOR-PANE
                                              CLOUSEAU::INT {5800378D}>
                                            ((# . #) (# . #)
                                             (CLIM:MENU-ITEM . #))
                                            T)
12: ((METHOD CLIM:STREAM-READ-GESTURE NIL
      (CLIM:STANDARD-EXTENDED-INPUT-STREAM))
     (#(60) . #(#)) #<unused-arg>
     #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}>
     (:TIMEOUT NIL :INPUT-WAIT-TEST
      #<Function CLIM-INTERNALS::INPUT-CONTEXT-WAIT-TEST {1155E391}>
      :INPUT-WAIT-HANDLER ...))
13: ((METHOD CLIM:STREAM-READ-GESTURE NIL (CLIM:STANDARD-INPUT-EDITING-STREAM))
     (#(3 4 7 5 0 ...) . #()) #<unused-arg>
     #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}>
     (:TIMEOUT NIL :PEEK-P NIL :INPUT-WAIT-TEST ...))
14: ((METHOD CLIM:STREAM-READ-GESTURE (:AROUND)
      (CLIM-INTERNALS::EMPTY-INPUT-MIXIN))
     #<unused-arg>
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function # {1142FC09}>
          :PV-CELL (# . #)
          :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                 :FUNCTION #
                                 :PV-CELL #
                                 :NEXT-METHOD-CALL NIL
                                 :ARG-INFO #)
          :ARG-INFO (1 . T))
     #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}>
     (:TIMEOUT NIL :PEEK-P NIL :INPUT-WAIT-TEST ...))
15: (CLIM-INTERNALS::READ-COMPLETION-GESTURE
     #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}>
     (#\ )
     T)
16: (CLIM:COMPLETE-INPUT #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}>
                         #<Closure Over Function "DEFINE-PRESENTATION-METHOD ACCEPT"
                           {58606E29}>
                         :PARTIAL-COMPLETERS (#\ )
                         ...)
17: ((METHOD CLIM-INTERNALS::%ACCEPT NIL
      (CLIM-INTERNALS::|(presentation-type CLIM::COMMAND-NAME)| T T
       CLIM:TEXTUAL-VIEW))
     #<unused-arg> #<unused-arg>
     #<CLIM-INTERNALS::|(presentation-type CLIM::COMMAND-NAME)| {28430CF5}>
     (CLIM:COMMAND-NAME
      :COMMAND-TABLE #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR
                       {58C75FAD}>)
     ...)
18: ("DEFUN ACCEPT-1" #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}>)
19: (CLIM:ACCEPT
     (CLIM:COMMAND-NAME
      :COMMAND-TABLE #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR
                       {58C75FAD}>)
     :STREAM #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}>
     :PROMPT ...)
20: (CLIM:COMMAND-LINE-COMMAND-PARSER
     #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR {58C75FAD}>
     #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}>)
21: ((METHOD CLIM-INTERNALS::%ACCEPT NIL
      (CLIM-INTERNALS::|(presentation-type CLIM::COMMAND)| T T
       CLIM:TEXTUAL-VIEW))
     #<unused-arg> #<unused-arg>
     #<CLIM-INTERNALS::|(presentation-type CLIM::COMMAND)| {28430995}>
     (CLIM:COMMAND :COMMAND-TABLE
      #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR {58C75FAD}>)
     ...)
22: ("DEFUN ACCEPT-1" #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}>)
23: ((METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING NIL
      (CLIM:EXTENDED-INPUT-STREAM T T T T))
     #<unused-arg> #<unused-arg>
     #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}>
     #<Closure Over Function "DEFUN ACCEPT-1" {586047F9}> ...)
24: ((METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING (:AROUND)
      (CLIM:EXTENDED-OUTPUT-STREAM T T T T))
     (#(49) . #())
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function # {11539EC1}>
          :PV-CELL NIL
          :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                 :FUNCTION #
                                 :PV-CELL NIL
                                 :NEXT-METHOD-CALL NIL
                                 :ARG-INFO #)
          :ARG-INFO (5))
     #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}>
     #<Closure Over Function "DEFUN ACCEPT-1" {586047F9}> ...)
25: (CLIM:ACCEPT
     (CLIM:COMMAND :COMMAND-TABLE
      #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR {58C75FAD}>)
     :STREAM #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}>
     :PROMPT ...)
26: (CLIM:READ-COMMAND
     #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR {58C75FAD}>
     :STREAM #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}>
     :COMMAND-PARSER ...)
27: (CLIM:READ-COMMAND-USING-KEYSTROKES
     #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR {58C75FAD}>
     NIL
     :STREAM #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}>
     ...)
28: (CLIM:READ-COMMAND
     #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR {58C75FAD}>
     :STREAM #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}>
     :COMMAND-PARSER ...)
29: ((METHOD CLIM:READ-FRAME-COMMAND (:AROUND) (CLIM:APPLICATION-FRAME))
     (#(5) . #())
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function # {11566721}>
          :PV-CELL (# . #)
          :NEXT-METHOD-CALL NIL
          :ARG-INFO (1 . T))
     #<CLOUSEAU:INSPECTOR {58EEFEF5}>
     (:STREAM #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}>))
30: ((METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME))
     (#() . #(# # # # # ...)) #<unused-arg> #<CLOUSEAU:INSPECTOR {58EEFEF5}>
     NIL)
31: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G4230)" #<unused-arg> #<unused-arg>
     #<CLOUSEAU:INSPECTOR {58EEFEF5}> NIL)
32: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME))
     (#(20) . #()) #<unused-arg> #<CLOUSEAU:INSPECTOR {58EEFEF5}> #<unused-arg>)
33: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME))
     (#(16 15) . #(#))
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function # {116898C1}>
          :PV-CELL (# . #)
          :NEXT-METHOD-CALL NIL
          :ARG-INFO (1 . T))
     #<CLOUSEAU:INSPECTOR {58EEFEF5}> NIL)
34: ((FLET CLOUSEAU::RUN
       CLOUSEAU:INSPECTOR))
35: (INTERACTIVE-EVAL (CLOUSEAU:INSPECTOR #'DOCUMENTATION))
36: (LISP::%TOP-LEVEL)
37: ((LABELS LISP::RESTART-LISP
       SAVE-LISP))

0]
-------------------------------------------------------------------------

-- 
Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log



More information about the mcclim-devel mailing list