[Bese-devel] a problem with the summation example

Sat Oct 8 21:51:21 UTC 2005

I was lucky enough to get a different error when trying the summation example
from a different context. The error is:

invalid number of arguments: 3
   [Condition of type SB-INT:SIMPLE-PROGRAM-ERROR]

Restarts:
  0: [SHOW-BACKTRACE] Send the client a backtrace page.
  1: [RETRY] Retry rendering the component #<SUM {AD94449}>.
  2: [RETRY] Retry rendering the component #<SIMPLE-CONTAINER {AD1D851}>.
  3: [RETRY] Retry rendering the component #<EXAMPLE-WINDOW {9B0BC79}>.
  4: [RETRY] Retry calling RENDER-ON.
  5: [SERVER-ERROR] Send the client an internal server error page.
  6: [GENERATE-BACKTRACE-FOR-EMACS] Generate a bug report in Emacs.
  7: [TERMINATE-THREAD] Terminate this thread (#<THREAD "an httpd worker"
{AA0E491}>)

Backtrace:
  0: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T))
#<unused argument> #<unused argument> #<FUNCTION (LAMBDA NIL) {9D642B5}>)
  1: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY*) (*PRINT-LEVEL* . 4)
(*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*)
(*PRINT-PPRINT-DISPATCH* . #<SB-PRETTY:PPRINT-DISPATCH-TABLE {A0ECF79}>)
(*PRINT-GENSYM* . T) (*PRINT-BASE* . 10) (*PRINT-RADIX*) (*PRINT-ARRAY* . T)
...) #<FUNCTION (LAMBDA NIL) {9D64275}>)
  2: (SWANK::DEBUG-IN-EMACS #<SB-INT:SIMPLE-PROGRAM-ERROR {AC13EB9}>)
  3: ((LAMBDA NIL))
  4: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {AA3C459}> #<CLOSURE
(LAMBDA NIL) {AEBC44D}>)
  5: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {AA3C459}> #<CLOSURE
(LAMBDA NIL) {AEBC43D}>)
  6: ((SB-PCL::FAST-METHOD IT.BESE.UCW::HANDLE-ACTION-ERROR (ERROR T))
#<unavailable argument> #<unavailable argument> #<SB-INT:SIMPLE-PROGRAM-ERROR
{AC13EB9}> (#S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 4 :DESCRIPTION "(ERROR
SB-INT:SIMPLE-PROGRAM-ERROR)" :LOCALS (# #) :SOURCE-LOCATION (:ERROR "The
source-path (NIL) is not valid.")) #S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 5
:DESCRIPTION "(SB-KERNEL::INVALID-ARG-COUNT-ERROR-HANDLER
      #<unavailable argument>
      #.(SB-SYS:INT-SAP #XF6A2CBC8)
      #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XF6A2C898 :TYPE (*
                                                              (SB-ALIEN:STRUCT

SB-VM::OS-CONTEXT-T-STRUCT))>
      (77))" :LOCALS (# # # # #) :SOURCE-LOCATION (:LOCATION # # #))
#S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 6 :DESCRIPTION
"(SB-KERNEL:INTERNAL-ERROR
      #.(SB-SYS:INT-SAP #XF6A2C898)
      #<unavailable argument>)" :LOCALS (# # #) :SOURCE-LOCATION (:LOCATION # #
#)) #S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 7 :DESCRIPTION "(\"foreign function:
call_into_lisp\")" :LOCALS NIL :SOURCE-LOCATION (:ERROR "The value
#<SB-DI::BOGUS-DEBUG-FUN \"foreign function: call_into_lisp\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.")) #S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 8
:DESCRIPTION "(\"foreign function: funcall2\")" :LOCALS NIL :SOURCE-LOCATION
(:ERROR "The value #<SB-DI::BOGUS-DEBUG-FUN \"foreign function: funcall2\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.")) #S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 9
:DESCRIPTION "(\"foreign function: interrupt_internal_error\")" :LOCALS NIL
:SOURCE-LOCATION (:ERROR "The value
  #<SB-DI::BOGUS-DEBUG-FUN \"foreign function: interrupt_internal_error\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.")) #S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 10
:DESCRIPTION "(\"foreign function: sigtrap_handler\")" :LOCALS NIL
:SOURCE-LOCATION (:ERROR "The value #<SB-DI::BOGUS-DEBUG-FUN \"foreign
function: sigtrap_handler\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.")) #S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 11
:DESCRIPTION "((LAMBDA (SB-PCL::.ARG0. SB-PCL::.ARG1. \"#<...>\" . \"#<...>\"))
      #<IT.BESE.ARNESI::CLOSURE/CC {AC0DC1D}>
      NIL
      (IT.BESE.ARNESI::TOPLEVEL-K))" :LOCALS (# # # # #) :SOURCE-LOCATION
(:ERROR "
unhandled DEBUG-CONDITION:

#<SB-DI::COMPILED-DEBUG-FUN (SB-C::XEP
                             (LAMBDA
                                 (SB-PCL::.ARG0. SB-PCL::.ARG1.
                                  \"#<...>\" . \"#<...>\")))> has no
debug-block information.")) #S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 12
:DESCRIPTION "((LAMBDA (&REST IT.BESE.ARNESI::ARGS)))" :LOCALS (#)
:SOURCE-LOCATION (:ERROR "Cannot find source location for:
#<COMPILED-CODE-LOCATION (SB-C::VARARGS-ENTRY
                                                           (LAMBDA
                                                               (&REST

IT.BESE.ARNESI::ARGS)))> ")) #S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 13
:DESCRIPTION "((SB-PCL::FAST-METHOD BACKTRACK (IT.BESE.UCW::SESSION-FRAME T))
      #<unavailable argument>
      #<unavailable argument>
      #<IT.BESE.UCW::STANDARD-SESSION-FRAME {AAB4DC1}>
      #<IT.BESE.UCW::PLACE HOW-MANY {AC0E3E1}>
      NIL)" :LOCALS (# # # # #) :SOURCE-LOCATION (:LOCATION # # #)) ...))
  7: (SIGNAL #<SB-INT:SIMPLE-PROGRAM-ERROR {AC13EB9}>)
  8: (ERROR SB-INT:SIMPLE-PROGRAM-ERROR)
  9: (SB-KERNEL::INVALID-ARG-COUNT-ERROR-HANDLER #<unavailable argument>
#.(SB-SYS:INT-SAP #XF6A2CBC8) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XF6A2C898
:TYPE (* (SB-ALIEN:STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (77))
 10: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #XF6A2C898) #<unavailable
argument>)
 11: ("foreign function: call_into_lisp")
 12: ("foreign function: funcall2")
 13: ("foreign function: interrupt_internal_error")
 14: ("foreign function: sigtrap_handler")
 15: ((LAMBDA (SB-PCL::.ARG0. SB-PCL::.ARG1. #1="#<...>" . #1#))
#<IT.BESE.ARNESI::CLOSURE/CC {AC0DC1D}> NIL (IT.BESE.ARNESI::TOPLEVEL-K))
 16: ((LAMBDA (&REST IT.BESE.ARNESI::ARGS)))
 17: ((SB-PCL::FAST-METHOD BACKTRACK (IT.BESE.UCW::SESSION-FRAME T))
#<unavailable argument> #<unavailable argument>
#<IT.BESE.UCW::STANDARD-SESSION-FRAME {AAB4DC1}> #<IT.BESE.UCW::PLACE HOW-MANY
{AC0E3E1}> NIL)
 18: ((LAMBDA (IT.BESE.ARNESI::ARGUMENTS))
(#<IT.BESE.UCW::STANDARD-SESSION-FRAME {AAB4DC1}> #<IT.BESE.UCW::PLACE HOW-MANY
{AC0E3E1}>))
 19: (IT.BESE.ARNESI::DRIVE-INTERPRETER/CC #<CLOSURE (LAMBDA NIL) {AB117E5}>)
 20: ((SB-PCL::FAST-METHOD RENDER-ON (RESPONSE TASK-COMPONENT)) #<unavailable
argument> #<unavailable argument> #<unavailable argument> #<unavailable
argument>)
 21: ((SB-PCL::FAST-METHOD RENDER-ON :WRAPPING (RESPONSE STANDARD-COMPONENT))
NIL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD
RENDER-ON #)> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2))
#<IT.BESE.UCW::HTTPD-RESPONSE {AAA8ED1}> #<SUM {AD94449}>)
 22: ((SB-PCL::FAST-METHOD RENDER-ON :WRAPPING (RESPONSE STANDARD-COMPONENT))
NIL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD
RENDER-ON #)> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2))
#<IT.BESE.UCW::HTTPD-RESPONSE {AAA8ED1}> #<SIMPLE-CONTAINER {AD1D851}>)
 23: ((SB-PCL::FAST-METHOD RENDER-ON :WRAPPING (RESPONSE
SIMPLE-WINDOW-COMPONENT)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD RENDER-ON #)> :PV-CELL NIL
:NEXT-METHOD-CALL NIL :ARG-INFO (2)) #<IT.BESE.UCW::HTTPD-RESPONSE {AAA8ED1}>
#<EXAMPLE-WINDOW {9B0BC79}>)
 24: ((SB-PCL::FAST-METHOD RENDER-ON :WRAPPING (RESPONSE STANDARD-COMPONENT))
NIL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD
RENDER-ON :WRAPPING ...)> :PV-CELL NIL :NEXT-METHOD-CALL
#S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL
:NEXT-METHOD-CALL NIL :ARG-INFO (2)) :ARG-INFO (2))
#<IT.BESE.UCW::HTTPD-RESPONSE {AAA8ED1}> #<EXAMPLE-WINDOW {9B0BC79}>)
 25: ((LABELS IT.BESE.UCW::RENDER))

Alex

__________________________________ 
Yahoo! Mail - PC Magazine Editors' Choice 2005 
http://mail.yahoo.com