diff options
| author | Daniel Santos <dacs.git@brilhante.top> | 2023-01-11 15:19:47 +0000 |
|---|---|---|
| committer | Daniel Santos <dacs.git@brilhante.top> | 2023-01-11 15:20:48 +0000 |
| commit | 24730b9d607945477a38f53185198d98d41d2ec4 (patch) | |
| tree | 69a8ec35f1db2763d4b68134c0082d7f83bd72f6 | |
| parent | 81b97b0f6279896e3d3fd124aa2b10b396ddb13b (diff) | |
| download | cl-math-24730b9d607945477a38f53185198d98d41d2ec4.tar.gz | |
rename to *number-units-at-beginning*
| -rw-r--r-- | cl-math.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cl-math.lisp b/cl-math.lisp index 6a92c3f..5eae31d 100644 --- a/cl-math.lisp +++ b/cl-math.lisp @@ -1,6 +1,6 @@ ;;; plus one function -(defvar *number-units-beginning* nil) +(defvar *number-units-at-beginning* nil) (defun next-digit (numerals digit) "Given a list of a numeral system and a digit, it returns the next digit." @@ -11,7 +11,7 @@ (defun may-reverse (number) "If units is placed on the end, reverse; else keep it." - (if *number-units-beginning* + (if *number-units-at-beginning* number (reverse number))) |