jaredcdavis / fastnumio Goto Github PK

(defun hex-digit-val (x)
  (declare (type character x)
           (optimize (safety 0) speed))
  (aref #.(let ((map (make-array 55)))
             (loop for i to 15
                   for char = (digit-char i 16)
                   do (setf (aref map (- (char-code char) 48)) i
                            (aref map (- (char-code (char-downcase char)) 48)) i))
             map)
        (- (char-code x) 48)))

(defun hex-digit-to-char¡ (n)
  (declare (type (integer 0 15) n)
           (optimize (safety 0) speed))
  (aref #.(coerce "0123456789ABCDEF" 'simple-vector) n))