anchor.diff:  TYPE ::= symbol naming the existing type."
     (declare (ignore options))
     `(progn
  +     (declaim (inline ,(generate-decoder-name name)))
        (defxdecoder ,name (blk)
          (decode-list blk (function ,(generate-decoder-name type))))
  -
  +     (declaim (inline ,(generate-encoder-name name)))
        (defxencoder ,name (blk list)
          (encode-list blk (function ,(generate-encoder-name type)) list))))
   
  
positive.code: COUNT ::= integer specifying the length of the fixed array."
    (declare (ignore options))
    `(progn
       (defxdecoder ,name (blk)
         (decode-fixed blk ,count))
  
       (defxencoder ,name (blk array)
         (encode-fixed blk array ,count))))
  
  
negative.code: TYPE ::= symbol naming the existing typename to alias."
    (declare (ignore options))
    `(progn
       (declaim (inline ,(generate-encoder-name name)))
       (defxencoder ,name (blk val) (,(generate-encoder-name type) blk val))
       (declaim (inline ,(generate-decoder-name name)))
       (defxdecoder ,name (blk) (,(generate-decoder-name type) blk))))
  
  