anchor.diff:  				(symbol-function thing)) 
   		   when (documentation m 'function) append
   		     (list (documentation m 'function)))))
  -	   (format nil "~a~@[~%~%~{~a~^~%~%~}~]" docstring strings)))
  +	   (format nil "~@[~a~]~:[~;~%~%~]~@[~{~a~^~%~%~}~]" 
  +		   docstring (and docstring strings) strings)))
   	(t
   	 (call-next-method))))
   
  
positive.code: 
  (defun display-arguments (arguments)
    (dolist (argument arguments)
      (cond ((consp argument)
             ;; probably part of a macro
             (format *output-stream* "~( ~a~)" argument))
            ((string-equal (symbol-name argument) "&" 
  			 :start1 0 :start2 0 :end1 1 :end2 1) 
             (format *output-stream* "~( ~a~)" argument))
            (t
             (format *output-stream* "~( ~a~)" argument)))))
  
  (defgeneric find-documentation (thing strategy)
    (:documentation "Return the documentation for thing using strategy. The default is to call the Common Lisp documentation method with strategy being used as the type."))
  
negative.code: 		    (find-package (string-upcase property)))))
  	   (setf (document-property :docs-package) package))))))
  
  (defun check-exportedp (symbol)
    (unless (eq (nth-value 1 (find-symbol (symbol-name symbol)
  					(symbol-package symbol)))
  	      :external)
      (markdown-warning "Symbol ~s is not exported" symbol)))  
  
  (defun ensure-symbol (thing &optional (package nil))
    (etypecase thing
      (symbol (if (and package (not (eq (symbol-package thing) package)))
  