anchor.diff:  
   (defun write-indented-children (self)
     (dolist (line (split-string (with-output-to-string (*standard-output*)
  -                                (write-children-text self)) #(#\newline)))
  +                                (write-children-text self))
  +                              #(#\newline)))
       (princ "   ") (princ line) (terpri)))
   
   (defun write-parenthesized-children (self left right)
  
positive.code: 
  
  (defun encase (tag-list)
    ;;     content-list-reversed
    ;;     ( (tag (attributes)) content-list-reversed)
    ;;     ( (tag (attributes)) content-list-reversed)
  
negative.code: 
  (defmacro define-element-writer (tag nls &body body)
    `(progn
       (setf (gethash (intern (string-upcase ,(symbol-name tag)) *tag-package*) *nl*)
             (list ',nls
                   ,(case (first body)
                      ((:children) `(function write-children-text))
  