anchor.diff:  (defclass dns-rr (dns-record)
     ((ttl  :initarg :ttl  :accessor dns-rr-ttl)
      (data :initarg :data :accessor dns-rr-data)))
  +
  +(defmethod print-object ((rr dns-rr) stream)
  +  (print-unreadable-object (rr stream :type nil :identity nil)
  +    (with-slots (name type class ttl data) rr
  +      (format stream "~S ~A ~A: ~A" name type class
  +              (decode-rr rr)))))
   
   (defmethod initialize-instance :after ((rr dns-rr) &key)
     (with-slots (ttl) rr
  
positive.code:     (cons (dns-rr-ttl rr)
            (cons preference
                  (subseq name 0 (1- (length name)))))))
  
  (defmethod %decode-rr ((rr dns-rr) (type (eql :txt)) class)
    (declare (ignore class))
    (cons (dns-rr-ttl rr) (dns-rr-data rr)))
  
  (defun decode-rr (rr)
    (%decode-rr rr (dns-record-type rr) (dns-record-class rr)))
  
negative.code:      (check-type class (member :in) "a valid record class")))
  
  (defclass dns-question (dns-record) ())
  
  (defmethod print-object ((question dns-question) stream)
    (print-unreadable-object (question stream :type nil :identity nil)
      (with-slots (name type class) question
        (format stream "~S ~A ~A" name type class))))
  
  (defmethod initialize-instance :after ((record dns-question) &key)
    (with-slots (name) record
  