diff options
| author | Mark Green <mark@antelope.nildram.co.uk> | 2016-01-22 00:54:49 +0000 |
|---|---|---|
| committer | Mark Green <mark@antelope.nildram.co.uk> | 2016-01-22 00:54:49 +0000 |
| commit | 57053bc95d4166a42da8f6d1732dd21a217b073a (patch) | |
| tree | 293a7775d4b46313a2ee955691141095653d4044 /common-lisp.html.markdown | |
| parent | def04721be506f1c7ff5ddf407f2333999570a89 (diff) | |
| parent | 9a5bb286686f5dd4fb743c1bd15ad70a3c6a4a3f (diff) | |
Merge remote-tracking branch 'refs/remotes/adambard/master'
Diffstat (limited to 'common-lisp.html.markdown')
| -rw-r--r-- | common-lisp.html.markdown | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/common-lisp.html.markdown b/common-lisp.html.markdown index 2b1f5de4..9a23bc26 100644 --- a/common-lisp.html.markdown +++ b/common-lisp.html.markdown @@ -339,7 +339,7 @@ nil ; for false - and the empty list ;; The () in the above is the list of arguments for the function (defun hello (name) - (format nil "Hello, ~a " name)) + (format nil "Hello, ~a" name)) (hello "Steve") ; => "Hello, Steve" @@ -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 |