anchor.diff:  (define-command-table application-commands)
   
   (define-command-table lisp-dev-commands :inherit-from nil) ;; Translators live here
  -(define-command-table lisp-commands 
  +(define-command-table lisp-commands
       :inherit-from (lisp-dev-commands)
       :menu (("ASDF" :menu asdf-commands)))
   
  
positive.code:           (and (char= first #\#)
                 (char= last  #\#))))))
  
  (defun hidden-name-p (name) 
    (and (> (length name) 1) (char= (elt name 0) #\.)))
  
  (defun filter-garbage-pathnames (seq show-hidden hide-garbage)
  
negative.code:   #+lispworks (clos:specializer-direct-generic-functions specializer)
    #+allegro (mop:specializer-direct-generic-functions specializer)
    #-(or PCL SBCL scl lispworks clisp openmcl-partial-mop)
    (error "Sorry, not supported in your CL implementation.
  See the function X-SPECIALIZER-DIRECT-GENERIC-FUNCTION
  if you are interested in fixing this."))
  
  (defun class-funcs (class)
    (remove-duplicates
     (mapcan
      (lambda (class)
        (copy-list (x-specializer-direct-generic-functions class)))
      (remove-ignorable-classes (c2mop:class-precedence-list
                                 (c2mop:ensure-finalized class))))))
  