diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-09 08:21:15 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-09 08:21:15 -0700 |
commit | f43fda4e635370689fc248bb7e94e5861151df2c (patch) | |
tree | d5db92bd69a4a3110aacc47cb3e8305975397129 /txr.1 | |
parent | c6cc120ad042fa234da17cf929c6fdfae1000a5b (diff) | |
download | txr-f43fda4e635370689fc248bb7e94e5861151df2c.tar.gz txr-f43fda4e635370689fc248bb7e94e5861151df2c.tar.bz2 txr-f43fda4e635370689fc248bb7e94e5861151df2c.zip |
defstruct: diagnose built-in type being redefined.
* eval.c (eval_init): Register built-in-type-p intrinsic.
* lib.c (buitin_type_p): Rename to built_in_type_p since the
word built-in is hyphenated. The function also tests
whether the argument is a COBJ class.
(cobj_class_exists): Function removed.
* stdlib/doc-syms.tl: Updated.
* stdlib/struct.tl (defstruct): Add built-in-type-p check.
* struct.c (make_struct_type): Call only built_in_type_p;
cobj_class_exists is gone.
* txr.1: Document built-in-type-p.
Diffstat (limited to 'txr.1')
-rw-r--r-- | txr.1 | 15 |
1 files changed, 15 insertions, 0 deletions
@@ -19284,6 +19284,21 @@ always matches. If such a clause is placed as the last clause of a it provides a fallback case, whose forms are evaluated if none of the previous clauses match. +.coNP Function @ built-in-type-p +.synb +.mets (built-in-type-p << object ) +.syne +.desc +The +.code built-in-type-p +function returns +.code t +if +.meta object +is a symbol which is the name of a built-in type. +For all other objects it returns +.codn nil . + .SS* Object Equivalence .coNP Functions @, identity @ identity* and @ use |