From d250541024b29b01cddf6debd8b55196501ca6de Mon Sep 17 00:00:00 2001
From: Fredrik Tolf <fredrik@dolda2000.com>
Date: Tue, 18 May 2010 01:09:49 +0200
Subject: [PATCH] COMMON-NET: Fixed DN decoding bug.

---
 dns.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.11.0