X-Git-Url: https://git.distorted.org.uk/~mdw/zone/blobdiff_plain/bd54e5099ea4282d3fdb094d0516a09006b08b26..cab61922e7168f01893ca509e7ee20c9ff4bd17d:/zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 53800f0..9ce8a34 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -861,8 +861,8 @@
       (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*
@@ -1322,7 +1322,7 @@ $TTL ~2@*~D~2%"
 		    (dotimes (i (length data))
 		      (let ((byte (aref data i)))
 			(if (or (<= byte 32)
-				(>= byte 128)
+				(>= byte 127)
 				(member byte '(#\: #\\) :key #'char-code))
 			    (format out "\\~3,'0O" byte)
 			    (write-char (code-char byte) out)))))