anchor.diff:           (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-")))
  
positive.code:          (declare (ignore ,keysym))
           (apply #'unserialize ,was-key ,rest)))))
  
  (defmacro make-key-slot-serializer ((key var
                                           type-getter-var-list
                                           finder-form
                                           &key layer extra)
                                      &rest type-slot-pairs)
    `(progn
       (define-serializer (,key ,var :layer ,layer :extra ,extra)
         (serialize* ,@(loop :for aa :on type-getter-var-list :by #'cdddr
  
negative.code:   (unserialize-let* (:string name)
      (intern name :keyword)))
  
  ;;; serializer for symbols
  (define-serializer (:symbol value)
    (declare (type symbol value))
    (serialize* :string (symbol-name value)
  