Update of /project/cells/cvsroot/cells In directory clnet:/tmp/cvs-serv6754
Modified Files: defmodel.lisp link.lisp Log Message:
--- /project/cells/cvsroot/cells/defmodel.lisp 2006/06/23 01:04:56 1.6 +++ /project/cells/cvsroot/cells/defmodel.lisp 2006/07/03 00:08:29 1.7 @@ -100,7 +100,6 @@ ) (setf (md-slot-cell-type class slotname) cell)
- `(progn ,(when reader-fn `(defmethod ,reader-fn ((self ,class)) @@ -173,7 +172,7 @@ :accessor spec) slots))) finally (return (list* (nreverse slots) - (delete-if 'null + (delete nil (list* `(:default-initargs ,@definitargs) (nreverse class-options)))))))))
--- /project/cells/cvsroot/cells/link.lisp 2006/06/23 01:04:56 1.13 +++ /project/cells/cvsroot/cells/link.lisp 2006/07/03 00:08:29 1.14 @@ -76,7 +76,7 @@ (handle-used (incf rev-pos))) (handle-used (setf rev-pos 0)))))) (nail-unused (cd-useds c)) - (setf (cd-useds c) (delete-if #'null (cd-useds c))))))) + (setf (cd-useds c) (delete nil (cd-useds c)))))))
(defun c-caller-path-exists-p (from-used to-caller) (count-it :caller-path-exists-p)