anchor.diff:  (optimization-settings)
   
   (defun all-subclasses (class)
  +  "Returns an `fset:set' of all classes which subclass `class'."
     (let ((result (fset:empty-set)))
       (dolist (subclass (closer-mop:class-direct-subclasses class))
         (fset:adjoinf result subclass)
         (fset:unionf result (all-subclasses subclass)))
       result))
   
  -(defgeneric graph-class-hierarchy (class stream))
  +(defgeneric graph-class-hierarchy (class stream)
  +  (:documentation
  +   "Produce a DOT representation of is-a relationships between `class'
  +and all of its subclasses"))
   (defmethod graph-class-hierarchy ((name symbol) stream)
     (graph-class-hierarchy (find-class name) stream))
   (defmethod graph-class-hierarchy ((class standard-class) stream)
  
positive.code:   (format stream "}~%"))
  
  (defun shcl-package-p (package)
    (let ((shcl-prefix "SHCL/"))
      (when (> (length (package-name package)) (length shcl-prefix))
        (string= (package-name package) shcl-prefix :end1 (length shcl-prefix)))))
  
  (defun symbol-documentation-types ()
    (let* ((methods (list-iterator (closer-mop:generic-function-methods #'documentation)))
           (specializers (map-iterator methods 'closer-mop:method-specializers))
           (symbol-methods (filter-iterator specializers (lambda (x) (eq (find-class 'symbol) (first x)))))
  
negative.code:          (values (map-iterator eql-specializers 'closer-mop:eql-specializer-object)))
      (iterator-values values)))
  
  (defparameter *symbol-documentation-types* (symbol-documentation-types)
    "An array of types of documentation a symbol can have.
  
  See `symbol-documentation-types'.")
  
  (defun documented-p (symbol)
    "Returns non-nil if the given symbol has some form of documentation."
    (loop :for documentation-type :across *symbol-documentation-types* :do
       (progn
         (when (documentation symbol documentation-type)
  