mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
8 lines
105 B
Common Lisp
8 lines
105 B
Common Lisp
(defun foo1 (x y)
|
|
(bar2 x y))
|
|
|
|
(defun bar2 (x y)
|
|
(if (zerop x)
|
|
y
|
|
(foo1 (1- x) (* y x))))
|