From e3e3ffc42ec9277e3c0d7e450722cb1caa19aae8 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 30 Jun 2021 15:55:12 -0700
Subject: getopts: autoload: opt-error not interned.

* lisplib.c (getopts_set_entries): Add opt-error to list of
interned symbols. Without this, getopts throws sys:opt-error.
Reported by Paul A. Patience.
---
 lisplib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisplib.c b/lisplib.c
index ccd5ed38..5d42f715 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -483,7 +483,7 @@ static val getopts_set_entries(val dlt, val fun)
   };
   val name_noload[] = {
     lit("short"), lit("long"), lit("helptext"), lit("type"),
-    lit("in-args"), lit("out-args"), lit("cumul"), nil
+    lit("in-args"), lit("out-args"), lit("cumul"), lit("opt-error"), nil
   };
   set_dlt_entries(dlt, name, fun);
   intern_only(name_noload);
-- 
cgit v1.2.3