From 55e6dc2691bfaa898e3d999e809aebc461a816bc Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
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.

---
 lib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib.c')

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