[usocket-cvs] r54 - public_html usocket/trunk usocket/trunk/backend usocket/trunk/test

[ehuelsmann at common-lisp.net]

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 ()