anchor.diff:          :for x := (read in nil eof-value)
           :until (eq x eof-value)
           :do (match-search pattern x
  -                          #'(lambda (tree binds)
  +                          #'(lambda (tree binds footprints)
                                 (push (list filename
                                             form-count
  -                                          tree binds)
  +                                          tree
  +					  binds
  +					  footprints)
                                       acc))))
         (nreverse acc))))
   
  
positive.code:     (when matched-p
        (values (nreverse binds) t))))
  
  (defun match-search (pattern tree matched-fn)
    (multiple-value-bind (binds matched-p)
        (match pattern tree)
      (when matched-p
        (funcall matched-fn tree binds)))
    (when (consp tree)
      (match-search pattern (car tree) matched-fn)
      (match-search pattern (cdr tree) matched-fn)))
  
  (defun clep-file-internal (pattern filename)
    (with-open-file (in filename)
  
negative.code: (defun clep-sexp (pattern x)
    (let ((acc))
      (match-search pattern x
                    #'(lambda (tree binds footprints)
                        (push (list tree binds footprints) acc)))
      (nreverse acc)))
  