X-Git-Url: http://dolda2000.com/gitweb/?p=lisp-utils.git;a=blobdiff_plain;f=dns.lisp;fp=dns.lisp;h=675bf043766872f19b0d2bc89edc6928484c75b9;hp=ce6117c28ab00b5eada14189e4e2a49d25870442;hb=189474f25303ecbc0c53153d87b28100fe46f19f;hpb=6c36ab4ac92a1bd1898063a3854cbf9c0d8d645f

diff --git a/dns.lisp b/dns.lisp
index ce6117c..675bf04 100644
--- a/dns.lisp
+++ b/dns.lisp
@@ -39,7 +39,8 @@
     `(progn
        (defclass ,name (resource-record) ,slot-desc)
        (setf *rr-coding-types* (cons '(,name (,class ,type) ,format)
-				     (remove ',name *rr-coding-types* :key #'car))))))
+				     (remove ',name *rr-coding-types* :key #'car)))
+       (export '(,name)))))
 
 (define-rr-type a-record #x1 #x1
 		((address ipv4-address)))
@@ -69,6 +70,8 @@
 		 (port uint-16)
 		 (host-name domain-name)))
 
+(export '(resource-record))
+
 ;;; Packet decoding logic
 
 (defstruct dns-decode-state
@@ -713,6 +716,8 @@
 			    (return-from found-server))))))
 		  (check-cache))))))))
 
+(export '(*dns-resolver-config*))
+
 ;;; Misc.
 
 (defmethod print-object ((q resource-query) stream)