[common-lisp/en] Fix code in examples

This commit is contained in:
Anton Davydov 2015-12-09 00:03:06 +03:00
parent adba73ccb9
commit 2f85645c9f

View File

@ -430,7 +430,7 @@ nil ; for false - and the empty list
(defun walker (n)
(if (zerop n)
:walked
(walker (1- n))))
(walker (- n 1))))
(walker 5) ; => :walked