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.

1 files changed, 1 insertions, 1 deletions

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);