From de32c069f84052de9edae9a3bf87d864b22d501e Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 4 Apr 2018 23:18:03 -0700
Subject: 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.
---
 lisplib.c | 4 ++++
 1 file changed, 4 insertions(+)

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)
-- 
cgit v1.2.3