Update of /project/cl-unification/cvsroot/cl-unification/docs/html In directory common-lisp.net:/tmp/cvs-serv26398 Modified Files: control-flow.html Log Message: Fixed factorial example. Date: Wed Apr 27 23:04:59 2005 Author: mantoniotti Index: cl-unification/docs/html/control-flow.html diff -u cl-unification/docs/html/control-flow.html:1.1.1.1 cl-unification/docs/html/control-flow.html:1.2 --- cl-unification/docs/html/control-flow.html:1.1.1.1 Wed Nov 17 23:19:55 2004 +++ cl-unification/docs/html/control-flow.html Wed Apr 27 23:04:59 2005 @@ -68,7 +68,7 @@ (defun factorial (x) (<b>match-case</b> (x) (0 1) - (#T(number ?n) (factorial (1- ?n))) + (#T(number ?n) (* ?n (factorial (1- ?n)))) (otherwise (error "Incorrect match for ~S." x)))) </pre> </p>