diff options
| -rw-r--r-- | cl-math.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cl-math.lisp b/cl-math.lisp index b0272db..da572de 100644 --- a/cl-math.lisp +++ b/cl-math.lisp @@ -87,4 +87,4 @@ (defun plus-earth (&rest args) "Give earthal numbers, it returns it's sum." - (nth-value 0 (implode (reduce (lambda (a b) (plus '(|1| |2| |3| |4| |5|) a b)) args)))) + (symbol-to-number (nth-value 0 (implode (reduce (lambda (a b) (plus '(|1| |2| |3| |4| |5|) a b)) args))))) |