mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 10:50:49 -08:00
Code Issues Projects Releases Wiki Activity

Revert "Pre-expand lexical-let, since otherwise it requires cl to be loaded"

Browse source 
This reverts commit 7cc17cee8f.
This commit is contained in:
John Wiegley 2017-12-07 04:53:10 +00:00
parent 7cc17cee8f
commit 20694696b2
2 changed files with 18 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/use-package/use-package-core.el
View file

@ -671,17 +671,14 @@ If ALLOW-EMPTY is non-nil, it's OK for ARGS to be an empty list."
(defun use-package-memoize (f arg) (defun use-package-memoize (f arg)
"Ensure the macro-expansion of F applied to ARG evaluates ARG "Ensure the macro-expansion of F applied to ARG evaluates ARG
no more than once." no more than once."
(let* ((loaded (cl-gensym "use-package--loaded")) (let ((loaded (cl-gensym "use-package--loaded"))
(result (cl-gensym "use-package--result")) (result (cl-gensym "use-package--result"))
(next (cl-gensym "use-package--next")) (next (cl-gensym "use-package--next")))
(body `(lexical-let (,loaded ,result) `((lexical-let (,loaded ,result)
,@(funcall f `((if ,loaded ,@(funcall f `((if ,loaded
,result ,result
(setq ,loaded t) (setq ,loaded t)
(setq ,result ,arg))))))) (setq ,result ,arg))))))))
`(,(if (eq use-package-verbose 'errors)
body
(macroexpand body)))))
(defsubst use-package-normalize-value (label arg) (defsubst use-package-normalize-value (label arg)
"Normalize the Lisp value given by ARG. "Normalize the Lisp value given by ARG.

15
test/lisp/use-package/use-package-tests.el
View file

@ -1213,7 +1213,8 @@
(eval-after-load 'quux (eval-after-load 'quux
'(if ,_ ,_ '(if ,_ ,_
(setq ,_ t) (setq ,_ t)
(setq ,_ (require 'foo nil nil))))))))) (setq ,_ (require 'foo nil nil)))))))
))
(ert-deftest use-package-test/:after-7 () (ert-deftest use-package-test/:after-7 ()
(match-expansion (match-expansion
@ -1227,7 +1228,8 @@
(eval-after-load 'bow (eval-after-load 'bow
'(if ,_ ,_ '(if ,_ ,_
(setq ,_ t) (setq ,_ t)
(setq ,_ (require 'foo nil nil))))))) (setq ,_ (require 'foo nil nil)))))
))
(ert-deftest use-package-test/:after-8 () (ert-deftest use-package-test/:after-8 ()
(match-expansion (match-expansion
@ -1252,7 +1254,8 @@
(eval-after-load 'quux (eval-after-load 'quux
'(if ,_ ,_ '(if ,_ ,_
(setq ,_ t) (setq ,_ t)
(setq ,_ (require 'foo nil nil))))))))) (setq ,_ (require 'foo nil nil)))))))
))
(ert-deftest use-package-test/:after-9 () (ert-deftest use-package-test/:after-9 ()
(match-expansion (match-expansion
@ -1267,7 +1270,8 @@
'(eval-after-load 'bow '(eval-after-load 'bow
'(if ,_ ,_ '(if ,_ ,_
(setq ,_ t) (setq ,_ t)
(setq ,_ (require 'foo nil nil)))))))) (setq ,_ (require 'foo nil nil))))))
))
(ert-deftest use-package-test/:after-10 () (ert-deftest use-package-test/:after-10 ()
(match-expansion (match-expansion
@ -1285,7 +1289,8 @@
(eval-after-load 'baz (eval-after-load 'baz
'(if ,_ ,_ '(if ,_ ,_
(setq ,_ t) (setq ,_ t)
(setq ,_ (require 'foo nil nil))))))) (setq ,_ (require 'foo nil nil)))))
))
(ert-deftest use-package-test/:demand-1 () (ert-deftest use-package-test/:demand-1 ()
(match-expansion (match-expansion