anchor.diff:  		 ((signed-byte 61)
   		  (values 'fixnum 0))
   		 (integer
  -		  (values 'bignum 2))
  +		  (values 'bignum (object-size k)))
   		 (single-float
   		  (values 'single-float 0))
   		 (symbol
  
positive.code: 
  (defmethod dump-object ((object integer) value-table image offset)
    ;; +0 Header word.
    (setf (nibbles:ub64ref/le image offset) (make-sa-header-word 1 25)))
  
  (defmethod dump-object ((object genesis-function) value-table image offset)
    (when (genesis-function-assembled-code object)
  
negative.code:     (genesis-closure 6)
      (integer
       ;; TODO: bignum
       (let ((word-count (1+ (ceiling (1+ (integer-length x)) 64))))
         (when (oddp word-count)
           (incf word-count))
         word-count))
      (genesis-function
       (+ (length (genesis-function-constants x))
  	(* (ceiling (+ (length (genesis-function-assembled-code x)) 12) 16) 2)))
  