diff --git a/lisp/core/compile.el b/lisp/core/compile.el
index eac65de2..e828dc68 100644
--- a/lisp/core/compile.el
+++ b/lisp/core/compile.el
@@ -19,12 +19,22 @@
                           (locate-dominating-file dir "_prepare.el"))
         nil t))
 
-;; Handle options
+;;
+;;; Flags
+
+(advice-add #'eask-allow-error-p :override #'always)
+
+;;
+;;; Handle options
+
 (add-hook 'eask-before-command-hook
           (lambda ()
             (when (eask-strict-p)      (setq byte-compile-error-on-warn t))
             (when (= eask-verbosity 4) (setq byte-compile-verbose t))))
 
+;;
+;;; Core
+
 (defconst eask-compile-log-buffer-name "*Compile-Log*"
   "Byte-compile log buffer name.")
 
diff --git a/lisp/extern/compat.el b/lisp/extern/compat.el
index 2e3a7fa8..2eb0ccf8 100644
--- a/lisp/extern/compat.el
+++ b/lisp/extern/compat.el
@@ -44,4 +44,11 @@
               (push (concat dir "/" file) files)))))
       (nconc result (nreverse files)))))
 
+(eask-defvc< 28
+  (defun always (&rest _arguments)
+    "Ignore ARGUMENTS, do nothing, and return t.
+This function accepts any number of arguments in ARGUMENTS.
+Also see `ignore'."
+    t))
+
 ;;; extern/compat.el ends here
diff --git a/lisp/lint/checkdoc.el b/lisp/lint/checkdoc.el
index c28ddfb9..beff02e4 100644
--- a/lisp/lint/checkdoc.el
+++ b/lisp/lint/checkdoc.el
@@ -30,7 +30,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core
diff --git a/lisp/lint/elint.el b/lisp/lint/elint.el
index 8442f372..bccf82e9 100644
--- a/lisp/lint/elint.el
+++ b/lisp/lint/elint.el
@@ -27,7 +27,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core
diff --git a/lisp/lint/elisp-lint.el b/lisp/lint/elisp-lint.el
index 2a0daed6..a1793165 100644
--- a/lisp/lint/elisp-lint.el
+++ b/lisp/lint/elisp-lint.el
@@ -27,7 +27,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core
diff --git a/lisp/lint/elsa.el b/lisp/lint/elsa.el
index 7dd9e5a6..9625c9d0 100644
--- a/lisp/lint/elsa.el
+++ b/lisp/lint/elsa.el
@@ -33,7 +33,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core
diff --git a/lisp/lint/indent.el b/lisp/lint/indent.el
index 8b3e6ecf..00cc1fd8 100644
--- a/lisp/lint/indent.el
+++ b/lisp/lint/indent.el
@@ -22,7 +22,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core
diff --git a/lisp/lint/keywords.el b/lisp/lint/keywords.el
index c0412d3f..a67e9938 100644
--- a/lisp/lint/keywords.el
+++ b/lisp/lint/keywords.el
@@ -17,7 +17,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core
diff --git a/lisp/lint/license.el b/lisp/lint/license.el
index 7ddc91b2..52bbff11 100644
--- a/lisp/lint/license.el
+++ b/lisp/lint/license.el
@@ -17,7 +17,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core
diff --git a/lisp/lint/package.el b/lisp/lint/package.el
index 90a5b018..0387bfc5 100644
--- a/lisp/lint/package.el
+++ b/lisp/lint/package.el
@@ -27,7 +27,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Handle options
diff --git a/lisp/lint/regexps.el b/lisp/lint/regexps.el
index 29bcf1ac..fdd43881 100644
--- a/lisp/lint/regexps.el
+++ b/lisp/lint/regexps.el
@@ -27,7 +27,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core