anchor.diff:  
   (defun encode-question (stream question)
     (let ((name (getf question :name))
  -	(type (getf question :type))
  -	(class (getf question :class)))
  +        (type (getf question :type))
  +        (class (getf question :class)))
       (encode-name name stream)
       (nibbles:write-ub16/be (or (cadr (assoc type *type-codes*))
                                  (error "Unknown type code ~A, expected one of ~S" 
  
positive.code: 
  (defun decode-rr (stream)
    (let* ((name (decode-name stream))
  	 (type (nibbles:read-ub16/be stream))
  	 (class (nibbles:read-ub16/be stream))
  	 (ttl (nibbles:read-sb32/be stream)))
      (let ((len (nibbles:read-ub16/be stream))
  	  (tname (car (find type *type-codes*
  			    :key #'cadr :test #'=))))
        (let ((v (nibbles:make-octet-vector len)))
  	(read-sequence v stream)
  	(flexi-streams:with-input-from-sequence (s v)
  	  (make-rr :name name
  		   :type tname
  		   :class (car (find class *class-codes*
  				     :key #'cadr :test #'=))
  		   :ttl ttl
  		   :rdata (decode-rdata tname s)))))))
  
  ;;; -----------------------------
  
  
negative.code: 
  (defun encode-rr (stream rr)
    (let ((name (rr-name rr))
          (type (rr-type rr))
          (class (rr-class rr))
          (ttl (rr-ttl rr))
          (rdata (rr-rdata rr)))
      ;; name
      (encode-name name stream)
      ;; type
      (nibbles:write-ub16/be (or (cadr (assoc type *type-codes*))
                                 (error "Unknown TYPE ~A" type))
                             stream)
      ;; class
      (nibbles:write-ub16/be (cadr (assoc class *class-codes*)) stream)
      ;; ttl
      (nibbles:write-sb32/be ttl stream)
      (let ((octets (flexi-streams:with-output-to-sequence (s)
                      (encode-rdata type rdata s))))
        ;; rdlength 
        (nibbles:write-ub16/be (length octets) stream)
        ;; rdata
  