diff options
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/doc-syms.tl | 1 | ||||
| -rw-r--r-- | stdlib/struct.tl | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/stdlib/doc-syms.tl b/stdlib/doc-syms.tl index 829e418a..e1a5d5a0 100644 --- a/stdlib/doc-syms.tl +++ b/stdlib/doc-syms.tl @@ -233,6 +233,7 @@ ("build" "N-01346AAA") ("build-list" "N-0315C467") ("buildn" "N-01346AAA") + ("built-in-type-p" "N-011BB3FF") ("butlast" "N-026BB6FA") ("butlastn" "N-01E2C334") ("caar" "N-001FA3CB") 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) |