info/learnxinyminutes-docs
1
0
Fork 0
mirror of https://github.com/adambard/learnxinyminutes-docs.git synced 2025-08-05 06:17:36 +02:00
Code Issues Releases Wiki Activity

Merge pull request #2055 from davydovanton/patch-1

Browse Source 
[common-lisp/en] Fix code in examples
This commit is contained in:
Adam Bard
2016-01-06 04:04:15 +08:00
parent c0ee680db8 2f85645c9f
commit b41359b92b
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
common-lisp.html.markdown
View File

@@ -339,7 +339,7 @@ nil ; for false - and the empty list
;; The () in the above is the list of arguments for the function ;; The () in the above is the list of arguments for the function
(defun hello (name) (defun hello (name)
(format nil "Hello, ~a " name)) (format nil "Hello, ~a" name))
(hello "Steve") ; => "Hello, Steve" (hello "Steve") ; => "Hello, Steve"
@@ -430,7 +430,7 @@ nil ; for false - and the empty list
(defun walker (n) (defun walker (n)
(if (zerop n) (if (zerop n)
:walked :walked
(walker (1- n)))) (walker (- n 1))))
(walker 5) ; => :walked (walker 5) ; => :walked