[Bese-devel] Bug in new cps ucw examples

[Bill Clementson]

This has probably already been reported; however, when testing the
examples with the new cps ucw (with new cps arnesi), I found that most
of the OK buttons result in an error. Below is an example of what I
get when I press the OK button on the first page of the presentations
example.

Cheers,
Bill

No applicable method for args:
 (#<STANDARD-SESSION 0 NIL #x683CCF6>
  ("BeljIKBccvwCitjKTLHG" "BeljIKBccvwCitjKTLHG"))
 to #<STANDARD-GENERIC-FUNCTION IT.BESE.UCW::FIND-FRAME #x6634F46>
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [SERVER-ERROR] Send the client an internal server error page.
  1: [ABORT-BREAK] Reset this process
  2: [ABORT] Kill this process

Backtrace:
  0: (#<STANDARD-METHOD SWANK-BACKEND:COMPUTE-BACKTRACE (T T)> 0 20)
  1: (SWANK:BACKTRACE 1 40)
  2: (CCL::CALL-CHECK-REGS 'SWANK:BACKTRACE)
  3: (#<Anonymous Function #x6575A1E> '(SWANK:BACKTRACE 1 40) 11 'NIL)
  4: (#<STANDARD-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)>
#<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x658811E>
#<COMPILED-LEXICAL-CLOSURE #x689D946>)
  5: (FUNCALL 'SWANK::EVAL-FOR-EMACS)
  6: (SWANK::SLDB-LOOP '(T 200 T NIL 10 T
#S(CCL::PPRINT-DISPATCH-TABLE :CONSES-WITH-CARS #<HASH-TABLE :TEST EQ
size 60/60 #x63971CE> :STRUCTURES NIL :OTHERS (# #)) NIL T 10 ...))
  7: (#<STANDARD-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT
(T)> #<Anonymous Function #x6587ABE>)
  8: (SWANK::CALL-WITH-BINDINGS '((*PRINT-PRETTY*) (*PRINT-LEVEL* . 4)
(*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*)
(*PRINT-PPRINT-DISPATCH* . #S(CCL::PPRINT-DISPATCH-TABLE
:CONSES-WITH-CARS #<HASH-TABLE :TEST EQ size 60/60 #x63971CE>
:STRUCTURES NIL :OTHERS #)) (*PRINT-GENSYM* . T) (*PRINT-BASE* . 10)
(*PRINT-RADIX*) (*PRINT-ARRAY* . T) ...) #<Anonymous Function
#x6587AFE>)
  9: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR #x683C616>)
 10: (#<Anonymous Function #x65613C6> #<COMPILED-LEXICAL-CLOSURE #x683C5DE>)
 11: (SWANK::CALL-WITH-REDIRECTED-IO #<COMPILED-LEXICAL-CLOSURE
#x683C5C6> #<SIMPLE-ERROR #x683C616>)
 12: (SWANK::CALL-WITH-CONNECTION #<CONNECTION  #x63D0D2E>
#<COMPILED-LEXICAL-CLOSURE #x683C5DE>)
 13: (#<Anonymous Function #x66051D6> #<SIMPLE-ERROR #x683C616>)
 14: (SIGNAL #<SIMPLE-ERROR #x683C616>)