anchor.diff:    
     (defvar *document*)
     (setf (documentation '*document* 'variable)
  -	"The current SAX handler for CALL-WITH-TAG to use"))
  +	"The current SAX document for CALL-WITH-TAG to use"))
   
   (defun call-with-current-handler (function)
     (call-with-handler function *handler*))
  
positive.code: 	(t tag))
        (lambda () ,@body)))
  
  (setf (documentation '<> 'function)
   #.(symbol-name '#:|=> /whatever &body returns/
  Example : (<> (:handler (cxml:make-string-sink
  
negative.code: (cl:defpackage :yasexml
    (:documentation
     "YASEXML: Yet Another Symbolic Expression eXtensible Markup Language")
    (:use :cl)
    (:nicknames :yasexml/yasexml)
    (:import-from :cxml)
    (:import-from :sax)
    (:export #:<>
  	   #:tag
  	   #:call-with-tag
  	   #:call-with-handler
  	   #:call-with-current-handler))
  (cl:in-package :yasexml)
  
  (defgeneric call-with-tag (function tag &rest tag-attributes))
  
  