[Bese-devel] Re: error: cannot find source location

Sun Mar 12 21:37:22 UTC 2006

Sorry, I just solved the problem. I had an old copy of rfc2109, even though
I just asdf-installed it today.

I changed the darcs repository file of the asdf installed rfc2109 system to
http://wwww.common-lisp.net/project/rfc2109/rfc2109/ (It refered to a local
directory on the developer's machine) and  did a "darcs pull". There were
three patches. No more errors. I don't know why asdf-install does not
install the latest version.

On 3/12/06, Daniel Patru <dpatru at gmail.com> wrote:
>
> 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
>

--
"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/e2e348be/attachment.html>