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.