[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