use faster integer parsing from cl-irregsexp

vii · Jul 5, 2009 · a063062 · a063062
1 parent dd3ff9d
commit a063062
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/http/encoding.lisp b/src/http/encoding.lisp
@@ -4,8 +4,8 @@
   (declare (type byte-vector encoded))
   (match-replace-all 
    encoded
-   ((progn "%" (word (string 2)))
-    (byte-vector (byte-vector-parse-integer word 16)))
+   ((progn "%" (val (unsigned-byte :max-len 2 :min-len 2 :base 16)))
+    (byte-vector val))
    ("+" " ")))
 
 (defun percent-hexpair-encode (plain)