anchor.diff:  			    :if-exists :supersede)
         (let ((*print-pretty* nil)
   	    (*print-case* :downcase))
  -	(format stream "# ~A~%" (package-name package))
  -	(format stream "~%~A~%~%"
  -		(documentation package t))
  +	(format stream "# ~A~%~%" (package-name package))
  +	(if use-readme
  +	       (format stream "```~%~A~%```~%~%"
  +		     (readme-text (alexandria:make-keyword (package-name package))))
  +	       (format stream "~A~%~%"
  +		       (documentation package t)))
   	(loop for category in *categories*
   	   do
   	     (format stream "## ~A~%"
  
positive.code: (in-package :simple-doc)
  
  (defun generate-markdown-doc (output-filename package &key (output-undocumented *output-undocumented*))
    "Generates Markdown doc for a package
  
     Args: - output-filename: A pathname or string. The documentation is written to that file.
  
negative.code:   (format stream "*~A*" (italic-element-text markup)))
  
  (defmethod render-docstring-markup-md ((markup ref-element) stream)
    (write-string (ref-element-name markup) stream))
  
  (defmethod render-docstring-markup-md ((markup email-element) stream)
    (write-string (email-element-email markup) stream))
  
  (defmethod render-docstring-markup-md ((markup link-element) stream)
    (format stream "[~A](~A)"
  