anchor.diff:    (setf (md-docstring-hash symbol type) docstring))
   
   (defmethod markdown-entry (symbol (type (eql :constant)) arguments docstring &optional types other)
  +  (declare (ignore arguments 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)
  +  (declare (ignore arguments 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)
  +  (declare (ignore 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)
  +(defmethod markdown-entry (symbol (type (eql :function)) arguments docstring &optional types other)
  +  (declare (ignore 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)
  +  (declare (ignore 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)
  +  (declare (ignore other))
     (md-entry-header symbol type)
     (md-format "    ~A: " symbol)
     (md-lambda-list arguments :specializers types)
  
positive.code:              (output-package (package)
                 (let ((entries (collect-all-doc-entries package))
                       (*md-package* package))
                   (md-header 1 (rope "The " package " dictionary")
                              (rope key "_" package))
  
  
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))
  