anchor.diff:  	      (when (string-equal (pathname-type path) "asd")
   		(systems (truename path))))
   	    (cl-fad:list-directory (eval reg))))))
  -
  -(defun asdf-system-name (system)
  -  (slot-value system 'asdf::name))
   
   (defun asdf-operation-pretty-name (op)
     (case op
  
positive.code:   (asdf:oos 'asdf:compile-op system)
    (asdf:oos 'asdf:load-op system))
  
  (defmethod mime-type-to-command ((mime-type text/x-lisp-system) pathname)  
    (values `(com-load-system ,pathname)
            "Load System"
            (format nil "Load System ~A" pathname)))
  
negative.code:                                             (view textual-view)
                                              &key acceptably)
    (if acceptably
        (princ (asdf:coerce-name object) stream)
        (let* ((history (asdf-system-history object))
               (loaded-p (find 'asdf:load-op history))
               (eff-history (set-difference history (ignorable-attributes view))))
          (when (and (note-unloaded view) (not loaded-p))
            (push :unloaded eff-history))
          (format stream "~A~A"
                  (asdf:coerce-name object)
                  (if (null eff-history)
                      (default-attr-label view)
                      (format nil " (~{~a~^, ~})"
                              (mapcar 'asdf-operation-pretty-name eff-history)))))))
  
  (define-presentation-method accept ((type asdf-system) stream
                                      (view textual-view) &key)
    (multiple-value-bind (object success)
        (completing-from-suggestions (stream)
          (dolist (system (asdf-loaded-systems))
            (suggest (asdf:coerce-name system) system)))
      (if success
          object
          (simple-parse-error "Unknown system"))))
  