usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[usocket-cvs] r78 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 12 Feb '06

12 Feb '06

Author: ehuelsmann Date: Sat Feb 11 17:18:52 2006 New Revision: 78 Modified: usocket/trunk/backend/openmcl.lisp Log: Adjust package prefixes. Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Sat Feb 11 17:18:52 2006 @@ -25,9 +25,10 @@ (defun handle-condition (condition &optional socket) (typecase condition - (socket-error - (let ((usock-err (cdr (assoc (socket:socket-error-identifier condition) - +openmcl-error-map+)))) + (openmcl-socket:socket-error + (let ((usock-err + (cdr (assoc (openmcl-socket:socket-error-identifier condition) + +openmcl-error-map+)))) (if usock-err (error usock-err :socket socket) (error 'unknown-error :socket socket :real-error condition)))) @@ -38,10 +39,10 @@ (let ((sock)) (with-mapped-conditions (sock) (setf sock - (socket:make-socket :remote-host (host-to-hostname host) - :remote-port port)) - (socket:socket-connect sock)))) + (openmcl-socket:make-socket :remote-host (host-to-hostname host) + :remote-port port)) + (openmcl-socket:socket-connect sock)))) (defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket) - (socket:close (socket usocket)))) + (close (socket usocket))))

1 0

[usocket-cvs] r77 - in usocket/trunk: . test
by ehuelsmann＠common-lisp.net 11 Feb '06

11 Feb '06

Author: ehuelsmann Date: Sat Feb 11 16:57:04 2006 New Revision: 77 Added: usocket/trunk/test/abcl.conf.in usocket/trunk/test/allegro.conf.in usocket/trunk/test/clisp.conf.in usocket/trunk/test/cmucl.conf.in usocket/trunk/test/sbcl.conf.in usocket/trunk/test/your-lisp.conf.in Modified: usocket/trunk/run-usocket-tests.sh usocket/trunk/test/ (props changed) Log: Change test script to take arguments from .conf files and add those. Modified: usocket/trunk/run-usocket-tests.sh ============================================================================== --- usocket/trunk/run-usocket-tests.sh (original) +++ usocket/trunk/run-usocket-tests.sh Sat Feb 11 16:57:04 2006 @@ -9,21 +9,31 @@ # I have installed: cmucl, ABCL, clisp, allegro and lispworks cd `dirname $0`/test +rm tests.log if test -z "$1" ; then - lisps="sbcl clisp $HOME/src/acl/acl70_trial/alisp" + lisps=*.conf else lisps=$1 fi -for my_lisp in $lisps ; do +for my_lisp_conf in $lisps ; do -# *.fasl are used by both sbcl and allegro, -# so remove them to prevent choking either args= -if test "`basename $my_lisp`" == "alisp" ; then - args=-batch +lisp_bin= +lisp_name= +lisp_exit="(quit result)" + +. $my_lisp_conf + +if test -z "$lisp_bin" ; then + echo "YOU NEED TO SET A LISP BINARY IN YOUR CONF FILE" + exit 1 +fi + +if test -z "$lisp_name" ; then + lisp_name="`basename \"$lisp_bin\"`" fi echo " @@ -32,11 +42,16 @@ (asdf:operate #-sbcl 'asdf:load-source-op #+sbcl 'asdf:load-op :usocket-test) -(usocket-test:do-tests) +(let ((result (if (usocket-test:do-tests) 1 0))) + $lisp_exit) +" | $lisp_bin $args -#-allegro (quit) -" | $my_lisp $args +if test $? -eq 1 ; then + echo "PASS: $lisp_name" >> tests.log +else + echo "FAIL: $lisp_name" >> tests.log +fi -echo "Above test results for $my_lisp." +echo "Above the test results gathered for $lisp_name." done Added: usocket/trunk/test/abcl.conf.in ============================================================================== --- (empty file) +++ usocket/trunk/test/abcl.conf.in Sat Feb 11 16:57:04 2006 @@ -0,0 +1,10 @@ +# lisp binary test setup file + +args= + +# lisp_bin is required! +lisp_bin=~/src/abcl-0.0.9/abcl +lisp_name=ArmedBear + +# lisp_exit is required! +lisp_exit="(quit :status result)" Added: usocket/trunk/test/allegro.conf.in ============================================================================== --- (empty file) +++ usocket/trunk/test/allegro.conf.in Sat Feb 11 16:57:04 2006 @@ -0,0 +1,10 @@ +# lisp binary test setup file + +args="-batch" + +# lisp_bin is required! +lisp_bin="~/src/acl/acl70_trial/alisp" +lisp_name=Allegro + +# lisp_exit is required! +lisp_exit="(exit result :no-unwind t)" Added: usocket/trunk/test/clisp.conf.in ============================================================================== --- (empty file) +++ usocket/trunk/test/clisp.conf.in Sat Feb 11 16:57:04 2006 @@ -0,0 +1,10 @@ +# lisp binary test setup file + +args= + +# lisp_bin is required! +lisp_bin=clisp +lisp_name=clisp + +# lisp_exit is required! +lisp_exit="(quit result)" Added: usocket/trunk/test/cmucl.conf.in ============================================================================== --- (empty file) +++ usocket/trunk/test/cmucl.conf.in Sat Feb 11 16:57:04 2006 @@ -0,0 +1,10 @@ +# lisp binary test setup file + +args= + +# lisp_bin is required! +lisp_bin="~/src/bin/lisp" +lisp_name=CMUCL + +# lisp_exit is required! +lisp_exit="(unix:unix-exit result)" Added: usocket/trunk/test/sbcl.conf.in ============================================================================== --- (empty file) +++ usocket/trunk/test/sbcl.conf.in Sat Feb 11 16:57:04 2006 @@ -0,0 +1,10 @@ +# lisp binary test setup file + +args= + +# lisp_bin is required! +lisp_bin=sbcl +lisp_name=SBCL + +# lisp_exit is required! +lisp_exit="(quit status :recklessly-p t)" Added: usocket/trunk/test/your-lisp.conf.in ============================================================================== --- (empty file) +++ usocket/trunk/test/your-lisp.conf.in Sat Feb 11 16:57:04 2006 @@ -0,0 +1,10 @@ +# lisp binary test setup file + +args= + +# lisp_bin is required! +lisp_bin=<path-to-your-lisp-binary-here> +lisp_name= + +# lisp_exit is required! +lisp_exit=

1 0

[usocket-cvs] r76 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 11 Feb '06

11 Feb '06

Author: ehuelsmann Date: Sat Feb 11 16:39:07 2006 New Revision: 76 Modified: usocket/trunk/backend/openmcl.lisp Log: Add package prefixes. Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Sat Feb 11 16:39:07 2006 @@ -26,7 +26,7 @@ (defun handle-condition (condition &optional socket) (typecase condition (socket-error - (let ((usock-err (cdr (assoc (socket-error-identifier condition) + (let ((usock-err (cdr (assoc (socket:socket-error-identifier condition) +openmcl-error-map+)))) (if usock-err (error usock-err :socket socket) @@ -38,10 +38,10 @@ (let ((sock)) (with-mapped-conditions (sock) (setf sock - (make-socket :remote-host (host-to-hostname host) - :remote-port port)) - (socket-connect sock)))) + (socket:make-socket :remote-host (host-to-hostname host) + :remote-port port)) + (socket:socket-connect sock)))) (defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket) - (close (socket usocket)))) + (socket:close (socket usocket))))

1 0

[usocket-cvs] r75 - usocket/trunk/test
by ehuelsmann＠common-lisp.net 11 Feb '06

11 Feb '06

Author: ehuelsmann Date: Sat Feb 11 16:09:28 2006 New Revision: 75 Modified: usocket/trunk/test/test-usocket.lisp Log: Always print error information. Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Sat Feb 11 16:09:28 2006 @@ -5,6 +5,34 @@ (in-package :usocket-test) +(defmacro with-caught-conditions ((expect throw) &body body) + `(catch 'caught-error + (handler-case + (progn ,@body) + (usocket:unknown-error (c) (if (typep c ,expect) + (throw 'caught-error ,throw) + (progn + (describe c) + (describe + (usocket::usocket-real-error c)) + c))) + (error (c) (if (typep c ,expect) + (throw 'caught-error ,throw) + (progn + (describe c) + c))) + (usocket:unknown-condition (c) (if (typep c ,expect) + (throw 'caught-error ,throw) + (progn + (describe c) + (describe + (usocket::usocket-real-condition c)) + c))) + (condition (c) (if (typep c ,expect) + (throw 'caught-error ,throw) + (progn + (describe c) + c)))))) (defparameter +non-existing-host+ "10.0.0.13") (defparameter *soc1* (usocket::make-socket :socket :my-socket @@ -14,87 +42,79 @@ (deftest make-socket.2 (usocket:socket-stream *soc1*) :my-stream) (deftest socket-no-connect.1 - (catch 'caught-error - (handler-bind ((usocket:socket-error - #'(lambda (c) (throw 'caught-error nil)))) + (with-caught-conditions ('usocket:socket-error nil) (usocket:socket-connect "127.0.0.0" 80) - t)) + t) nil) (deftest socket-no-connect.2 - (catch 'caught-error - (handler-bind ((usocket:socket-error - #'(lambda (c) (throw 'caught-error nil)))) - (usocket:socket-connect #(127 0 0 0) 80) - t)) + (with-caught-conditions ('usocket:socket-error nil) + (usocket:socket-connect #(127 0 0 0) 80) + t) nil) (deftest socket-no-connect.3 - (catch 'caught-error - (handler-bind ((usocket:socket-error - #'(lambda (c) (throw 'caught-error nil)))) - (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0) - t)) + (with-caught-conditions ('usocket:socket-error nil) + (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0) + t) nil) (deftest socket-failure.1 - (catch 'caught-error - (handler-bind ((usocket:network-unreachable-error - #'(lambda (c) (throw 'caught-error nil))) - ;; some lisps don't report as specific as above - #+(or cmu lispworks armedbear) - (usocket:unknown-error - #'(lambda (c) (throw 'caught-error nil))) - (condition - #'(lambda (c) (throw 'caught-error t)))) - (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0) - :unreach)) + (with-caught-conditions (#-(or cmu lispworks armedbear) + 'usocket:network-unreachable-error + #+(or cmu lispworks armedbear) + 'usocket:unknown-error + nil) + (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0) + :unreach) nil) (deftest socket-failure.2 - (catch 'caught-error - (handler-bind ((usocket:host-unreachable-error - #'(lambda (c) (throw 'caught-error nil))) - ;; some lisps don't report as specific as above - #+(or cmu lispworks armedbear) - (usocket:unknown-error - #'(lambda (c) (throw 'caught-error nil))) - (condition - #'(lambda (c) (throw 'caught-error t)))) + (with-caught-conditions (#+(or lispworks armedbear) + 'usocket:unknown-error + #+cmu + 'usocket:network-unreachable-error + #-(or lispworks armedbear cmu) + 'usocket:host-unreachable-error + nil) (usocket:socket-connect +non-existing-host+ 80) ;; == #(127 0 0 0) - :unreach)) + :unreach) nil) ;; let's hope c-l.net doesn't move soon, or that people start to ;; test usocket like crazy.. (deftest socket-connect.1 - (let ((sock (usocket:socket-connect "common-lisp.net" 80))) - (unwind-protect - (typep sock 'usocket:usocket) - (usocket:socket-close sock))) - t) + (with-caught-conditions (nil nil) + (let ((sock (usocket:socket-connect "common-lisp.net" 80))) + (unwind-protect + (typep sock 'usocket:usocket) + (usocket:socket-close sock)))) + t) (deftest socket-connect.2 - (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) - (unwind-protect - (typep sock 'usocket:usocket) - (usocket:socket-close sock))) + (with-caught-conditions (nil nil) + (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (unwind-protect + (typep sock 'usocket:usocket) + (usocket:socket-close sock)))) t) (deftest socket-connect.3 - (let ((sock (usocket:socket-connect 1097731309 80))) - (unwind-protect - (typep sock 'usocket:usocket) - (usocket:socket-close sock))) + (with-caught-conditions (nil nil) + (let ((sock (usocket:socket-connect 1097731309 80))) + (unwind-protect + (typep sock 'usocket:usocket) + (usocket:socket-close sock)))) t) ;; let's hope c-l.net doesn't change its software any time soon (deftest socket-stream.1 - (let ((sock (usocket:socket-connect "common-lisp.net" 80))) - (unwind-protect - (progn - (format (usocket:socket-stream sock) - "GET / HTTP/1.0~A~A~A~A" - #\Return #\Newline #\Return #\Newline) - (force-output (usocket:socket-stream sock)) - (read-line (usocket:socket-stream sock))) - (usocket:socket-close sock))) + (with-caught-conditions (nil nil) + (let ((sock (usocket:socket-connect "common-lisp.net" 80))) + (unwind-protect + (progn + (format (usocket:socket-stream sock) + "GET / HTTP/1.0~A~A~A~A" + #\Return #\Newline #\Return #\Newline) + (force-output (usocket:socket-stream sock)) + (read-line (usocket:socket-stream sock))) + (usocket:socket-close sock)))) #+clisp "HTTP/1.1 200 OK" #-clisp #.(format nil "HTTP/1.1 200 OK~A" #\Return) nil)

1 0

[usocket-cvs] r74 - in usocket/trunk: . test
by ehuelsmann＠common-lisp.net 11 Feb '06

11 Feb '06

Author: ehuelsmann Date: Sat Feb 11 03:20:56 2006 New Revision: 74 Added: usocket/trunk/test/usocket.asd (contents, props changed) Modified: usocket/trunk/run-usocket-tests.sh usocket/trunk/test/ (props changed) Log: Rearrange and extend test scripts. Modified: usocket/trunk/run-usocket-tests.sh ============================================================================== --- usocket/trunk/run-usocket-tests.sh (original) +++ usocket/trunk/run-usocket-tests.sh Sat Feb 11 03:20:56 2006 @@ -8,15 +8,34 @@ # I need to figure out how to setup ASDF with the other lisps # I have installed: cmucl, ABCL, clisp, allegro and lispworks -for my_lisp in sbcl ; do +cd `dirname $0`/test + +if test -z "$1" ; then + lisps="sbcl clisp $HOME/src/acl/acl70_trial/alisp" +else + lisps=$1 +fi + +for my_lisp in $lisps ; do + +# *.fasl are used by both sbcl and allegro, +# so remove them to prevent choking either + +args= +if test "`basename $my_lisp`" == "alisp" ; then + args=-batch +fi echo " -(require 'usocket-test) +#-sbcl (load \"asdf.lisp\") + +(asdf:operate #-sbcl 'asdf:load-source-op + #+sbcl 'asdf:load-op :usocket-test) (usocket-test:do-tests) -(quit) -" | $my_lisp +#-allegro (quit) +" | $my_lisp $args echo "Above test results for $my_lisp." Added: usocket/trunk/test/usocket.asd ============================================================================== --- (empty file) +++ usocket/trunk/test/usocket.asd Sat Feb 11 03:20:56 2006 @@ -0,0 +1 @@ +link ../usocket.asd \ No newline at end of file

1 0

[usocket-cvs] r73 - usocket/trunk
by ehuelsmann＠common-lisp.net 11 Feb '06

11 Feb '06

Author: ehuelsmann Date: Sat Feb 11 03:19:50 2006 New Revision: 73 Modified: usocket/trunk/Makefile Log: Add more cleanup: Armedbear writes other files. Modified: usocket/trunk/Makefile ============================================================================== --- usocket/trunk/Makefile (original) +++ usocket/trunk/Makefile Sat Feb 11 03:19:50 2006 @@ -2,7 +2,7 @@ # $Source$ clean: - find -name -o -name "*~" -o -name "*.err" -o -name "*.x86f" -o -name "*.lib" -o -name "*.fas" -o -name "*.fasl" -o -name "*.faslmt" -o -name "*.ufsl" | xargs rm + find -name -o -name "*~" -o -name "*.err" -o -name "*.x86f" -o -name "*.lib" -o -name "*.fas" -o -name "*.fasl" -o -name "*.faslmt" -o -name "*.ufsl" -o -name "*.abcl" | xargs rm commit: make clean; cvs up; cvs ci

1 0

[usocket-cvs] r72 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 10 Feb '06

10 Feb '06

Author: ehuelsmann Date: Fri Feb 10 16:34:52 2006 New Revision: 72 Modified: usocket/trunk/backend/openmcl.lisp Log: Fix typo. Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Fri Feb 10 16:34:52 2006 @@ -30,8 +30,8 @@ +openmcl-error-map+)))) (if usock-err (error usock-err :socket socket) - (error 'unknown-error :socket socket :real-erorr condition)))) - (error (error 'unknown-error :socket socket :real-erorr condition)) + (error 'unknown-error :socket socket :real-error condition)))) + (error (error 'unknown-error :socket socket :real-error condition)) (condition (signal 'unknown-condition :real-condition condition)))) (defun socket-connect (host port)

1 0

[usocket-cvs] r71 - in usocket/trunk: . test
by ehuelsmann＠common-lisp.net 10 Feb '06

10 Feb '06

Author: ehuelsmann Date: Fri Feb 10 16:29:52 2006 New Revision: 71 Modified: usocket/trunk/condition.lisp usocket/trunk/package.lisp usocket/trunk/run-usocket-tests.sh usocket/trunk/test/test-usocket.lisp Log: Make the tests work again. Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Fri Feb 10 16:29:52 2006 @@ -13,7 +13,7 @@ ;;###FIXME: no slots (yet); should at least be the affected usocket... (:documentation "Parent condition for all socket related conditions.")) -(define-condition socket-error (usocket-condition error) +(define-condition socket-error (socket-condition error) () ;; no slots (yet) (:documentation "Parent error for all socket related errors")) @@ -41,9 +41,9 @@ ;; Mass define and export our conditions (define-usocket-condition-classes (interrupted-condition) - (usocket-condition)) + (socket-condition)) -(define-condition unknown-condition (usocket-condition) +(define-condition unknown-condition (socket-condition) ((real-condition :initarg :real-condition :accessor usocket-real-condition)) (:documentation "Condition raised when there's no other - more applicable - @@ -71,9 +71,9 @@ host-unreachable-error shutdown-error timeout-error) - (usocket-error)) + (socket-error)) -(define-condition unknown-error (usocket-error) +(define-condition unknown-error (socket-error) ((real-error :initarg :real-error :accessor usocket-real-error)) (:documentation "Error raised when there's no other - more applicable - Modified: usocket/trunk/package.lisp ============================================================================== --- usocket/trunk/package.lisp (original) +++ usocket/trunk/package.lisp Fri Feb 10 16:29:52 2006 @@ -25,8 +25,8 @@ :vector-quad-to-dotted-quad :dotted-quad-to-vector-quad - :usocket-condition ; conditions - :usocket-error ; errors + :socket-condition ; conditions + :socket-error ; errors :unknown-condition :unknown-error))) Modified: usocket/trunk/run-usocket-tests.sh ============================================================================== --- usocket/trunk/run-usocket-tests.sh (original) +++ usocket/trunk/run-usocket-tests.sh Fri Feb 10 16:29:52 2006 @@ -13,7 +13,7 @@ echo " (require 'usocket-test) -(usocket-test:run-usocket-tests) +(usocket-test:do-tests) (quit) " | $my_lisp Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Fri Feb 10 16:29:52 2006 @@ -15,21 +15,21 @@ (deftest socket-no-connect.1 (catch 'caught-error - (handler-bind ((usocket:usocket-error + (handler-bind ((usocket:socket-error #'(lambda (c) (throw 'caught-error nil)))) (usocket:socket-connect "127.0.0.0" 80) t)) nil) (deftest socket-no-connect.2 (catch 'caught-error - (handler-bind ((usocket:usocket-error + (handler-bind ((usocket:socket-error #'(lambda (c) (throw 'caught-error nil)))) (usocket:socket-connect #(127 0 0 0) 80) t)) nil) (deftest socket-no-connect.3 (catch 'caught-error - (handler-bind ((usocket:usocket-error + (handler-bind ((usocket:socket-error #'(lambda (c) (throw 'caught-error nil)))) (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0) t))

1 0

[usocket-cvs] r70 - usocket/trunk
by ehuelsmann＠common-lisp.net 10 Feb '06

10 Feb '06

Author: ehuelsmann Date: Fri Feb 10 15:58:19 2006 New Revision: 70 Modified: usocket/trunk/condition.lisp Log: Add host name resolution conditions. Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Fri Feb 10 15:58:19 2006 @@ -5,28 +5,26 @@ (in-package :usocket) -;; (define-condition usocket-error (error) -;; ((real-condition -;; :reader real-condition -;; :initarg :real-condition) -;; (socket -;; :reader socket -;; :initarg :socket)) -;; (:report (lambda (c stream) -;; (format stream "Error (~A) occured in socket: ~A." -;; (real-condition c) (socket c))))) +;; Conditions raised by sockets operations -(define-condition usocket-condition (condition) +(define-condition socket-condition (condition) ((socket :initarg :socket :accessor usocket-socket)) ;;###FIXME: no slots (yet); should at least be the affected usocket... - (:documentation "")) + (:documentation "Parent condition for all socket related conditions.")) -(define-condition usocket-error (usocket-condition error) +(define-condition socket-error (usocket-condition error) () ;; no slots (yet) - (:documentation "")) - + (:documentation "Parent error for all socket related errors")) +(define-condition ns-condition (condition) + ((host-or-ip :initarg :host-or-ip + :accessor host-or-ip)) + (:documentation "Parent condition for all name resolution conditions.")) + +(define-condition ns-error (ns-condition error) + () + (:documentation "Parent error for all name resolution errors.")) (eval-when (:compile-toplevel :load-toplevel :execute) (defun define-usocket-condition-class (class &rest parents) @@ -48,7 +46,8 @@ (define-condition unknown-condition (usocket-condition) ((real-condition :initarg :real-condition :accessor usocket-real-condition)) - (:documentation "")) + (:documentation "Condition raised when there's no other - more applicable - +condition available.")) ;; Mass define and export our errors @@ -77,8 +76,34 @@ (define-condition unknown-error (usocket-error) ((real-error :initarg :real-error :accessor usocket-real-error)) - (:documentation "")) + (:documentation "Error raised when there's no other - more applicable - +error available.")) + + +(define-usocket-condition-classes + (ns-try-again) + (ns-condition)) +(define-condition ns-unknown-condition (ns-condition) + ((real-error :initarg :real-condition + :accessor ns-real-condition)) + (:documentation "Condition raised when there's no other - more applicable - +condition available.")) + +(define-usocket-condition-classes + ;; the no-data error code in the Unix 98 api + ;; isn't really an error: there's just no data to return. + ;; with lisp, we just return NIL (indicating no data) instead of + ;; raising an exception... + (ns-host-not-found + ns-no-recovery) + (ns-error)) + +(define-condition ns-unknown-error (ns-error) + ((real-error :initarg :real-error + :accessor ns-real-error)) + (:documentation "Error raised when there's no other - more applicable - +error available.")) (defmacro with-mapped-conditions ((&optional socket) &body body) `(handler-case @@ -120,11 +145,16 @@ ((65 113) . host-unreachable-error))) - - (defun map-errno-condition (errno) (cdr (assoc errno +unix-errno-error-map+ :test #'member))) (defun map-errno-error (errno) (cdr (assoc errno +unix-errno-error-map+ :test #'member))) + + +(defparameter +unix-ns-error-map+ + `((1 . ns-host-not-found-error) + (2 . ns-try-again-condition) + (3 . ns-no-recovery-error))) +

1 0

[usocket-cvs] r69 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 10 Feb '06

10 Feb '06

Author: ehuelsmann Date: Fri Feb 10 15:57:25 2006 New Revision: 69 Modified: usocket/trunk/backend/openmcl.lisp Log: Fix typo. Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Fri Feb 10 15:57:25 2006 @@ -32,7 +32,7 @@ (error usock-err :socket socket) (error 'unknown-error :socket socket :real-erorr condition)))) (error (error 'unknown-error :socket socket :real-erorr condition)) - (condition (signal 'unkown-condition :real-condition condition)))) + (condition (signal 'unknown-condition :real-condition condition)))) (defun socket-connect (host port) (let ((sock))

1 0

← Newer
1
...
60
61
62
63
64
65
66
...
71
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs