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) ,@body))) + +(defun connected-nodes-count() + (let ((count 0)) + (with-connected-nodes (node) + (incf count)) + count)) + \ No newline at end of file