From e9f8f8e7cd249e1f308ebb511a235374ac5f3994 Mon Sep 17 00:00:00 2001
From: Niten <niten@fudo.org>
Date: Thu, 3 Dec 2020 21:58:57 -0800
Subject: [PATCH] Minor fixes

---
 backplane-dns.asd  |  4 ++--
 package.lisp       | 27 ---------------------------
 store-package.lisp | 28 ++++++++++++++++++++++++++++
 3 files changed, 30 insertions(+), 29 deletions(-)
 create mode 100644 store-package.lisp

diff --git a/backplane-dns.asd b/backplane-dns.asd
index 272a1c3..83d8552 100644
--- a/backplane-dns.asd
+++ b/backplane-dns.asd
@@ -24,7 +24,7 @@
                :cl-ppcre
                :ip-utils
                :postmodern)
-  :components ((:file "package")
+  :components ((:file "store-package")
                (:file "backplane-dns-store")))
 
 (asdf:defsystem #:backplane-dns/test
@@ -34,9 +34,9 @@
                :backplane-dns
                :ip-utils
                :prove)
-  :defsystem-depends-on (:prove-asdf)
   :components ((:module "test"
                 :serial t
                 :components ((:test-file "backplane-dns-test"))))
+  :defsystem-depends-on (:prove-asdf)
   :perform (asdf:test-op (op c)
                          (uiop:symbol-call :prove '#:run '#:backplane-dns/test)))
diff --git a/package.lisp b/package.lisp
index 4b9622d..dd73861 100644
--- a/package.lisp
+++ b/package.lisp
@@ -30,30 +30,3 @@
                 #:request-change-ipv6
                 #:request-change-sshfp
                 #:*dns-store*))
-
-(defpackage #:backplane-dns-store
-  (:use #:cl)
-
-  (:import-from #:arrows #:->)
-  (:import-from #:alexandria #:if-let)
-  (:import-from #:ip-utils
-                #:ipv4-p
-                #:ipv6-p)
-  (:import-from #:postmodern
-                #:select-dao
-                #:update-dao
-                #:insert-dao
-                #:delete-dao
-                #:with-transaction)
-  
-  (:export      #:set-ipv4
-                #:set-ipv6
-                #:set-sshfp
-                #:postgres-dns-store
-                #:invalid-ip
-                #:invalid-sshfp
-                #:domain-name-missing
-                #:missing-domain
-                #:dns-store
-                #:sshfp-p
-                #:error-msg))
diff --git a/store-package.lisp b/store-package.lisp
new file mode 100644
index 0000000..7c63465
--- /dev/null
+++ b/store-package.lisp
@@ -0,0 +1,28 @@
+;;;; store-package.lisp
+
+(defpackage #:backplane-dns-store
+  (:use #:cl)
+
+  (:import-from #:arrows #:->)
+  (:import-from #:alexandria #:if-let)
+  (:import-from #:ip-utils
+                #:ipv4-p
+                #:ipv6-p)
+  (:import-from #:postmodern
+                #:select-dao
+                #:update-dao
+                #:insert-dao
+                #:delete-dao
+                #:with-transaction)
+  
+  (:export      #:postgres-dns-store
+                #:invalid-ip
+                #:invalid-sshfp
+                #:domain-name-missing
+                #:missing-domain
+                #:dns-store
+                #:sshfp-p
+                #:error-msg
+                #:set-ipv4
+                #:set-ipv6
+                #:set-sshfp))