anchor.diff:  
   
   ;; ------------------------- arrays ------------------------------------
  -  
  +
   (defun pack-array (array type buffer start)
     "Pack an array of object into the buffer."
     (let ((size (type-size type)))
  
positive.code: (define-alias :ushort :uint16)
  
  (define-type :uint32 
    ((uint32 buffer start)
     (pack-bytes (bytes uint32 4) buffer start))
    ((buffer start)
     (unpack-bytes buffer start 4))
    4)
  
negative.code: (defun pack (object type)
    "Make a packet buffer from the initial object."
    (let ((buffer (make-array (type-size type) 
  							:element-type '(unsigned-byte 8)
  							:initial-element 0)))
      (pack-type object type buffer 0)
      buffer))
  
  