Usage instructions about how to replace default flymake

[clemente]

Could you add to flymake.el the instructions on how to load your file in a recent Emacs?

Because recent Emacs already include flymake, a (require 'flymake) doesn't load yours.

If I use (load-file "/w/emacs-flymake/flymake.el"), then I see conflicts or dependency with the old one:

macroexp--expand-all: (void-function flymake-ler-p)
Compiler-macro error for flymake-ler-p: (void-function flymake-ler-p--cmacro)
macroexp--expand-all: (void-function flymake-ler-p)
Compiler-macro error for flymake-ler-p: (void-function flymake-ler-p--cmacro)
macroexp--expand-all: (void-function flymake-ler-p)
Compiler-macro error for flymake-ler-p: (void-function flymake-ler-p--cmacro)
macroexp--expand-all: (void-function flymake-ler-p)
Compiler-macro error for flymake-ler-p: (void-function flymake-ler-p--cmacro)
macroexp--expand-all: (void-function flymake-ler-p)
Compiler-macro error for flymake-ler-p: (void-function flymake-ler-p--cmacro)
Loading /w/emacs-flymake/flymake.el (source)...done

Long log:

Debugger entered--Lisp error: (void-function flymake-ler-p)
  indirect-function(flymake-ler-p)
  (autoload-do-load (indirect-function func) func)
  (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))
  (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil)))
  (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform (macroexp--all-forms form 1))) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform))))
  (let ((handler (function-get func (quote compiler-macro)))) (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform (macroexp--all-forms form 1))) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform)))))
  (closure ((pcase-3 closure ((pcase-4 closure ((form flymake-ler-p cl-x) t) (args f) (macroexp--expand-all (cons f args))) (form flymake-ler-p cl-x) t) (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" (list (quote lambda) (nth 1 f) (quote \.\.\.))) (macroexp--expand-all (cons fun (cons arg1 (cons f args)))))) (pcase-4 closure ((form flymake-ler-p cl-x) t) (args f) (macroexp--expand-all (cons f args))) (form flymake-ler-p cl-x) t) (func) (let ((handler (function-get func (quote compiler-macro)))) (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform ...)) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform))))))(flymake-ler-p)
  funcall((closure ((pcase-3 closure ((pcase-4 closure ((form flymake-ler-p cl-x) t) (args f) (macroexp--expand-all (cons f args))) (form flymake-ler-p cl-x) t) (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" (list (quote lambda) (nth 1 f) (quote \.\.\.))) (macroexp--expand-all (cons fun (cons arg1 (cons f args)))))) (pcase-4 closure ((form flymake-ler-p cl-x) t) (args f) (macroexp--expand-all (cons f args))) (form flymake-ler-p cl-x) t) (func) (let ((handler (function-get func (quote compiler-macro)))) (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform ...)) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform)))))) flymake-ler-p)
  (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (if (consp x) (let* (... ...) (funcall pcase-0 x x x)) (funcall pcase-0 nil nil nil))) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (if (consp x) (let* (...) (if ... ... ...)) (let nil form))) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* ((x (cdr form))) (let ((args x) (fun x)) (macroexp--cons (macroexp--all-forms fun 2) (macroexp--all-forms args) form))) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (cond ((consp x) (let* ... ...)) ((eq x ...) (let* ... ...)) (t (funcall pcase-2 x)))) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x))) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x))) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))
  (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (if (consp x) (let* ... ...) (funcall pcase-0 nil nil nil))) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (if (consp x) (let* ... ...) (let nil form))) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* ((x ...)) (let (... ...) (macroexp--cons ... ... form))) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (cond (... ...) (... ...) (t ...))) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x))) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x))) (funcall pcase-2 x)))) (t (funcall pcase-2 x))))
  (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (if ... ... ...)) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* (...) (if ... ... ...)) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* (...) (let ... ...)) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* (...) (cond ... ... ...)) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (if ... ... ...)) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))) (let nil form))
  (let* ((pcase-4 (function (lambda (args f) (macroexp--expand-all (cons f args))))) (pcase-3 (function (lambda (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" (list ... ... ...)) (macroexp--expand-all (cons fun ...)))))) (pcase-2 (function (lambda (func) (let ((handler ...)) (if (null handler) (macroexp--all-forms form 1) (if ... nil ...) (let ... ...)))))) (pcase-1 (function (lambda (body bindings fun) (macroexp--cons fun (macroexp--cons (macroexp--all-clauses bindings 1) (macroexp--all-forms body) (cdr form)) form)))) (pcase-0 (function (lambda (handlers body err) (macroexp--cons (quote condition-case) (macroexp--cons err (macroexp--cons ... ... ...) (cdr form)) form))))) (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x ...)) (let (...) (macroexp--cons ... ... form)))) ((eq x (quote condition-case)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x ...)) (if (consp x) (let* ... ...) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x ...)) (if (eq x ...) (let* ... ...) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))) (let nil form)))
  (if (eq (car-safe form) (quote backquote-list*)) (macroexpand (macroexp--all-forms form 1) macroexpand-all-environment) (let ((new-form (macroexpand form macroexpand-all-environment))) (setq form (if (and (not (eq form new-form)) (car-safe form) (symbolp (car form)) (get (car form) (quote byte-obsolete-info)) (or (not (fboundp ...)) (byte-compile-warning-enabled-p (quote obsolete)))) (let* ((fun (car form)) (obsolete (get fun ...))) (macroexp--warn-and-return (macroexp--obsolete-warning fun obsolete (if ... "alias" "macro")) new-form)) new-form))) (let* ((pcase-4 (function (lambda (args f) (macroexp--expand-all (cons f args))))) (pcase-3 (function (lambda (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" ...) (macroexp--expand-all ...))))) (pcase-2 (function (lambda (func) (let (...) (if ... ... ... ...))))) (pcase-1 (function (lambda (body bindings fun) (macroexp--cons fun (macroexp--cons ... ... ...) form)))) (pcase-0 (function (lambda (handlers body err) (macroexp--cons (quote condition-case) (macroexp--cons err ... ...) form))))) (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* (...) (let ... ...))) ((eq x (quote condition-case)) (let* (...) (if ... ... ...))) ((memq x (quote ...)) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* (...) (if ... ... ...))) ((eq x (quote quote)) (let nil form)) ((memq x (quote ...)) (let* (...) (if ... ... ...))) ((consp x) (let* (...) (if ... ... ...))) ((memq x (quote ...)) (let* (...) (if ... ... ...))) ((eq x (quote sort)) (let* (...) (if ... ... ...))) ((eq x (quote funcall)) (let* (...) (if ... ... ...))) (t (funcall pcase-2 x)))) (let nil form))))
  macroexp--expand-all((flymake-ler-p cl-x))
  macroexp--all-forms((or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) 1)
  (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform (macroexp--all-forms form 1))) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform))))
  (let ((handler (function-get func (quote compiler-macro)))) (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform (macroexp--all-forms form 1))) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform)))))
  (closure ((pcase-3 closure ((pcase-4 closure ((form or (flymake-ler-p cl-x) (error "%s accessing a non-%s" ... ...)) t) (args f) (macroexp--expand-all (cons f args))) (form or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) t) (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" (list (quote lambda) (nth 1 f) (quote \.\.\.))) (macroexp--expand-all (cons fun (cons arg1 (cons f args)))))) (pcase-4 closure ((form or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) t) (args f) (macroexp--expand-all (cons f args))) (form or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) t) (func) (let ((handler (function-get func (quote compiler-macro)))) (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform ...)) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform))))))(or)
  funcall((closure ((pcase-3 closure ((pcase-4 closure ((form or (flymake-ler-p cl-x) (error "%s accessing a non-%s" ... ...)) t) (args f) (macroexp--expand-all (cons f args))) (form or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) t) (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" (list (quote lambda) (nth 1 f) (quote \.\.\.))) (macroexp--expand-all (cons fun (cons arg1 (cons f args)))))) (pcase-4 closure ((form or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) t) (args f) (macroexp--expand-all (cons f args))) (form or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) t) (func) (let ((handler (function-get func (quote compiler-macro)))) (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform ...)) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform)))))) or)
  (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (if (consp x) (let* (... ...) (funcall pcase-0 x x x)) (funcall pcase-0 nil nil nil))) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (if (consp x) (let* (...) (if ... ... ...)) (let nil form))) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* ((x (cdr form))) (let ((args x) (fun x)) (macroexp--cons (macroexp--all-forms fun 2) (macroexp--all-forms args) form))) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (cond ((consp x) (let* ... ...)) ((eq x ...) (let* ... ...)) (t (funcall pcase-2 x)))) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x))) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x))) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))
  (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (if (consp x) (let* ... ...) (funcall pcase-0 nil nil nil))) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (if (consp x) (let* ... ...) (let nil form))) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* ((x ...)) (let (... ...) (macroexp--cons ... ... form))) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (cond (... ...) (... ...) (t ...))) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x))) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x))) (funcall pcase-2 x)))) (t (funcall pcase-2 x))))
  (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (if ... ... ...)) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* (...) (if ... ... ...)) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* (...) (let ... ...)) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* (...) (cond ... ... ...)) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (if ... ... ...)) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))) (let nil form))
  (let* ((pcase-4 (function (lambda (args f) (macroexp--expand-all (cons f args))))) (pcase-3 (function (lambda (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" (list ... ... ...)) (macroexp--expand-all (cons fun ...)))))) (pcase-2 (function (lambda (func) (let ((handler ...)) (if (null handler) (macroexp--all-forms form 1) (if ... nil ...) (let ... ...)))))) (pcase-1 (function (lambda (body bindings fun) (macroexp--cons fun (macroexp--cons (macroexp--all-clauses bindings 1) (macroexp--all-forms body) (cdr form)) form)))) (pcase-0 (function (lambda (handlers body err) (macroexp--cons (quote condition-case) (macroexp--cons err (macroexp--cons ... ... ...) (cdr form)) form))))) (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x ...)) (let (...) (macroexp--cons ... ... form)))) ((eq x (quote condition-case)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x ...)) (if (consp x) (let* ... ...) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x ...)) (if (eq x ...) (let* ... ...) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))) (let nil form)))
  (if (eq (car-safe form) (quote backquote-list*)) (macroexpand (macroexp--all-forms form 1) macroexpand-all-environment) (let ((new-form (macroexpand form macroexpand-all-environment))) (setq form (if (and (not (eq form new-form)) (car-safe form) (symbolp (car form)) (get (car form) (quote byte-obsolete-info)) (or (not (fboundp ...)) (byte-compile-warning-enabled-p (quote obsolete)))) (let* ((fun (car form)) (obsolete (get fun ...))) (macroexp--warn-and-return (macroexp--obsolete-warning fun obsolete (if ... "alias" "macro")) new-form)) new-form))) (let* ((pcase-4 (function (lambda (args f) (macroexp--expand-all (cons f args))))) (pcase-3 (function (lambda (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" ...) (macroexp--expand-all ...))))) (pcase-2 (function (lambda (func) (let (...) (if ... ... ... ...))))) (pcase-1 (function (lambda (body bindings fun) (macroexp--cons fun (macroexp--cons ... ... ...) form)))) (pcase-0 (function (lambda (handlers body err) (macroexp--cons (quote condition-case) (macroexp--cons err ... ...) form))))) (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* (...) (let ... ...))) ((eq x (quote condition-case)) (let* (...) (if ... ... ...))) ((memq x (quote ...)) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* (...) (if ... ... ...))) ((eq x (quote quote)) (let nil form)) ((memq x (quote ...)) (let* (...) (if ... ... ...))) ((consp x) (let* (...) (if ... ... ...))) ((memq x (quote ...)) (let* (...) (if ... ... ...))) ((eq x (quote sort)) (let* (...) (if ... ... ...))) ((eq x (quote funcall)) (let* (...) (if ... ... ...))) (t (funcall pcase-2 x)))) (let nil form))))
  macroexp--expand-all((or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))))
  macroexp--all-forms((progn (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) (aref cl-x 1)) 1)
  (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform (macroexp--all-forms form 1))) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform))))
  (let ((handler (function-get func (quote compiler-macro)))) (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform (macroexp--all-forms form 1))) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform)))))
  (closure ((pcase-3 closure ((pcase-4 closure ((form progn (or ... ...) (aref cl-x 1)) t) (args f) (macroexp--expand-all (cons f args))) (form progn (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) (aref cl-x 1)) t) (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" (list (quote lambda) (nth 1 f) (quote \.\.\.))) (macroexp--expand-all (cons fun (cons arg1 (cons f args)))))) (pcase-4 closure ((form progn (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) (aref cl-x 1)) t) (args f) (macroexp--expand-all (cons f args))) (form progn (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) (aref cl-x 1)) t) (func) (let ((handler (function-get func (quote compiler-macro)))) (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform ...)) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform))))))(progn)
  funcall((closure ((pcase-3 closure ((pcase-4 closure ((form progn (or ... ...) (aref cl-x 1)) t) (args f) (macroexp--expand-all (cons f args))) (form progn (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) (aref cl-x 1)) t) (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" (list (quote lambda) (nth 1 f) (quote \.\.\.))) (macroexp--expand-all (cons fun (cons arg1 (cons f args)))))) (pcase-4 closure ((form progn (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) (aref cl-x 1)) t) (args f) (macroexp--expand-all (cons f args))) (form progn (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) (aref cl-x 1)) t) (func) (let ((handler (function-get func (quote compiler-macro)))) (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform ...)) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform)))))) progn)
  (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (if (consp x) (let* (... ...) (funcall pcase-0 x x x)) (funcall pcase-0 nil nil nil))) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (if (consp x) (let* (...) (if ... ... ...)) (let nil form))) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* ((x (cdr form))) (let ((args x) (fun x)) (macroexp--cons (macroexp--all-forms fun 2) (macroexp--all-forms args) form))) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (cond ((consp x) (let* ... ...)) ((eq x ...) (let* ... ...)) (t (funcall pcase-2 x)))) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x))) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x))) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))
  (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (if (consp x) (let* ... ...) (funcall pcase-0 nil nil nil))) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (if (consp x) (let* ... ...) (let nil form))) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* ((x ...)) (let (... ...) (macroexp--cons ... ... form))) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (cond (... ...) (... ...) (t ...))) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x))) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x))) (funcall pcase-2 x)))) (t (funcall pcase-2 x))))
  (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (if ... ... ...)) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* (...) (if ... ... ...)) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* (...) (let ... ...)) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* (...) (cond ... ... ...)) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (if ... ... ...)) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))) (let nil form))
  (let* ((pcase-4 (function (lambda (args f) (macroexp--expand-all (cons f args))))) (pcase-3 (function (lambda (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" (list ... ... ...)) (macroexp--expand-all (cons fun ...)))))) (pcase-2 (function (lambda (func) (let ((handler ...)) (if (null handler) (macroexp--all-forms form 1) (if ... nil ...) (let ... ...)))))) (pcase-1 (function (lambda (body bindings fun) (macroexp--cons fun (macroexp--cons (macroexp--all-clauses bindings 1) (macroexp--all-forms body) (cdr form)) form)))) (pcase-0 (function (lambda (handlers body err) (macroexp--cons (quote condition-case) (macroexp--cons err (macroexp--cons ... ... ...) (cdr form)) form))))) (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x ...)) (let (...) (macroexp--cons ... ... form)))) ((eq x (quote condition-case)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x ...)) (if (consp x) (let* ... ...) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x ...)) (if (eq x ...) (let* ... ...) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))) (let nil form)))
  (if (eq (car-safe form) (quote backquote-list*)) (macroexpand (macroexp--all-forms form 1) macroexpand-all-environment) (let ((new-form (macroexpand form macroexpand-all-environment))) (setq form (if (and (not (eq form new-form)) (car-safe form) (symbolp (car form)) (get (car form) (quote byte-obsolete-info)) (or (not (fboundp ...)) (byte-compile-warning-enabled-p (quote obsolete)))) (let* ((fun (car form)) (obsolete (get fun ...))) (macroexp--warn-and-return (macroexp--obsolete-warning fun obsolete (if ... "alias" "macro")) new-form)) new-form))) (let* ((pcase-4 (function (lambda (args f) (macroexp--expand-all (cons f args))))) (pcase-3 (function (lambda (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" ...) (macroexp--expand-all ...))))) (pcase-2 (function (lambda (func) (let (...) (if ... ... ... ...))))) (pcase-1 (function (lambda (body bindings fun) (macroexp--cons fun (macroexp--cons ... ... ...) form)))) (pcase-0 (function (lambda (handlers body err) (macroexp--cons (quote condition-case) (macroexp--cons err ... ...) form))))) (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* (...) (let ... ...))) ((eq x (quote condition-case)) (let* (...) (if ... ... ...))) ((memq x (quote ...)) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* (...) (if ... ... ...))) ((eq x (quote quote)) (let nil form)) ((memq x (quote ...)) (let* (...) (if ... ... ...))) ((consp x) (let* (...) (if ... ... ...))) ((memq x (quote ...)) (let* (...) (if ... ... ...))) ((eq x (quote sort)) (let* (...) (if ... ... ...))) ((eq x (quote funcall)) (let* (...) (if ... ... ...))) (t (funcall pcase-2 x)))) (let nil form))))
  macroexp--expand-all((cl-block flymake-ler-file (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) (aref cl-x 1)))
  macroexp--all-forms((lambda (cl-x) (cl-block flymake-ler-file (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) (aref cl-x 1))) 2)
  (macroexp--cons (macroexp--all-forms f 2) nil (cdr form))
  (macroexp--cons (quote function) (macroexp--cons (macroexp--all-forms f 2) nil (cdr form)) form)
  (let ((f x)) (macroexp--cons (quote function) (macroexp--cons (macroexp--all-forms f 2) nil (cdr form)) form))
  (if (null x) (let ((f x)) (macroexp--cons (quote function) (macroexp--cons (macroexp--all-forms f 2) nil (cdr form)) form)) (let nil form))
  (let* ((x (cdr x))) (if (null x) (let ((f x)) (macroexp--cons (quote function) (macroexp--cons (macroexp--all-forms f 2) nil (cdr form)) form)) (let nil form)))
  (if (eq x (quote lambda)) (let* ((x (cdr x))) (if (null x) (let ((f x)) (macroexp--cons (quote function) (macroexp--cons (macroexp--all-forms f 2) nil (cdr form)) form)) (let nil form))) (let nil form))
  (let* ((x (car x))) (if (eq x (quote lambda)) (let* ((x (cdr x))) (if (null x) (let ((f x)) (macroexp--cons (quote function) (macroexp--cons (macroexp--all-forms f 2) nil (cdr form)) form)) (let nil form))) (let nil form)))
  (if (consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* ((x (cdr x))) (if (null x) (let ((f x)) (macroexp--cons (quote function) (macroexp--cons ... nil ...) form)) (let nil form))) (let nil form))) (let nil form))
  (let* ((x (car x))) (if (consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* ((x (cdr x))) (if (null x) (let (...) (macroexp--cons ... ... form)) (let nil form))) (let nil form))) (let nil form)))
  (if (consp x) (let* ((x (car x))) (if (consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* ((x ...)) (if (null x) (let ... ...) (let nil form))) (let nil form))) (let nil form))) (let nil form))
  (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (if (consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* (...) (if ... ... ...)) (let nil form))) (let nil form))) (let nil form)))
  (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (if (consp x) (let* (... ...) (funcall pcase-0 x x x)) (funcall pcase-0 nil nil nil))) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (if (consp x) (let* (...) (if ... ... ...)) (let nil form))) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* ((x (cdr form))) (let ((args x) (fun x)) (macroexp--cons (macroexp--all-forms fun 2) (macroexp--all-forms args) form))) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (cond ((consp x) (let* ... ...)) ((eq x ...) (let* ... ...)) (t (funcall pcase-2 x)))) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x))) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x))) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))
  (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (if (consp x) (let* ... ...) (funcall pcase-0 nil nil nil))) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (if (consp x) (let* ... ...) (let nil form))) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* ((x ...)) (let (... ...) (macroexp--cons ... ... form))) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (cond (... ...) (... ...) (t ...))) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x))) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x))) (funcall pcase-2 x)))) (t (funcall pcase-2 x))))
  (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (if ... ... ...)) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* (...) (if ... ... ...)) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* (...) (let ... ...)) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* (...) (cond ... ... ...)) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (if ... ... ...)) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))) (let nil form))
  (let* ((pcase-4 (function (lambda (args f) (macroexp--expand-all (cons f args))))) (pcase-3 (function (lambda (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" (list ... ... ...)) (macroexp--expand-all (cons fun ...)))))) (pcase-2 (function (lambda (func) (let ((handler ...)) (if (null handler) (macroexp--all-forms form 1) (if ... nil ...) (let ... ...)))))) (pcase-1 (function (lambda (body bindings fun) (macroexp--cons fun (macroexp--cons (macroexp--all-clauses bindings 1) (macroexp--all-forms body) (cdr form)) form)))) (pcase-0 (function (lambda (handlers body err) (macroexp--cons (quote condition-case) (macroexp--cons err (macroexp--cons ... ... ...) (cdr form)) form))))) (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x ...)) (let (...) (macroexp--cons ... ... form)))) ((eq x (quote condition-case)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x ...)) (if (consp x) (let* ... ...) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x ...)) (if (eq x ...) (let* ... ...) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))) (let nil form)))
  (if (eq (car-safe form) (quote backquote-list*)) (macroexpand (macroexp--all-forms form 1) macroexpand-all-environment) (let ((new-form (macroexpand form macroexpand-all-environment))) (setq form (if (and (not (eq form new-form)) (car-safe form) (symbolp (car form)) (get (car form) (quote byte-obsolete-info)) (or (not (fboundp ...)) (byte-compile-warning-enabled-p (quote obsolete)))) (let* ((fun (car form)) (obsolete (get fun ...))) (macroexp--warn-and-return (macroexp--obsolete-warning fun obsolete (if ... "alias" "macro")) new-form)) new-form))) (let* ((pcase-4 (function (lambda (args f) (macroexp--expand-all (cons f args))))) (pcase-3 (function (lambda (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" ...) (macroexp--expand-all ...))))) (pcase-2 (function (lambda (func) (let (...) (if ... ... ... ...))))) (pcase-1 (function (lambda (body bindings fun) (macroexp--cons fun (macroexp--cons ... ... ...) form)))) (pcase-0 (function (lambda (handlers body err) (macroexp--cons (quote condition-case) (macroexp--cons err ... ...) form))))) (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* (...) (let ... ...))) ((eq x (quote condition-case)) (let* (...) (if ... ... ...))) ((memq x (quote ...)) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* (...) (if ... ... ...))) ((eq x (quote quote)) (let nil form)) ((memq x (quote ...)) (let* (...) (if ... ... ...))) ((consp x) (let* (...) (if ... ... ...))) ((memq x (quote ...)) (let* (...) (if ... ... ...))) ((eq x (quote sort)) (let* (...) (if ... ... ...))) ((eq x (quote funcall)) (let* (...) (if ... ... ...))) (t (funcall pcase-2 x)))) (let nil form))))
  macroexp--expand-all((function (lambda (cl-x) (cl-block flymake-ler-file (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) (aref cl-x 1)))))
  macroexp--all-forms((defalias (quote flymake-ler-file) (function (lambda (cl-x) (cl-block flymake-ler-file (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) (aref cl-x 1))))) 1)
  (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform (macroexp--all-forms form 1))) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform))))
  (let ((handler (function-get func (quote compiler-macro)))) (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform (macroexp--all-forms form 1))) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform)))))
  (closure ((pcase-3 closure ((pcase-4 closure ((form defalias (quote flymake-ler-file) (function ...)) t) (args f) (macroexp--expand-all (cons f args))) (form defalias (quote flymake-ler-file) (function (lambda (cl-x) (cl-block flymake-ler-file ... ...)))) t) (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" (list (quote lambda) (nth 1 f) (quote \.\.\.))) (macroexp--expand-all (cons fun (cons arg1 (cons f args)))))) (pcase-4 closure ((form defalias (quote flymake-ler-file) (function (lambda (cl-x) (cl-block flymake-ler-file ... ...)))) t) (args f) (macroexp--expand-all (cons f args))) (form defalias (quote flymake-ler-file) (function (lambda (cl-x) (cl-block flymake-ler-file (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" ... ...)) (aref cl-x 1))))) t) (func) (let ((handler (function-get func (quote compiler-macro)))) (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform ...)) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform))))))(defalias)
  funcall((closure ((pcase-3 closure ((pcase-4 closure ((form defalias (quote flymake-ler-file) (function ...)) t) (args f) (macroexp--expand-all (cons f args))) (form defalias (quote flymake-ler-file) (function (lambda (cl-x) (cl-block flymake-ler-file ... ...)))) t) (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" (list (quote lambda) (nth 1 f) (quote \.\.\.))) (macroexp--expand-all (cons fun (cons arg1 (cons f args)))))) (pcase-4 closure ((form defalias (quote flymake-ler-file) (function (lambda (cl-x) (cl-block flymake-ler-file ... ...)))) t) (args f) (macroexp--expand-all (cons f args))) (form defalias (quote flymake-ler-file) (function (lambda (cl-x) (cl-block flymake-ler-file (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" ... ...)) (aref cl-x 1))))) t) (func) (let ((handler (function-get func (quote compiler-macro)))) (if (null handler) (macroexp--all-forms form 1) (if (functionp handler) nil (condition-case err (autoload-do-load (indirect-function func) func) ((debug error) (message "macroexp--expand-all: %S" err) nil))) (let ((newform (macroexp--compiler-macro handler form))) (if (eq form newform) (if (equal form (setq newform ...)) form (setq form (macroexp--compiler-macro handler newform)) (if (eq newform form) newform (macroexp--expand-all newform))) (macroexp--expand-all newform)))))) defalias)
  (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (if (consp x) (let* (... ...) (funcall pcase-0 x x x)) (funcall pcase-0 nil nil nil))) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (if (consp x) (let* (...) (if ... ... ...)) (let nil form))) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* ((x (cdr form))) (let ((args x) (fun x)) (macroexp--cons (macroexp--all-forms fun 2) (macroexp--all-forms args) form))) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (cond ((consp x) (let* ... ...)) ((eq x ...) (let* ... ...)) (t (funcall pcase-2 x)))) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x)) (x (cdr x))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x))) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* ((x (car x))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x))) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))
  (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (if (consp x) (let* ... ...) (funcall pcase-0 nil nil nil))) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (if (consp x) (let* ... ...) (let nil form))) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* ((x ...)) (let (... ...) (macroexp--cons ... ... form))) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (cond (... ...) (... ...) (t ...))) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...) (x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x))) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x))) (funcall pcase-2 x)))) (t (funcall pcase-2 x))))
  (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x (cdr form))) (let ((clauses x)) (macroexp--cons (quote cond) (macroexp--all-clauses clauses) form)))) ((eq x (quote condition-case)) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (if ... ... ...)) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x (cdr form))) (if (consp x) (let* (...) (if ... ... ...)) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (funcall pcase-1 x x x)) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x (car x))) (if (eq x (quote lambda)) (let* (...) (let ... ...)) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x (cdr form))) (if (consp x) (let* (...) (cond ... ... ...)) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x (cdr form))) (if (consp x) (let* (... ...) (if ... ... ...)) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x (cdr form))) (if (consp x) (let* (...) (if ... ... ...)) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))) (let nil form))
  (let* ((pcase-4 (function (lambda (args f) (macroexp--expand-all (cons f args))))) (pcase-3 (function (lambda (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" (list ... ... ...)) (macroexp--expand-all (cons fun ...)))))) (pcase-2 (function (lambda (func) (let ((handler ...)) (if (null handler) (macroexp--all-forms form 1) (if ... nil ...) (let ... ...)))))) (pcase-1 (function (lambda (body bindings fun) (macroexp--cons fun (macroexp--cons (macroexp--all-clauses bindings 1) (macroexp--all-forms body) (cdr form)) form)))) (pcase-0 (function (lambda (handlers body err) (macroexp--cons (quote condition-case) (macroexp--cons err (macroexp--cons ... ... ...) (cdr form)) form))))) (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* ((x ...)) (let (...) (macroexp--cons ... ... form)))) ((eq x (quote condition-case)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-0 nil nil nil)))) ((memq x (quote (defconst defvar))) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* ((x ...)) (if (consp x) (let* ... ...) (let nil form)))) ((eq x (quote quote)) (let nil form)) ((memq x (quote (let* let))) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-1 nil nil x)))) ((consp x) (let* ((x ...)) (if (eq x ...) (let* ... ...) (funcall pcase-2 x)))) ((memq x (quote (mapc mapconcat mapatoms mapcar apply funcall))) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) ((eq x (quote sort)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) ((eq x (quote funcall)) (let* ((x ...)) (if (consp x) (let* ... ...) (funcall pcase-2 x)))) (t (funcall pcase-2 x)))) (let nil form)))
  (if (eq (car-safe form) (quote backquote-list*)) (macroexpand (macroexp--all-forms form 1) macroexpand-all-environment) (let ((new-form (macroexpand form macroexpand-all-environment))) (setq form (if (and (not (eq form new-form)) (car-safe form) (symbolp (car form)) (get (car form) (quote byte-obsolete-info)) (or (not (fboundp ...)) (byte-compile-warning-enabled-p (quote obsolete)))) (let* ((fun (car form)) (obsolete (get fun ...))) (macroexp--warn-and-return (macroexp--obsolete-warning fun obsolete (if ... "alias" "macro")) new-form)) new-form))) (let* ((pcase-4 (function (lambda (args f) (macroexp--expand-all (cons f args))))) (pcase-3 (function (lambda (args f arg1 fun) (macroexp--warn-and-return (format "%s quoted with ' rather than with #'" ...) (macroexp--expand-all ...))))) (pcase-2 (function (lambda (func) (let (...) (if ... ... ... ...))))) (pcase-1 (function (lambda (body bindings fun) (macroexp--cons fun (macroexp--cons ... ... ...) form)))) (pcase-0 (function (lambda (handlers body err) (macroexp--cons (quote condition-case) (macroexp--cons err ... ...) form))))) (if (consp form) (let* ((x (car form))) (cond ((eq x (quote cond)) (let* (...) (let ... ...))) ((eq x (quote condition-case)) (let* (...) (if ... ... ...))) ((memq x (quote ...)) (let nil (macroexp--all-forms form 2))) ((eq x (quote function)) (let* (...) (if ... ... ...))) ((eq x (quote quote)) (let nil form)) ((memq x (quote ...)) (let* (...) (if ... ... ...))) ((consp x) (let* (...) (if ... ... ...))) ((memq x (quote ...)) (let* (...) (if ... ... ...))) ((eq x (quote sort)) (let* (...) (if ... ... ...))) ((eq x (quote funcall)) (let* (...) (if ... ... ...))) (t (funcall pcase-2 x)))) (let nil form))))
  macroexp--expand-all((defalias (quote flymake-ler-file) (function (lambda (cl-x) (cl-block flymake-ler-file (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) (aref cl-x 1))))))
  macroexpand-all((defalias (quote flymake-ler-file) (function (lambda (cl-x) (cl-block flymake-ler-file (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) (aref cl-x 1))))))
  internal-macroexpand-for-load((defalias (quote flymake-ler-file) (function (lambda (cl-x) (cl-block flymake-ler-file (or (flymake-ler-p cl-x) (error "%s accessing a non-%s" (quote flymake-ler-file) (quote flymake-ler))) (aref cl-x 1))))) t)
  eval-buffer()  ; Reading at buffer position 33057
  funcall-interactively(eval-buffer)
  call-interactively(eval-buffer record nil)
  command-execute(eval-buffer record)
  execute-extended-command(nil "eval-buffer" nil)
  funcall-interactively(execute-extended-command nil "eval-buffer" nil)
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)

This is with: GNU Emacs 25.0.50.1 (x86_64-unknown-linux-gnu, X toolkit, Xaw scroll bars) of 2015-01-12 on la4

Maybe you can use a different name like flymake-il? Or really merge everything into main Emacs?

Thanks

[clemente]

By the way, that particular error can be because Emacs now uses cl-defstruct instead of defstruct. Maybe your code needs to do it like this too:

(cl-defstruct (flymake-ler
            (:constructor nil)
            (:constructor flymake-ler-make-ler (file line type text &optional full-file)))
  file line type text full-file)