From: Fredrik Tolf <fredrik@dolda2000.com>
Date: Mon, 17 May 2010 23:09:49 +0000 (+0200)
Subject: COMMON-NET: Fixed DN decoding bug.
X-Git-Url: http://dolda2000.com/gitweb/?p=lisp-utils.git;a=commitdiff_plain;h=d250541024b29b01cddf6debd8b55196501ca6de;ds=sidebyside

COMMON-NET: Fixed DN decoding bug.
---

diff --git a/dns.lisp b/dns.lisp
index 4a5d7d1..071cb1d 100644
--- a/dns.lisp
+++ b/dns.lisp
@@ -137,7 +137,7 @@
 			       (decoded (append (list label) (decode-label))))
 			  (push (cons orig-off decoded) (slot-value buf 'prev-names))
 			  decoded))))
-		 ((3) (let* ((offset (+ (* 256 (ldb (byte 0 6) len))
+		 ((3) (let* ((offset (+ (* 256 (ldb (byte 6 0) len))
 					(decode-uint-8 buf)))
 			     (prev (assoc offset (dns-decode-state-prev-names buf))))
 			(unless prev