diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2015-04-25 06:20:43 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2015-04-25 06:20:43 -0700 |
commit | 55e6dc2691bfaa898e3d999e809aebc461a816bc (patch) | |
tree | 091d823e0f8a18d3074160ccc9893e2eb34aab3f | |
parent | de64b753946034895bca74bc198b6090cb2d5bcc (diff) | |
download | txr-55e6dc2691bfaa898e3d999e809aebc461a816bc.tar.gz txr-55e6dc2691bfaa898e3d999e809aebc461a816bc.tar.bz2 txr-55e6dc2691bfaa898e3d999e809aebc461a816bc.zip |
* lib.c (symbol_package): If the argument is nil, return
the user package directly, not the value of the *user-package*
variable.
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | lib.c | 2 |
2 files changed, 7 insertions, 1 deletions
@@ -1,5 +1,11 @@ 2015-04-25 Kaz Kylheku <kaz@kylheku.com> + * 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 <kaz@kylheku.com> + Remove silly package lookup from keywordp. This tiny change yields a 165% (2.65X) speedup in the @@ -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; } |