anchor.diff:  		   (format nil "[COMPOUND SORT: ~S]" sort)))))
       (unicode::ustring (aux sort))))
   
  -
   (defun make-content-items (datum sort pattern table indent)
  -  ;; (format t "~& From: ~S~%" sort)
  -  ;;  (format t "~&   to: ~S~%" pattern)
  -  ;;  (format t "~&datum: ~S~%" datum)
  -  ;;  (format t "~&---------------------------~%")
     (let ((key  (car pattern))
   	(body (cdr pattern)))
       (case key
  
positive.code:   (make_Content_Item_from_Element 
     (make-element name datum sort table (+ indent 2))))
  
  (defun make-whitespace (n)
    (let ((chars nil))
      (dotimes (i n) (push 32 chars))
      chars))
  
  (defun make-element (name datum sort table indent)
    (let* ((pattern (chase sort table))
  	 (name (unicode::ustring name))
  	 (sort-attribute  (make_GenericAttribute '(32) (unicode::ustring "type") '() '() 
  						 (make_QuotedText '34
  								  (pp-sort-for-xml sort))))
  	 (attributes 
  	  (list sort-attribute)))
      (multiple-value-bind (items text)
  
negative.code: 			     items)
  	       (make_ETag name null-whitespace)))))))
  
  (defun pp-sort-for-xml-attribute (sort)
    (labels ((aux (sort)
  		(case (car sort)
  		  (:|Base|
  