diff options
| author | Daniel Santos <dacs.git@brilhante.top> | 2023-01-11 14:59:16 +0000 |
|---|---|---|
| committer | Daniel Santos <dacs.git@brilhante.top> | 2023-01-11 14:59:16 +0000 |
| commit | 81b97b0f6279896e3d3fd124aa2b10b396ddb13b (patch) | |
| tree | 36caa27107d3c6f2b865c42e99631b379661cfeb | |
| parent | 97fb7e9d0b7863759789e49a33a34b26d96d7639 (diff) | |
| download | cl-math-81b97b0f6279896e3d3fd124aa2b10b396ddb13b.tar.gz | |
(values) into (nth-value 0 ...)
| -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)))) |