[cells-cvs] CVS update: cell-cultures/cells/cells-test/test-cyclicity.lisp

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/cells/cells-test
In directory common-lisp.net:/tmp/cvs-serv28025/cells/cells-test

Modified Files:
	test-cyclicity.lisp 
Log Message:
Re-write of the core layout widgets under the ix-inline class, plus a new OpenGL example, viz., a simple nurb. Looks sweet, btw.
Date: Fri Oct 15 05:37:33 2004
Author: ktilton

Index: cell-cultures/cells/cells-test/test-cyclicity.lisp
diff -u cell-cultures/cells/cells-test/test-cyclicity.lisp:1.1 cell-cultures/cells/cells-test/test-cyclicity.lisp:1.2
--- cell-cultures/cells/cells-test/test-cyclicity.lisp:1.1	Sat Jun 26 20:38:37 2004
+++ cell-cultures/cells/cells-test/test-cyclicity.lisp	Fri Oct 15 05:37:32 2004
@@ -67,7 +67,7 @@
          (mapcan (lambda (router-id)
                    (unless (find router-id visited-nodes)
                      (multiple-value-bind (ups new-visiteds)
-                         (contiguous-nodes-up (fm! node router-id) visited-nodes)
+                         (contiguous-nodes-up (fm-other! node router-id) visited-nodes)
                        (setf visited-nodes new-visiteds)
                        ups)))
            (router-ids node)))
@@ -84,9 +84,9 @@
                  :sys-node 'two
                  :ring '(one two three four five six))))
       (dump-net net "initially")
-      (setf (system-status (fm! net 'three)) 'down)
+      (setf (system-status (fm-other! net 'three)) 'down)
       (dump-net net "down goes three!!")
-      (setf (system-status (fm! net 'six)) 'down)
+      (setf (system-status (fm-other! net 'six)) 'down)
       (dump-net net "down goes six!!!"))))
 
 #+do-it