                 (message-log-max nil))
             (native-compile-async
              (straight--build-dir package)
-             'recursively 'late))
+             'recursively nil
+             #'straight--native-compile-file-p))
         ;; Prevent compilation of this package
-        (require 'comp)
-        (add-to-list 'comp-deferred-compilation-black-list
+        (add-to-list 'comp-deferred-compilation-deny-list
                      (format "^%s" (straight--build-dir package)))))))
 
 ;;;;; Info compilation

       (not (straight--plist-get recipe :no-native-compile
                                 straight-disable-native-compilation))))

(defun straight--native-compile-package (recipe)
  "Queue native compilation for the symlinked package specified by RECIPE.
RECIPE should be a straight.el-style plist. Note that this

asynchronously, and will continue in the background after
`straight-use-package' returns."
  (when (fboundp 'native-compile-async)
    (require 'comp)
    (straight--with-plist recipe
        (package)
      (if (straight--native-compile-package-p recipe)
