anchor.diff:          :until (eq x eof-value)
           :do (match-search pattern x
                             #'(lambda (tree binds footprints)
  -                              (push (list pathname
  -                                          form-count
  -                                          tree
  -					  binds
  -					  footprints)
  +                              (push (make-state :pathname pathname
  +						:form-count form-count
  +						:form tree
  +						:binds binds
  +						:footprints footprints)
                                       acc))))
         (nreverse acc))))
   
  
positive.code:    :clep-sexp))
  
  (in-package :clep)
  
  (defun %match (pattern expr binds)
    (cond ((and (symbolp pattern)
  
negative.code: 	  (if (null args)
  	      (collect-lisp-files)
  	      (args-to-pathnames args))))
      (loop :for pathname :in (remove-duplicates pathnames :test #'equal)
  	  :append (clep-file-internal pattern pathname))))
  
  (defun clep-sexp (pattern x)
    (let ((acc))
      (match-search pattern x
                    #'(lambda (tree binds footprints)
                        (push (make-state :form tree
  					:binds binds
  					:footprints footprints)
  			    acc)))
      (nreverse acc)))
  