anchor.diff:                                              (view textual-view)
                                               &key acceptably)
     (if acceptably
  -      (princ (asdf-system-name object) stream )
  +      (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-system-name object)
  +                (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-system-name system) system)))
  +          (suggest (asdf:coerce-name system) system)))
       (if success
           object
           (simple-parse-error "Unknown system"))))
  
positive.code: 
  (defun asdf-loaded-systems ()
    "Retrieve a list of loaded systems from ASDF"
    (let (systems)
      (maphash
       (lambda (name foo.system)
         (declare (ignore name))
         (push (cdr foo.system) systems))
       asdf::*defined-systems*)
      systems))
  
  (defun asdf-get-central-registry ()
    asdf::*central-registry*)
  
negative.code:                                             :command-table asdf-commands
                                              :menu t)
      ()
    (format-items (asdf-registry-system-files)
                  :presentation-type 'asdf-system-definition))
  
  (define-command (com-operate-on-system :name "Operate On System"
  