anchor.diff:    (let ((name (decode-name blk))
           (type (decode-uint16 blk))
           (class (decode-uint16 blk)))
  +    (unless (find type *type-codes* :key #'cadr :test #'=)
  +      (warn "Unknown TYPE ~S" type))
       (list :name name 
             :type (car (find type *type-codes* :key #'cadr :test #'=))
             :class (car (find class *class-codes* :key #'cadr :test #'=)))))
  
positive.code:     (:axfr 252)
      (:mailb 253)
      (:maila 254)
      (:all 255)))
  
  (defparameter *class-codes*
    '((:in 1) ;; internet 
  
negative.code: 				 :offset (xdr-block-offset blk)
  				 :count (+ (xdr-block-offset blk) len)))
  	   (rdata (decode-rdata tname rblk)))
        (unless tname (warn "Unknown RR type ~A" type))
        (incf (xdr-block-offset blk) len)
        (make-rr :name name
  	       :type tname
  