depends

file: comm.lisp
eがxに依存しているか判別する。

(defun depends (e x)
  (cond ((alike1 e x) t)
 ((mnump e) nil)
 ((atom e) (mget e 'depends))
 (t (or (depends (caar e) x) (dependsl (cdr e) x)))))