[Bese-devel] admin page currently broken

William Halliburton whalliburton at gmail.com
Mon Aug 8 16:21:14 UTC 2005


Attempting to long into admin page with admin/admin. I believe the
error is in the rendering of the admin page.

Tried to trace down the problem, but brain still has not jelled on this code. 

Look like the problem is in that last case of

(defmethod evaluate/cps ((func free-application-form) env k)

The free-application-form is a mapcar over a list with the first
element a cps-closure. Dying on the mapcar because cps-closure is not
a function.

Below is backtrace plus new emacs backtrace (do not know if this is
working as It did not generate much informaton).

Will


Backtrace:
  0: ((SB-PCL::FAST-METHOD
SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)) #<unused argument>
#<unused argument> #<FUNCTION (LAMBDA NIL) {9418345}>)
  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
{9561021}>) (*PRINT-GENSYM* . T) (*PRINT-BASE* . 10) (*PRINT-RADIX*)
(*PRINT-ARRAY* . T) ...) #<FUNCTION (LAMBDA NIL) {9418305}>)
  2: (SWANK::DEBUG-IN-EMACS #<TYPE-ERROR {9F2C021}>)
  3: ((LAMBDA NIL))
  4: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {95FD239}>
#<CLOSURE (LAMBDA NIL) {A16BC35}>)
  5: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {95FD239}>
#<CLOSURE (LAMBDA NIL) {A16BC25}>)
  6: ((SB-PCL::FAST-METHOD IT.BESE.UCW::HANDLE-ACTION-ERROR (ERROR T))
#<unavailable argument> #<unavailable argument> #<TYPE-ERROR
{9F2C021}> (#S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 4 :DESCRIPTION
"(ERROR TYPE-ERROR)" :LOCALS (# #) :SOURCE-LOCATION (:ERROR "The
source-path (NIL) is not valid.")) #S(IT.BESE.UCW::BACKTRACE-FRAME
:INDEX 5 :DESCRIPTION "(SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
      #<unavailable argument>
      #.(SB-SYS:INT-SAP #XB7C3C31C)
      #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB7C3C010 :TYPE (*
                                                              (STRUCT
                                                              
SB-VM::OS-CONTEXT-T-STRUCT))>
      (14 78))" :LOCALS (# # # # #) :SOURCE-LOCATION (:LOCATION # #
#)) #S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 6 :DESCRIPTION
"(SB-KERNEL:INTERNAL-ERROR
      #.(SB-SYS:INT-SAP #XB7C3C010)
      #<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 "(MAPCAR
      #<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
      (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
       #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>))"
:LOCALS (# # #) :SOURCE-LOCATION (:LOCATION # # #))
#S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 12 :DESCRIPTION "((LAMBDA
(IT.BESE.ARNESI::ARGUMENTS))
      (#<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
       (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
        #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)))"
:LOCALS (# # # # #) :SOURCE-LOCATION (:LOCATION # # #))
#S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 13 :DESCRIPTION
"(IT.BESE.ARNESI::EVALUATE-ARGUMENTS-THEN-APPLY
      #<CLOSURE (LAMBDA #) {9F2785D}>
      NIL
      ((#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
        #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
       #<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>)
      ((:LET IT.BESE.UCW::SERVER-REPL . #<IT.BESE.UCW::ADMIN-REPL {9F222A1}>)
       (:LET IT.BESE.UCW::CONTROL-PANEL
             . #<IT.BESE.UCW::ADMIN-CONTROL-PANEL {9F20491}>)
       (:BLOCK IT.BESE.UCW:LOGIN-SUCCESSFUL IT.BESE.ARNESI::TOPLEVEL-K)
       (:LET IT.BESE.UCW:SELF . #<IT.BESE.UCW::ADMIN-LOGIN {91C6791}>)
       (:LET IT.BESE.UCW::L . #<IT.BESE.UCW::ADMIN-LOGIN
{91C6791}>)))" :LOCALS (# # # # # # # #) :SOURCE-LOCATION (:LOCATION #
# #)) ...))
  7: (SIGNAL #<TYPE-ERROR {9F2C021}>)
  8: (ERROR TYPE-ERROR)
  9: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER #<unavailable argument>
#.(SB-SYS:INT-SAP #XB7C3C31C) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP
#XB7C3C010 :TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (14 78))
 10: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #XB7C3C010)
#<unavailable argument>)
 11: ("foreign function: call_into_lisp")
 12: ("foreign function: funcall2")
 13: ("foreign function: interrupt_internal_error")
 14: ("foreign function: sigtrap_handler")
 15: (MAPCAR #<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
(#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>))
 16: ((LAMBDA (IT.BESE.ARNESI::ARGUMENTS))
(#<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
(#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)))
      Locals:
        IT.BESE.ARNESI::ARGUMENTS = (#<IT.BESE.ARNESI::CPS-CLOSURE
{9F27B21}> (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>))
        IT.BESE.ARNESI::FUNC = :<NOT-AVAILABLE>
        #:G763 = :<NOT-AVAILABLE>
        #:G778 = :<NOT-AVAILABLE>
        IT.BESE.ARNESI::K = :<NOT-AVAILABLE>
      Catch-tags:
        #:SB-DEBUG-CATCH-TAG
 17: (IT.BESE.ARNESI::EVALUATE-ARGUMENTS-THEN-APPLY #<CLOSURE (LAMBDA
(IT.BESE.ARNESI::ARGUMENTS)) {9F2785D}> NIL
((#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
#<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>) ((:LET
IT.BESE.UCW::SERVER-REPL . #<IT.BESE.UCW::ADMIN-REPL {9F222A1}>) (:LET
IT.BESE.UCW::CONTROL-PANEL . #<IT.BESE.UCW::ADMIN-CONTROL-PANEL
{9F20491}>) (:BLOCK IT.BESE.UCW:LOGIN-SUCCESSFUL
IT.BESE.ARNESI::TOPLEVEL-K) (:LET IT.BESE.UCW:SELF .
#1=#<IT.BESE.UCW::ADMIN-LOGIN {91C6791}>) (:LET IT.BESE.UCW::L .
#1#)))
      Locals:
        IT.BESE.ARNESI::ENV = ((:LET IT.BESE.UCW::SERVER-REPL .
#<IT.BESE.UCW::ADMIN-REPL {9F222A1}>) (:LET IT.BESE.UCW::CONTROL-PANEL
. #<IT.BESE.UCW::ADMIN-CONTROL-PANEL {9F20491}>) (:BLOCK
IT.BESE.UCW:LOGIN-SUCCESSFUL IT.BESE.ARNESI::TOPLEVEL-K) (:LET
IT.BESE.UCW:SELF . #1=#<IT.BESE.UCW::ADMIN-LOGIN {91C6791}>) (:LET
IT.BESE.UCW::L . #1#))
        IT.BESE.ARNESI::EVALUATED-ARGUMENTS =
((#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
#<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>)
        #:G1288 = :<NOT-AVAILABLE>
        #:G1292 = :<NOT-AVAILABLE>
        #:G1296 = :<NOT-AVAILABLE>
        #:G1304 = :<NOT-AVAILABLE>
        IT.BESE.ARNESI::HANDLER = #<CLOSURE (LAMBDA
(IT.BESE.ARNESI::ARGUMENTS)) {9F2785D}>
        IT.BESE.ARNESI::REMAINING-ARGUMENTS = NIL
      Catch-tags:
        #:SB-DEBUG-CATCH-TAG
 18: ((LAMBDA NIL))
 19: (IT.BESE.ARNESI::DRIVE-CPS #<CLOSURE (LAMBDA NIL) {9DC59D5}>)
 20: ((LABELS IT.BESE.UCW::CALL-ACTION) #<CLOSURE (LAMBDA NIL) {9C26ADD}>)
 21: ((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 {A3786D9}>
#<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {9CD25E9}>)
 22: ((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 {A3786D9}>
#<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {9CD25E9}>)
 23: ((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 3
#<IT.BESE.UCW::STANDARD-SESSION-FRAME {9DC4E49}> {A257291}>
#<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {9CD25E9}>)
 24: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.
SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable
argument> #<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {9CD25E9}>)
 25: ((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
{A5217D1}> #<IT.BESE.UCW::ARANEIDA-REQUEST {9CCD831}>
#<IT.BESE.UCW::ARANEIDA-RESPONSE {9CCD851}>)
 26: ((SB-PCL::FAST-METHOD ARANEIDA:HANDLE-REQUEST-RESPONSE
(IT.BESE.UCW::UCW-HANDLER T T)) #<unavailable argument> #<unavailable
argument> #<IT.BESE.UCW::UCW-HANDLER {9F7F7B1}> #<unavailable
argument> #<ARANEIDA:REQUEST {9CCC129}>)
 27: ((SB-PCL::FAST-METHOD ARANEIDA:HANDLE-REQUEST (ARANEIDA:HANDLER
T)) #<unavailable argument> #<unavailable argument>
#<IT.BESE.UCW::UCW-HANDLER {9F7F7B1}> #<ARANEIDA:REQUEST {9CCC129}>)
 28: ((SB-PCL::FAST-METHOD ARANEIDA:HANDLE-REQUEST (ARANEIDA:HANDLER
T)) #<unavailable argument> #<unavailable argument>
#<ARANEIDA:DISPATCHING-HANDLER {A91B1B9}> #<ARANEIDA:REQUEST
{9CCC129}>)
 29: ((LABELS ARANEIDA::DO-IT) #<ARANEIDA:SERVE-EVENT-HTTP-LISTENER
{A8A7139}> #<SB-SYS:FD-STREAM for "a constant string" {9CC8EE9}>)
 30: (ARANEIDA::SERVE-EVENT-HTTP-LISTENER-ACCEPT-ONE-REQUEST
#<ARANEIDA:SERVE-EVENT-HTTP-LISTENER {A8A7139}>)
 31: (SB-IMPL::SUB-SERVE-EVENT NIL 0)
 32: (SB-SYS:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL)
 33: (SB-IMPL::REFILL-BUFFER/FD #<SB-SYS:FD-STREAM for "standard
input" {90014F9}>)
 34: (SB-IMPL::INPUT-CHAR/ASCII #<SB-SYS:FD-STREAM for "standard
input" {90014F9}> NIL #:EOF-OBJECT)
 35: (READ-CHAR #<SB-SYS:FD-STREAM for "standard input" {90014F9}> NIL
#:EOF-OBJECT #<unused argument>)
 36: (READ-CHAR #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {5012E31}> NIL
#:EOF-OBJECT #<unused argument>)
 37: (READ-CHAR #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {92B4819}> NIL #:EOF-OBJECT #<unused
argument>)
 38: (READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {92B4819}> NIL (NIL) T)
 39: (READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {92B4819}> NIL (NIL) NIL)
 40: (READ #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT*
{92B4819}> NIL (NIL) NIL)
 41: (SB-IMPL::REPL-READ-FORM-FUN #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {92B4819}> #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-OUTPUT* {92B3371}>)
 42: (SB-IMPL::REPL-FUN NIL)
 43: ((LAMBDA NIL))
 44: ((LAMBDA NIL))
 45: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA NIL) {903A56D}>)
 46: (SB-IMPL::TOPLEVEL-REPL NIL)
 47: (SB-IMPL::TOPLEVEL-INIT)
 48: ((FLET SB-IMPL::RESTART-LISP))


Emacs backtrace:

destructure-case failed: (:EVALUATE-IN-EMACS "
 (save-excursion
   (loop
     with buffer-name = \"*UCW Backtrace <%d>*\"
     for id upfrom 0
     for backtrace-buffer = (get-buffer (format buffer-name id))
     while backtrace-buffer
     finally do (switch-to-buffer-other-window (format buffer-name id)))
   (insert \"--- UCW Backtrace
---    Condition: #<TYPE-ERROR {9F2C021}>
#<TYPE-ERROR {9F2C021}> is a TYPE-ERROR. Its slot values are (:DATUM
#1=#<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}> :EXPECTED-TYPE #2=(OR
FUNCTION SYMBOL) SB-KERNEL::EXPECTED-TYPE #2# SB-KERNEL::DATUM #1#).
---    Date: 2005-08-08T12:18:29
---    Lisp: \\\"SBCL\\\" \\\"0.9.2\\\"
---    Server: #<IT.BESE.UCW:STANDARD-SERVER
IT.BESE.UCW:ARANEIDA-BACKEND 2 {A5217D1}>
#<IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:ARANEIDA-BACKEND 2
{A5217D1}> is an instance of class #<STANDARD-CLASS
IT.BESE.UCW:STANDARD-SERVER>.
The following slots have :INSTANCE allocation:
 APPLICATIONS         (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/
1> #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
 APPLICATIONS-LOCK    :NULL-LOCK
 STARTED              T
 BACKEND              #<IT.BESE.UCW:ARANEIDA-BACKEND {A829C89}>
---    Backend: #<IT.BESE.UCW:ARANEIDA-BACKEND {A829C89}>
#<IT.BESE.UCW:ARANEIDA-BACKEND {A829C89}> is an instance of class
#<STANDARD-CLASS IT.BESE.UCW:ARANEIDA-BACKEND>.
The following slots have :INSTANCE allocation:
 LISTENER          #<ARANEIDA:SERVE-EVENT-HTTP-LISTENER {A8A7139}>
 DEFAULT-URL       #<ARANEIDA:HTTP-URL \\\"http://127.0.0.1:8080/\\\" {A8838D9}>
 LISTENER-CLASS    ARANEIDA:SERVE-EVENT-HTTP-LISTENER
---    Application: #<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1> is an instance of
class #<STANDARD-CLASS IT.BESE.UCW:STANDARD-APPLICATION>.
The following slots have :INSTANCE allocation:
 URL-PREFIX       \\\"/ucw/admin/\\\"
 SESSION-TYPE     IT.BESE.UCW::STANDARD-SESSION
 TAL-GENERATOR    #<IT.BESE.YACLML:FILE-SYSTEM-GENERATOR {A3F2DC1}>
 WWW-ROOTS       
(#P\\\"/home/conrad/website/ucw/ucw_dev/bin/../wwwroot/./ucw/examples/\\\")
 ENTRY-POINTS     #<HASH-TABLE :TEST EQUAL :COUNT 1 {9D4CBA1}>
 SESSION-TABLE    #<HASH-TABLE :TEST EQUAL :COUNT 1 {9D4CD79}>
 SERVER           #<IT.BESE.UCW:STANDARD-SERVER
IT.BESE.UCW:ARANEIDA-BACKEND 2 {A5217D1}>
---    Request: #<IT.BESE.UCW::ARANEIDA-REQUEST {9CCD831}>
#<IT.BESE.UCW::ARANEIDA-REQUEST {9CCD831}> is an instance of class
#<STANDARD-CLASS IT.BESE.UCW::ARANEIDA-REQUEST>.
The following slots have :INSTANCE allocation:
 REQUEST    #<ARANEIDA:REQUEST {9CCC129}>
---    Response: #<IT.BESE.UCW::ARANEIDA-RESPONSE {9CCD851}>
#<IT.BESE.UCW::ARANEIDA-RESPONSE {9CCD851}> is an instance of class
#<STANDARD-CLASS IT.BESE.UCW::ARANEIDA-RESPONSE>.
The following slots have :INSTANCE allocation:
 REQUEST           #<ARANEIDA:REQUEST {9CCC129}>
 HEADERS           ((\\\"Content-Type\\\" . \\\"text/html\\\")
(\\\"Status\\\" . \\\"200\\\"))
 CONTENT-STREAM    #<SB-IMPL::STRING-OUTPUT-STREAM {9CCD8B1}>
--- BACKTRACE
--- FRAME 4
(ERROR TYPE-ERROR)
---   Locals:
SB-DEBUG::ARG-0 ==> 5
SB-DEBUG::ARG-1 ==> TYPE-ERROR
---   Source:
(:ERROR \\\"The source-path (NIL) is not valid.\\\")
--- FRAME 5
(SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
      #<unavailable argument>
      #.(SB-SYS:INT-SAP #XB7C3C31C)
      #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB7C3C010 :TYPE (*
                                                              (STRUCT
                                                              
SB-VM::OS-CONTEXT-T-STRUCT))>
      (14 78))
---   Locals:
SB-DEBUG::ARG-0 ==> 4
SB-DEBUG::ARG-1 ==> :<NOT-AVAILABLE>
SB-DEBUG::ARG-2 ==> #.(SB-SYS:INT-SAP #XB7C3C31C)
SB-DEBUG::ARG-3 ==> #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB7C3C010
:TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))>
SB-DEBUG::ARG-4 ==> (14 78)
---   Source:
(:LOCATION (:FILE \\\"/usr/lib/sbcl/src/code/interr.lisp\\\")
(:POSITION 6404) (:SNIPPET \\\"(deferr object-not-type-error (object
type)
  (error (if (and (typep object 'instance)
		  (layout-invalid (%instance-layout object)))
	     'layout-invalid
	     'type-error)
	 :datum object
	 :expected-type type))

(deferr layout-invalid-error (object la\\\"))
--- FRAME 6
(SB-KERNEL:INTERNAL-ERROR
      #.(SB-SYS:INT-SAP #XB7C3C010)
      #<unavailable argument>)
---   Locals:
SB-DEBUG::ARG-0 ==> 2
SB-DEBUG::ARG-1 ==> #.(SB-SYS:INT-SAP #XB7C3C010)
SB-DEBUG::ARG-2 ==> :<NOT-AVAILABLE>
---   Source:
(:LOCATION (:FILE \\\"/usr/lib/sbcl/src/code/interr.lisp\\\")
(:POSITION 10988) (:SNIPPET \\\"(defun internal-error (context
continuable)
  (declare (type system-area-pointer context))
  (declare (ignore continuable))
  (/show0 \\\\\\\"entering INTERNAL-ERROR, CONTEXT=..\\\\\\\")
  (/hexstr context)
  (infinite-error-protect
   (/show0 \\\\\\\"about to bind ALIEN-CONTE\\\"))
--- FRAME 7
(\\\"foreign function: call_into_lisp\\\")
---   Locals:
---   Source:
(:ERROR \\\"The value #<SB-DI::BOGUS-DEBUG-FUN \\\\\\\"foreign
function: call_into_lisp\\\\\\\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.\\\")
--- FRAME 8
(\\\"foreign function: funcall2\\\")
---   Locals:
---   Source:
(:ERROR \\\"The value #<SB-DI::BOGUS-DEBUG-FUN \\\\\\\"foreign
function: funcall2\\\\\\\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.\\\")
--- FRAME 9
(\\\"foreign function: interrupt_internal_error\\\")
---   Locals:
---   Source:
(:ERROR \\\"The value
  #<SB-DI::BOGUS-DEBUG-FUN \\\\\\\"foreign function:
interrupt_internal_error\\\\\\\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.\\\")
--- FRAME 10
(\\\"foreign function: sigtrap_handler\\\")
---   Locals:
---   Source:
(:ERROR \\\"The value #<SB-DI::BOGUS-DEBUG-FUN \\\\\\\"foreign
function: sigtrap_handler\\\\\\\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.\\\")
--- FRAME 11
(MAPCAR
      #<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
      (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
       #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>))
---   Locals:
SB-DEBUG::ARG-0 ==> 2
SB-DEBUG::ARG-1 ==> #<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
SB-DEBUG::ARG-2 ==> (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
---   Source:
(:LOCATION (:FILE \\\"/usr/lib/sbcl/src/code/list.lisp\\\") (:POSITION
41554) (:SNIPPET \\\"(defun mapcar (function list &rest more-lists)
  #!+sb-doc
  \\\\\\\"Apply FUNCTION to successive elements of LIST. Return list of FUNCTION
   return values.\\\\\\\"
  (map1 function (cons list more-lists) :list t))

(defun mapcan (function list &rest more-lists)
  #!+s\\\"))
--- FRAME 12
((LAMBDA (IT.BESE.ARNESI::ARGUMENTS))
      (#<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
       (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
        #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)))
---   Locals:
IT.BESE.ARNESI::ARGUMENTS ==> (#<IT.BESE.ARNESI::CPS-CLOSURE
{9F27B21}> (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>))
IT.BESE.ARNESI::FUNC ==> :<NOT-AVAILABLE>
#:G763 ==> :<NOT-AVAILABLE>
#:G778 ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::K ==> :<NOT-AVAILABLE>
---   Source:
(:LOCATION (:FILE
\\\"/home/conrad/website/ucw/arnesi_dev/src/cps.lisp\\\") (:POSITION
6830) (:SNIPPET \\\"(apply (fdefinition (operator func)) arguments))))
      (arguments func) '()
      env))))

(defmethod evaluate/cps ((func local-application-form) env k)
  (evaluate/cps-apply (arguments func) (list (list (lookup env :flet
(operator func) :error-p t))) en\\\"))
--- FRAME 13
(IT.BESE.ARNESI::EVALUATE-ARGUMENTS-THEN-APPLY
      #<CLOSURE (LAMBDA #) {9F2785D}>
      NIL
      ((#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
        #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
       #<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>)
      ((:LET IT.BESE.UCW::SERVER-REPL . #<IT.BESE.UCW::ADMIN-REPL {9F222A1}>)
       (:LET IT.BESE.UCW::CONTROL-PANEL
             . #<IT.BESE.UCW::ADMIN-CONTROL-PANEL {9F20491}>)
       (:BLOCK IT.BESE.UCW:LOGIN-SUCCESSFUL IT.BESE.ARNESI::TOPLEVEL-K)
       (:LET IT.BESE.UCW:SELF . #<IT.BESE.UCW::ADMIN-LOGIN {91C6791}>)
       (:LET IT.BESE.UCW::L . #<IT.BESE.UCW::ADMIN-LOGIN {91C6791}>)))
---   Locals:
IT.BESE.ARNESI::ENV ==> ((:LET IT.BESE.UCW::SERVER-REPL .
#<IT.BESE.UCW::ADMIN-REPL {9F222A1}>) (:LET IT.BESE.UCW::CONTROL-PANEL
. #<IT.BESE.UCW::ADMIN-CONTROL-PANEL {9F20491}>) (:BLOCK
IT.BESE.UCW:LOGIN-SUCCESSFUL IT.BESE.ARNESI::TOPLEVEL-K) (:LET
IT.BESE.UCW:SELF . #1=#<IT.BESE.UCW::ADMIN-LOGIN {91C6791}>) (:LET
IT.BESE.UCW::L . #1#))
IT.BESE.ARNESI::EVALUATED-ARGUMENTS ==>
((#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
#<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>)
#:G1288 ==> :<NOT-AVAILABLE>
#:G1292 ==> :<NOT-AVAILABLE>
#:G1296 ==> :<NOT-AVAILABLE>
#:G1304 ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::HANDLER ==> #<CLOSURE (LAMBDA
(IT.BESE.ARNESI::ARGUMENTS)) {9F2785D}>
IT.BESE.ARNESI::REMAINING-ARGUMENTS ==> NIL
---   Source:
(:LOCATION (:FILE
\\\"/home/conrad/website/ucw/arnesi_dev/src/cps.lisp\\\") (:POSITION
12078) (:SNIPPET \\\"(funcall handler (reverse evaluated-arguments))))

;;;; FUNCTION and LAMBDA application

(defmethod evaluate/cps ((lambda lambda-application-form) env k)
  (evaluate/cps-funcall (cons (operator lambda) (arguments lambda)) env k))

;;;; Constants

(defmetho\\\"))
--- FRAME 14
((LAMBDA ()))
---   Locals:
IT.BESE.ARNESI::ENV ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::EVALUATED-ARGUMENTS ==> :<NOT-AVAILABLE>
#:G1277 ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::HANDLER ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::REMAINING-ARGUMENTS ==> :<NOT-AVAILABLE> ..)
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [ABORT-RESPONSE] Abort this response and answer another request
  1: [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) {9418345}>)
  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
{9561021}>) (*PRINT-GENSYM* . T) (*PRINT-BASE* . 10) (*PRINT-RADIX*)
(*PRINT-ARRAY* . T) ...) #<FUNCTION (LAMBDA NIL) {9418305}>)
  2: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR {A29DFB1}>)
  3: ((LAMBDA (CONDITION)) #<SIMPLE-ERROR {A29DFB1}>)
  4: ((LAMBDA (CONDITION)) #<SIMPLE-ERROR {A29DFB1}>)
  5: (SIGNAL #<SIMPLE-ERROR {A29DFB1}>)
  6: (ERROR "destructure-case failed: ~S")
  7: (SWANK::SEND-TO-SOCKET-IO (:EVALUATE-IN-EMACS "
 (save-excursion
   (loop
     with buffer-name = \"*UCW Backtrace <%d>*\"
     for id upfrom 0
     for backtrace-buffer = (get-buffer (format buffer-name id))
     while backtrace-buffer
     finally do (switch-to-buffer-other-window (format buffer-name id)))
   (insert \"--- UCW Backtrace
---    Condition: #<TYPE-ERROR {9F2C021}>
#<TYPE-ERROR {9F2C021}> is a TYPE-ERROR. Its slot values are (:DATUM
#1=#<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}> :EXPECTED-TYPE #2=(OR
FUNCTION SYMBOL) SB-KERNEL::EXPECTED-TYPE #2# SB-KERNEL::DATUM #1#).
---    Date: 2005-08-08T12:18:29
---    Lisp: \\\"SBCL\\\" \\\"0.9.2\\\"
---    Server: #<IT.BESE.UCW:STANDARD-SERVER
IT.BESE.UCW:ARANEIDA-BACKEND 2 {A5217D1}>
#<IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:ARANEIDA-BACKEND 2
{A5217D1}> is an instance of class #<STANDARD-CLASS
IT.BESE.UCW:STANDARD-SERVER>.
The following slots have :INSTANCE allocation:
 APPLICATIONS         (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/
1> #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
 APPLICATIONS-LOCK    :NULL-LOCK
 STARTED              T
 BACKEND              #<IT.BESE.UCW:ARANEIDA-BACKEND {A829C89}>
---    Backend: #<IT.BESE.UCW:ARANEIDA-BACKEND {A829C89}>
#<IT.BESE.UCW:ARANEIDA-BACKEND {A829C89}> is an instance of class
#<STANDARD-CLASS IT.BESE.UCW:ARANEIDA-BACKEND>.
The following slots have :INSTANCE allocation:
 LISTENER          #<ARANEIDA:SERVE-EVENT-HTTP-LISTENER {A8A7139}>
 DEFAULT-URL       #<ARANEIDA:HTTP-URL \\\"http://127.0.0.1:8080/\\\" {A8838D9}>
 LISTENER-CLASS    ARANEIDA:SERVE-EVENT-HTTP-LISTENER
---    Application: #<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1> is an instance of
class #<STANDARD-CLASS IT.BESE.UCW:STANDARD-APPLICATION>.
The following slots have :INSTANCE allocation:
 URL-PREFIX       \\\"/ucw/admin/\\\"
 SESSION-TYPE     IT.BESE.UCW::STANDARD-SESSION
 TAL-GENERATOR    #<IT.BESE.YACLML:FILE-SYSTEM-GENERATOR {A3F2DC1}>
 WWW-ROOTS       
(#P\\\"/home/conrad/website/ucw/ucw_dev/bin/../wwwroot/./ucw/examples/\\\")
 ENTRY-POINTS     #<HASH-TABLE :TEST EQUAL :COUNT 1 {9D4CBA1}>
 SESSION-TABLE    #<HASH-TABLE :TEST EQUAL :COUNT 1 {9D4CD79}>
 SERVER           #<IT.BESE.UCW:STANDARD-SERVER
IT.BESE.UCW:ARANEIDA-BACKEND 2 {A5217D1}>
---    Request: #<IT.BESE.UCW::ARANEIDA-REQUEST {9CCD831}>
#<IT.BESE.UCW::ARANEIDA-REQUEST {9CCD831}> is an instance of class
#<STANDARD-CLASS IT.BESE.UCW::ARANEIDA-REQUEST>.
The following slots have :INSTANCE allocation:
 REQUEST    #<ARANEIDA:REQUEST {9CCC129}>
---    Response: #<IT.BESE.UCW::ARANEIDA-RESPONSE {9CCD851}>
#<IT.BESE.UCW::ARANEIDA-RESPONSE {9CCD851}> is an instance of class
#<STANDARD-CLASS IT.BESE.UCW::ARANEIDA-RESPONSE>.
The following slots have :INSTANCE allocation:
 REQUEST           #<ARANEIDA:REQUEST {9CCC129}>
 HEADERS           ((\\\"Content-Type\\\" . \\\"text/html\\\")
(\\\"Status\\\" . \\\"200\\\"))
 CONTENT-STREAM    #<SB-IMPL::STRING-OUTPUT-STREAM {9CCD8B1}>
--- BACKTRACE
--- FRAME 4
(ERROR TYPE-ERROR)
---   Locals:
SB-DEBUG::ARG-0 ==> 5
SB-DEBUG::ARG-1 ==> TYPE-ERROR
---   Source:
(:ERROR \\\"The source-path (NIL) is not valid.\\\")
--- FRAME 5
(SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
      #<unavailable argument>
      #.(SB-SYS:INT-SAP #XB7C3C31C)
      #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB7C3C010 :TYPE (*
                                                              (STRUCT
                                                              
SB-VM::OS-CONTEXT-T-STRUCT))>
      (14 78))
---   Locals:
SB-DEBUG::ARG-0 ==> 4
SB-DEBUG::ARG-1 ==> :<NOT-AVAILABLE>
SB-DEBUG::ARG-2 ==> #.(SB-SYS:INT-SAP #XB7C3C31C)
SB-DEBUG::ARG-3 ==> #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB7C3C010
:TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))>
SB-DEBUG::ARG-4 ==> (14 78)
---   Source:
(:LOCATION (:FILE \\\"/usr/lib/sbcl/src/code/interr.lisp\\\")
(:POSITION 6404) (:SNIPPET \\\"(deferr object-not-type-error (object
type)
  (error (if (and (typep object 'instance)
		  (layout-invalid (%instance-layout object)))
	     'layout-invalid
	     'type-error)
	 :datum object
	 :expected-type type))

(deferr layout-invalid-error (object la\\\"))
--- FRAME 6
(SB-KERNEL:INTERNAL-ERROR
      #.(SB-SYS:INT-SAP #XB7C3C010)
      #<unavailable argument>)
---   Locals:
SB-DEBUG::ARG-0 ==> 2
SB-DEBUG::ARG-1 ==> #.(SB-SYS:INT-SAP #XB7C3C010)
SB-DEBUG::ARG-2 ==> :<NOT-AVAILABLE>
---   Source:
(:LOCATION (:FILE \\\"/usr/lib/sbcl/src/code/interr.lisp\\\")
(:POSITION 10988) (:SNIPPET \\\"(defun internal-error (context
continuable)
  (declare (type system-area-pointer context))
  (declare (ignore continuable))
  (/show0 \\\\\\\"entering INTERNAL-ERROR, CONTEXT=..\\\\\\\")
  (/hexstr context)
  (infinite-error-protect
   (/show0 \\\\\\\"about to bind ALIEN-CONTE\\\"))
--- FRAME 7
(\\\"foreign function: call_into_lisp\\\")
---   Locals:
---   Source:
(:ERROR \\\"The value #<SB-DI::BOGUS-DEBUG-FUN \\\\\\\"foreign
function: call_into_lisp\\\\\\\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.\\\")
--- FRAME 8
(\\\"foreign function: funcall2\\\")
---   Locals:
---   Source:
(:ERROR \\\"The value #<SB-DI::BOGUS-DEBUG-FUN \\\\\\\"foreign
function: funcall2\\\\\\\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.\\\")
--- FRAME 9
(\\\"foreign function: interrupt_internal_error\\\")
---   Locals:
---   Source:
(:ERROR \\\"The value
  #<SB-DI::BOGUS-DEBUG-FUN \\\\\\\"foreign function:
interrupt_internal_error\\\\\\\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.\\\")
--- FRAME 10
(\\\"foreign function: sigtrap_handler\\\")
---   Locals:
---   Source:
(:ERROR \\\"The value #<SB-DI::BOGUS-DEBUG-FUN \\\\\\\"foreign
function: sigtrap_handler\\\\\\\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.\\\")
--- FRAME 11
(MAPCAR
      #<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
      (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
       #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>))
---   Locals:
SB-DEBUG::ARG-0 ==> 2
SB-DEBUG::ARG-1 ==> #<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
SB-DEBUG::ARG-2 ==> (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
---   Source:
(:LOCATION (:FILE \\\"/usr/lib/sbcl/src/code/list.lisp\\\") (:POSITION
41554) (:SNIPPET \\\"(defun mapcar (function list &rest more-lists)
  #!+sb-doc
  \\\\\\\"Apply FUNCTION to successive elements of LIST. Return list of FUNCTION
   return values.\\\\\\\"
  (map1 function (cons list more-lists) :list t))

(defun mapcan (function list &rest more-lists)
  #!+s\\\"))
--- FRAME 12
((LAMBDA (IT.BESE.ARNESI::ARGUMENTS))
      (#<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
       (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
        #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)))
---   Locals:
IT.BESE.ARNESI::ARGUMENTS ==> (#<IT.BESE.ARNESI::CPS-CLOSURE
{9F27B21}> (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>))
IT.BESE.ARNESI::FUNC ==> :<NOT-AVAILABLE>
#:G763 ==> :<NOT-AVAILABLE>
#:G778 ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::K ==> :<NOT-AVAILABLE>
---   Source:
(:LOCATION (:FILE
\\\"/home/conrad/website/ucw/arnesi_dev/src/cps.lisp\\\") (:POSITION
6830) (:SNIPPET \\\"(apply (fdefinition (operator func)) arguments))))
      (arguments func) '()
      env))))

(defmethod evaluate/cps ((func local-application-form) env k)
  (evaluate/cps-apply (arguments func) (list (list (lookup env :flet
(operator func) :error-p t))) en\\\"))
--- FRAME 13
(IT.BESE.ARNESI::EVALUATE-ARGUMENTS-THEN-APPLY
      #<CLOSURE (LAMBDA #) {9F2785D}>
      NIL
      ((#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
        #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
       #<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>)
      ((:LET IT.BESE.UCW::SERVER-REPL . #<IT.BESE.UCW::ADMIN-REPL {9F222A1}>)
       (:LET IT.BESE.UCW::CONTROL-PANEL
             . #<IT.BESE.UCW::ADMIN-CONTROL-PANEL {9F20491}>)
       (:BLOCK IT.BESE.UCW:LOGIN-SUCCESSFUL IT.BESE.ARNESI::TOPLEVEL-K)
       (:LET IT.BESE.UCW:SELF . #<IT.BESE.UCW::ADMIN-LOGIN {91C6791}>)
       (:LET IT.BESE.UCW::L . #<IT.BESE.UCW::ADMIN-LOGIN {91C6791}>)))
---   Locals:
IT.BESE.ARNESI::ENV ==> ((:LET IT.BESE.UCW::SERVER-REPL .
#<IT.BESE.UCW::ADMIN-REPL {9F222A1}>) (:LET IT.BESE.UCW::CONTROL-PANEL
. #<IT.BESE.UCW::ADMIN-CONTROL-PANEL {9F20491}>) (:BLOCK
IT.BESE.UCW:LOGIN-SUCCESSFUL IT.BESE.ARNESI::TOPLEVEL-K) (:LET
IT.BESE.UCW:SELF . #1=#<IT.BESE.UCW::ADMIN-LOGIN {91C6791}>) (:LET
IT.BESE.UCW::L . #1#))
IT.BESE.ARNESI::EVALUATED-ARGUMENTS ==>
((#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
#<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>)
#:G1288 ==> :<NOT-AVAILABLE>
#:G1292 ==> :<NOT-AVAILABLE>
#:G1296 ==> :<NOT-AVAILABLE>
#:G1304 ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::HANDLER ==> #<CLOSURE (LAMBDA
(IT.BESE.ARNESI::ARGUMENTS)) {9F2785D}>
IT.BESE.ARNESI::REMAINING-ARGUMENTS ==> NIL
---   Source:
(:LOCATION (:FILE
\\\"/home/conrad/website/ucw/arnesi_dev/src/cps.lisp\\\") (:POSITION
12078) (:SNIPPET \\\"(funcall handler (reverse evaluated-arguments))))

;;;; FUNCTION and LAMBDA application

(defmethod evaluate/cps ((lambda lambda-application-form) env k)
  (evaluate/cps-funcall (cons (operator lambda) (arguments lambda)) env k))

;;;; Constants

(defmetho\\\"))
--- FRAME 14
((LAMBDA ()))
---   Locals:
IT.BESE.ARNESI::ENV ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::EVALUATED-ARGUMENTS ==> :<NOT-AVAILABLE>
#:G1277 ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::HANDLER ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::REMAINING-ARGUMENTS ==> :<NOT-AVAILABLE> ..)
  8: (SWANK::EVALUATE-IN-EMACS "
 (save-excursion
   (loop
     with buffer-name = \"*UCW Backtrace <%d>*\"
     for id upfrom 0
     for backtrace-buffer = (get-buffer (format buffer-name id))
     while backtrace-buffer
     finally do (switch-to-buffer-other-window (format buffer-name id)))
   (insert \"--- UCW Backtrace
---    Condition: #<TYPE-ERROR {9F2C021}>
#<TYPE-ERROR {9F2C021}> is a TYPE-ERROR. Its slot values are (:DATUM
#1=#<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}> :EXPECTED-TYPE #2=(OR
FUNCTION SYMBOL) SB-KERNEL::EXPECTED-TYPE #2# SB-KERNEL::DATUM #1#).
---    Date: 2005-08-08T12:18:29
---    Lisp: \\\"SBCL\\\" \\\"0.9.2\\\"
---    Server: #<IT.BESE.UCW:STANDARD-SERVER
IT.BESE.UCW:ARANEIDA-BACKEND 2 {A5217D1}>
#<IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:ARANEIDA-BACKEND 2
{A5217D1}> is an instance of class #<STANDARD-CLASS
IT.BESE.UCW:STANDARD-SERVER>.
The following slots have :INSTANCE allocation:
 APPLICATIONS         (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/
1> #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
 APPLICATIONS-LOCK    :NULL-LOCK
 STARTED              T
 BACKEND              #<IT.BESE.UCW:ARANEIDA-BACKEND {A829C89}>
---    Backend: #<IT.BESE.UCW:ARANEIDA-BACKEND {A829C89}>
#<IT.BESE.UCW:ARANEIDA-BACKEND {A829C89}> is an instance of class
#<STANDARD-CLASS IT.BESE.UCW:ARANEIDA-BACKEND>.
The following slots have :INSTANCE allocation:
 LISTENER          #<ARANEIDA:SERVE-EVENT-HTTP-LISTENER {A8A7139}>
 DEFAULT-URL       #<ARANEIDA:HTTP-URL \\\"http://127.0.0.1:8080/\\\" {A8838D9}>
 LISTENER-CLASS    ARANEIDA:SERVE-EVENT-HTTP-LISTENER
---    Application: #<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1> is an instance of
class #<STANDARD-CLASS IT.BESE.UCW:STANDARD-APPLICATION>.
The following slots have :INSTANCE allocation:
 URL-PREFIX       \\\"/ucw/admin/\\\"
 SESSION-TYPE     IT.BESE.UCW::STANDARD-SESSION
 TAL-GENERATOR    #<IT.BESE.YACLML:FILE-SYSTEM-GENERATOR {A3F2DC1}>
 WWW-ROOTS       
(#P\\\"/home/conrad/website/ucw/ucw_dev/bin/../wwwroot/./ucw/examples/\\\")
 ENTRY-POINTS     #<HASH-TABLE :TEST EQUAL :COUNT 1 {9D4CBA1}>
 SESSION-TABLE    #<HASH-TABLE :TEST EQUAL :COUNT 1 {9D4CD79}>
 SERVER           #<IT.BESE.UCW:STANDARD-SERVER
IT.BESE.UCW:ARANEIDA-BACKEND 2 {A5217D1}>
---    Request: #<IT.BESE.UCW::ARANEIDA-REQUEST {9CCD831}>
#<IT.BESE.UCW::ARANEIDA-REQUEST {9CCD831}> is an instance of class
#<STANDARD-CLASS IT.BESE.UCW::ARANEIDA-REQUEST>.
The following slots have :INSTANCE allocation:
 REQUEST    #<ARANEIDA:REQUEST {9CCC129}>
---    Response: #<IT.BESE.UCW::ARANEIDA-RESPONSE {9CCD851}>
#<IT.BESE.UCW::ARANEIDA-RESPONSE {9CCD851}> is an instance of class
#<STANDARD-CLASS IT.BESE.UCW::ARANEIDA-RESPONSE>.
The following slots have :INSTANCE allocation:
 REQUEST           #<ARANEIDA:REQUEST {9CCC129}>
 HEADERS           ((\\\"Content-Type\\\" . \\\"text/html\\\")
(\\\"Status\\\" . \\\"200\\\"))
 CONTENT-STREAM    #<SB-IMPL::STRING-OUTPUT-STREAM {9CCD8B1}>
--- BACKTRACE
--- FRAME 4
(ERROR TYPE-ERROR)
---   Locals:
SB-DEBUG::ARG-0 ==> 5
SB-DEBUG::ARG-1 ==> TYPE-ERROR
---   Source:
(:ERROR \\\"The source-path (NIL) is not valid.\\\")
--- FRAME 5
(SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
      #<unavailable argument>
      #.(SB-SYS:INT-SAP #XB7C3C31C)
      #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB7C3C010 :TYPE (*
                                                              (STRUCT
                                                              
SB-VM::OS-CONTEXT-T-STRUCT))>
      (14 78))
---   Locals:
SB-DEBUG::ARG-0 ==> 4
SB-DEBUG::ARG-1 ==> :<NOT-AVAILABLE>
SB-DEBUG::ARG-2 ==> #.(SB-SYS:INT-SAP #XB7C3C31C)
SB-DEBUG::ARG-3 ==> #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB7C3C010
:TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))>
SB-DEBUG::ARG-4 ==> (14 78)
---   Source:
(:LOCATION (:FILE \\\"/usr/lib/sbcl/src/code/interr.lisp\\\")
(:POSITION 6404) (:SNIPPET \\\"(deferr object-not-type-error (object
type)
  (error (if (and (typep object 'instance)
		  (layout-invalid (%instance-layout object)))
	     'layout-invalid
	     'type-error)
	 :datum object
	 :expected-type type))

(deferr layout-invalid-error (object la\\\"))
--- FRAME 6
(SB-KERNEL:INTERNAL-ERROR
      #.(SB-SYS:INT-SAP #XB7C3C010)
      #<unavailable argument>)
---   Locals:
SB-DEBUG::ARG-0 ==> 2
SB-DEBUG::ARG-1 ==> #.(SB-SYS:INT-SAP #XB7C3C010)
SB-DEBUG::ARG-2 ==> :<NOT-AVAILABLE>
---   Source:
(:LOCATION (:FILE \\\"/usr/lib/sbcl/src/code/interr.lisp\\\")
(:POSITION 10988) (:SNIPPET \\\"(defun internal-error (context
continuable)
  (declare (type system-area-pointer context))
  (declare (ignore continuable))
  (/show0 \\\\\\\"entering INTERNAL-ERROR, CONTEXT=..\\\\\\\")
  (/hexstr context)
  (infinite-error-protect
   (/show0 \\\\\\\"about to bind ALIEN-CONTE\\\"))
--- FRAME 7
(\\\"foreign function: call_into_lisp\\\")
---   Locals:
---   Source:
(:ERROR \\\"The value #<SB-DI::BOGUS-DEBUG-FUN \\\\\\\"foreign
function: call_into_lisp\\\\\\\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.\\\")
--- FRAME 8
(\\\"foreign function: funcall2\\\")
---   Locals:
---   Source:
(:ERROR \\\"The value #<SB-DI::BOGUS-DEBUG-FUN \\\\\\\"foreign
function: funcall2\\\\\\\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.\\\")
--- FRAME 9
(\\\"foreign function: interrupt_internal_error\\\")
---   Locals:
---   Source:
(:ERROR \\\"The value
  #<SB-DI::BOGUS-DEBUG-FUN \\\\\\\"foreign function:
interrupt_internal_error\\\\\\\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.\\\")
--- FRAME 10
(\\\"foreign function: sigtrap_handler\\\")
---   Locals:
---   Source:
(:ERROR \\\"The value #<SB-DI::BOGUS-DEBUG-FUN \\\\\\\"foreign
function: sigtrap_handler\\\\\\\">
is not of type
  SB-DI::COMPILED-DEBUG-FUN.\\\")
--- FRAME 11
(MAPCAR
      #<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
      (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
       #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>))
---   Locals:
SB-DEBUG::ARG-0 ==> 2
SB-DEBUG::ARG-1 ==> #<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
SB-DEBUG::ARG-2 ==> (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
---   Source:
(:LOCATION (:FILE \\\"/usr/lib/sbcl/src/code/list.lisp\\\") (:POSITION
41554) (:SNIPPET \\\"(defun mapcar (function list &rest more-lists)
  #!+sb-doc
  \\\\\\\"Apply FUNCTION to successive elements of LIST. Return list of FUNCTION
   return values.\\\\\\\"
  (map1 function (cons list more-lists) :list t))

(defun mapcan (function list &rest more-lists)
  #!+s\\\"))
--- FRAME 12
((LAMBDA (IT.BESE.ARNESI::ARGUMENTS))
      (#<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
       (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
        #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)))
---   Locals:
IT.BESE.ARNESI::ARGUMENTS ==> (#<IT.BESE.ARNESI::CPS-CLOSURE
{9F27B21}> (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>))
IT.BESE.ARNESI::FUNC ==> :<NOT-AVAILABLE>
#:G763 ==> :<NOT-AVAILABLE>
#:G778 ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::K ==> :<NOT-AVAILABLE>
---   Source:
(:LOCATION (:FILE
\\\"/home/conrad/website/ucw/arnesi_dev/src/cps.lisp\\\") (:POSITION
6830) (:SNIPPET \\\"(apply (fdefinition (operator func)) arguments))))
      (arguments func) '()
      env))))

(defmethod evaluate/cps ((func local-application-form) env k)
  (evaluate/cps-apply (arguments func) (list (list (lookup env :flet
(operator func) :error-p t))) en\\\"))
--- FRAME 13
(IT.BESE.ARNESI::EVALUATE-ARGUMENTS-THEN-APPLY
      #<CLOSURE (LAMBDA #) {9F2785D}>
      NIL
      ((#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
        #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
       #<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>)
      ((:LET IT.BESE.UCW::SERVER-REPL . #<IT.BESE.UCW::ADMIN-REPL {9F222A1}>)
       (:LET IT.BESE.UCW::CONTROL-PANEL
             . #<IT.BESE.UCW::ADMIN-CONTROL-PANEL {9F20491}>)
       (:BLOCK IT.BESE.UCW:LOGIN-SUCCESSFUL IT.BESE.ARNESI::TOPLEVEL-K)
       (:LET IT.BESE.UCW:SELF . #<IT.BESE.UCW::ADMIN-LOGIN {91C6791}>)
       (:LET IT.BESE.UCW::L . #<IT.BESE.UCW::ADMIN-LOGIN {91C6791}>)))
---   Locals:
IT.BESE.ARNESI::ENV ==> ((:LET IT.BESE.UCW::SERVER-REPL .
#<IT.BESE.UCW::ADMIN-REPL {9F222A1}>) (:LET IT.BESE.UCW::CONTROL-PANEL
. #<IT.BESE.UCW::ADMIN-CONTROL-PANEL {9F20491}>) (:BLOCK
IT.BESE.UCW:LOGIN-SUCCESSFUL IT.BESE.ARNESI::TOPLEVEL-K) (:LET
IT.BESE.UCW:SELF . #1=#<IT.BESE.UCW::ADMIN-LOGIN {91C6791}>) (:LET
IT.BESE.UCW::L . #1#))
IT.BESE.ARNESI::EVALUATED-ARGUMENTS ==>
((#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
#<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
#<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>)
#:G1288 ==> :<NOT-AVAILABLE>
#:G1292 ==> :<NOT-AVAILABLE>
#:G1296 ==> :<NOT-AVAILABLE>
#:G1304 ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::HANDLER ==> #<CLOSURE (LAMBDA
(IT.BESE.ARNESI::ARGUMENTS)) {9F2785D}>
IT.BESE.ARNESI::REMAINING-ARGUMENTS ==> NIL
---   Source:
(:LOCATION (:FILE
\\\"/home/conrad/website/ucw/arnesi_dev/src/cps.lisp\\\") (:POSITION
12078) (:SNIPPET \\\"(funcall handler (reverse evaluated-arguments))))

;;;; FUNCTION and LAMBDA application

(defmethod evaluate/cps ((lambda lambda-application-form) env k)
  (evaluate/cps-funcall (cons (operator lambda) (arguments lambda)) env k))

;;;; Constants

(defmetho\\\"))
--- FRAME 14
((LAMBDA ()))
---   Locals:
IT.BESE.ARNESI::ENV ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::EVALUATED-ARGUMENTS ==> :<NOT-AVAILABLE>
#:G1277 ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::HANDLER ==> :<NOT-AVAILABLE>
IT.BESE.ARNESI::REMAINING-ARGUMENTS ==> :<NOT-AVAILABLE> ..)
  9: (IT.BESE.UCW::SEND-BACKTRACE-TO-EMACS
#<IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:ARANEIDA-BACKEND 2
{A5217D1}> #<TYPE-ERROR {9F2C021}> (#S(IT.BESE.UCW::BACKTRACE-FRAME
:INDEX 4 :DESCRIPTION "(ERROR TYPE-ERROR)" :LOCALS (# #)
:SOURCE-LOCATION (:ERROR "The source-path (NIL) is not valid."))
#S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 5 :DESCRIPTION
"(SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
      #<unavailable argument>
      #.(SB-SYS:INT-SAP #XB7C3C31C)
      #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB7C3C010 :TYPE (*
                                                              (STRUCT
                                                              
SB-VM::OS-CONTEXT-T-STRUCT))>
      (14 78))" :LOCALS (# # # # #) :SOURCE-LOCATION (:LOCATION # #
#)) #S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 6 :DESCRIPTION
"(SB-KERNEL:INTERNAL-ERROR
      #.(SB-SYS:INT-SAP #XB7C3C010)
      #<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 "(MAPCAR
      #<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
      (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
       #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>))"
:LOCALS (# # #) :SOURCE-LOCATION (:LOCATION # # #))
#S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 12 :DESCRIPTION "((LAMBDA
(IT.BESE.ARNESI::ARGUMENTS))
      (#<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>
       (#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
        #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)))"
:LOCALS (# # # # #) :SOURCE-LOCATION (:LOCATION # # #))
#S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 13 :DESCRIPTION
"(IT.BESE.ARNESI::EVALUATE-ARGUMENTS-THEN-APPLY
      #<CLOSURE (LAMBDA #) {9F2785D}>
      NIL
      ((#<IT.BESE.UCW:STANDARD-APPLICATION /ucw/admin/ 1>
        #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION /ucw/examples/ 0>)
       #<IT.BESE.ARNESI::CPS-CLOSURE {9F27B21}>)
      ((:LET IT.BESE.UCW::SERVER-REPL . #<IT.BESE.UCW::ADMIN-REPL {9F222A1}>)
       (:LET IT.BESE.UCW::CONTROL-PANEL
             . #<IT.BESE.UCW::ADMIN-CONTROL-PANEL {9F20491}>)
       (:BLOCK IT.BESE.UCW:LOGIN-SUCCESSFUL IT.BESE.ARNESI::TOPLEVEL-K)
       (:LET IT.BESE.UCW:SELF . #<IT.BESE.UCW::ADMIN-LOGIN {91C6791}>)
       (:LET IT.BESE.UCW::L . #<IT.BESE.UCW::ADMIN-LOGIN
{91C6791}>)))" :LOCALS (# # # # # # # #) :SOURCE-LOCATION (:LOCATION #
# #)) ...))
 10: ((LAMBDA NIL))
 11: ((LAMBDA NIL))
 12: ((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
{A5217D1}> #<IT.BESE.UCW::ARANEIDA-REQUEST {9CCD831}>
#<IT.BESE.UCW::ARANEIDA-RESPONSE {9CCD851}>)
 13: ((SB-PCL::FAST-METHOD ARANEIDA:HANDLE-REQUEST-RESPONSE
(IT.BESE.UCW::UCW-HANDLER T T)) #<unavailable argument> #<unavailable
argument> #<IT.BESE.UCW::UCW-HANDLER {9F7F7B1}> #<unavailable
argument> #<ARANEIDA:REQUEST {9CCC129}>)
 14: ((SB-PCL::FAST-METHOD ARANEIDA:HANDLE-REQUEST (ARANEIDA:HANDLER
T)) #<unavailable argument> #<unavailable argument>
#<IT.BESE.UCW::UCW-HANDLER {9F7F7B1}> #<ARANEIDA:REQUEST {9CCC129}>)
 15: ((SB-PCL::FAST-METHOD ARANEIDA:HANDLE-REQUEST (ARANEIDA:HANDLER
T)) #<unavailable argument> #<unavailable argument>
#<ARANEIDA:DISPATCHING-HANDLER {A91B1B9}> #<ARANEIDA:REQUEST
{9CCC129}>)
 16: ((LABELS ARANEIDA::DO-IT) #<ARANEIDA:SERVE-EVENT-HTTP-LISTENER
{A8A7139}> #<SB-SYS:FD-STREAM for "a constant string" {9CC8EE9}>)
 17: (ARANEIDA::SERVE-EVENT-HTTP-LISTENER-ACCEPT-ONE-REQUEST
#<ARANEIDA:SERVE-EVENT-HTTP-LISTENER {A8A7139}>)
 18: (SB-IMPL::SUB-SERVE-EVENT NIL 0)
 19: (SB-SYS:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL)
 20: (SB-IMPL::REFILL-BUFFER/FD #<SB-SYS:FD-STREAM for "standard
input" {90014F9}>)
 21: (SB-IMPL::INPUT-CHAR/ASCII #<SB-SYS:FD-STREAM for "standard
input" {90014F9}> NIL #:EOF-OBJECT)
 22: (READ-CHAR #<SB-SYS:FD-STREAM for "standard input" {90014F9}> NIL
#:EOF-OBJECT #<unused argument>)
 23: (READ-CHAR #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {5012E31}> NIL
#:EOF-OBJECT #<unused argument>)
 24: (READ-CHAR #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {92B4819}> NIL #:EOF-OBJECT #<unused
argument>)
 25: (READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {92B4819}> NIL (NIL) T)
 26: (READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {92B4819}> NIL (NIL) NIL)
 27: (READ #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT*
{92B4819}> NIL (NIL) NIL)
 28: (SB-IMPL::REPL-READ-FORM-FUN #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {92B4819}> #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-OUTPUT* {92B3371}>)
 29: (SB-IMPL::REPL-FUN NIL)
 30: ((LAMBDA NIL))
 31: ((LAMBDA NIL))
 32: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA NIL) {903A56D}>)
 33: (SB-IMPL::TOPLEVEL-REPL NIL)
 34: (SB-IMPL::TOPLEVEL-INIT)
 35: ((FLET SB-IMPL::RESTART-LISP))



More information about the bese-devel mailing list