diff options
| -rw-r--r-- | cl-math.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cl-math.lisp b/cl-math.lisp index a0782eb..6a92c3f 100644 --- a/cl-math.lisp +++ b/cl-math.lisp @@ -71,12 +71,12 @@ (defun symbol-to-number (symbol) "Given a symbol, returns it's number." - (values (parse-integer (symbol-name symbol)))) + (nth-value 0 (parse-integer (symbol-name symbol)))) (defun plus-decimal (&rest args) "Given decimal numbers, it returns it's sum." - (values (implode (reduce (lambda (a b) (plus '(|0| |1| |2| |3| |4| |5| |6| |7| |8| |9|) a b)) args)))) + (nth-value 0 (implode (reduce (lambda (a b) (plus '(|0| |1| |2| |3| |4| |5| |6| |7| |8| |9|) a b)) args)))) (defun plus-earth (&rest args) "Give earthal numbers, it returns it's sum." - (values (implode (reduce (lambda (a b) (plus '(|1| |2| |3| |4| |5|) a b)) args)))) + (nth-value 0 (implode (reduce (lambda (a b) (plus '(|1| |2| |3| |4| |5|) a b)) args)))) |