X-Git-Url: http://git.dolda2000.com/gitweb/?a=blobdiff_plain;f=dns.lisp;fp=dns.lisp;h=071cb1d090cee3cf51ea1da29127d19d242aa647;hb=d250541024b29b01cddf6debd8b55196501ca6de;hp=4a5d7d100c9c223942d046621c3947770af6de1d;hpb=816e0c9be877f21b450970194518a2c50c5c7da9;p=lisp-utils.git

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