anchor.diff:     :search-result-footprints
      :search-result-pathname
      :search-result-form-count
  -   :clep-files
  -   :clep-sexp))
  +   :clep-sexp
  +   :clep-stream
  +   :clep-files))
   (in-package :clep)
   
   (defstruct search-result
  
positive.code: 		  (1+ ncdr)
  		  footprints)))
  
  (defun clep-file-internal (pattern pathname)
    (with-open-file (in pathname)
      (let ((acc))
        (loop :with eof-value := (gensym)
  	    :for form-count :from 0 :by 1
  	    :for filepos := (progn
  			      (peek-char t in nil)
  			      (file-position in))
  	    :for x := (read in nil eof-value)
  	    :until (eq x eof-value)
  	    :do (match-search pattern x
  			      #'(lambda (tree binds footprints)
  				  (push (make-search-result
  					 :pathname pathname
  					 :file-position filepos
  					 :form-count form-count
  					 :form tree
  					 :binds binds
  					 :footprints footprints)
  					acc))))
        (nreverse acc))))
  
  (defun clep-files (pattern files)
    (when (not (listp files))
  
negative.code: 			     :test #'equal)))
      (loop :for pathname :in pathnames
  	  :append (clep-file-internal pattern pathname))))
  