[cells-cvs] CVS cells/utils-kt

ktilton ktilton at common-lisp.net
Mon Oct 2 02:38:32 UTC 2006


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 , at fn-body)))




More information about the Cells-cvs mailing list