struct: autoload sys:define-method.

Compiled code references sys:define-method directly without
going through the struct macrology that would otherwise
trigger the autoload of the struct stuff. The symbol needs
to be added to the set of triggers.

* lisplib.c (struct_set_entries): Add sys:define-method
symbol.

1 files changed, 4 insertions, 0 deletions

diff --git a/lisplib.c b/lisplib.c
index 0862602a..c40cf3a2 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -198,11 +198,15 @@ static val path_test_instantiate(val set_fun)
 
 static val struct_set_entries(val dlt, val fun)
 {
+  val sys_name[] = {
+    lit("define-method"), nil
+  };
   val name[] = {
     lit("defstruct"), lit("qref"), lit("uref"), lit("new"), lit("meth"),
     lit("umeth"), lit("usl"), lit("defmeth"), lit("rslot"), nil
   };
 
+  set_dlt_entries_sys(dlt, sys_name, fun);
   set_dlt_entries(dlt, name, fun);
 
   if (fun)