[Openmcl-devel] 0.14.2/paserve problems?

Cyrus Harmon ch-openmcl at bobobeach.com
Sat May 8 17:21:26 PDT 2004


Thanks for the pointer! A diff showed that only two lines had changed:

   (defmethod LOCAL-PORT ((socket socket))
!   (local-socket-info socket :port socket))

   (defmethod LOCAL-HOST ((socket socket))
!   (local-socket-info socket :host socket))
--- 368,377 ----
   (defmethod LOCAL-PORT ((socket socket))
!   (local-socket-info (socket-device socket) :port socket))

   (defmethod LOCAL-HOST ((socket socket))
!   (local-socket-info (socket-device socket) :host socket))


So, adding the following to the start of my file that starts paserve  
did the trick.


(in-package "CCL")
(defmethod LOCAL-HOST ((socket socket))  (local-socket-info  
(socket-device socket) :host socket))
(defmethod LOCAL-PORT ((socket socket))  (local-socket-info  
(socket-device socket) :port socket))


I'm not sure what other havoc this will wreak, but it got me up and  
running again. And I didn't even need to go and recompile the whole  
language! Sometimes the coolness of LISP amazes me.

Gary, any insight on this change?

Thanks again for the tip,

Cyrus

On May 8, 2004, at 4:52 PM, Greg Wuller wrote:

> I ran into the same problem with paserve (and slime). If you grab a  
> copy of level-1/l1-sockets.lisp from the 0.14-dev cvs repository and  
> rebuild the image everything works again.
>
> I believe the following is what you want (assuming you don't already  
> have a copy of the development branch):
>
> http://clozure.com/cgi-bin/viewcvs.cgi/*checkout*/ccl/level-1/l1- 
> sockets.lisp?rev=1.7&cvsroot=Bleeding-edge
>
> Hope that helps,
>
> -greg
>
> On May 8, 2004, at 4:06 PM, Cyrus Harmon wrote:
>
>> I'm trying to upgrade to 0.14.2 but it seems I'm having trouble in  
>> paserve. Everything seems ok until I request a page when I get:
>>
>> > Error in process listener(1): value #<TCP-STREAM (SOCKET/7)  
>> #x6624296> is not of the expected type INTEGER.
>> > While executing: CCL::C_GETSOCKNAME
>> > Type :POP to abort.
>> Type :? for other options.
>> 1 > :b
>> (F0135B00) : 0 "CCL::C_GETSOCKNAME" 40
>> (F0135B50) : 1 "CCL::LOCAL-SOCKET-INFO" 132
>> (F0135B60) : 2 "NET.ASERVE::START-SIMPLE-SERVER" 480
>> (F0135B90) : 3 "NET.ASERVE:START" 1848
>> (F0135BA0) : 4 NIL NIL
>> (F0135BB0) : 5 "CCL::CALL-CHECK-REGS" 72
>> (F0135BC0) : 6 "CCL::LOAD-FROM-STREAM" 220
>> (F0135BD0) : 7 "CCL::%LOAD" 1316
>> (F0135BF0) : 8 NIL NIL
>> (F0135C00) : 9 "LOAD" 636
>>
>> Anything change in c_getsockname? Anyone else seeing this?
>>
>> Thanks,
>>
>> Cyrus
>>
>> _______________________________________________
>> Openmcl-devel mailing list
>> Openmcl-devel at clozure.com
>> http://clozure.com/mailman/listinfo/openmcl-devel
>>
>>
>
> _______________________________________________________
> Greg Wuller                             greg at wuller.com
> _______________________________________________________
>




More information about the Openmcl-devel mailing list