Commit f06975d7 authored by Antoine Martin's avatar Antoine Martin
Browse files

Change function name to reflect real meaning

parent be8249b5
......@@ -55,7 +55,7 @@
(and (>= (char-code chara) (char-code #\0))
(<= (char-code chara) (char-code #\9)))))
(defun letter-has-changed (previous new)
(defun letter-has-not-changed (previous new)
(if (and (is-number previous)
(is-number new))
......@@ -113,7 +113,7 @@
(length 0)
(pos dir-list))
(loop until (endp pos)
do (if (letter-has-changed first-letter (get-first-letter (car pos)))
do (if (letter-has-not-changed first-letter (get-first-letter (car pos)))
(progn (setq length (+ length 1))
(setq pos (cdr pos)))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment