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: 
  (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-loaded-systems)
     :printer (lambda (item stream)
                (present item 'asdf-system
  