diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2019-12-10 20:04:36 -0800 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-12-10 20:05:49 -0800 |
commit | b0f20651e3cbb8a66f11ffae4c18634019c20cd4 (patch) | |
tree | 067bcb8fa529b4afee6d189f409faf16bd437810 /test/lisp/emacs-lisp/cl-macs-tests.el | |
parent | 0940296ebe56ebdf9c32e94191d4f0b18006a910 (diff) | |
download | emacs-b0f20651e3cbb8a66f11ffae4c18634019c20cd4.tar.gz |
; Spelling fixes
Diffstat (limited to 'test/lisp/emacs-lisp/cl-macs-tests.el')
-rw-r--r-- | test/lisp/emacs-lisp/cl-macs-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/emacs-lisp/cl-macs-tests.el b/test/lisp/emacs-lisp/cl-macs-tests.el index 85230447148..d3b9732b74d 100644 --- a/test/lisp/emacs-lisp/cl-macs-tests.el +++ b/test/lisp/emacs-lisp/cl-macs-tests.el @@ -569,14 +569,14 @@ collection clause." finally return result) '(2 1 0))) - ;; this nonintuitive result is replicated by clisp + ;; this unintuitive result is replicated by clisp (should (equal (cl-loop with result for x below 3 and y = (progn (push x result)) finally return result) '(2 1 0 0))) - ;; this nonintuitive result is replicated by clisp + ;; this unintuitive result is replicated by clisp (should (equal (cl-loop with result for x below 3 and y = (progn (push x result)) then (progn (push (1+ x) result)) |