Update of /project/cells/cvsroot/cells/utils-kt In directory common-lisp.net:/tmp/cvs-serv29610/utils-kt
Modified Files: debug.lisp Log Message: Fix make-synaptic-ruled to evaluate synapse ID Date: Wed May 25 07:04:47 2005 Author: ktilton
Index: cells/utils-kt/debug.lisp diff -u cells/utils-kt/debug.lisp:1.2 cells/utils-kt/debug.lisp:1.3 --- cells/utils-kt/debug.lisp:1.2 Wed May 18 23:47:32 2005 +++ cells/utils-kt/debug.lisp Wed May 25 07:04:47 2005 @@ -55,7 +55,7 @@ (assert (stringp ,(car os))) (call-trc t ,@os)) ;;,(car os) ,tgt ,@(cdr os))) (progn - ;;(break "trcfailed") + (break "trcfailed") (count-it :trcfailed))) (count-it :tgtnileval)))))))