```common lisp
(cl:in-package #:sicl-extrinsic-environment)

(defun load-file (filename environment)
  (load-source-with-environments
   (asdf:system-relative-pathname :sicl-extrinsic-hir-compiler filename)
   environment
   environment))
```

Replace ASDF system used for relative pathnames.
user
```common lisp
(cl:in-package #:sicl-extrinsic-environment)

(defun load-file (filename environment)
  (load-source-with-environments
   (asdf:system-relative-pathname :sicl-extrinsic-environment filename)
   environment
   environment))
```
assistant