diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2018-02-07 22:34:35 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2018-02-07 22:34:35 -0800 |
commit | f97f2187e2dd72eec034f6a9b7f93e4174a4c24b (patch) | |
tree | f4be3f81e3cec33887c8186843618cc434e67581 /txr.1 | |
parent | 5e7b57f4bff740ca42ad49e7ee4e58404a816329 (diff) | |
download | txr-f97f2187e2dd72eec034f6a9b7f93e4174a4c24b.tar.gz txr-f97f2187e2dd72eec034f6a9b7f93e4174a4c24b.tar.bz2 txr-f97f2187e2dd72eec034f6a9b7f93e4174a4c24b.zip |
bugfix: intern public symbols in autoload files.
This commit addresses a bug of the following type:
(defpackage p (:fallback usr))
(in-package p)
(let ((lb (new list-builder)))
lb.(add 1)) ;; problem: this add is p:add
the add symbol is not on the auto-load list; it occurs
as a slot of the list-builder class, but is not interned
when TXR starts. Thus the (:fallback usr) doesn't pick it up.
Expected behavior is that add is usr:add.
* lisplib.c (intern_only): New static function.
(sock_set_entries, build_set_entries, getopts_set_entries,
stream_wrap_set_entries): Define additional lists of
supplemenary symbols which are passed to intern_only
just to be interned in the usr package without autoload
registratiions. These symbols are all slots documented for
public use in various structures defined by the respective
modules managed by these autoload functions.
Diffstat (limited to 'txr.1')
0 files changed, 0 insertions, 0 deletions