From 3f9546197e11357ec7c62d225ed2d1820a22ce2f Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Sun, 26 Jan 2020 20:34:03 +0000 Subject: feat(lisp/dns): Export struct fields --- lisp/dns/message.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp') 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 -- cgit 1.4.1