diff options
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/compiler.tl | 6 | ||||
| -rw-r--r-- | stdlib/doc-syms.tl | 3 |
2 files changed, 7 insertions, 2 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index b27a0a82..5e5fff6b 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -41,7 +41,7 @@ (defsymacro %warning-syms% '(usr:shadow-fun usr:shadow-var usr:shadow-cross usr:unused)) -(defvar usr:*compile-opts* (new compile-opts)) +(defvar usr:*compile-opts* (new compile-opts usr:unused t)) (defmacro when-opt (compile-opt . forms) (with-gensyms (optval) @@ -167,7 +167,9 @@ ((and me.up me.(lookup-fun sym)) (diag me.co.last-form "function ~s shadows local function" sym)) ((fboundp sym) - (diag me.co.last-form "function ~s shadows global function" sym)))) + (diag me.co.last-form "function ~s shadows global function" sym)) + ((mboundp sym) + (diag me.co.last-form "function ~s shadows global macro" sym)))) (when-opt shadow-cross (cond ((and me.up me.(lookup-var sym)) diff --git a/stdlib/doc-syms.tl b/stdlib/doc-syms.tl index 4046ea49..357b1e65 100644 --- a/stdlib/doc-syms.tl +++ b/stdlib/doc-syms.tl @@ -9,6 +9,7 @@ ("*args-eff*" "N-03DEE18A") ("*args-full*" "N-03DEE18A") ("*child-env*" "N-01BB2097") + ("*compiler-opts*" "N-005A796B") ("*doc-url*" "N-0003D10B") ("*filters*" "N-00E6A902") ("*gensym-counter*" "N-0387B1B1") @@ -373,6 +374,7 @@ ("compile-error" "N-032EA7D7") ("compile-file" "N-0211BE68") ("compile-only" "N-030BF4F5") + ("compile-opts" "N-01F24CB2") ("compile-toplevel" "N-00DE8B13") ("compile-update-file" "N-0211BE68") ("compile-warning" "N-032EA7D7") @@ -2204,6 +2206,7 @@ ("with" "N-03098987") ("with-clobber-expander" "N-0181ED4C") ("with-compilation-unit" "N-013AAB51") + ("with-compile-opts" "N-019524EE") ("with-delete-expander" "N-02A6E020") ("with-dyn-lib" "N-023E0D2C") ("with-gensyms" "N-034F045B") |