COMMON-NET: Export some DNS symbols.
authorFredrik Tolf <fredrik@dolda2000.com>
Mon, 17 May 2010 23:11:45 +0000 (01:11 +0200)
committerFredrik Tolf <fredrik@dolda2000.com>
Mon, 17 May 2010 23:11:45 +0000 (01:11 +0200)
dns.lisp

index ce6117c..675bf04 100644 (file)
--- 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
                            (return-from found-server))))))
                  (check-cache))))))))
 
+(export '(*dns-resolver-config*))
+
 ;;; Misc.
 
 (defmethod print-object ((q resource-query) stream)