; a version of 'equal' analogous to 'match'
(defun equal (pat inp)
  (if (atom pat)
      (eql pat inp)
      (and (consp inp)
           (equal (first pat) (first inp))
           (equal (rest pat)  (rest inp)))))

Contents    Page-10    Prev    Next    Page+10    Index