From 7fe722d4f4e84aa75a7fec2adde4e6f5d11b3fbc Mon Sep 17 00:00:00 2001 From: Daniel Jay Haskin Date: Thu, 2 May 2024 19:16:33 -0600 Subject: [PATCH] what now brown cow. --- src/main.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/main.lisp b/src/main.lisp index acae998..d249a7c 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -64,19 +64,19 @@ (elt reg-starts 0) (elt reg-ends 0)))) (cdr (assoc (parse-integer first-capture-group :radix 16) - *ascii-table*)) - )) + *ascii-table*)))) (defun from (options) (let ((result (make-hash-table :test #'equal)) (encoded (cl-i:ensure-option-exists :encoded options))) - (cl-ppcre:regex-replace-all - "=\r?\n" encoded "") + "=[^0-9A-Fa-f]" encoded "" :multi-line-mode t) + (format t "~A~%" encoded) (cl-ppcre:regex-replace-all "=([0-9A-Fa-f][0-9A-Fa-f])" encoded #'replace-hex) + (format t "~A~%" encoded) (setf (gethash :decoded result) encoded) (setf (gethash :status result) :successful) -- 2.45.2