[Bese-devel] error: cannot find source location

Sun Mar 12 21:00:23 UTC 2006

I just pulled the ucw_dev changes and now the example app won't run. I get
the following error screen.

I think that I somehow installed rfc2109 wrong (see number 12 below), but
I'm not sure. Any help would be appreciated. Thanks.

 border="" > IndexDescriptionLocalsSource IndexDescriptionLocalsSource4(SIGNAL
#<TYPE-ERROR {BAA7C71}>)((NAME ARG-0 ID 0 VALUE 1) (NAME ARG-1 ID 0 VALUE
The value NIL is not of type STRING.))(LOCATION (FILE
/usr/share/sbcl-common/src/code/cold-error.lisp) (POSITION 674) (SNIPPET
defun signal (datum &rest arguments) #!+sb-doc "Invokes the signal facility
on a condition formed from DATUM and ARGUMENTS. If the condition is not
handled, NIL is returned. If (TYPEP condition *BREAK-ON-SIGNALS*) is true,
the debugger is invoked))5(ERROR TYPE-ERROR)((NAME ARG-0 ID 0 VALUE 5) (NAME
ARG-1 ID 0 VALUE TYPE-ERROR))(LOCATION (FILE
/usr/share/sbcl-common/src/code/cold-error.lisp) (POSITION 1) (SNIPPET
(in-package "SB!KERNEL") (defvar *break-on-signals* nil #!+sb-doc "When
(TYPEP condition *BREAK-ON-SIGNALS*) is true, then calls to SIGNAL will
enter the debugger prior to signalling that condition.") (defun signal
(datum &rest arguments) #!+sb-))6(SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
#<unavailable argument> #.(SB-SYS:INT-SAP #XB725AF8C)
#<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB725AC5C :TYPE (* (STRUCT
SB-VM::OS-CONTEXT-T-STRUCT))> (142 14))((NAME ARG-0 ID 0 VALUE 4) (NAME
ARG-1 ID 0 VALUE <NOT-AVAILABLE>) (NAME ARG-2 ID 0 VALUE #.(SB-SYS:INT-SAP
#XB725AF8C)) (NAME ARG-3 ID 0 VALUE #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP
#XB725AC5C :TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))>) (NAME ARG-4 ID 0
VALUE (142 14)))(LOCATION (FILE /usr/share/sbcl-common/src/code/interr.lisp)
(POSITION 7357) (SNIPPET deferr object-not-type-error (object type) (error
(if (and (%instancep object) (layout-invalid (%instance-layout object)))
'layout-invalid 'type-error) :datum object :expected-type type))
(de))7(SB-KERNEL:INTERNAL-ERROR
#.(SB-SYS:INT-SAP #XB725AC5C) #<unavailable argument>)((NAME ARG-0 ID 0
VALUE 2) (NAME ARG-1 ID 0 VALUE #.(SB-SYS:INT-SAP #XB725AC5C)) (NAME ARG-2
ID 0 VALUE <NOT-AVAILABLE>))(LOCATION (FILE
/usr/share/sbcl-common/src/code/interr.lisp) (POSITION 12779) (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-CONTEX))8("foreign function: call_into_lisp")NIL(ERROR The value
#<SB-DI::BOGUS-DEBUG-FUN "foreign function: call_into_lisp"> is not of type
SB-DI::COMPILED-DEBUG-FUN.)9("foreign function: funcall2")NIL(ERROR The
value #<SB-DI::BOGUS-DEBUG-FUN "foreign function: funcall2"> is not of type
SB-DI::COMPILED-DEBUG-FUN.)10("foreign function: interrupt_internal_error")
NIL(ERROR The value #<SB-DI::BOGUS-DEBUG-FUN "foreign function:
interrupt_internal_error"> is not of type
SB-DI::COMPILED-DEBUG-FUN.)11("foreign
function: sigtrap_handler")NIL(ERROR The value #<SB-DI::BOGUS-DEBUG-FUN
"foreign function: sigtrap_handler"> is not of type
SB-DI::COMPILED-DEBUG-FUN.)12(RFC2109::SPLIT-ALONG-QUOTED-LWS NIL)((NAME
ARG-0 ID 0 VALUE 1) (NAME ARG-1 ID 0 VALUE NIL))(ERROR Cannot find source
location for: #<COMPILED-CODE-LOCATION (SB-C::XEP
RFC2109::SPLIT-ALONG-QUOTED-LWS)> )13(RFC2109:PARSE-COOKIES NIL)((NAME ARG-0
ID 0 VALUE NIL))(LOCATION (FILE
/usr/lib/sbcl/site/rfc2109-version-0.3.2/rfc2109.lisp)
(POSITION 36381) (SNIPPET defun parse-cookies (cookie-string) "Parses
cookies in a Cookie: request header, returning a list of COOKIE structs. The
only information that is passed back for each cookie is: name, value, path,
domain, so don't go looking for comments or the like.
No))14((SB-PCL::FAST-METHOD
IT.BESE.UCW::FIND-SESSION-ID (IT.BESE.UCW::COOKIE-SESSION-REQUEST-CONTEXT))
#<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #>
:PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) #<
IT.BESE.UCW::COOKIE-SESSION-REQUEST-CONTEXT {BA9F431}>)((NAME ARG-0 ID 0
VALUE <NOT-AVAILABLE>) (NAME ARG-1 ID 0 VALUE #S(SB-PCL::FAST-METHOD-CALL
:FUNCTION # :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1))) (NAME ARG-2
ID 0 VALUE #<COOKIE-SESSION-REQUEST-CONTEXT {BA9F431}>))(LOCATION (FILE
/ucw/ucw_dev/src/rerl/cookie-session.lisp) (POSITION 1404) (SNIPPET
defmethod find-session-id ((context cookie-session-request-context)) (or
(call-next-method) (loop for cookie in (rfc2109:parse-cookies (get-header (
context.request context) "Cookie")) if (string=
(rfc2109:c))15((SB-PCL::FAST-METHOD
IT.BESE.UCW::FIND-SESSION (IT.BESE.UCW:STANDARD-APPLICATION
IT.BESE.UCW::REQUEST-CONTEXT)) #<unavailable argument> #<unavailable
argument> #<IT.BESE.UCW:COOKIE-SESSION-APPLICATION "/" {C34EB91}> #<
IT.BESE.UCW::COOKIE-SESSION-REQUEST-CONTEXT {BA9F431}>)((NAME ARG-0 ID 0
VALUE <NOT-AVAILABLE>) (NAME ARG-1 ID 0 VALUE <NOT-AVAILABLE>) (NAME ARG-2
ID 0 VALUE #<COOKIE-SESSION-APPLICATION "/" {C34EB91}>) (NAME ARG-3 ID 0
VALUE #<COOKIE-SESSION-REQUEST-CONTEXT {BA9F431}>))(LOCATION (FILE
/ucw/ucw_dev/src/rerl/standard-application.lisp) (POSITION 555) (SNIPPET
defmethod find-session ((app standard-application) (context
request-context)) "Returns the session with ID (find-session-id CONTEXT) in
APP, NIL if there is no session with that id." (let ((session-id
(find-session-id context))) (if session-id ))16((SB-PCL::FAST-METHOD
IT.BESE.UCW::SERVICE (IT.BESE.UCW:STANDARD-APPLICATION
IT.BESE.UCW::REQUEST-CONTEXT)) (#(NIL 3) . #()) #<unavailable argument> #<
IT.BESE.UCW:COOKIE-SESSION-APPLICATION "/" {C34EB91}> #<
IT.BESE.UCW::COOKIE-SESSION-REQUEST-CONTEXT {BA9F431}>)((NAME ARG-0 ID 0
VALUE (#(NIL 3) . #())) (NAME ARG-1 ID 0 VALUE <NOT-AVAILABLE>) (NAME ARG-2
ID 0 VALUE #<COOKIE-SESSION-APPLICATION "/" {C34EB91}>) (NAME ARG-3 ID 0
VALUE #<COOKIE-SESSION-REQUEST-CONTEXT {BA9F431}>))(LOCATION (FILE
/ucw/ucw_dev/src/rerl/standard-application.lisp) (POSITION 5255) (SNIPPET
defmethod service ((app standard-application) (context request-context))
"Service a request for this application. The CONTEXT is inspected and
session is either created (if an existing one can not be found), or
retrieved form the application's session t))17((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"/" {C34EB91}> #<
IT.BESE.UCW::COOKIE-SESSION-REQUEST-CONTEXT {BA9F431}>)((NAME ARG-0 ID 0
VALUE <NOT-AVAILABLE>) (NAME ARG-1 ID 0 VALUE <NOT-AVAILABLE>) (NAME ARG-2
ID 0 VALUE #<COOKIE-SESSION-APPLICATION "/" {C34EB91}>) (NAME ARG-3 ID 0
VALUE #<COOKIE-SESSION-REQUEST-CONTEXT {BA9F431}>))(ERROR unhandled
DEBUG-CONDITION: #<SB-DI::COMPILED-DEBUG-FUN (LAMBDA (SB-PCL::.PV-CELL.
SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.))> has no
debug-block information.)18((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:MULTITHREAD-MOD-LISP-BACKEND 2
{BAEAFD9}> #<IT.BESE.UCW::MOD-LISP-REQUEST {B85E9B1}> #<
IT.BESE.UCW::MOD-LISP-RESPONSE {B8E17F9}>)((NAME ARG-0 ID 0 VALUE
<NOT-AVAILABLE>) (NAME ARG-1 ID 0 VALUE <NOT-AVAILABLE>) (NAME ARG-2 ID 0
VALUE #<STANDARD-SERVER IT.BESE.UCW:MULTITHREAD-MOD-LISP-BACKEND 2
{BAEAFD9}>) (NAME ARG-3 ID 0 VALUE #<MOD-LISP-REQUEST {B85E9B1}>) (NAME
ARG-4 ID 0 VALUE #<MOD-LISP-RESPONSE {B8E17F9}>))(LOCATION (FILE
/ucw/ucw_dev/src/rerl/standard-server.lisp) (POSITION 3418) (SNIPPET
defmethod handle-request ((server standard-server) (request request)
(response response)) "Service REQUEST and create a response in RESPONSE.
This method creates the catch tag abort-request and a res))19(
IT.BESE.UCW::HTTPD-WORKER-LOOP/HANDLE #<IT.BESE.UCW::HTTPD-WORKER {B73C2A1}>
#<IT.BESE.UCW:MULTITHREAD-MOD-LISP-BACKEND {B4B4999}> #<
IT.BESE.UCW::PENDING-REQUEST {B7BE739}>)((NAME ARG-0 ID 0 VALUE
#<HTTPD-WORKER {B73C2A1}>) (NAME ARG-1 ID 0 VALUE
#<MULTITHREAD-MOD-LISP-BACKEND {B4B4999}>) (NAME ARG-2 ID 0 VALUE
#<PENDING-REQUEST {B7BE739}>))(LOCATION (FILE
/ucw/ucw_dev/src/backend/multithread-httpd.lisp) (POSITION 7964) (SNIPPET
defun httpd-worker-loop/handle (worker backend pending-request) (let
((stream (network-stream pending-request))) (flet ((abort-worker (condition)
;; set the stop flag so that if a connection ;; comes in before the shutdown
m))20(IT.BESE.UCW::HTTPD-WORKER-LOOP #<IT.BESE.UCW::HTTPD-WORKER
{B73C2A1}>)((NAME
ARG-0 ID 0 VALUE #<HTTPD-WORKER {B73C2A1}>))(LOCATION (FILE
/ucw/ucw_dev/src/backend/multithread-httpd.lisp) (POSITION 9208) (SNIPPET
defun httpd-worker-loop (worker) (loop (receive ((shutdown) (return-from
httpd-worker-loop nil)) ((connection ?backend ?pending-request) (unless
(stop-flag worker) (httpd-worker-loop/handle worker ?backend
?pending-re))21((LAMBDA
()))NIL(LOCATION (FILE /usr/share/sbcl-common/src/code/target-thread.lisp)
(POSITION 17253) (SNIPPET defun make-thread (function &key name) #!+sb-doc
"Create a new thread of NAME that runs FUNCTION. When the function returns
the thread exits." #!-sb-thread (declare (ignore function name))
#!-sb-thread (error "Not supported in unithread builds.") ))22("foreign
function: call_into_lisp")NIL(ERROR The value #<SB-DI::BOGUS-DEBUG-FUN
"foreign function: call_into_lisp"> is not of type
SB-DI::COMPILED-DEBUG-FUN.)23("foreign function: funcall0")NIL(ERROR The
value #<SB-DI::BOGUS-DEBUG-FUN "foreign function: funcall0"> is not of type
SB-DI::COMPILED-DEBUG-FUN.)24("foreign function:
new_thread_trampoline")NIL(ERROR
The value #<SB-DI::BOGUS-DEBUG-FUN "foreign function:
new_thread_trampoline"> is not of type SB-DI::COMPILED-DEBUG-FUN.)25("foreign
function: #xB7FC8CED")NIL(ERROR The value #<SB-DI::BOGUS-DEBUG-FUN "foreign
function: #xB7FC8CED"> is not of type SB-DI::COMPILED-DEBUG-FUN.)

--
"Work and play are used to describe the same thing under differing
circumstance."
  - Mark Twain
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060312/1bc85f3e/attachment.html>