may-reverse not needed for implode and explode

1 files 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."