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 481eeed..77337d2 100644 --- a/cl-math.lisp +++ b/cl-math.lisp @@ -12,8 +12,8 @@ (defun may-reverse (number) "If units is placed on the end, reverse; else keep it." (if *number-units-beginning* - (reverse number) - number)) + number + (reverse number))) (defun explode (number) "Given a number (which can have letters), it returns a list of the number" |