diff options
| author | Stefan Monnier | 2014-04-21 17:18:12 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2014-04-21 17:18:12 -0400 |
| commit | 622eef687cedb8fbaf8ca529239f46968c2487f7 (patch) | |
| tree | 7bde00069a04ff17f8c20b5f7acb8899ccabfb8d /test | |
| parent | 505fa2ab43f38f623fb8f1653371a3a35d5d4b7f (diff) | |
| download | emacs-622eef687cedb8fbaf8ca529239f46968c2487f7.tar.gz emacs-622eef687cedb8fbaf8ca529239f46968c2487f7.zip | |
* lisp/emacs-lisp/cl-macs.el (cl--loop-let): Avoid `nil' as var name.
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/cl-lib.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/automated/cl-lib.el b/test/automated/cl-lib.el index f7f4314e1cb..0587bf92b7c 100644 --- a/test/automated/cl-lib.el +++ b/test/automated/cl-lib.el | |||
| @@ -195,6 +195,9 @@ | |||
| 195 | (should (eql (cl-mismatch "Aa" "aA") 0)) | 195 | (should (eql (cl-mismatch "Aa" "aA") 0)) |
| 196 | (should (eql (cl-mismatch '(a b c) '(a b d)) 2))) | 196 | (should (eql (cl-mismatch '(a b c) '(a b d)) 2))) |
| 197 | 197 | ||
| 198 | (ert-deftest cl-lib-test-loop () | ||
| 199 | (should (eql (cl-loop with (a b c) = '(1 2 3) return (+ a b c)) 6))) | ||
| 200 | |||
| 198 | (ert-deftest cl-lib-keyword-names-versus-values () | 201 | (ert-deftest cl-lib-keyword-names-versus-values () |
| 199 | (should (equal | 202 | (should (equal |
| 200 | (funcall (cl-function (lambda (&key a b) (list a b))) | 203 | (funcall (cl-function (lambda (&key a b) (list a b))) |