; Spelling fixes

This commit is contained in:
Paul Eggert 2019-12-10 20:04:36 -08:00
parent 0940296ebe
commit b0f20651e3
41 changed files with 91 additions and 93 deletions

View file

@ -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))

View file

@ -66,7 +66,7 @@
(opt (regexp-opt-test--match-all perm opt-re)))
(concat "\n"
(format "Naïve regexp: %s\n" ref-re)
(format "Optimised regexp: %s\n" opt-re)
(format "Optimized regexp: %s\n" opt-re)
(format "Got: %s\n" opt)
(format "Expected: %s\n" ref))))