1 files changed, 1 insertions, 1 deletions
diff --git a/lib.c b/lib.c
index d7503294..03316881 100644
--- a/lib.c
+++ b/lib.c
@@ -3639,7 +3639,7 @@ val symbolp(val sym)
 
 val keywordp(val sym)
 {
-  return (symbolp(sym) && symbol_package(sym) == keyword_package) ? t : nil;
+  return c_true(sym && symbolp(sym) && sym->s.package == keyword_package_var);
 }
 
 loc get_user_package(void)