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

[psmith at common-lisp.net]

Author: psmith
Date: Fri Apr 27 14:44:47 2007
New Revision: 114

Modified:
   branches/home/psmith/restructure/src/io/nodes.lisp
Log:
Added connected nodes count io/nio-package.lisp

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	Fri Apr 27 14:44:47 2007
@@ -98,3 +98,10 @@
 (defmacro with-connected-nodes ((node) &rest body)
   `(dolist (,node *nodes-list*)
      (when (active-conn ,node) , at body)))
+
+(defun connected-nodes-count()
+  (let ((count 0))
+    (with-connected-nodes (node)
+      (incf count))
+    count))
+    
\ No newline at end of file