Remove silly package lookup from keywordp.

This tiny change yields a 165% (2.65X) speedup in the
tst/tests/011/mandel.txr test case.

* lib.c (keywordp): Use keyword_package_var instead of the
keyword_package macro which looks up the global environment.

* parser.y (sym_helper): Likewise.

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)