diff options
| -rw-r--r-- | cl-math.lisp | 4 |
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." |