From 253a166bbc15e316ba99b7a202c3ed501d6d2c58 Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Mon, 27 Jan 2020 02:10:39 +0000 Subject: refactor(lisp/dns): Return dns-answer from query functions --- lisp/dns/package.lisp | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'lisp/dns/package.lisp') diff --git a/lisp/dns/package.lisp b/lisp/dns/package.lisp index 639d9994aa4b..2b8bfaa8bcc4 100644 --- a/lisp/dns/package.lisp +++ b/lisp/dns/package.lisp @@ -1,4 +1,11 @@ (defpackage #:dns (:documentation "Simple DNS resolver in Common Lisp") (:use #:cl #:iterate #:lisp-binary) - (:export #:lookup-txt #:lookup-mx)) + (:export + ;; Individual lookup functions + #:lookup-txt #:lookup-mx #:lookup-cname #:lookup-a #:lookup-ns + + ;; Useful accessors + #:dns-message-header #:dns-message-answer #:dns-message-question + #:dns-rr-name #:dns-rr-type #:dns-rr-ttl #:dns-rr-rdata + #:dns-question-qname #:dns-question-qtype)) -- cgit 1.4.1