From 7ba9315e5d3c6ac8827e5c0aa3f94508269bd58c Mon Sep 17 00:00:00 2001 From: Daniel Santos Date: Fri, 13 Jan 2023 11:16:49 +0000 Subject: make plus args as list of symbols, instead of numbers --- plus-inc.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/plus-inc.lisp b/plus-inc.lisp index dbad909..cd12ce0 100644 --- a/plus-inc.lisp +++ b/plus-inc.lisp @@ -74,8 +74,8 @@ (t (plus-args-list numerals (next-list-number numerals a) (previous-list-number numerals b))))) (defun plus (numerals a b) - "Given a list of a numeral system and 2 numbers, it returns the list of it's sum." - (may-reverse (plus-args-list numerals (may-reverse (explode a)) (may-reverse (explode b))))) + "Given a list of a numeral system and 2 lists of symbols, it returns the list of it's sum." + (may-reverse (plus-args-list numerals (may-reverse a) (may-reverse b)))) (defun plus-decimal (&rest args) "Given decimal numbers, it returns the symbol it's sum." -- cgit 1.4.1-2-gfad0