Changeset 114 for branches/home/psmith

Timestamp:

04/27/07 18:44:47 (18 years ago)

Author:

psmith

Message:

Added connected nodes count io/nio-package.lisp

File:

• branches/home/psmith/restructure/src/io/nodes.lisp (modified) (1 diff)

branches/home/psmith/restructure/src/io/nodes.lisp ¶

@@ -99 +99 @@
   `(dolist (,node *nodes-list*)
      (when (active-conn ,node) ,@body)))
+
+(defun connected-nodes-count()
+  (let ((count 0))
+    (with-connected-nodes (node)
+      (incf count))
+    count))
+