From 81b97b0f6279896e3d3fd124aa2b10b396ddb13b Mon Sep 17 00:00:00 2001 From: Daniel Santos Date: Wed, 11 Jan 2023 14:59:16 +0000 Subject: (values) into (nth-value 0 ...) --- cl-math.lisp | 6 +++--- 1 file 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)))) -- cgit 1.4.1-2-gfad0