[cells-cvs] CVS cells/utils-kt

[ktilton]

Update of /project/cells/cvsroot/cells/utils-kt
In directory clnet:/tmp/cvs-serv6754/utils-kt

Modified Files:
	flow-control.lisp 
Log Message:


--- /project/cells/cvsroot/cells/utils-kt/flow-control.lisp	2006/05/20 06:32:20	1.3
+++ /project/cells/cvsroot/cells/utils-kt/flow-control.lisp	2006/07/03 00:08:29	1.4
@@ -55,7 +55,7 @@
     list))
 
 (defun packed-flat! (&rest u-nameit)
-   (delete-if #'null (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)))