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 /stdlib/struct.tl | |
| 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 'stdlib/struct.tl')
| -rw-r--r-- | stdlib/struct.tl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/stdlib/struct.tl b/stdlib/struct.tl index bd62637f..9108ab02 100644 --- a/stdlib/struct.tl +++ b/stdlib/struct.tl @@ -39,6 +39,8 @@ (atom (list atom nil))) (unless (bindable name) (compile-error form "~s isn't a bindable symbol" name)) + (if (built-in-type-p name) + (compile-warning form "~s is a built-in type" name)) (unless (proper-listp slot-specs) (compile-error form "bad syntax: dotted form")) (let* ((instance-init-form nil) |