New component containing function for defining COMPILE in environment…

… E5.

Code/Boot/Phase-8/boot.lisp

@@ -4,6 +4,7 @@
   (format *trace-output* "Start of phase 8~%")
   (with-accessors ((e5 sicl-boot:e5))
       boot
+    (define-compile e5)
     (setf (sicl-genv:macro-function 'defpackage e5)
           (constantly nil))
     (setf (sicl-genv:fdefinition 'host-symbolp e5)

Code/Boot/Phase-8/define-compile.lisp

@@ -0,0 +1,13 @@
+(cl:in-package #:sicl-boot-phase-8)
+
+(defun define-compile (e5)
+  (setf (sicl-genv:fdefinition 'compile e5)
+        (lambda (name &optional definition)
+          (assert (null name))
+          (assert (not (null definition)))
+          (let* ((cst (cst:cst-from-expression definition))
+                 (client (make-instance 'sicl-boot:client))
+                 (ast (let ((cleavir-cst-to-ast::*origin* nil))
+                        (cleavir-cst-to-ast:cst-to-ast client cst e5)))
+                 (code-object (sicl-compiler:compile-ast client ast)))
+            (sicl-boot:tie-code-object client code-object e5 e5)))))