Author: ehuelsmann Date: Tue Feb 7 01:53:52 2006 New Revision: 54 Modified: public_html/index.shtml usocket/trunk/ (props changed) usocket/trunk/backend/ (props changed) usocket/trunk/backend/clisp.lisp usocket/trunk/condition.lisp usocket/trunk/test/ (props changed) usocket/trunk/test/test-usocket.lisp Log: Make clisp work, adjusting ignore patterns and update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Tue Feb 7 01:53:52 2006 @@ -132,7 +132,7 @@ <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="UNTESTED" title="Untested">?</td> - <td class="UNTESTED" title="Untested">?</td> + <td class="PASS">PASS</td> <td class="UNTESTED" title="Untested">?</td> <td class="UNTESTED" title="Untested">?</td> <td class="UNTESTED" title="Untested">?</td> Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Tue Feb 7 01:53:52 2006 @@ -29,7 +29,7 @@ (system::simple-os-error (let ((usock-err (cdr (assoc (car (simple-condition-format-arguments condition)) - +clisp-error-map+ :test member)))) + +clisp-error-map+ :test #'member)))) (if usock-err (if (subtypep usock-err 'error) (error usock-err :socket socket) Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Tue Feb 7 01:53:52 2006 @@ -111,7 +111,7 @@ ((1) . operation-not-permitted-error) ((43 92) . protocol-not-supported-error) ((44 93) . socket-type-not-supported-error) - ((51 102) . network-unreachable-error) + ((51 101) . network-unreachable-error) ((50 100) . network-down-error) ((52 102) . network-reset-error) ((58 108) . already-shutdown-error) Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Tue Feb 7 01:53:52 2006 @@ -79,7 +79,8 @@ (force-output (usocket:socket-stream sock)) (read-line (usocket:socket-stream sock))) (usocket:socket-close sock))) - #.(format nil "HTTP/1.1 200 OK~A" #\Return) nil) + #+clisp "HTTP/1.1 200 OK" + #-clisp #.(format nil "HTTP/1.1 200 OK~A" #\Return) nil) (defun run-usocket-tests ()