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