anchor.diff:  	(t tag))
         (lambda () ,@body)))
   
  +(defun wrap-in-handler (tag function)
  +  (cond ((and (not (boundp '*handler*))
  +	      (not (eql (if (listp tag) (first tag) tag)
  +			:handler)))
  +	 (<> (:handler (default-handler *package*))
  +	   (wrap-in-handler tag function)))
  +	(t
  +	 (funcall function))))
  +
   (setf (documentation '<> 'function)
    #.(symbol-name '#:|=> /whatever &body returns/
   Example : (<> (:handler (cxml:make-string-sink
  
positive.code:   
    (defvar *document*)
    (setf (documentation '*document* 'variable)
  	"The current SAX handler for CALL-WITH-TAG to use"))
  
  (defun call-with-current-handler (function)
    (call-with-handler function *handler*))
  
negative.code:     (cxml:make-string-sink 
       :canonical nil
       :omit-xml-declaration-p t)))
  
  (defgeneric tag (tag &optional function)
    (:method 
  