;; This buffer is for text that is not saved, and for Lisp evaluation.
;; To create a file, visit it with C-x C-f and enter text in its buffer.

(setq-local eval-expression-print-level nil)

(macroexpand-all
 '(progn
    (use-package foo :after bar :config (foo-setup))
    (use-package bar :after baz :demand t)
    (use-package baz)))

(progn
  (progn
    (defvar use-package--warning3 #'(lambda (keyword err)
                                      (let ((msg (format
                                                  "%s/%s: %s"
                                                  'foo
                                                  keyword
                                                  (error-message-string err))))
                                        (display-warning
                                         'use-package
                                         msg
                                         :error))))
    (condition-case err
        (eval-after-load
            'bar
          #'(lambda nil
              (if (not (require 'foo nil t))
                  (display-warning
                   'use-package
                   (format "Cannot load %s" 'foo)
                   :error)
                (condition-case err
                    (progn (foo-setup) t)
                  ((debug error)
                   (funcall
                    use-package--warning3
                    :config err))))))
      ((debug error)
       (funcall
        use-package--warning3
        :catch err))))
  (progn
    (defvar use-package--warning4 #'(lambda (keyword err)
                                      (let ((msg (format
                                                  "%s/%s: %s"
                                                  'bar
                                                  keyword
                                                  (error-message-string err))))
                                        (display-warning
                                         'use-package
                                         msg
                                         :error))))
    (condition-case err
        (eval-after-load
            'baz
          #'(lambda nil
              (if (not (require 'bar nil t))
                  (display-warning
                   'use-package
                   (format "Cannot load %s" 'bar)
                   :error))))
      ((debug error)
       (funcall
        use-package--warning4
        :catch err))))
  (progn
    (defvar use-package--warning5 #'(lambda (keyword err)
                                      (let ((msg (format
                                                  "%s/%s: %s"
                                                  'baz
                                                  keyword
                                                  (error-message-string err))))
                                        (display-warning
                                         'use-package
                                         msg
                                         :error))))
    (condition-case err
        (if (not (require 'baz nil t))
            (display-warning
             'use-package
             (format "Cannot load %s" 'baz)
             :error))
      ((debug error)
       (funcall
        use-package--warning5
        :catch err)))))