anchor.diff:         ((value :type ,type
                  :initarg :value
                  :reader value)))
  -     
  +
        (defun ,(symbolicate 'make- name) (value)
          (make-instance ',name :value value))
  -     
  +
        (defmethod print-object ((object ,name) stream)
          (print-unreadable-object (object stream :type t)
            (prin1 (slot-value object 'value) stream)))
  
positive.code: (def-box-type octet-vector (vector octet))
  
  (defun make-bytes (list)
    (make-octet-vector 
     (make-array (length list) :element-type 'octet :initial-contents list)))
  
  ;;; arbitrary decimals
  
negative.code: 
  ;;; Composite, ground
  
  ;; array is inherent to parse-array
  
  ;; map is inherent to parse-map but we also need to read the
  ;; array-as-map format
  