Update of /project/cells/cvsroot/cells/utils-kt In directory clnet:/tmp/cvs-serv23239/utils-kt
Modified Files: debug.lisp flow-control.lisp Log Message: Hope I have not broken things, but consider this a warning: I may have.
--- /project/cells/cvsroot/cells/utils-kt/debug.lisp 2006/09/05 18:40:48 1.12 +++ /project/cells/cvsroot/cells/utils-kt/debug.lisp 2006/10/02 02:38:32 1.13 @@ -30,7 +30,7 @@ (setf *count* nil *stop* nil *dbg* nil) - (print "----------UTILSRESET----------------------------------")) + (print "----------UTILSRESET----------------------------------"))
--- /project/cells/cvsroot/cells/utils-kt/flow-control.lisp 2006/09/05 18:40:50 1.6 +++ /project/cells/cvsroot/cells/utils-kt/flow-control.lisp 2006/10/02 02:38:32 1.7 @@ -60,7 +60,7 @@ (list-flatten! (copy-tree tree)))
(defun packed-flat! (&rest u-nameit) - (delete nil (list-flatten! u-nameit))) + (delete nil (list-flatten! u-nameit)))
(defmacro with-dynamic-fn ((fn-name (&rest fn-args) &body fn-body) &body body) `(let ((,fn-name (lambda ,fn-args ,@fn-body)))