anchor.diff:        ((= len 0) (values nil nil))
         ((<= len 63)
          (let ((v (nibbles:make-octet-vector len)))
  -	 (read-sequence v stream)
  -	 (values (babel:octets-to-string v) 
  -		 nil)))
  +         (read-sequence v stream)
  +         (values (babel:octets-to-string v) 
  +                 nil)))
         (t       
          ;; this is a pointer, call into the hook to decode the name 
          (let ((offset (logior (ash (logand len 63) 8)
  -			     (read-byte stream))))
  -	 (values (funcall *resolve-pointer-hook* offset)
  -		 t))))))
  -      
  +                             (read-byte stream))))
  +         (values (funcall *resolve-pointer-hook* offset)
  +                 t))))))
  +
   ;; -------------------------
   
   (defun encode-name (name stream)
  
positive.code:         :retry (nibbles:read-ub32/be stream)
          :expire (nibbles:read-ub32/be stream)
          :minimum (nibbles:read-ub32/be stream)))
          
    
  ;; --------------------------------------------
  
  ;; resource record structure 
  
negative.code: 
  (defmethod encode-rdata ((type (eql :srv)) data stream)
    (let ((priority (getf data :priority))
          (weight (getf data :weight))
          (port (getf data :port))
          (target (getf data :target)))
      (nibbles:write-ub16/be priority stream)
      (nibbles:write-ub16/be weight stream)
      (nibbles:write-ub16/be port stream)
  