[cells-cvs] CVS cells

[ktilton]

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