From 97fb7e9d0b7863759789e49a33a34b26d96d7639 Mon Sep 17 00:00:00 2001 From: Daniel Santos Date: Tue, 10 Jan 2023 21:41:54 +0000 Subject: may-reverse not needed for implode and explode --- cl-math.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cl-math.lisp b/cl-math.lisp index 77337d2..a0782eb 100644 --- a/cl-math.lisp +++ b/cl-math.lisp @@ -17,11 +17,11 @@ (defun explode (number) "Given a number (which can have letters), it returns a list of the number" - (may-reverse (loop for letter across (write-to-string number) collect (intern (string letter))))) + (loop for letter across (write-to-string number) collect (intern (string letter)))) (defun implode (number) "Given a list of a number (which can have letters), it returns the number" - (intern (apply #'concatenate 'string (mapcar #'symbol-name (may-reverse number))))) + (intern (apply #'concatenate 'string (mapcar #'symbol-name number)))) (defun next-list-number (numerals number-list) "Given a list of a numeral system and a list of a number, it returns a list of the next number." -- cgit 1.4.1-2-gfad0