2020-11-04 12:34:28 -08:00
|
|
|
;;;; package.lisp
|
|
|
|
|
2020-11-11 09:39:00 -08:00
|
|
|
(defpackage #:backplane-dns
|
2020-11-04 12:34:28 -08:00
|
|
|
(:use #:cl)
|
2020-11-24 11:51:03 -08:00
|
|
|
|
2020-11-04 12:34:28 -08:00
|
|
|
(:import-from #:arrows
|
|
|
|
#:->
|
|
|
|
#:some->)
|
|
|
|
(:import-from #:alexandria
|
|
|
|
#:if-let)
|
2020-11-24 11:51:03 -08:00
|
|
|
(:import-from #:backplane-server
|
2020-12-01 16:42:33 -08:00
|
|
|
#:backplane-connect
|
2020-11-24 11:51:03 -08:00
|
|
|
#:make-error
|
|
|
|
#:make-success
|
2020-12-01 16:42:33 -08:00
|
|
|
#:parse-message
|
2020-11-24 11:51:03 -08:00
|
|
|
#:with-backplane)
|
|
|
|
(:import-from #:ip-utils
|
|
|
|
#:ipv4-p
|
|
|
|
#:ipv6-p)
|
2020-11-04 12:34:28 -08:00
|
|
|
(:import-from #:postmodern
|
|
|
|
#:get-dao
|
2020-11-11 08:59:40 -08:00
|
|
|
#:select-dao
|
2020-11-04 12:34:28 -08:00
|
|
|
#:update-dao
|
2020-11-17 14:27:19 -08:00
|
|
|
#:insert-dao
|
|
|
|
#:delete-dao
|
|
|
|
#:with-transaction)
|
2020-11-24 11:51:03 -08:00
|
|
|
|
2020-11-11 12:20:51 -08:00
|
|
|
(:export #:start-listener-with-env
|
|
|
|
#:backplane-dns-listen))
|