anchor.diff:  
   (defun bugzilla-login ()
     (let ((creds (authentication-credentials "")))
  -    (drakma:http-request "https:///index.cgi"
  +    (drakma:http-request "https://g.interna/index.cgi"
                            :method :post
                            :parameters `(("Bugzilla_login" . ,(getf creds :login))
                                          ("Bugzilla_password" . ,(getf creds :password)))
  
positive.code:                 (declare (ignore pubid))
                  (when (puri:uri= sysid
                                   (puri:parse-uri
                                    "https:///bugzilla.dtd"))
                    (open "data/bugzilla.dtd" :element-type '(unsigned-byte 8)))))
           (let* ((doc (cxml:parse response
                                   (cxml-dom:make-dom-builder)
  
negative.code:     (bugzilla-login))
    (multiple-value-bind (response status headers)
        (drakma:http-request
         (format nil "https://g.interna/show_bug.cgi?ctype=xml&id=~a" bug)
         :cookie-jar *bugzilla-cookies*)
      (cond
        ((/= status 200)
  