diff options
| author | Elena Bolshakova <lena-san@yandex-team.ru> | 2015-06-10 11:34:14 +0300 |
|---|---|---|
| committer | Elena Bolshakova <lena-san@yandex-team.ru> | 2015-06-10 11:34:14 +0300 |
| commit | 193f66553fc114e83e7c4cfb4607e4a1b57c4f09 (patch) | |
| tree | 30988e25d31ed6dff83cf409ad093c3c7ec9322c /common-lisp.html.markdown | |
| parent | 676568cca8731d0dbb2d2bdeff08cc092d283177 (diff) | |
| parent | 5086480a04d27cff2380f04609210082000538d4 (diff) | |
Merge branch 'master' of https://github.com/adambard/learnxinyminutes-docs
Diffstat (limited to 'common-lisp.html.markdown')
| -rw-r--r-- | common-lisp.html.markdown | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/common-lisp.html.markdown b/common-lisp.html.markdown index c4ecb5e8..f9f64d68 100644 --- a/common-lisp.html.markdown +++ b/common-lisp.html.markdown @@ -573,13 +573,15 @@ nil ; for false - and the empty list "While `condition` is true, `body` is executed. `condition` is tested prior to each execution of `body`" - (let ((block-name (gensym))) + (let ((block-name (gensym)) (done (gensym))) `(tagbody + ,block-name (unless ,condition - (go ,block-name)) + (go ,done)) (progn ,@body) - ,block-name))) + (go ,block-name) + ,done))) ;; Let's look at the high-level version of this: |