anchor.diff:    (let ((installed (find-dist (name dist))))
       (equalp (version installed) (version dist))))
   
  +(defmethod uninstall ((dist dist))
  +  (when (installedp dist)
  +    (dolist (system (provided-systems dist))
  +      (asdf:clear-system (name system)))
  +    (ql-impl-util:delete-directory-tree (base-directory dist))))
  +
   
   (defmethod find-release-in-dist (release dist)
     (values (gethash release (release-index dist))))
  
positive.code:                           stream))))))
      release))
  
  
  (defun call-for-each-index-entry (file fun)
    (labels ((blank-char-p (char)
  
negative.code: (defmethod installedp ((system system))
    (installed-asdf-system-file system))
  
  (defmethod uninstall ((system system))
    (uninstall (release system)))
  
  (defun find-asdf-system-file (name)
    (let ((system (find-system name)))
      (when system
  