Sorry, I just solved the problem. I had an old copy of rfc2109, even though I just asdf-installed it today.<br>
<br>
I changed the darcs repository file of the asdf installed rfc2109
system to <a href="http://wwww.common-lisp.net/project/rfc2109/rfc2109/">http://wwww.common-lisp.net/project/rfc2109/rfc2109/</a> (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. <br><br><div><span class="gmail_quote">On 3/12/06, <b class="gmail_sendername">Daniel Patru</b> <<a href="mailto:dpatru@gmail.com">dpatru@gmail.com</a>> wrote:
</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div style="direction: ltr;"><p>I just pulled the ucw_dev changes and now the example app won't run. I get the following error screen.
<br>
</p>
<p><br>
I think that I somehow installed rfc2109 wrong (see number 12 below), but I'm not sure. Any help would be appreciated. Thanks.<br>
</p>
<p><br>
</p>
border=""
>
<table>
<tbody><tr><th>Index</th><th>Description</th><th>Locals</th><th>Source</th></tr> <tr><th>Index</th><th>Description</th><th>Locals</th><th>Source</th></tr><tr><td>4</td><td>(SIGNAL #<TYPE-ERROR {BAA7C71}>)</td><td>((NAME ARG-0 ID 0 VALUE 1)
(NAME ARG-1 ID 0 VALUE The value NIL is not of type STRING.))</td><td>(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))</td></tr><tr><td>5</td><td>(ERROR TYPE-ERROR)</td><td>((NAME ARG-0 ID 0 VALUE 5) (NAME ARG-1 ID 0 VALUE TYPE-ERROR))</td><td>(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-))</td></tr><tr><td>6</td><td>(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))</td><td>((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)))</td><td>(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))</td></tr><tr><td>7</td><td>(SB-KERNEL:INTERNAL-ERROR
#.(SB-SYS:INT-SAP #XB725AC5C)
#<unavailable argument>)</td><td>((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>))</td><td>(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))</td></tr><tr><td>8</td><td>("foreign function: call_into_lisp")</td><td>NIL</td><td>(ERROR The value #<SB-DI::BOGUS-DEBUG-FUN "foreign function: call_into_lisp">
is not of type
SB-DI::COMPILED-DEBUG-FUN.)</td></tr><tr><td>9</td><td>("foreign function: funcall2")</td><td>NIL</td><td>(ERROR The value #<SB-DI::BOGUS-DEBUG-FUN "foreign function: funcall2">
is not of type
SB-DI::COMPILED-DEBUG-FUN.)</td></tr><tr><td>10</td><td>("foreign function: interrupt_internal_error")</td><td>NIL</td><td>(ERROR The value
#<SB-DI::BOGUS-DEBUG-FUN "foreign function: interrupt_internal_error">
is not of type
SB-DI::COMPILED-DEBUG-FUN.)</td></tr><tr><td>11</td><td>("foreign function: sigtrap_handler")</td><td>NIL</td><td>(ERROR The value #<SB-DI::BOGUS-DEBUG-FUN "foreign function: sigtrap_handler">
is not of type
SB-DI::COMPILED-DEBUG-FUN.)</td></tr><tr><td>12</td><td>(RFC2109::SPLIT-ALONG-QUOTED-LWS NIL)</td><td>((NAME ARG-0 ID 0 VALUE 1) (NAME ARG-1 ID 0 VALUE NIL))</td><td>(ERROR Cannot find source location for: #<COMPILED-CODE-LOCATION (SB-C::XEP
RFC2109::SPLIT-ALONG-QUOTED-LWS)> )</td></tr><tr><td>13</td><td>(RFC2109:PARSE-COOKIES NIL)</td><td>((NAME ARG-0 ID 0 VALUE NIL))</td><td>(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))</td></tr><tr><td>14</td><td>((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}>)</td><td>((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}>))</td><td>(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))</td></tr><tr><td>15</td><td>((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}>)</td><td>((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}>))</td><td>(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
))</td></tr><tr><td>16</td><td>((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}>)</td><td>((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}>))</td><td>(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))</td></tr><tr><td>17</td><td>((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}>)</td><td>((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}>))</td><td>(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.)</td></tr><tr><td>18</td><td>((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}>)</td><td>((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}>))</td><td>(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))</td></tr><tr><td>19</td><td>(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}>)</td><td>((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}>))</td><td>(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))</td></tr><tr><td>20</td><td>(IT.BESE.UCW::HTTPD-WORKER-LOOP #<IT.BESE.UCW::HTTPD-WORKER {B73C2A1}>)</td><td>((NAME ARG-0 ID 0 VALUE #<HTTPD-WORKER {B73C2A1}>))
</td><td>(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))</td></tr><tr><td>21</td><td>((LAMBDA ()))</td><td>NIL</td><td>(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.")
))</td></tr><tr><td>22</td><td>("foreign function: call_into_lisp")</td><td>NIL</td><td>(ERROR The value #<SB-DI::BOGUS-DEBUG-FUN "foreign function: call_into_lisp">
is not of type
SB-DI::COMPILED-DEBUG-FUN.)</td></tr><tr><td>23</td><td>("foreign function: funcall0")</td><td>NIL</td><td>(ERROR The value #<SB-DI::BOGUS-DEBUG-FUN "foreign function: funcall0">
is not of type
SB-DI::COMPILED-DEBUG-FUN.)</td></tr><tr><td>24</td><td>("foreign function: new_thread_trampoline")</td><td>NIL</td><td>(ERROR
The value #<SB-DI::BOGUS-DEBUG-FUN "foreign function: new_thread_trampoline">
is not of type
SB-DI::COMPILED-DEBUG-FUN.)</td></tr><tr><td>25</td><td>("foreign function: #xB7FC8CED")</td><td>NIL</td><td>(ERROR The value #<SB-DI::BOGUS-DEBUG-FUN "foreign function: #xB7FC8CED">
is not of type
SB-DI::COMPILED-DEBUG-FUN.)</td></tr></tbody>
</table>
<br clear="all"><br>-- <br>"Work and play are used to describe the same thing under differing circumstance."<br> - Mark Twain
</div></blockquote></div><br><br clear="all"><br>-- <br>"Work and play are used to describe the same thing under differing circumstance."<br> - Mark Twain