Call function for patching accessor methods.

ska80 · Sep 17, 2020 · 56a5108 · 56a5108
1 parent 9c6f908
commit 56a5108
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Code/Boot/Phase-8/boot.lisp b/Code/Boot/Phase-8/boot.lisp
@@ -5,6 +5,7 @@
   (with-accessors ((e5 sicl-boot:e5))
       boot
     (define-compile e5)
+    (patch-accessor-methods e5)
     (setf (sicl-genv:macro-function 'defpackage e5)
           (constantly nil))
     (setf (sicl-genv:fdefinition 'host-symbolp e5)