anchor.diff:        (fset:image (lambda (s) (fset:convert 'string s)) matches))))
   
   (defun tilde-expansion (fragments)
  +  "Attempt to expand leading ~s in the given sequence of string
  +fragments."
     (when (zerop (fset:size fragments))
       (return-from tilde-expansion fragments))
   
  
positive.code:         path))))
  
  (defun directory-contents-iterator (dir-ptr)
    (make-iterator ()
      (tagbody
       again
  
negative.code:              ,@body))))))
  
  (defun %expand-wild-path (directories index file-name)
    "The brains of `expand-wild-path'."
    (let (next as-directory-p)
      (cond
        ((>= index (length directories))
  