mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(lisp/dns): Export struct fields

Browse source
This commit is contained in:
Vincent Ambo 2020-01-26 20:34:03 +00:00
parent 4c109f66b6
commit 3f9546197e
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/dns/message.lisp
View file

@ -643,7 +643,7 @@
(write-byte 0 stream))
;; 4.1.2. Question section format
(defbinary dns-question (:byte-order :big-endian)
(defbinary dns-question (:byte-order :big-endian :export t)
;; a domain name represented
(qname "" :type (custom :lisp-type qname
:reader #'read-qname
@ -661,7 +661,6 @@
;; 4.1.3. Resource record format
(defbinary dns-rr (:byte-order :big-endian)
(define-enum dns-type 2
(:byte-order :big-endian)
@ -677,6 +676,7 @@
(AAAA 28)
(ANY 255)) ;; (typically wants SOA, MX, NS and MX)
(defbinary dns-rr (:byte-order :big-endian :export t)
(name nil :type (custom :lisp-type qname
:reader #'read-qname
:writer #'write-qname))
@ -712,7 +712,7 @@
((A) '(simple-array (unsigned-byte 8) (4)))
(otherwise `(simple-array (unsigned-byte 8) (,rdlength)))))))
(defbinary dns-message (:byte-order :big-endian)
(defbinary dns-message (:byte-order :big-endian :export t)
(header nil :type dns-header)
;; the question for the name server