diff options
Diffstat (limited to 'cl-math.lisp')
| -rw-r--r-- | cl-math.lisp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/cl-math.lisp b/cl-math.lisp index 3bcddfb..ff3480f 100644 --- a/cl-math.lisp +++ b/cl-math.lisp @@ -5,8 +5,8 @@ (defun next-digit (numerals digit) "Given a list of a numeral system and a digit, it returns the next digit." (cond - ((eql (car (last numerals)) digit) (car numerals)) - ((not (eql (car numerals) digit)) (next-digit (cdr numerals) digit)) + ((eq (car (last numerals)) digit) (car numerals)) + ((not (eq (car numerals) digit)) (next-digit (cdr numerals) digit)) (t (cadr numerals)))) (defun may-reverse (number) @@ -38,7 +38,7 @@ (cons (if (eq (car numerals) '|0|) (cadr numerals) (car numerals)) nil)) - ((eql (car number-list) (car (last numerals))) + ((eq (car number-list) (car (last numerals))) (cons (car numerals) (next-list-number numerals (cdr number-list)))) (t (cons (next-digit numerals (car number-list)) (cdr number-list))))) @@ -51,13 +51,13 @@ (cond ((and (null (cdr number-list)) - (eql (car number-list) - (if (eql (car numerals) '|0|) + (eq (car number-list) + (if (eq (car numerals) '|0|) (cadr numerals) (car numerals)))) nil) ((and - (eql (car number-list) (car numerals)) + (eq (car number-list) (car numerals)) (not (null (cdr number-list)))) (cons (previous-digit numerals (car number-list)) (previous-list-number numerals (cdr number-list)))) (t (cons (previous-digit numerals (car number-list)) (cdr number-list))))) @@ -67,7 +67,7 @@ (cond ((and (null (cdr b)) - (eql (car b) (if (eql (car numerals) '|0|) + (eq (car b) (if (eq (car numerals) '|0|) (cadr numerals) (car numerals)))) (next-list-number numerals a)) |