zone.lisp: Change the `:sshfp' option tags to be keywords.

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 3aa25ba0794e3b9337fc3594a4bfd42aab11c114..9ce8a3405fab8227522ee1de90a43c0244b155c9 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -861,8 +861,8 @@ (defzoneparse :dkim (name data rec)
       (rec :type :txt
           :data (nreverse things)))))
 
       (rec :type :txt
           :data (nreverse things)))))
 

-(defenum sshfp-algorithm (rsa 1) (dsa 2) (ecdsa 3))
-(defenum sshfp-type (sha-1 1) (sha-256 2))
+(defenum sshfp-algorithm () (:rsa 1) (:dsa 2) (:ecdsa 3))
+(defenum sshfp-type () (:sha-1 1) (:sha-256 2))

 
 (export '*sshfp-pathname-defaults*)
 (defvar *sshfp-pathname-defaults*
 
 (export '*sshfp-pathname-defaults*)
 (defvar *sshfp-pathname-defaults*