anchor.diff:          (c-format out "~%  (")
           (c-print-symbol out slot-lisp-name t)
           (c-format out " ")
  -        (c-print-symbol out type)
  +        (c-write out type)
           (etypecase count
             (integer
              (c-format out " :count ~D" count))
  
positive.code:                    struct-c-name
                     slot-c-name
                     (not (null count))))
            ((and symbol (not null))
             (c-print-symbol out type))
            (string
             (c-format out "~A" type))
            (cons
             (c-format out "(")
             (dolist (sym type)
               (c-print-symbol out sym)
               (c-format out " "))
             (c-format out ")")))
          (etypecase count
            (null t)
            (integer
  
negative.code:               (format nil "indirect_stringify(~A)" c-name))
      (c-print-symbol out lisp-name t)
      (c-format out " ")
      (c-write out type)
      (when read-only
        (c-format out " :read-only t"))
      (c-format out ")~%")))
  