Use DIGIT-CHAR-P instead of POSITION.

sharplispers · Feb 20, 2024 · a0220ba · a0220ba
1 parent cd67e7b
commit a0220ba
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/util.lisp b/src/util.lisp
@@ -43,7 +43,7 @@ hexadecimal digits into a byte array."
          (key (make-array length :element-type '(unsigned-byte 8))))
     (declare (type (simple-array (unsigned-byte 8) (*)) key))
     (flet ((char-to-digit (char)
-             (or (position char "0123456789abcdef" :test #'char-equal)
+             (or (digit-char-p char 16)
                  (error 'ironclad-error
                         :format-control "~A is not a hex digit"
                         :format-arguments (list char)))))