[Bese-devel] UCW in ACL
lists at infoway.net
lists at infoway.net
Tue Dec 5 14:13:47 UTC 2006
Ok. I just downloaded a fresh ucw-boxset and everything seems to compile
just fine:
*** UCW Started. Point your browser to http://127.0.0.1:8080/
However, something doesn't seem to be working properly. I guess I'm having
really bad luck ever running start-ajax. I've switched from SBCL to
OpenMCL to ACL and still can't seem to get it to work properly. I'm on OS
X, in case that matters. When I visit that URL, I get this on the console:
09:10 UCW.BACKEND/+INFO+: Handling request from COMMON-LISP:NIL for "/"
09:10 UCW-LOGGER/+ERROR+: Got request error: Non-structure argument
(COMMON-LISP:NIL) passed to ref of structure slot 1.
09:10 UCW-LOGGER/+INFO+: Debugging error: Non-structure argument
(COMMON-LISP:NIL) passed to ref of structure slot 1.
And this on SLIME:
Non-structure argument (NIL) passed to ref of structure slot 1
[Condition of type SIMPLE-ERROR]
Restarts:
0: [SERVER-ERROR] Send the client an internal server error page.
1: [GENERATE-BACKTRACE-FOR-EMACS] Generate a bug report in Emacs.
2: [FAIL-MISERABLY] Pretend this request never happend and fail.
3: [TRY-AGAIN] Play this request over from the top.
4: [ABORT] Abort entirely from this (lisp) process.
Backtrace:
0: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY*) (*PRINT-LEVEL* . 4)
(*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*)
(*PRINT-PPRINT-DISPATCH* . #S(EXCL::PPRINT-DISPATCH-STRUCT
:CONSES-WITH-CARS # :STRUCTURES # :OTHERS #)) (*PRINT-GENSYM* . T)
(*PRINT-BASE* . 10) (*PRINT-RADIX*) (*PRINT-ARRAY* . T) ...) #<Function
(:INTERNAL SWANK::DEBUG-IN-EMACS 0)>)
1: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR @ #x1157ce42>)
2: ((:INTERNAL SWANK:SWANK-DEBUGGER-HOOK 0))
3: ((:INTERNAL (:TOP-LEVEL-FORM "swank-backend.lisp" 19979) 0)
#<Function SWANK-DEBUGGER-HOOK> #<Closure (:INTERNAL
SWANK:SWANK-DEBUGGER-HOOK 0) @ #x115b27ba>)
4: (SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK #<Function
SWANK-DEBUGGER-HOOK> #<Closure (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK 0) @
#x115b27ba>)
5: ((:INTERNAL SWANK::CALL-WITH-CONNECTION 0))
6: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION @ #x103cfa8a>
#<Closure (:INTERNAL SWANK::CALL-WITH-CONNECTION 0) @ #x115b27ea>)
7: (SWANK::MAYBE-CALL-WITH-IO-REDIRECTION #<SWANK::CONNECTION @
#x103cfa8a> #<Closure (:INTERNAL SWANK::CALL-WITH-CONNECTION 0) @
#x115b27ea>)
8: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION @ #x103cfa8a>
#<Closure (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK 0) @ #x115b27ba>)
9: (SWANK:SWANK-DEBUGGER-HOOK #<SIMPLE-ERROR @ #x1157ce42> NIL)
10: ((:INTERNAL (METHOD IT.BESE.UCW::HANDLE-REQUEST
(IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:REQUEST IT.BESE.UCW:RESPONSE))
4) #<SIMPLE-ERROR @ #x1157ce42>)
Locals:
CONDITION = #<SIMPLE-ERROR @ #x1157ce42>
SYSTEM::.LAMBDA-LEXICAL-ENV. = #(#(-268441016 NIL) NIL)
CONDITION = #<SIMPLE-ERROR @ #x1157ce42>
IT.BESE.UCW::HANDLED = NIL
11: (SIGNAL #<SIMPLE-ERROR @ #x1157ce42>)
Locals:
EXCL::DATUM = #<SIMPLE-ERROR @ #x1157ce42>
EXCL::ARGUMENTS = NIL
EXCL::LOCAL-0 = NIL
EXCL::LOCAL-1 = #<SIMPLE-ERROR @ #x1157ce42>
EXCL::LOCAL-2 = ((ERROR . #<Closure (:INTERNAL # 4) @ #x11563242>))
EXCL::LOCAL-3 = 419494982
EXCL::LOCAL-4 = #<Closure (METHOD ACLMOP:CLASS-PRECEDENCE-LIST
(EXCL::CLOS-CLASS)) @ #x10218d72>
EXCL::LOCAL-5 = (ERROR . #<Closure (:INTERNAL (METHOD
IT.BESE.UCW::HANDLE-REQUEST #) 4) @ #x11563242>)
12: (ERROR SIMPLE-ERROR :FORMAT-CONTROL "Non-structure argument ~s passed
to ref of structure slot ~s" :FORMAT-ARGUMENTS ((NIL) 1))
Locals:
EXCL::DATUM = SIMPLE-ERROR
EXCL::ARGUMENTS = (:FORMAT-CONTROL "Non-structure argument ~s
passed to ref of structure slot ~s" :FORMAT-ARGUMENTS ((NIL) 1))
EXCL::LOCAL-0 = (:FORMAT-CONTROL "Non-structure argument ~s passed
to ref of structure slot ~s" :FORMAT-ARGUMENTS ((NIL) 1))
EXCL::LOCAL-1 = SIMPLE-ERROR
EXCL::LOCAL-2 = #<SIMPLE-ERROR @ #x1157ce42>
EXCL::LOCAL-3 = 97
:UNKNOWN = NIL
:UNKNOWN = NIL
:UNKNOWN = NIL
13: (IT.BESE.UCW::HANDLE-ACTION #<IT.BESE.UCW-USER::EXAMPLE-APPLICATION
"/" @ #x10dcb0c2> #<#<STANDARD-CLASS
IT.BESE.UCW-USER::EXAMPLE-APPLICATION-SESSION @ #x10ddc40a> 0 NIL @
#x11570bca> NIL #S(IT.BESE.UCW::ACTION-ENTRY :LAMBDA #<Closure (:INTERNAL
# 1) @ #x10de64ba> :VALID-P T :ISOLATED-P NIL :INVOCATION-ISOLATED-P NIL
:INVOCATION-IDS ...))
Locals:
IT.BESE.UCW::APPLICATION = #<IT.BESE.UCW-USER::EXAMPLE-APPLICATION
"/" @ #x10dcb0c2>
IT.BESE.UCW::SESSION = #<#<STANDARD-CLASS
IT.BESE.UCW-USER::EXAMPLE-APPLICATION-SESSION @ #x10ddc40a> 0 NIL
@ #x11570bca>
IT.BESE.UCW::FRAME = NIL
IT.BESE.UCW::ACTION = #S(IT.BESE.UCW::ACTION-ENTRY :LAMBDA
#<Closure (:INTERNAL (:TOP-LEVEL-FORM "examples.lisp" 2287) 1) @
#x10de64ba> :VALID-P T :ISOLATED-P NIL :INVOCATION-ISOLATED-P NIL
:INVOCATION-IDS ...)
IT.BESE.UCW::CALL-CALLBACKS-P = :UNSUPPLIED
#:|g61427| = (NIL)
IT.BESE.UCW::ACTION = #S(IT.BESE.UCW::ACTION-ENTRY :LAMBDA
#<Closure (:INTERNAL (:TOP-LEVEL-FORM "examples.lisp" 2287) 1) @
#x10de64ba> :VALID-P T :ISOLATED-P NIL :INVOCATION-ISOLATED-P NIL
:INVOCATION-IDS ...)
NIL = 0
#:|g61426| = NIL
IT.BESE.UCW::SESSION = #<#<STANDARD-CLASS
IT.BESE.UCW-USER::EXAMPLE-APPLICATION-SESSION @ #x10ddc40a> 0 NIL
@ #x11570bca>
IT.BESE.UCW::APPLICATION = #<IT.BESE.UCW-USER::EXAMPLE-APPLICATION
"/" @ #x10dcb0c2>
SYSTEM::.LAMBDA-LEXICAL-ENV. = #(NIL)
SYSTEM::.LET-LEXICAL-ENV. = 70397753
IT.BESE.UCW::CALL-CALLBACKS-P = NIL
IT.BESE.UCW::ACTION-LAMBDA = 469762048
#:|g61425| = NIL
#:|g61430| = NIL
IT.BESE.UCW::ACTION-INVOCATION-ID = #<non-lisp object @ #x2>
#:|g61429| = NIL
#:|g61428| = "Lock"
NIL = 12789087
NIL = 1
NIL = -268441356
NIL = 0
#:|g61431| = #<STANDARD-GENERIC-FUNCTION IT.BESE.UCW::HANDLER-HANDLE>
#:|g61439| = -268441350
NIL = NIL
NIL = #\null
NIL = (#<Printer Error, obj=#x1000057d: Received signal number 11
(Segmentation violation)>)
NIL = #<Function INSERT-CLOSURE-VALS>
SYSTEM::.LET-LEXICAL-ENV. = -268441364
#:|g61424| = 419494978
IT.BESE.UCW::ACTION-LAMBDA = #(14903229 T (IT.BESE.UCW::HANDLER
IT.BESE.UCW::URL-STRING IT.BESE.UCW::SCANNER
IT.BESE.UCW::PRIORITY) #() #<STANDARD-CLASS
IT.BESE.UCW:REGEXP-DISPATCHER> 0 (T :UNKNOWN))
IT.BESE.UCW::CALLBACKS-CALLED = #(14903229 T (IT.BESE.UCW::HANDLER
IT.BESE.UCW::URL-STRING IT.BESE.UCW::SCANNER
IT.BESE.UCW::PRIORITY) #() #<STANDARD-CLASS
IT.BESE.UCW:REGEXP-DISPATCHER> 0 (T :UNKNOWN))
IT.BESE.UCW::FRAME = NIL
14: ((METHOD IT.BESE.UCW::HANDLER-HANDLE
(IT.BESE.UCW::ENTRY-POINT-HANDLER IT.BESE.UCW:STANDARD-APPLICATION
IT.BESE.UCW::STANDARD-REQUEST-CONTEXT T)) #<IT.BESE.UCW:REGEXP-DISPATCHER
^(index.ucw|)$ @ #x10ddcb7a> #<IT.BESE.UCW-USER::EXAMPLE-APPLICATION "/"
@ #x10dcb0c2> #<#<STANDARD-CLASS
IT.BESE.UCW-USER::EXAMPLE-APPLICATION-REQUEST-CONTEXT @ #x10ddc41a> @
#x115640fa> ("" #("")))
Locals:
IT.BESE.UCW::HANDLER = #<IT.BESE.UCW:REGEXP-DISPATCHER
^(index.ucw|)$ @ #x10ddcb7a>
IT.BESE.UCW::APPLICATION = #<IT.BESE.UCW-USER::EXAMPLE-APPLICATION
"/" @ #x10dcb0c2>
IT.BESE.UCW::CONTEXT = #<#<STANDARD-CLASS
IT.BESE.UCW-USER::EXAMPLE-APPLICATION-REQUEST-CONTEXT @
#x10ddc41a> @ #x115640fa>
IT.BESE.UCW::MATCHER-RESULT = ("" #(""))
IT.BESE.UCW::APPLICATION = #<IT.BESE.UCW-USER::EXAMPLE-APPLICATION
"/" @ #x10dcb0c2>
IT.BESE.UCW::HANDLER = #<IT.BESE.UCW:REGEXP-DISPATCHER
^(index.ucw|)$ @ #x10ddcb7a>
IT.BESE.UCW::CONTEXT = #<non-lisp object @ #x1>
15: ((METHOD IT.BESE.UCW::DISPATCH (IT.BESE.UCW::ABSTRACT-DISPATCHER
IT.BESE.UCW:STANDARD-APPLICATION IT.BESE.UCW::STANDARD-REQUEST-CONTEXT))
#<IT.BESE.UCW:REGEXP-DISPATCHER ^(index.ucw|)$ @ #x10ddcb7a>
#<IT.BESE.UCW-USER::EXAMPLE-APPLICATION "/" @ #x10dcb0c2>
#<#<STANDARD-CLASS IT.BESE.UCW-USER::EXAMPLE-APPLICATION-REQUEST-CONTEXT
@ #x10ddc41a> @ #x115640fa>)
Locals:
IT.BESE.UCW::DISPATCHER = #<IT.BESE.UCW:REGEXP-DISPATCHER
^(index.ucw|)$ @ #x10ddcb7a>
IT.BESE.UCW::APPLICATION = #<IT.BESE.UCW-USER::EXAMPLE-APPLICATION
"/" @ #x10dcb0c2>
IT.BESE.UCW::CONTEXT = #<#<STANDARD-CLASS
IT.BESE.UCW-USER::EXAMPLE-APPLICATION-REQUEST-CONTEXT @
#x10ddc41a> @ #x115640fa>
IT.BESE.UCW::DISPATCHER = #<IT.BESE.UCW:REGEXP-DISPATCHER
^(index.ucw|)$ @ #x10ddcb7a>
IT.BESE.UCW::APPLICATION = #<IT.BESE.UCW-USER::EXAMPLE-APPLICATION
"/" @ #x10dcb0c2>
IT.BESE.UCW::CONTEXT = #<#<STANDARD-CLASS
IT.BESE.UCW-USER::EXAMPLE-APPLICATION-REQUEST-CONTEXT @
#x10ddc41a> @ #x115640fa>
16: ((METHOD IT.BESE.UCW::SERVICE (IT.BESE.UCW:STANDARD-APPLICATION
IT.BESE.UCW::REQUEST-CONTEXT)) #<IT.BESE.UCW-USER::EXAMPLE-APPLICATION
"/" @ #x10dcb0c2> #<#<STANDARD-CLASS
IT.BESE.UCW-USER::EXAMPLE-APPLICATION-REQUEST-CONTEXT @ #x10ddc41a> @
#x115640fa>)
Locals:
IT.BESE.UCW::APP = #<IT.BESE.UCW-USER::EXAMPLE-APPLICATION "/" @
#x10dcb0c2>
IT.BESE.UCW::CONTEXT = #<#<STANDARD-CLASS
IT.BESE.UCW-USER::EXAMPLE-APPLICATION-REQUEST-CONTEXT @
#x10ddc41a> @ #x115640fa>
IT.BESE.UCW::APP = #<IT.BESE.UCW-USER::EXAMPLE-APPLICATION "/" @
#x10dcb0c2>
IT.BESE.UCW::CONTEXT = #<#<STANDARD-CLASS
IT.BESE.UCW-USER::EXAMPLE-APPLICATION-REQUEST-CONTEXT @
#x10ddc41a> @ #x115640fa>
#:|g60549| = (#<IT.BESE.UCW:REGEXP-DISPATCHER ^(index.ucw|)$ @
#x10ddcb7a> #<IT.BESE.UCW:URL-DISPATCHER "error.ucw" @ #x10ddcb8a>
#<IT.BESE.UCW:URL-DISPATCHER "error-render.ucw" @ #x10ddcb9a>)
17: ((METHOD IT.BESE.UCW::HANDLE-REQUEST (IT.BESE.UCW:STANDARD-SERVER
IT.BESE.UCW:REQUEST IT.BESE.UCW:RESPONSE)) #<IT.BESE.UCW:STANDARD-SERVER
IT.BESE.UCW:MULTITHREAD-HTTPD-BACKEND 4 @ #x10f46c6a>
#<IT.BESE.UCW::HTTPD-REQUEST @ #x1154a212> #<IT.BESE.UCW::HTTPD-RESPONSE
@ #x11557332>)
Locals:
IT.BESE.UCW::SERVER = #<IT.BESE.UCW:STANDARD-SERVER
IT.BESE.UCW:MULTITHREAD-HTTPD-BACKEND 4 @ #x10f46c6a>
IT.BESE.UCW:REQUEST = #<IT.BESE.UCW::HTTPD-REQUEST @ #x1154a212>
IT.BESE.UCW:RESPONSE = #<IT.BESE.UCW::HTTPD-RESPONSE @ #x11557332>
IT.BESE.UCW:RESPONSE = #<IT.BESE.UCW::HTTPD-RESPONSE @ #x11557332>
IT.BESE.UCW:REQUEST = #<IT.BESE.UCW::HTTPD-REQUEST @ #x1154a212>
IT.BESE.UCW::SERVER = #<IT.BESE.UCW:STANDARD-SERVER
IT.BESE.UCW:MULTITHREAD-HTTPD-BACKEND 4 @ #x10f46c6a>
IT.BESE.UCW::|internalv-G61861| = -268440965
SYSTEM::.LET-LEXICAL-ENV. = #(#(-268441016 NIL) NIL)
SYSTEM::.LET-LEXICAL-ENV. = #(-268441016 NIL)
IT.BESE.UCW::|internalv-G61870| = -268440989
IT.BESE.UCW::APP = #<IT.BESE.UCW-USER::EXAMPLE-APPLICATION "/" @
#x10dcb0c2>
NIL = #<restart IT.BESE.UCW::FAIL-MISERABLY @ #x1155b30a>
NIL = #<restart IT.BESE.UCW::SERVER-ERROR @ #x1156325a>
NIL = #<Closure (:INTERNAL (METHOD IT.BESE.UCW::HANDLE-REQUEST
(IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:REQUEST
IT.BESE.UCW:RESPONSE)) 0) @ #xbfffa922>
NIL = #<Closure (:INTERNAL (METHOD IT.BESE.UCW::HANDLE-REQUEST
(IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:REQUEST
IT.BESE.UCW:RESPONSE)) 2) @ #xbfffa932>
NIL = #<Closure (:INTERNAL (METHOD IT.BESE.UCW::HANDLE-REQUEST
(IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:REQUEST
IT.BESE.UCW:RESPONSE)) 5) @ #xbfffa942>
NIL = #<Closure (:INTERNAL (METHOD IT.BESE.UCW::HANDLE-REQUEST
(IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:REQUEST
IT.BESE.UCW:RESPONSE)) 7) @ #xbfffa952>
#:|g61847| = #<IT.BESE.UCW::HTTPD-RESPONSE @ #x11557332>
NIL = NIL
NIL = (#<restart IT.BESE.UCW::FAIL-MISERABLY @ #x1155b30a>
#<restart IT.BESE.UCW::TRY-AGAIN @ #x1155b332>)
#:|g61829| = ((ERROR . #<Closure (:INTERNAL # 4) @ #x11563242>))
NIL = (#<restart IT.BESE.UCW::SERVER-ERROR @ #x1156325a> #<restart
IT.BESE.UCW::GENERATE-BACKTRACE-FOR-EMACS @ #x11563282>)
#:|g61848| = #<non-lisp object @ #x1fff>
IT.BESE.UCW::|internalv-G61866| = -268440997
#:G61835 = NIL
IT.BESE.UCW::|internalv-G61857| = -268440973
#:G61823 = :UNKNOWN
IT.BESE.UCW::HANDLED = :UNKNOWN
18: ((METHOD IT.BESE.UCW::HANDLE-REQUEST (IT.BESE.UCW:HTTPD-BACKEND
IT.BESE.UCW::HTTPD-REQUEST IT.BESE.UCW::HTTPD-RESPONSE))
#<IT.BESE.UCW:MULTITHREAD-HTTPD-BACKEND @ #x114f981a>
#<IT.BESE.UCW::HTTPD-REQUEST @ #x1154a212> #<IT.BESE.UCW::HTTPD-RESPONSE
@ #x11557332>)
19: (IT.BESE.UCW::HTTPD-WORKER-LOOP/HANDLE #<IT.BESE.UCW::HTTPD-WORKER @
#x11518d72> #<IT.BESE.UCW:MULTITHREAD-HTTPD-BACKEND @ #x114f981a>
#<IT.BESE.UCW::PENDING-REQUEST @ #x115404fa>)
20: (IT.BESE.UCW::HTTPD-WORKER-LOOP #<IT.BESE.UCW::HTTPD-WORKER @
#x11518d72>)
21: ((:INTERNAL (METHOD IT.BESE.UCW::MAKE-WORKER NIL) 0))
-----Original Message-----
From: "Attila Lendvai" <attila.lendvai at gmail.com>
Sent: Tue, December 5, 2006 6:29 am
To: "Henrik Hjelte" <henrik at evahjelte.com>
Cc: lists at infoway.net
0bese-devel at common-lisp.net
Subject: Re: [Bese-devel] UCW in ACL
> It's a bug in iterate, I have posted a fix to the iterate devel mailing
> list but I guess it hasn't been applied. I attach a darcs patch you can
> apply, or if you are not accustomed to darcs, make four small changes to
> iterate.lisp, see below.
i've been using this patch for quite some time without any
regressions, so i've pushed it to the iterate repo.
thanks for the fix,
--
- attila
"- The truth is that I've been too considerate, and so became
unintentionally cruel...
- I understand.
- No, you don't understand! We don't speak the same language!"
(Ingmar Bergman - Smultronstället)
More information about the bese-devel
mailing list