From d10f45d341838491de5771d0e903820eba6fdbdd Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 25 Feb 2019 21:08:51 -0800
Subject: bugfix: :key param expander -- symbol.

The -- symbol is not interned in the usr package. This
means that the keyparams.tl code is interning the symbol --
in the sys package, and look for that as a delimiter.
Application code is interning its own -- symbol,
such as pub:-- and passing that.

* lisplib.c (keyparams_set_entries): Intern the -- symbol.
---
 lisplib.c | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lisplib.c')

diff --git a/lisplib.c b/lisplib.c
index 5772845d..0ef52934 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -590,12 +590,17 @@ static val keyparams_set_entries(val dlt, val fun)
     lit("extract-keys"),
     nil
   };
+  val name_noload[] = {
+    lit("--"),
+    nil
+  };
   val key_k = intern(lit("key"), keyword_package);
   set_dlt_entries_sys(dlt, sys_name, fun);
   if (fun)
     sethash(dlt, key_k, fun);
   else
     remhash(dlt, key_k);
+  intern_only(name_noload);
   return nil;
 }
 
-- 
cgit v1.2.3