From 01d9bb460e8eb76c47cdf3982dd235fe370ff137 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 7 Nov 2018 06:34:08 -0800 Subject: symbol_needs_prefix: take function name argument. * lib.c (symbol_needs_prefix): New parameter. (unquote_star_check, obj_print_impl): Pass Lisp function name to symbol_needs_prefix. * lib.h (symbol_needs_prefix): Declaration updated. --- lib.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib.c') diff --git a/lib.c b/lib.c index 506905af..1c824f6c 100644 --- a/lib.c +++ b/lib.c @@ -5447,7 +5447,7 @@ val symbol_visible(val package, val sym) /* symbol_needs_prefix assumes the perspective that package * is the current package! */ -val symbol_needs_prefix(val package, val sym) +val symbol_needs_prefix(val self, val package, val sym) { val name = symbol_name(sym); type_check (package, PKG); @@ -11017,7 +11017,7 @@ static int unquote_star_check(val obj, val pretty) return 0; if (car(obj->s.name) != chr('*')) return 0; - return pretty || !symbol_needs_prefix(cur_package, obj); + return pretty || !symbol_needs_prefix(lit("print"), cur_package, obj); } val obj_print_impl(val obj, val out, val pretty, struct strm_ctx *ctx) @@ -11284,7 +11284,7 @@ dot: put_string(lit("#:"), out); } else if (obj->s.package == keyword_package) { put_char(chr(':'), out); - } else if (symbol_needs_prefix(cur_package, obj)) { + } else if (symbol_needs_prefix(lit("print"), cur_package, obj)) { put_string(obj->s.package->pk.name, out); put_char(chr(':'), out); } -- cgit v1.2.3