anchor.diff:    (unserialize-let* (:string name)
       (intern name :keyword)))
   
  +;;; serializer for symbols
   (define-serializer (:symbol value)
     (declare (type symbol value))
     (serialize* :string (symbol-name value)
  
positive.code:        (unserialize-accessors* ,value ,@fields)
         ,value)))
  
  (defmacro make-list-serializer (type element-type &key layer)
    "Make a serialize/unserialize pair for the key TYPE where each element is serialized with the key ELEMENT-TYPE."
    `(progn
  
negative.code:          (loop :for ii :from 1 :to len
                 :collecting (unserialize ,element-type))))))
  
  ;;; maker to create serializers for fixed length vectors
  (defmacro make-vector-serializer (type element-type length &key layer)
    (let ((elt (gensym "ELT-"))
          (value (gensym "VALUE-")))
  