anchor.diff:  
   ;;; Composite, ground
   
  -;; array is inherent to parse-array 
  +;; array is inherent to parse-array
   
   ;; map is inherent to parse-map but we also need to read the
   ;; array-as-map format
  
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:        ((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)))
  