anchor.diff:  		    (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)))
  
positive.code: 				(symbol-function thing)) 
  		   when (documentation m 'function) append
  		     (list (documentation m 'function)))))
  	   (format nil "~a~@[~%~%~{~a~^~%~%~}~]" docstring strings)))
  	(t
  	 (call-next-method))))
  
  
negative.code: (defun add-docs-link (thing kind)
    (let ((kind (canonize-index-kind kind)))
      (flet ((add-link (name title)
  	     (let ((anchor (html-safe-name (ensure-string name))))
  	       (setf (item-at (link-info *current-document*) name)
  		     (make-instance 'link-info
  				    :id name :url (format nil "#~a" anchor) 
  				    :title title)))))
        (bind ((kinds (symbol-identities thing)))
  	(cond ((length-1-list-p kinds)
  	       (add-link (format nil "~a" thing) 
  