[Openmcl-devel] paserve error in openmcl

[Cyrus Harmon]

I'm not sure if this is a paserve problem or an openmcl problem, but 
I'm getting the following:


127.0.0.1 - - [Mon, 14 Jun 2004 17:02:59 GMT] "GET / HTTP/1.1" 200 -1
 > Error in process listener(1): :SITUATION is an invalid initarg to 
INITIALIZE-INSTANCE for #<STANDARD-CLASS SOCKET-ERROR>.
 >                               Valid initargs: (:STREAM :ACTION :CODE 
:IDENTIFIER).


One thing I notice is that there is a case-mismatch in l1-sockets.lisp:

(define-condition socket-error (simple-stream-error)
   ((code :initarg :code :reader socket-error-code)
    (identifier :initform :unknown :initarg :identifier :reader 
socket-error-identifier)
    (Situation :initarg :situation :reader socket-error-situation)))

(define-condition socket-creation-error (simple-error)
   ((code :initarg :code :reader socket-creation-error-code)
    (identifier :initform :unknown :initarg :identifier :reader 
socket-creationg-error-identifier)
    (situation :initarg :situation :reader 
socket-creation-error-situation)))

I imagine this is case-insensitive and doesn't matter, but then again 
I'm never quite sure how when case-sensitivity can creep into things 
down in the depths of ccl... Assuming that isn't the problem, I'd chalk 
this up to a paserve problem if I didn't seem to recall some stuff 
changing around socket-error in the latest release. Any 
ideas/suggestions?

Thanks,

Cyrus

Stack trace follows:

1 > :b
(F0135930) : 0 "CCL::CHECK-INITARGS" 468
(F0135940) : 1 "CCL::%MAKE-STD-INSTANCE" 240
(F0135950) : 2 NIL NIL
(F0135960) : 3 "#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE 
(STANDARD-CLASS)>" 56
(F0135970) : 4 NIL NIL
(F0135980) : 5 "MAKE-CONDITION" 124
(F0135990) : 6 "SOCKET-ERROR" 300
(F01359A0) : 7 "CCL::FD-STREAM-FORCE-OUTPUT" 596
(F01359B0) : 8 "#<CCL::STANDARD-KERNEL-METHOD STREAM-WRITE-VECTOR 
(CCL::BUFFERED-BINARY-OUTPUT-STREAM-MIXIN T T T)>" 1112
(F01359D0) : 9 "WRITE-SEQUENCE" 256
(F01359E0) : 10 "#<STANDARD-METHOD GRAY-STREAM:STREAM-FLUSH-BUFFER 
(GRAY-STREAM::BUFFERED-STREAM-MIXIN)>" 216
(F01359F0) : 11 NIL NIL
(F0135A00) : 12 "CCL::%CALL-NEXT-METHOD" 504
(F0135A20) : 13 NIL NIL
(F0135A30) : 14 "CCL::%%STANDARD-COMBINED-METHOD-DCODE" 368
(F0135A40) : 15 NIL NIL
(F0135A50) : 16 "#<STANDARD-METHOD STREAM-WRITE-BYTE 
(GRAY-STREAM::BUFFERED-BIVALENT-OUTPUT-STREAM T)>" 168
(F0135A60) : 17 "#<STANDARD-METHOD STREAM-WRITE-VECTOR 
(GRAY-STREAM::BUFFERED-BIVALENT-STREAM T T T)>" 256
(F0135A70) : 18 "WRITE-SEQUENCE" 256
(F0135A80) : 19 "Anonymous Function #x64C3B06" 684
(F0135A90) : 20 NIL NIL
(F0135AA0) : 21 "ACL-COMPAT.MP::INVOKE-WITH-TIMEOUT" 260
(F0135AD0) : 22 "#<STANDARD-METHOD NET.ASERVE:PROCESS-ENTITY 
(NET.ASERVE:HTTP-REQUEST NET.ASERVE::FILE-ENTITY)>" 1960
(F0135B00) : 23 "#<STANDARD-METHOD NET.ASERVE:HANDLE-REQUEST 
(NET.ASERVE:HTTP-REQUEST)>" 308
(F0135B10) : 24 "NET.ASERVE::PROCESS-CONNECTION" 884
(F0135B40) : 25 "NET.ASERVE::START-SIMPLE-SERVER" 576
(F0135B70) : 26 "NET.ASERVE:START" 1572
(F0135B80) : 27 NIL NIL
(F0135B90) : 28 "LOCAL-PASERVE:START-SIMPLE-SERVER" 108
(F0135BA0) : 29 NIL NIL
(F0135BB0) : 30 "CCL::CALL-CHECK-REGS" 72
(F0135BC0) : 31 "CCL::LOAD-FROM-STREAM" 220
(F0135BD0) : 32 "CCL::%LOAD" 1316
(F0135BF0) : 33 NIL NIL
(F0135C00) : 34 "LOAD" 636
(F0135C20) : 35 NIL NIL
(F0135C30) : 36 "CCL::CALL-CHECK-REGS" 72
(F0135C40) : 37 NIL NIL
(F0135C50) : 38 "CCL::TOPLEVEL-EVAL" 152
(F0135C60) : 39 "CCL::READ-LOOP" 844
(F0135CA0) : 40 "TOPLEVEL-LOOP" 44
(F0135CC0) : 41 "Anonymous Function #x6108B36" 68
(F0135CD0) : 42 NIL NIL
(F0135CE0) : 43 "Anonymous Function #x614F5C6" 592
(F0135D00) : 44 "CCL::RUN-PROCESS-INITIAL-FORM" 400
(F0135D30) : 45 NIL NIL
(F0135D40) : 46 "Anonymous Function #x6111D3E" 152
(F0135D60) : 47 "Anonymous Function #x610491E" 172