[usocket-devel] small patch for sbcl and test resul

[Yaroslav Kavenchuk]

Hi!

Warnings in sbcl:

> ; file: C:\CL\lib\usocket-0.3.4\backend\sbcl.lisp
> ; in: DEFUN USOCKET::GET-HOST-NAME
> ;     (USOCKET::CAST USOCKET::BUF C-STRING)
> ;
> ; caught WARNING:
> ;   undefined variable: C-STRING
> ;
> ; caught STYLE-WARNING:
> ;   undefined function: USOCKET::CAST
>
> ;
> ; caught WARNING:
> ;   This variable is undefined:
> ;     C-STRING
>
> ;
> ; caught STYLE-WARNING:
> ;   This function is undefined:
> ;     USOCKET::CAST
> ;
> ; compilation unit finished
> ;   caught 2 WARNING conditions
> ;   caught 2 STYLE-WARNING conditions

Patch:

--- backend/sbcl.lisp.orig      Wed Jul 25 20:56:40 2007
+++ backend/sbcl.lisp   Tue Aug 28 11:50:32 2007
@@ -32,7 +32,7 @@
                       (sb-alien:cast buf (* sb-alien:char))
                       256)))
          (when (= result 0)
-           (cast buf sb-alien:c-string))))))
+           (sb-alien:cast buf sb-alien:c-string))))))


 #+ecl




Test result:

clisp
> Actual value: #<USOCKET:CONNECTION-REFUSED-ERROR #x19F1FFC1>.
> 10 out of 15 total tests failed: USOCKET-TEST::SOCKET-FAILURE.1,
>    USOCKET-TEST::SOCKET-FAILURE.2, USOCKET-TEST::SOCKET-CONNECT.1,
>    USOCKET-TEST::SOCKET-CONNECT.2, USOCKET-TEST::SOCKET-CONNECT.3,
>    USOCKET-TEST::SOCKET-STREAM.1, USOCKET-TEST::SOCKET-NAME.1,
>    USOCKET-TEST::SOCKET-NAME.2, USOCKET-TEST::SOCKET-NAME.3,
>    USOCKET-TEST::SOCKET-NAME.4.

sbcl
> Actual value: #<USOCKET:UNKNOWN-ERROR {AF8EF41}>.
> 10 out of 15 total tests failed: USOCKET-TEST::SOCKET-FAILURE.1,
>    USOCKET-TEST::SOCKET-FAILURE.2, USOCKET-TEST::SOCKET-CONNECT.1,
>    USOCKET-TEST::SOCKET-CONNECT.2, USOCKET-TEST::SOCKET-CONNECT.3,
>    USOCKET-TEST::SOCKET-STREAM.1, USOCKET-TEST::SOCKET-NAME.1,
>    USOCKET-TEST::SOCKET-NAME.2, USOCKET-TEST::SOCKET-NAME.3,
>    USOCKET-TEST::SOCKET-NAME.4.


-- 
WBR, Yaroslav Kavenchuk.