[nio-cvs] r97 - branches/home/psmith/restructure/src/io

[psmith at common-lisp.net]

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