Method: (RESOLVE-DEPENDENCIES LIST)

Documentation

Return true if the dependency spec DEPENDS-ON is satisfied, nil otherwise.

Source

(defmethod resolve-dependencies ((depends-on list))
  "Return true if the dependency spec DEPENDS-ON is satisfied,
  nil otherwise."
  (if (null depends-on)
      t
      (flet ((satisfies-depends-p (test)
	       (funcall test (lambda (dep)
			       (eql t (resolve-dependencies dep)))
			     (cdr depends-on))))
	(ecase (car depends-on)
	  (and (satisfies-depends-p #'every))
	  (or  (satisfies-depends-p #'some))
	  (not (satisfies-depends-p #'notany))))))