anchor.diff:  	  (unless (= 0 (first response-bytes))
   	    (fail))
   	  (setf response-bytes (multiple-value-list
  -				(parse-der (second response-bytes))))
  +				(ocsp-catch-asn-error (parse-der (second response-bytes)))))
   	  (unless (asn-type-matches-p :sequence response-bytes)
   	    (fail))
   	  (setf response-bytes (second response-bytes)))
  
positive.code: 		  :q (gethash :dsa-q signing-certificate)
  		  :g (gethash :dsa-g signing-certificate)
  		  :y (gethash :dsa-public-key signing-certificate))))
  	   (multiple-value-bind (asn-type dss-sig-value) (parse-der signature)
  	     (unless (and (eql asn-type :sequence)
  			  (= (length dss-sig-value) 2))
  	       (return-from verify-ocsp-signature nil))
  
negative.code: 	       (error 'ocsp-error :log (format nil "A HTTP error occured while sending an OCSP request. Details: ~A" (log-info err)))))))
      ;; (format t "~&Checking OCSP from url [~S]~%" url)
      (flet ((fail () (error 'ocsp-error :log "Malformed response")))
        (setf ocsp-response (multiple-value-list (ocsp-catch-asn-error
  						(parse-der ocsp-response))))
        (unless (asn-type-matches-p :sequence ocsp-response)
  	(fail))
        (setf ocsp-response (second ocsp-response))
  