Author: psmith Date: Sun Feb 25 12:59:02 2007 New Revision: 97 Modified: branches/home/psmith/restructure/src/io/nio-package.lisp branches/home/psmith/restructure/src/io/nodes.lisp Log: Added nio util for parsing sockets into nodes Modified: branches/home/psmith/restructure/src/io/nio-package.lisp ============================================================================== --- branches/home/psmith/restructure/src/io/nio-package.lisp (original) +++ branches/home/psmith/restructure/src/io/nio-package.lisp Sun Feb 25 12:59:02 2007 @@ -44,5 +44,5 @@ check-ip load-ips ;;nodes - node with-connected-nodes active-conn + node with-connected-nodes active-conn node-from-socket-repn )) Modified: branches/home/psmith/restructure/src/io/nodes.lisp ============================================================================== --- branches/home/psmith/restructure/src/io/nodes.lisp (original) +++ branches/home/psmith/restructure/src/io/nodes.lisp Sun Feb 25 12:59:02 2007 @@ -55,7 +55,7 @@ (defun node-from-socket-repn(socket) (let ((colon-idx (search ":" socket))) (if colon-idx - (node (subseq socket 0 colon-idx) (subseq socket (+ colon-idx 1))) + (node (subseq socket 0 colon-idx) (parse-integer (subseq socket (+ colon-idx 1)))) (error 'parse-error))))