January 2007 - usocket-cvs@common-lisp.net

[usocket-cvs] r146 - usocket/trunk/test
by ehuelsmann＠common-lisp.net 11 Jan '07

11 Jan '07

Author: ehuelsmann Date: Thu Jan 11 16:06:38 2007 New Revision: 146 Modified: usocket/trunk/test/test-usocket.lisp Log: More tests updates. Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Thu Jan 11 16:06:38 2007 @@ -34,7 +34,8 @@ (describe c) c)))))) -(defparameter +non-existing-host+ "10.0.0.13") +(defparameter +non-existing-host+ "192.168.1.1") +(defparameter +unused-local-port+ 15213) (defparameter *soc1* (usocket::make-stream-socket :socket :my-socket :stream :my-stream)) (eval-when (:compile-toplevel :load-toplevel :execute) @@ -45,17 +46,17 @@ (deftest socket-no-connect.1 (with-caught-conditions ('usocket:socket-error nil) - (usocket:socket-connect "127.0.0.0" 80) + (usocket:socket-connect "127.0.0.0" +unused-local-port+) t) nil) (deftest socket-no-connect.2 (with-caught-conditions ('usocket:socket-error nil) - (usocket:socket-connect #(127 0 0 0) 80) + (usocket:socket-connect #(127 0 0 0) +unused-local-port+) t) nil) (deftest socket-no-connect.3 (with-caught-conditions ('usocket:socket-error nil) - (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0) + (usocket:socket-connect 2130706432 +unused-local-port+) ;; == #(127 0 0 0) t) nil) @@ -67,7 +68,7 @@ #+openmcl 'usocket:timeout-error nil) - (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0) + (usocket:socket-connect 2130706432 +unused-local-port+) ;; == #(127 0 0 0) :unreach) nil) (deftest socket-failure.2 @@ -80,7 +81,7 @@ #-(or lispworks armedbear cmu openmcl) 'usocket:host-unreachable-error nil) - (usocket:socket-connect "192.168.1.1" 80) ;; == #(127 0 0 0) + (usocket:socket-connect +non-existing-host+ 80) ;; 80 = just a port :unreach) nil)

1 0

[usocket-cvs] r145 - usocket/trunk/test
by ehuelsmann＠common-lisp.net 11 Jan '07

11 Jan '07

Author: ehuelsmann Date: Thu Jan 11 15:05:58 2007 New Revision: 145 Modified: usocket/trunk/test/test-usocket.lisp Log: Update tests. Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Thu Jan 11 15:05:58 2007 @@ -37,6 +37,8 @@ (defparameter +non-existing-host+ "10.0.0.13") (defparameter *soc1* (usocket::make-stream-socket :socket :my-socket :stream :my-stream)) +(eval-when (:compile-toplevel :load-toplevel :execute) + (defparameter +common-lisp-net+ #(80 68 86 115))) (deftest make-socket.1 (usocket:socket *soc1*) :my-socket) (deftest make-socket.2 (usocket:socket-stream *soc1*) :my-stream) @@ -78,7 +80,7 @@ #-(or lispworks armedbear cmu openmcl) 'usocket:host-unreachable-error nil) - (usocket:socket-connect +non-existing-host+ 80) ;; == #(127 0 0 0) + (usocket:socket-connect "192.168.1.1" 80) ;; == #(127 0 0 0) :unreach) nil) @@ -94,14 +96,14 @@ t) (deftest socket-connect.2 (with-caught-conditions (nil nil) - (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (let ((sock (usocket:socket-connect +common-lisp-net+ 80))) (unwind-protect (typep sock 'usocket:usocket) (usocket:socket-close sock)))) t) (deftest socket-connect.3 (with-caught-conditions (nil nil) - (let ((sock (usocket:socket-connect 1097731309 80))) + (let ((sock (usocket:socket-connect (usocket::host-byte-order +common-lisp-net+) 80))) (unwind-protect (typep sock 'usocket:usocket) (usocket:socket-close sock)))) @@ -124,32 +126,32 @@ (deftest socket-name.1 (with-caught-conditions (nil nil) - (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (let ((sock (usocket:socket-connect +common-lisp-net+ 80))) (unwind-protect (usocket::get-peer-address sock) (usocket:socket-close sock)))) - #(65 110 12 237)) + #.+common-lisp-net+) (deftest socket-name.2 (with-caught-conditions (nil nil) - (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (let ((sock (usocket:socket-connect +common-lisp-net+ 80))) (unwind-protect (usocket::get-peer-port sock) (usocket:socket-close sock)))) 80) (deftest socket-name.3 (with-caught-conditions (nil nil) - (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (let ((sock (usocket:socket-connect +common-lisp-net+ 80))) (unwind-protect (usocket::get-peer-name sock) (usocket:socket-close sock)))) - #(65 110 12 237) 80) + #.+common-lisp-net+ 80) (deftest socket-name.4 (with-caught-conditions (nil nil) - (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (let ((sock (usocket:socket-connect +common-lisp-net+ 80))) (unwind-protect (usocket::get-local-address sock) (usocket:socket-close sock)))) - #(10 0 0 252)) + #(192 168 1 65)) (defun run-usocket-tests ()

1 0

[usocket-cvs] r144 - usocket/trunk/test
by ehuelsmann＠common-lisp.net 11 Jan '07

11 Jan '07

Author: ehuelsmann Date: Thu Jan 11 02:54:04 2007 New Revision: 144 Modified: usocket/trunk/test/test-usocket.lisp Log: Update test package with latest function signatures. Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Thu Jan 11 02:54:04 2007 @@ -35,8 +35,8 @@ c)))))) (defparameter +non-existing-host+ "10.0.0.13") -(defparameter *soc1* (usocket::make-socket :socket :my-socket - :stream :my-stream)) +(defparameter *soc1* (usocket::make-stream-socket :socket :my-socket + :stream :my-stream)) (deftest make-socket.1 (usocket:socket *soc1*) :my-socket) (deftest make-socket.2 (usocket:socket-stream *soc1*) :my-stream)

1 0

[usocket-cvs] r143 - in public_html: . releases
by ehuelsmann＠common-lisp.net 04 Jan '07

04 Jan '07

Author: ehuelsmann Date: Thu Jan 4 17:09:37 2007 New Revision: 143 Added: public_html/releases/usocket-0.2.3.tar.gz (contents, props changed) public_html/releases/usocket-0.2.3.tar.gz.asc Modified: public_html/index.shtml Log: Update website and upload 0.2.3 release. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Thu Jan 4 17:09:37 2007 @@ -310,6 +310,10 @@ <table> <caption>Release history</caption> <tr><th>Date</th><th>Release</th><th>Summary</th></tr> +<tr><td>Jan 04, 2007</td> + <td>0.2.3</td><td>Add :element-type support to support stacking + flexi-streams on socket streams for portable :external-format + support.</td></tr> <tr><td>Jan 03, 2007</td> <td>0.2.2</td><td>Add ECL support and a small SBCL bugfix.</td></tr> <tr><td>Dec 21, 2006</td> Added: public_html/releases/usocket-0.2.3.tar.gz ============================================================================== Binary file. No diff available. Added: public_html/releases/usocket-0.2.3.tar.gz.asc ============================================================================== --- (empty file) +++ public_html/releases/usocket-0.2.3.tar.gz.asc Thu Jan 4 17:09:37 2007 @@ -0,0 +1,7 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.1 (GNU/Linux) + +iD8DBQBFnXkki5O0Epaz9TkRAvgVAJ9F+ePx8eHz45ISrpKHChMy1fkiYACeMDCO +G9ofUHXmyZ6yITQbb1LDAhk= +=vOas +-----END PGP SIGNATURE-----

1 0

[usocket-cvs] r142 - usocket/branches/0.2.x
by ehuelsmann＠common-lisp.net 04 Jan '07

04 Jan '07

Author: ehuelsmann Date: Thu Jan 4 17:08:10 2007 New Revision: 142 Modified: usocket/branches/0.2.x/usocket.asd Log: Advance development version number. Modified: usocket/branches/0.2.x/usocket.asd ============================================================================== --- usocket/branches/0.2.x/usocket.asd (original) +++ usocket/branches/0.2.x/usocket.asd Thu Jan 4 17:08:10 2007 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.2.3-dev" + :version "0.2.4-dev" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence

1 0

[usocket-cvs] r141 - usocket/tags/0.2.3
by ehuelsmann＠common-lisp.net 04 Jan '07

04 Jan '07

Author: ehuelsmann Date: Thu Jan 4 17:07:16 2007 New Revision: 141 Added: usocket/tags/0.2.3/ - copied from r140, usocket/branches/0.2.x/ Modified: usocket/tags/0.2.3/usocket.asd Log: Tag 0.2.3. Modified: usocket/tags/0.2.3/usocket.asd ============================================================================== --- usocket/branches/0.2.x/usocket.asd (original) +++ usocket/tags/0.2.3/usocket.asd Thu Jan 4 17:07:16 2007 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.2.3-dev" + :version "0.2.3" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence

1 0

[usocket-cvs] r140 - usocket/branches/0.2.x/backend
by ehuelsmann＠common-lisp.net 04 Jan '07

04 Jan '07

Author: ehuelsmann Date: Thu Jan 4 15:03:59 2007 New Revision: 140 Modified: usocket/branches/0.2.x/backend/allegro.lisp usocket/branches/0.2.x/backend/armedbear.lisp usocket/branches/0.2.x/backend/clisp.lisp usocket/branches/0.2.x/backend/cmucl.lisp usocket/branches/0.2.x/backend/lispworks.lisp usocket/branches/0.2.x/backend/openmcl.lisp usocket/branches/0.2.x/backend/sbcl.lisp usocket/branches/0.2.x/backend/scl.lisp Log: Backport r131 :element-type support. Modified: usocket/branches/0.2.x/backend/allegro.lisp ============================================================================== --- usocket/branches/0.2.x/backend/allegro.lisp (original) +++ usocket/branches/0.2.x/backend/allegro.lisp Thu Jan 4 15:03:59 2007 @@ -36,12 +36,14 @@ :real-error condition :socket socket)))))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character) (let ((socket)) (setf socket (with-mapped-conditions (socket) (socket:make-socket :remote-host (host-to-hostname host) - :remote-port port))) + :remote-port port + :format (if (subtypep element-type 'character) + :text :binary)))) (make-stream-socket :socket socket :stream socket))) (defmethod socket-close ((usocket usocket)) Modified: usocket/branches/0.2.x/backend/armedbear.lisp ============================================================================== --- usocket/branches/0.2.x/backend/armedbear.lisp (original) +++ usocket/branches/0.2.x/backend/armedbear.lisp Thu Jan 4 15:03:59 2007 @@ -11,13 +11,15 @@ (typecase condition (error (error 'unknown-error :socket socket :real-error condition)))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character)) (let ((usock)) (with-mapped-conditions (usock) (let ((sock (ext:make-socket (host-to-hostname host) port))) (setf usock - (make-stream-socket :socket sock - :stream (ext:get-socket-stream sock))))))) + (make-stream-socket + :socket sock + :stream (ext:get-socket-stream sock + :element-type element-type))))))) (defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket) Modified: usocket/branches/0.2.x/backend/clisp.lisp ============================================================================== --- usocket/branches/0.2.x/backend/clisp.lisp (original) +++ usocket/branches/0.2.x/backend/clisp.lisp Thu Jan 4 15:03:59 2007 @@ -38,13 +38,13 @@ :socket socket :real-error condition)))))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character)) (let ((socket) (hostname (host-to-hostname host))) (with-mapped-conditions (socket) (setf socket (socket:socket-connect port hostname - :element-type 'character + :element-type element-type :buffered t))) (make-stream-socket :socket socket :stream socket))) ;; the socket is a stream too Modified: usocket/branches/0.2.x/backend/cmucl.lisp ============================================================================== --- usocket/branches/0.2.x/backend/cmucl.lisp (original) +++ usocket/branches/0.2.x/backend/cmucl.lisp Thu Jan 4 15:03:59 2007 @@ -53,14 +53,14 @@ :real-condition condition :socket socket)))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character)) (let* ((socket)) (setf socket (with-mapped-conditions (socket) (ext:connect-to-inet-socket (host-to-hbo host) port :stream))) (if socket (let* ((stream (sys:make-fd-stream socket :input t :output t - :element-type 'character + :element-type element-type :buffering :full)) ;;###FIXME the above line probably needs an :external-format (usocket (make-stream-socket :socket socket Modified: usocket/branches/0.2.x/backend/lispworks.lisp ============================================================================== --- usocket/branches/0.2.x/backend/lispworks.lisp (original) +++ usocket/branches/0.2.x/backend/lispworks.lisp Thu Jan 4 15:03:59 2007 @@ -47,12 +47,13 @@ ;; :real-condition condition ;; :socket socket)))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character)) (let ((hostname (host-to-hostname host)) (stream)) (setf stream (with-mapped-conditions () - (comm:open-tcp-stream hostname port))) + (comm:open-tcp-stream hostname port + :element-type element-type))) (if stream (make-stream-socket :socket (comm:socket-stream-socket stream) :stream stream) Modified: usocket/branches/0.2.x/backend/openmcl.lisp ============================================================================== --- usocket/branches/0.2.x/backend/openmcl.lisp (original) +++ usocket/branches/0.2.x/backend/openmcl.lisp Thu Jan 4 15:03:59 2007 @@ -40,12 +40,15 @@ (error (error 'unknown-error :socket socket :real-error condition)) (condition (signal 'unknown-condition :real-condition condition)))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character)) (with-mapped-conditions () (let ((mcl-sock (openmcl-socket:make-socket :remote-host (host-to-hostname host) :remote-port port))) - (openmcl-socket:socket-connect mcl-sock) + (openmcl-socket:socket-connect mcl-sock + :element-type (if (subtypep element-type + 'character) + :text :binary)) (make-stream-socket :stream mcl-sock :socket mcl-sock)))) (defmethod socket-close ((usocket usocket)) Modified: usocket/branches/0.2.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.2.x/backend/sbcl.lisp (original) +++ usocket/branches/0.2.x/backend/sbcl.lisp Thu Jan 4 15:03:59 2007 @@ -67,14 +67,14 @@ :real-condition condition)))))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character)) (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket :type :stream :protocol :tcp)) (stream (sb-bsd-sockets:socket-make-stream socket :input t :output t :buffering :full - :element-type 'character)) + :element-type element-type)) ;;###FIXME: The above line probably needs an :external-format (usocket (make-stream-socket :stream stream :socket socket)) (ip (host-to-vector-quad host))) Modified: usocket/branches/0.2.x/backend/scl.lisp ============================================================================== --- usocket/branches/0.2.x/backend/scl.lisp (original) +++ usocket/branches/0.2.x/backend/scl.lisp Thu Jan 4 15:03:59 2007 @@ -33,12 +33,12 @@ :real-condition condition :socket socket)))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character)) (let* ((socket (with-mapped-conditions (nil) (ext:connect-to-inet-socket (host-to-hbo host) port :kind :stream))) (stream (sys:make-fd-stream socket :input t :output t - :element-type 'character + :element-type element-type :buffering :full))) ;;###FIXME the above line probably needs an :external-format (make-stream-socket :socket socket :stream stream)))

1 0

[usocket-cvs] r139 - public_html public_html/releases usocket/branches/0.2.x usocket/tags/0.2.2
by ehuelsmann＠common-lisp.net 03 Jan '07

03 Jan '07

Author: ehuelsmann Date: Wed Jan 3 16:48:19 2007 New Revision: 139 Added: public_html/releases/usocket-0.2.2.tar.gz (contents, props changed) public_html/releases/usocket-0.2.2.tar.gz.asc usocket/tags/0.2.2/ - copied from r137, usocket/branches/0.2.x/ usocket/tags/0.2.2/README - copied unchanged from r138, usocket/branches/0.2.x/README Modified: public_html/index.shtml usocket/branches/0.2.x/usocket.asd usocket/tags/0.2.2/usocket.asd Log: Do a 0.2.2 release, updating the whole shebang. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Wed Jan 3 16:48:19 2007 @@ -41,6 +41,7 @@ <li>Allegro</li> <li>LispWorks</li> <li>OpenMCL</li> + <li>ECL</li> <li>Scieneer</li> </ul> @@ -100,7 +101,7 @@ <thead class="roadmap-head"> <tr> <th colspan="2">Major steps</th> - <th colspan="7">Socket implementations</th> + <th colspan="9">Socket implementations</th> </tr> <tr> <th></th> @@ -112,6 +113,7 @@ <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">Allegro</a></th> <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">LispWorks</a></th> <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">OpenMCL</a></th> + <th>ECL</th> <th>Scieneer</th> </tr> </thead> @@ -130,6 +132,7 @@ <td class="DONE">DONE</td>  <td class="DONE">DONE</td>  <td class="DONE">DONE</td>  + <td class="DONE">DONE</td>  <td class="DONE">DONE</td>  </tr> @@ -143,6 +146,7 @@ <td class="DONE" title="Implemented">DONE</td> <td class="DONE" title="Implemented">DONE</td> <td class="DONE" title="Implemented">DONE</td> + <td class="DONE" title="Implemented">DONE</td> </tr> <tr> <td>Implement active socket support.</td> @@ -154,6 +158,7 @@ <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> + <td class="DONE">DONE</td> </tr> <tr> <td>Implement remapping of implementation defined errors.</td> @@ -165,6 +170,7 @@ <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> + <td class="DONE">DONE</td> </tr> <tr> <td>Implementation test-suite status</td> @@ -176,6 +182,7 @@ <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> + <td class="PASS">PASS</td> </tr> <tr> <td rowspan="3">Add functions to retrieve socket properties:<br /> @@ -189,6 +196,7 @@ <td class="DONE">DONE</td>  <td class="DONE">DONE</td>  <td class="DONE">DONE</td>  + <td class="DONE">DONE</td>  <td class="DONE">DONE</td>  </tr> <tr> @@ -201,6 +209,7 @@ <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> + <td class="DONE">DONE</td> </tr> <tr> <td>Implementation test-suite status</td> @@ -212,6 +221,7 @@ <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> + <td class="PASS">PASS</td> </tr> <tr> <td rowspan="2">Add support for passive (connection-accepting/server) @@ -225,6 +235,7 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> + <td class="TODO">TODO</td> </tr> <tr> <td>Implement api calls get- and setsockopt.</td> @@ -236,6 +247,7 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> + <td class="TODO">TODO</td> </tr> <tr> <td rowspan="2">Implement more uncommon api calls @@ -250,6 +262,7 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> + <td class="TODO">TODO</td> </tr> <tr> <td>shutdown</td> @@ -261,6 +274,7 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> + <td class="TODO">TODO</td> </tr> <tr> <td>Implement udp socket support.</td> @@ -274,6 +288,7 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> + <td class="TODO">TODO</td> </tr> </tbody> </table> @@ -295,6 +310,8 @@ <table> <caption>Release history</caption> <tr><th>Date</th><th>Release</th><th>Summary</th></tr> +<tr><td>Jan 03, 2007</td> + <td>0.2.2</td><td>Add ECL support and a small SBCL bugfix.</td></tr> <tr><td>Dec 21, 2006</td> <td>0.2.1</td><td>Remove 'open-stream' interface which is supposed to be provided by the 'trivial-usocket' package.</td></tr> Added: public_html/releases/usocket-0.2.2.tar.gz ============================================================================== Binary file. No diff available. Added: public_html/releases/usocket-0.2.2.tar.gz.asc ============================================================================== --- (empty file) +++ public_html/releases/usocket-0.2.2.tar.gz.asc Wed Jan 3 16:48:19 2007 @@ -0,0 +1,7 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.1 (GNU/Linux) + +iD8DBQBFnB+gi5O0Epaz9TkRAlIrAJ9e6XwodTubYWV0hpCjKL/29FCeYgCfZAC5 +BYBM+uVx8eDp6JP8W0x93VI= +=9X4P +-----END PGP SIGNATURE----- Modified: usocket/branches/0.2.x/usocket.asd ============================================================================== --- usocket/branches/0.2.x/usocket.asd (original) +++ usocket/branches/0.2.x/usocket.asd Wed Jan 3 16:48:19 2007 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.3.0-dev" + :version "0.2.3-dev" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence Modified: usocket/tags/0.2.2/usocket.asd ============================================================================== --- usocket/branches/0.2.x/usocket.asd (original) +++ usocket/tags/0.2.2/usocket.asd Wed Jan 3 16:48:19 2007 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.3.0-dev" + :version "0.2.2" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence

1 0

[usocket-cvs] r138 - in usocket: branches/0.2.x trunk
by ehuelsmann＠common-lisp.net 03 Jan '07

03 Jan '07

Author: ehuelsmann Date: Wed Jan 3 15:43:39 2007 New Revision: 138 Modified: usocket/branches/0.2.x/README usocket/trunk/README Log: Update README's with supported implementations. Modified: usocket/branches/0.2.x/README ============================================================================== --- usocket/branches/0.2.x/README (original) +++ usocket/branches/0.2.x/README Wed Jan 3 15:43:39 2007 @@ -16,6 +16,8 @@ - Allegro - LispWorks - OpenMCL + - ECL + - Scieneer Common Lisp - <Your favorite Common Lisp here?> If your favorite common lisp misses in the list above, please contact Modified: usocket/trunk/README ============================================================================== --- usocket/trunk/README (original) +++ usocket/trunk/README Wed Jan 3 15:43:39 2007 @@ -25,6 +25,7 @@ - Allegro Common Lisp - LispWorks - OpenMCL + - ECL - Scieneer Common Lisp - <Your favorite Common Lisp here?>

1 0

[usocket-cvs] r137 - usocket/branches/0.2.x/backend
by ehuelsmann＠common-lisp.net 03 Jan '07

03 Jan '07

Author: ehuelsmann Date: Wed Jan 3 15:35:28 2007 New Revision: 137 Modified: usocket/branches/0.2.x/backend/sbcl.lisp Log: Backport r132 SBCL fix. Modified: usocket/branches/0.2.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.2.x/backend/sbcl.lisp (original) +++ usocket/branches/0.2.x/backend/sbcl.lisp Wed Jan 3 15:35:28 2007 @@ -63,7 +63,7 @@ usock-cond))) (if usock-cond (signal usock-cond :socket socket) - (signal 'unkown-condition + (signal 'unknown-condition :real-condition condition))))))

1 0