[Bese-devel] Now a problem of a different sort.

[William Halliburton]

Hello.

My last message may not be a problem - it could be caused by using an
old arnesi without the new cps. I am unable to get ucw_dev to run.

I noticed that after moving to ucw_dev that the examples did not work
- KALL not found.

I darcs the latest arnesi and it contained KALL. For good mesure I got
a new ucw_dev. Reloaded ucw (sbcl + araneida). Now any request causes
an error. I am doing a (load "start.lisp") and then attempting to load
the examples/index.ucw.

 Am I using the proper versions? What is the requirements for ucw_dev?

Thank you,
Will

Backtrace:

 The value (SETF IT.BESE.UCW:COMPONENT.PLACE) is not of type SYMBOL.
   [Condition of type TYPE-ERROR]

Restarts:
  0: [SHOW-BACKTRACE] Send the client a backtrace page.
  1: [RETRY] Clearout the response and retry calling the action.
  2: [SERVER-ERROR] Send the client an internal server error page.
  3: [ABORT-RESPONSE] Abort this response and answer another request
  4: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: ((SB-PCL::FAST-METHOD
SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)) #<unused argument>
#<unused argument> #<FUNCTION (LAMBDA NIL) {94852E5}>)
  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
{9647C39}>) (*PRINT-GENSYM* . T) (*PRINT-BASE* . 10) (*PRINT-RADIX*)
(*PRINT-ARRAY* . T) ...) #<FUNCTION (LAMBDA NIL) {94852A5}>)
  2: (SWANK::DEBUG-IN-EMACS #<TYPE-ERROR {9F05FC1}>)
  3: ((LAMBDA NIL))
  4: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {95FD239}>
#<CLOSURE (LAMBDA NIL) {9F096E5}>)
  5: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {95FD239}>
#<CLOSURE (LAMBDA NIL) {9F096D5}>)
  6: ((SB-PCL::FAST-METHOD IT.BESE.UCW::HANDLE-ACTION-ERROR (ERROR))
#<unavailable argument> #<unavailable argument> #<TYPE-ERROR
{9F05FC1}>)
  7: (SIGNAL #<TYPE-ERROR {9F05FC1}>)
  8: (ERROR TYPE-ERROR)
  9: (SB-KERNEL::OBJECT-NOT-SYMBOL-ERROR-HANDLER #<unavailable
argument> #.(SB-SYS:INT-SAP #XB7BBA4C0)
#<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB7BBA1B0 :TYPE (* (STRUCT
SB-VM::OS-CONTEXT-T-STRUCT))> (398))
 10: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #XB7BBA1B0)
#<unavailable argument>)
 11: ("foreign function: call_into_lisp")
 12: ("foreign function: funcall2")
 13: ("foreign function: interrupt_internal_error")
 14: ("foreign function: sigtrap_handler")
 15: (SYMBOL-FUNCTION (SETF IT.BESE.UCW:COMPONENT.PLACE))
 16: ((SB-PCL::FAST-METHOD IT.BESE.ARNESI::EVALUATE/CPS
(IT.BESE.ARNESI::FREE-FUNCTION-OBJECT-FORM T T)) #<unavailable
argument> #<unavailable argument>
#<IT.BESE.ARNESI::FREE-FUNCTION-OBJECT-FORM # {9F00761}> #<unavailable
argument> (IT.BESE.ARNESI::K-FOR-CPS-APPLY
(#<IT.BESE.ARNESI::FREE-FUNCTION-OBJECT-FORM # {9F00761}>
#<IT.BESE.ARNESI::LOCAL-VARIABLE-REFERENCE #1=#:G6097 {9F007F9}>
#<IT.BESE.ARNESI::FREE-APPLICATION-FORM # {9F02369}>) NIL ((:LET #1# .
#<IT.BESE.UCW::PLACE # {9F02221}>) (:LET #:G6098 .
#2=#<IT.BESE.UCW-USER::EXAMPLE-WINDOW {9EF8739}>) . #3=(# # #))
(IT.BESE.ARNESI::K-FOR-EVALUATE/CPS-PROGN (#<IT.BESE.ARNESI::LET*-FORM
# {9F009F1}> #<IT.BESE.ARNESI::LET*-FORM # {9F01131}>) #3#
(IT.BESE.ARNESI::K-FOR-EVALUATE/CPS-PROGN # #3# #))))
 17: (IT.BESE.ARNESI::DRIVE-CPS #<CLOSURE (LAMBDA NIL) {9EF824D}>)
 18: ((LABELS IT.BESE.UCW::CALL-ACTION) #<CLOSURE (LAMBDA NIL) {9326A35}>)
 19: ((SB-PCL::FAST-METHOD IT.BESE.UCW::SERVICE
(IT.BESE.UCW::STANDARD-SESSION-FRAME IT.BESE.UCW::REQUEST-CONTEXT))
#<unavailable argument> #<unavailable argument>
#<IT.BESE.UCW::STANDARD-SESSION-FRAME {9EF7059}>
#<IT.BESE.UCW::COOKIE-SESSION-REQUEST-CONTEXT {9EF6461}>)
 20: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.
SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable
argument> #<IT.BESE.UCW::STANDARD-SESSION-FRAME {9EF7059}>
#<IT.BESE.UCW::COOKIE-SESSION-REQUEST-CONTEXT {9EF6461}>)
 21: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.
SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable
argument> #<IT.BESE.UCW::STANDARD-SESSION 9
#<IT.BESE.UCW::STANDARD-SESSION-FRAME {9EF7D11}> {92AA189}>
#<IT.BESE.UCW::COOKIE-SESSION-REQUEST-CONTEXT {9EF6461}>)
 22: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.
SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable
argument> #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 1>
#<IT.BESE.UCW::COOKIE-SESSION-REQUEST-CONTEXT {9EF6461}>)
 23: ((SB-PCL::FAST-METHOD IT.BESE.UCW::HANDLE-REQUEST
(IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:REQUEST
IT.BESE.UCW:RESPONSE)) #<unavailable argument> #<unavailable argument>
#<IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:ARANEIDA-BACKEND 2
{A516781}> #<IT.BESE.UCW::ARANEIDA-REQUEST {9EF6269}>
#<IT.BESE.UCW::ARANEIDA-RESPONSE {9EF6289}>)
 24: ((SB-PCL::FAST-METHOD ARANEIDA:HANDLE-REQUEST-RESPONSE
(IT.BESE.UCW::UCW-HANDLER T T)) #<unavailable argument> #<unavailable
argument> #<IT.BESE.UCW::UCW-HANDLER {904C1A1}> #<unavailable
argument> #<ARANEIDA:REQUEST {9EF5BB1}>)
 25: ((SB-PCL::FAST-METHOD ARANEIDA:HANDLE-REQUEST (ARANEIDA:HANDLER
T)) #<unavailable argument> #<unavailable argument>
#<IT.BESE.UCW::UCW-HANDLER {904C1A1}> #<ARANEIDA:REQUEST {9EF5BB1}>)
 26: ((SB-PCL::FAST-METHOD ARANEIDA:HANDLE-REQUEST (ARANEIDA:HANDLER
T)) #<unavailable argument> #<unavailable argument>
#<ARANEIDA:DISPATCHING-HANDLER {A91D099}> #<ARANEIDA:REQUEST
{9EF5BB1}>)
 27: ((LABELS ARANEIDA::DO-IT) #<ARANEIDA:SERVE-EVENT-HTTP-LISTENER
{A8B0569}> #<SB-SYS:FD-STREAM for "a constant string" {9EF37C1}>)
 28: (ARANEIDA::SERVE-EVENT-HTTP-LISTENER-ACCEPT-ONE-REQUEST
#<ARANEIDA:SERVE-EVENT-HTTP-LISTENER {A8B0569}>)
 29: (SB-IMPL::SUB-SERVE-EVENT NIL 0)
 30: (SB-SYS:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL)
 31: (SB-IMPL::REFILL-BUFFER/FD #<SB-SYS:FD-STREAM for "standard
input" {9001509}>)
 32: (SB-IMPL::INPUT-CHAR/ASCII #<SB-SYS:FD-STREAM for "standard
input" {9001509}> NIL #:EOF-OBJECT)
 33: (READ-CHAR #<SB-SYS:FD-STREAM for "standard input" {9001509}> NIL
#:EOF-OBJECT #<unused argument>)
 34: (READ-CHAR #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {5012E31}> NIL
#:EOF-OBJECT #<unused argument>)
 35: (READ-CHAR #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {92B4819}> NIL #:EOF-OBJECT #<unused
argument>)
 36: (READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {92B4819}> NIL (NIL) T)
 37: (READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {92B4819}> NIL (NIL) NIL)
 38: (READ #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT*
{92B4819}> NIL (NIL) NIL)
 39: (SB-IMPL::REPL-READ-FORM-FUN #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {92B4819}> #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-OUTPUT* {92B3371}>)
 40: (SB-IMPL::REPL-FUN NIL)
 41: ((LAMBDA NIL))
 42: ((LAMBDA NIL))
 43: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA NIL) {903A56D}>)
 44: (SB-IMPL::TOPLEVEL-REPL NIL)
 45: (SB-IMPL::TOPLEVEL-INIT)
 46: ((FLET SB-IMPL::RESTART-LISP))