anchor.diff:  
   
   (defgeneric system-apropos (term)
  +  (:method ((term symbol))
  +    (system-apropos (string-downcase term)))
     (:method ((term string))
       (dolist (system (provided-systems t))
         (when (or (search term (name system))
  
positive.code:       (call-next-method)
        (preference (release system))))
  
  (defun find-thing-named (find-fun name)
    (let ((result '()))
      (dolist (dist (enabled-dists) (sort result #'> :key #'preference))
        (let ((thing (funcall find-fun name dist)))
  
negative.code: 
  
  (defgeneric dependency-tree (system)
    (:method ((symbol symbol))
      (dependency-tree (string-downcase symbol)))
    (:method ((string string))
      (let ((system (find-system string)))
        (when system
  