anchor.diff:      ;; if its a string type then allocate a buffer to put it in
       (case type
         (:string (setf tsize (length object)))
  -      (:wstring (setf tsize (* 2 (length object)))))      
  -
  -    (let ((buffer (make-array (+ tsize flen)
  +      (:wstring (setf tsize (* 2 (length object)))))
  +
  +    (let ((buffer (make-array tsize
                                 :element-type '(unsigned-byte 8)
                                 :initial-element 0)))
   
  
positive.code: 						 ,gsize)))
         ',name)))
  
  
  (defun pack (object type &key footer)
    "Make a packet buffer from the initial object."
    (let ((flen (length footer))
          (tsize (type-size type)))
  
      (unless tsize
        (error "Type ~S not found" type))
  
negative.code:         (otherwise 
           ;; pack the static object
           (pack-type object type buffer 0)))
  
        ;; return buffer
        buffer)))
  