It should work, it's called here: ```
         do (let* ((expr `(progn
                            (require 'comp)
                            (setf comp-speed ,comp-speed
                                  comp-debug ,comp-debug
                                  comp-verbose ,comp-verbose
                                  load-path ',load-path)
                            ,comp-async-env-modifier-form
                            (message "Compiling %s..." ,source-file)
                            (native-compile ,source-file ,(and load t))))
                   (source-file1 source-file) ;; Make the closure works :/

```