anchor.diff:  (defun unpack-array (length type buffer start)
     "Extract an array of objects from the buffer."
     (let ((array (make-array length))
  -	(size (type-size type)))
  +		(size (type-size type)))
       (dotimes (i length)
         (setf (elt array i)
  -	    (unpack-type type buffer (+ start (* i size)))))
  +			(unpack-type type buffer (+ start (* i size)))))
       array))
   
  -
  +;; define some special functions for handling strings... can this be done better??
   (defun pack-string (string length buffer start)
     "Pack a string into the buffer."
     (let ((array (make-array length)))
       (dotimes (i length)
         (if (< i (length string))
  -	  (setf (elt array i) (char-code (char string i)))
  -	  (setf (elt array i) 0)))
  +		  (setf (elt array i) (char-code (char string i)))
  +		  (setf (elt array i) 0)))
       (pack-array array
  -		:uint8
  -		buffer
  -		start)))
  +				:uint8
  +				buffer
  +				start)))
   
   (defun unpack-string (length buffer start)
     "Unpack a string from the buffer."
     (let ((bytes (unpack-array length :uint8 buffer start)))
       (with-output-to-string (s)
         (block extract-string
  -	(dotimes (i (length bytes))
  -	  (let ((code (elt bytes i)))
  -	    (if (zerop code)
  -		(return-from extract-string)
  -		(princ (code-char code) s))))))))
  +		(dotimes (i (length bytes))
  +		  (let ((code (elt bytes i)))
  +			(if (zerop code)
  +				(return-from extract-string)
  +				(princ (code-char code) s))))))))
   
   ;; --------------------- packets / structures --------------------------
   
  
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: 	(when (and size (< size offset))
  	  (error "Explicit packet size ~S smaller than minumum packet size ~S."
  			 size offset))
  	
      ;; we have to reverse them becuase they were pushed on so are in reverse order
      (values (nreverse real-slots)
  			offset
  