Minor fixes

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)))

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))

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))