Dolda2000 GitWeb
/
lisp-utils.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6c36ab4
)
COMMON-NET: Export some DNS symbols.
author
Fredrik Tolf
<fredrik@dolda2000.com>
Mon, 17 May 2010 23:11:45 +0000
(
01:11
+0200)
committer
Fredrik Tolf
<fredrik@dolda2000.com>
Mon, 17 May 2010 23:11:45 +0000
(
01:11
+0200)
dns.lisp
patch
|
blob
|
blame
|
history
diff --git
a/dns.lisp
b/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)
`(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)))
(define-rr-type a-record #x1 #x1
((address ipv4-address)))
@@
-69,6
+70,8
@@
(port uint-16)
(host-name domain-name)))
(port uint-16)
(host-name domain-name)))
+(export '(resource-record))
+
;;; Packet decoding logic
(defstruct dns-decode-state
;;; Packet decoding logic
(defstruct dns-decode-state
@@
-713,6
+716,8
@@
(return-from found-server))))))
(check-cache))))))))
(return-from found-server))))))
(check-cache))))))))
+(export '(*dns-resolver-config*))
+
;;; Misc.
(defmethod print-object ((q resource-query) stream)
;;; Misc.
(defmethod print-object ((q resource-query) stream)