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