From 423d823c227f8c8ffb41ef32c6909e77e1ccd8f3 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 22 Apr 2020 06:56:11 -0700 Subject: printer: add package prefix on symbols with zero-length name. * lib.c (symbol_needs_prefix): If the name is an empty string, the symbol needs a prefix. Otherwise it disappears in the output. --- lib.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lib.c') diff --git a/lib.c b/lib.c index 9133f024..1ad10b78 100644 --- a/lib.c +++ b/lib.c @@ -5497,6 +5497,9 @@ val symbol_needs_prefix(val self, val package, val sym) if (sym_pkg == keyword_package) return null_string; + if (length_str(name) == zero) + return sym_pkg->pk.name; + if (sym_pkg == package) { if (us_hash_count(package->pk.hidhash) != zero) { val here_cell = gethash_e(self, package->pk.symhash, name); -- cgit v1.2.3