From 55e6dc2691bfaa898e3d999e809aebc461a816bc Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 25 Apr 2015 06:20:43 -0700 Subject: * lib.c (symbol_package): If the argument is nil, return the user package directly, not the value of the *user-package* variable. --- ChangeLog | 6 ++++++ lib.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index f7e68e10..f8f252c8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2015-04-25 Kaz Kylheku + + * lib.c (symbol_package): If the argument is nil, return + the user package directly, not the value of the *user-package* + variable. + 2015-04-25 Kaz Kylheku Remove silly package lookup from keywordp. diff --git a/lib.c b/lib.c index 03316881..c4c3edae 100644 --- a/lib.c +++ b/lib.c @@ -3511,7 +3511,7 @@ static void symbol_setname(val sym, val name) val symbol_package(val sym) { if (sym == nil) - return user_package; + return user_package_var; type_check(sym, SYM); return sym->s.package; } -- cgit v1.2.3