anchor.diff:  		   (if (stringp value)
   			   (pack-wstring value length buffer (+ start offset))
   			   (error "Value ~S is not of type STRING for slot ~S." value slot-name)))
  -		  ((> (length value) length)
  -		   (error "Array for slot ~S is too large" slot-name))
  +;;		  ((> (length value) length)
  +;;		   (error "Array for slot ~S is too large ~A > ~A" slot-name (length value) length))
   		  (t 
  -		   (pack-array value slot-type buffer (+ start offset)))))))
  +		   (pack-array (subseq value 0 length) slot-type buffer (+ start offset)))))))
     buffer)
   
   (defun unpack-object (object slots buffer start)
  
positive.code:         (otherwise 
           ;; pack the static object
           (pack-type object type buffer 0)))
  
        ;; append the binary footer if provided
        (when footer
          (loop for i below flen do
               (setf (elt buffer (+ tsize i))
                     (elt footer i))))
  
        ;; return buffer
        buffer)))
  
negative.code: 						 ,gsize)))
         ',name)))
  
  (defun pack (object type)
    "Make a packet buffer from the initial object."
    (let ((tsize (type-size type)))
  
      (unless tsize
        (error "Type ~S not found" type))
  