anchor.diff:               (output-package (package)
                  (let ((entries (collect-all-doc-entries package))
                        (*md-package* package))
  +                 (print entries)
                    (md-header 1 (rope "The " package " dictionary")
                               (rope key "_" package))
   
  
positive.code:   (setf (md-docstring-hash symbol type) docstring))
  
  (defmethod markdown-entry (symbol (type (eql :constant)) arguments docstring &optional types other)
    (check-docstring symbol type docstring)
    (md-entry-header symbol type)
    (md-docstring docstring))
  
  (defmethod markdown-entry (symbol (type (eql :special-var)) arguments docstring &optional types other)
    (check-docstring symbol type docstring)
    (md-entry-header symbol type)
    (md-docstring docstring))
  
  (defmethod markdown-entry (symbol (type (eql :macro)) arguments docstring &optional types other)
    (check-docstring symbol type docstring)
    (md-entry-header symbol type)
    (md-docstring docstring))
  
  (defmethod markdown-entry (symbol (type (eql :function)) arguments docstring &optional types other)
    (check-docstring symbol type docstring)
    (md-entry-header symbol type)
    (md-format "    ~A: " symbol)
    (md-lambda-list arguments)
    (md-docstring docstring))
  
  (defmethod markdown-entry (symbol (type (eql :generic-function)) arguments docstring &optional types other)
    (check-docstring symbol type docstring)
    (md-entry-header symbol type)
    (md-format "    ~A: " symbol)
    (md-lambda-list arguments)
    (md-docstring docstring))
  
  (defmethod markdown-entry (symbol (type (eql :method)) arguments docstring &optional types other)
    (md-entry-header symbol type)
    (md-format "    ~A: " symbol)
    (md-lambda-list arguments :specializers types)
  
negative.code:                     (md-docstring-hash symbol :generic-function))))
  
  (defmethod markdown-entry (symbol (type (eql :class)) arguments docstring &optional types other)
    (declare (ignore arguments types other))
    (md-entry-header symbol (if (subtypep symbol 'condition)
                                "Condition type" "Standard class"))
    (md-docstring docstring))
  