Dolda2000 GitWeb
/
lisp-utils.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
816e0c9
)
COMMON-NET: Fixed DN decoding bug.
author
Fredrik Tolf
<fredrik@dolda2000.com>
Mon, 17 May 2010 23:09:49 +0000
(
01:09
+0200)
committer
Fredrik Tolf
<fredrik@dolda2000.com>
Mon, 17 May 2010 23:09:49 +0000
(
01:09
+0200)
dns.lisp
patch
|
blob
|
blame
|
history
diff --git
a/dns.lisp
b/dns.lisp
index
4a5d7d1
..
071cb1d
100644
(file)
--- 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