Commit 2fa1b97d authored by Daniel Colascione's avatar Daniel Colascione

Fix cl-loop destructuring under `with' clause

parent e8a77f24
2014-04-21 Daniel Colascione <dancol@dancol.org>
* emacs-lisp/cl-macs.el:
(cl--loop-let): Properly destructure `while' clauses.
2014-04-20 Daniel Colascione <dancol@dancol.org>
* vc/vc.el (vc-root-dir): New public autoloaded function for
......
......@@ -1550,7 +1550,7 @@ If BODY is `setq', then use SPECS for assignments rather than for bindings."
(if (and (cl--unused-var-p temp) (null expr))
nil ;; Don't bother declaring/setting `temp' since it won't
;; be used when `expr' is nil, anyway.
(when (and (eq body 'setq) (cl--unused-var-p temp))
(when (cl--unused-var-p temp)
;; Prefer a fresh uninterned symbol over "_to", to avoid
;; warnings that we set an unused variable.
(setq temp (make-symbol "--cl-var--"))
......
2014-04-21 Daniel Colascione <dancol@dancol.org>
* automated/cl-lib.el (cl-loop-destructuring-with): New test.
2014-04-20 Daniel Colascione <dancol@dancol.org>
* automated/cl-lib.el (cl-lib-struct-accessors,cl-the): New tests.
......
......@@ -220,4 +220,7 @@
(should (= (the integer (incf sideffect)) 1))
(should (= sideffect 1))))
(ert-deftest cl-loop-destructuring-with ()
(should (equal (cl-loop with (a b c) = '(1 2 3) return (+ a b c)) 6)))
;;; cl-lib.el ends here
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment