diff options
| author | Vincent Ambo <tazjin@google.com> | 2020-01-26T20·34+0000 |
|---|---|---|
| committer | Vincent Ambo <tazjin@google.com> | 2020-01-26T20·34+0000 |
| commit | 3f9546197e11357ec7c62d225ed2d1820a22ce2f (patch) | |
| tree | 681f59ab2ad7d824817aa1c5903b2aecdbda7433 /lisp/dns/message.lisp | |
| parent | 4c109f66b6c1a859ca7b96954e13883e38751350 (diff) | |
feat(lisp/dns): Export struct fields
Diffstat (limited to 'lisp/dns/message.lisp')
| -rw-r--r-- | lisp/dns/message.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/dns/message.lisp b/lisp/dns/message.lisp index 137532b748ea..d4120da38760 100644 --- a/lisp/dns/message.lisp +++ b/lisp/dns/message.lisp @@ -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 |