@atlisp/lint 0.2.2 → 0.2.4

package/README.md

@@ -50,8 +50,11 @@ npx @atlisp/lint --format-check
 --clear-cache          清除缓存目录
 --parallel             开启多线程并行检查（使用 Worker Threads）
 --project              启用跨文件分析（Phase 1b）
+--sbcl                 启用 SBCL 语法校验（Phase 2，需安装 SBCL）
 --watch                监听模式，文件变动自动重新检查
 --hook-args <args>     自定义 pre-commit hook 参数（配合 --install-hook）
+--diff                 仅检查自上次提交后变更的文件
+--changed <branch>     仅检查相对于某分支有变更的文件（默认：main）
 --help                 显示帮助信息
 --version              显示版本号
 --format-code          自动格式化代码缩进（基于括号深度 + AST 对齐）
@@ -60,9 +63,9 @@ npx @atlisp/lint --format-check
 
 ## 架构：三相检测
 
-### Phase 1a — 单文件静态检查（74 条规则）
+### Phase 1a — 单文件静态检查（84 条规则）
 
-所有 74 条规则在单文件范围内运行，支持 `--parallel` 多线程并行。
+所有 84 条规则在单文件范围内运行，支持 `--parallel` 多线程并行。
 
 | 规则 | 默认 | 类别 | 说明 |
 |------|------|------|------|
@@ -136,6 +139,13 @@ npx @atlisp/lint --format-check
 | `namespace_header` | off | 架构 | 缺少 (in-package ...) 头 |
 | `loop_optimization` | off | 最佳实践 | 优化 while/assoc 循环 |
 | `type_check` | off | 最佳实践 | getvar 结果未类型检查 |
+| `builtin_arg_count` | error | 正确性 | 内置函数调用参数个数不匹配 |
+| `unused_catch_result` | info | 正确性 | vl-catch-all-apply 结果被当布尔值用 |
+| `string_concat_loop` | info | 性能 | 循环内字符串拼接 |
+| `if_without_else` | info | 风格 | if 无 else 分支 |
+| `redundant_list` | info | 风格 | (list) 等价于 nil |
+| `entget_in_loop` | warn | 性能 | 循环内 entget |
+| `promise_handler` | info | 最佳实践 | vlax-invoke 缺少回调处理器 |
 
 ### Phase 1b — 跨文件分析（--project）
 
@@ -146,6 +156,8 @@ npx @atlisp/lint --format-check
 | `dangling_defun` | warn | 函数定义但从未被任何文件调用 |
 | `missing_export` | warn | 函数未注册到 @::\*modules\* |
 | `unused_package_dep` | warn | 导入的包从未被引用 |
+| `module_cycle` | warn | 模块循环依赖 |
+| `arg_count_project` | warn | 跨文件检查函数参数数量 |
 
 同时检测 `duplicate_defun`（函数名在多个文件中重复定义）。
 

package/atlisp-lint.default.json

@@ -71,7 +71,7 @@
     "setq_multiple": "warn",
     "format_indent": "off",
     "function_order": "off",
-    "magic_number": "off",
+    "magic_number": "info",
     "mixed_indent": "warn",
     "long_function_call": "info",
     "no_return": "warn",
@@ -82,7 +82,7 @@
     "redundant_if": "warn",
     "undeclared_setq": "warn",
     "unused_catch_result": "off",
-    "string_concat_loop": "off",
+    "string_concat_loop": "info",
     "if_without_else": "off",
     "redundant_list": "warn",
     "entget_in_loop": "warn",

package/dist/checks/builtin-arg-count.js

@@ -35,7 +35,7 @@ const BUILTIN_ARITY = {
     minusp: { min: 1, max: 1 },
     plusp: { min: 1, max: 1 },
     eq: { min: 2, max: 2 },
-    equal: { min: 2, max: 2 },
+    equal: { min: 2, max: 3 },
     '=': { min: 2, max: -1 },
     '/=': { min: 2, max: -1 },
     '<': { min: 2, max: -1 },
@@ -115,7 +115,7 @@ const BUILTIN_ARITY = {
     'read-char': { min: 0, max: 1 },
     'write-line': { min: 1, max: 2 },
     'write-char': { min: 1, max: 2 },
-    'read': { min: 0, max: 1 },
+    read: { min: 0, max: 1 },
     princ: { min: 0, max: 2 },
     prin1: { min: 0, max: 2 },
     print: { min: 0, max: 2 },
@@ -131,7 +131,7 @@ const BUILTIN_ARITY = {
     getorient: { min: 0, max: 3 },
     getkword: { min: 0, max: 2 },
     initget: { min: 1, max: 2 },
-    'load': { min: 1, max: 2 },
+    load: { min: 1, max: 2 },
     autoload: { min: 2, max: 2 },
     // === System ===
     getvar: { min: 1, max: 1 },
@@ -156,7 +156,7 @@ const BUILTIN_ARITY = {
     entnext: { min: 0, max: 1 },
     handent: { min: 1, max: 1 },
     entupd: { min: 1, max: 1 },
-    'ssget': { min: 0, max: -1 },
+    ssget: { min: 0, max: -1 },
     ssadd: { min: 0, max: 2 },
     ssdel: { min: 2, max: 2 },
     sslength: { min: 1, max: 1 },

package/dist/checks/empty-catch.js

@@ -66,7 +66,7 @@ function getSetqVarName(node) {
     return null;
 }
 function hasErrorCheckInSiblings(node, varName) {
-    let parent = node.parent;
+    const parent = node.parent;
     if (!parent || !parent.children)
         return false;
     const idx = parent.children.indexOf(node);
@@ -88,7 +88,8 @@ function hasErrorCheckInSiblings(node, varName) {
 }
 function containsErrorCheck(node, varName) {
     const matches = (0, parser_1.astFindAll)(node, n => (0, parser_1.astIsList)(n, 'vl-catch-all-error-p') &&
-        n.children && n.children.length >= 2 &&
+        n.children &&
+        n.children.length >= 2 &&
         (0, parser_1.astIsSymbol)(n.children[1], varName));
     return matches.length > 0;
 }

package/dist/checks/entget-in-loop.js

@@ -2,20 +2,6 @@
 Object.defineProperty(exports, "__esModule", { value: true });
 exports.checkEntgetInLoop = checkEntgetInLoop;
 const locale_1 = require("../locale");
-function isInsideLoop(ast, targetNode) {
-    let node = targetNode.parent;
-    while (node) {
-        if (node.type === 'list' && node.children && node.children.length > 0 &&
-            node.children[0].type === 'symbol') {
-            const name = node.children[0].name;
-            if (name === 'while' || name === 'repeat' || name === 'foreach') {
-                return true;
-            }
-        }
-        node = node.parent;
-    }
-    return false;
-}
 function checkEntgetInLoop(content, file) {
     const issues = [];
     const lines = content.split('\n');

package/dist/checks/if-without-else.js

@@ -11,7 +11,10 @@ function checkIfWithoutElse(ast, file) {
             continue;
         if (node.children.length === 3) {
             const parent = node.parent;
-            if (parent && parent.type === 'list' && parent.children && parent.children.length > 0 &&
+            if (parent &&
+                parent.type === 'list' &&
+                parent.children &&
+                parent.children.length > 0 &&
                 parent.children[0].type === 'symbol') {
                 const parentName = parent.children[0].name;
                 if (parentName === 'cond' || parentName === 'if')

package/dist/checks/magic-number.js

@@ -12,7 +12,7 @@ function checkMagicNumber(content, file) {
         if (m) {
             const num = m[1];
             if (num !== '10' && num !== '20' && num !== '100' && num !== '1000') {
-                issues.push({ file, line: i + 1, severity: 'warn', rule: 'magic_number', message: (0, locale_1.t)('magic_number', num) });
+                issues.push({ file, line: i + 1, severity: 'off', rule: 'magic_number', message: (0, locale_1.t)('magic_number', num) });
             }
         }
     }

package/dist/checks/promise-handler.js

@@ -5,21 +5,31 @@ const locale_1 = require("../locale");
 const parser_1 = require("@atlisp/parser");
 function checkPromiseHandler(ast, file) {
     const issues = [];
-    const vlaxNodes = (0, parser_1.astFindAll)(ast, (n) => !!(n.type === 'list' && n.children && n.children.length > 0 &&
-        n.children[0].type === 'symbol' && typeof n.children[0].name === 'string' &&
-        (n.children[0].name.startsWith('vlax-invoke') || n.children[0].name.startsWith('vlax-invoke-method'))));
+    const vlaxNodes = (0, parser_1.astFindAll)(ast, (n) => !!(n.type === 'list' &&
+        n.children &&
+        n.children.length > 0 &&
+        n.children[0].type === 'symbol' &&
+        typeof n.children[0].name === 'string' &&
+        (n.children[0].name.startsWith('vlax-invoke') ||
+            n.children[0].name.startsWith('vlax-invoke-method'))));
     for (const node of vlaxNodes) {
         if (isInQuote(node))
             continue;
         const parent = node.parent;
-        if (parent && parent.type === 'list' && parent.children && parent.children.length > 0 &&
-            parent.children[0].type === 'symbol' && parent.children[0].name === 'vl-catch-all-apply') {
+        if (parent &&
+            parent.type === 'list' &&
+            parent.children &&
+            parent.children.length > 0 &&
+            parent.children[0].type === 'symbol' &&
+            parent.children[0].name === 'vl-catch-all-apply') {
             continue;
         }
         let hasCallback = false;
         if (node.children) {
             for (const child of node.children) {
-                if (child.type === 'list' && child.children && child.children.length > 0 &&
+                if (child.type === 'list' &&
+                    child.children &&
+                    child.children.length > 0 &&
                     child.children[0].type === 'symbol' &&
                     (child.children[0].name === 'lambda' || child.children[0].name === 'function')) {
                     hasCallback = true;
@@ -42,8 +52,11 @@ function checkPromiseHandler(ast, file) {
 function isInQuote(node) {
     let p = node.parent;
     while (p) {
-        if (p.type === 'list' && p.children && p.children.length > 0 &&
-            p.children[0].type === 'symbol' && p.children[0].name === 'quote') {
+        if (p.type === 'list' &&
+            p.children &&
+            p.children.length > 0 &&
+            p.children[0].type === 'symbol' &&
+            p.children[0].name === 'quote') {
             return true;
         }
         p = p.parent;

package/dist/checks/string-concat-loop.js

@@ -2,21 +2,6 @@
 Object.defineProperty(exports, "__esModule", { value: true });
 exports.checkStringConcatInLoop = checkStringConcatInLoop;
 const locale_1 = require("../locale");
-const parser_1 = require("@atlisp/parser");
-function hasStrcatInBody(body) {
-    for (const node of body) {
-        for (const n of (0, parser_1.astWalk)(node)) {
-            if (n.type === 'list' && n.children && n.children.length > 0 &&
-                n.children[0].type === 'symbol' && n.children[0].name === 'strcat') {
-                return true;
-            }
-        }
-    }
-    return false;
-}
-function isLoopForm(name) {
-    return name === 'while' || name === 'repeat' || name === 'foreach';
-}
 function checkStringConcatInLoop(content, file) {
     const issues = [];
     const lines = content.split('\n');
@@ -27,8 +12,6 @@ function checkStringConcatInLoop(content, file) {
             const name = match[1];
             let depth = 0;
             let started = false;
-            let startLine = i;
-            let foundStrcat = false;
             for (let j = i; j < lines.length; j++) {
                 for (let k = 0; k < lines[j].length; k++) {
                     const ch = lines[j][k];
@@ -47,7 +30,7 @@ function checkStringConcatInLoop(content, file) {
                 issues.push({
                     file,
                     line: i + 1,
-                    severity: 'warn',
+                    severity: 'info',
                     rule: 'string_concat_loop',
                     message: (0, locale_1.t)('string_concat_loop', name),
                 });

package/dist/config.js

@@ -113,7 +113,7 @@ const DEFAULT_CONFIG = {
         append_single: 'info',
         setq_multiple: 'warn',
         function_order: 'off',
-        magic_number: 'info',
+        magic_number: 'off',
         mixed_indent: 'info',
         long_function_call: 'info',
         no_return: 'info',

package/dist/formatters-html.js

@@ -55,11 +55,13 @@ function formatHtml(issues, errorCount, warningCount) {
     <p class="text-muted">${issues.length} total issues across ${ruleGroups.size} rules</p>
   </div>
 
-  ${sortedRules.map(([rule, ruleIssues]) => `
+  ${sortedRules
+        .map(([rule, ruleIssues]) => `
   <div class="summary-card">
     <h5 class="card-title">${escHtml(rule)} <span class="badge bg-secondary">${ruleIssues.length}</span></h5>
     <ul class="list-group list-group-flush">
-    ${ruleIssues.map(iss => `
+    ${ruleIssues
+        .map(iss => `
       <li class="list-group-item d-flex justify-content-between align-items-start">
         <div>
           <span class="fw-bold">${escHtml(iss.file)}:${iss.line || '-'}</span>
@@ -67,10 +69,12 @@ function formatHtml(issues, errorCount, warningCount) {
         </div>
         ${iss.severity === 'error' ? '<span class="badge bg-danger rounded-pill">ERROR</span>' : iss.severity === 'warn' ? '<span class="badge bg-warning text-dark rounded-pill">WARN</span>' : '<span class="badge bg-info text-dark rounded-pill">INFO</span>'}
       </li>
-    `).join('')}
+    `)
+        .join('')}
     </ul>
   </div>
-  `).join('')}
+  `)
+        .join('')}
 
   <div class="summary-card">
     <h5>All Issues</h5>

package/dist/formatters.js

@@ -23,7 +23,11 @@ function formatDefault(issues, fileContents) {
         else if (iss.severity === 'warn')
             warnings++;
         const tagColor = iss.severity === 'error' ? colors.red : iss.severity === 'warn' ? colors.yellow : colors.cyan;
-        const tag = iss.severity === 'error' ? (0, locale_1.t)('summary.tag_fail') : iss.severity === 'warn' ? (0, locale_1.t)('summary.tag_warn') : (0, locale_1.t)('summary.tag_info');
+        const tag = iss.severity === 'error'
+            ? (0, locale_1.t)('summary.tag_fail')
+            : iss.severity === 'warn'
+                ? (0, locale_1.t)('summary.tag_warn')
+                : (0, locale_1.t)('summary.tag_info');
         const loc = iss.line > 0 ? `${(0, locale_1.t)('summary.line')} ${iss.line}` : '';
         const prefix = useColor ? `${tagColor}${tag}${colors.reset}` : tag;
         lines.push(`${prefix}: ${iss.file} — ${loc}${loc ? ': ' : ''}${iss.message}`.trim());

package/dist/index.js

@@ -363,7 +363,11 @@ async function main() {
         }
         // --watch mode
         if (opts.watch) {
-            (0, watch_1.watchFiles)(files, { rootDir, format: (opts.format === 'sarif' || opts.format === 'html' ? 'default' : opts.format), config });
+            (0, watch_1.watchFiles)(files, {
+                rootDir,
+                format: (opts.format === 'sarif' || opts.format === 'html' ? 'default' : opts.format),
+                config,
+            });
             return;
         }
         // --fix mode: auto-fix before linting

package/dist/locale.js

@@ -36,7 +36,7 @@ const messages = {
         unused_parameter: "Parameter '{0}' in '{1}' is never used",
         constant_condition: "Constant condition '{0}' in {1} — possibly leftover debug code",
         redundant_progn: 'Redundant progn in {0}: only one form inside',
-        redundant_if: "Redundant progn in when/unless body — when/unless already allows multiple forms",
+        redundant_if: 'Redundant progn in when/unless body — when/unless already allows multiple forms',
         empty_branch: "Empty branch in '{0}' — no body forms",
         unused_let_binding: "Let binding '{0}' is never used",
         recursive_call: "Function '{0}' calls itself — possible infinite recursion",

package/dist/presets.js

@@ -141,7 +141,7 @@ exports.PRESETS = {
             append_single: 'error',
             setq_multiple: 'error',
             function_order: 'off',
-            magic_number: 'warn',
+            magic_number: 'off',
             mixed_indent: 'error',
             long_function_call: 'error',
             no_return: 'error',
@@ -154,7 +154,7 @@ exports.PRESETS = {
             module_registration: 'error',
             namespace_header: 'error',
             unused_catch_result: 'error',
-            string_concat_loop: 'off',
+            string_concat_loop: 'info',
             if_without_else: 'off',
             redundant_list: 'error',
             entget_in_loop: 'warn',

package/dist/project.js

@@ -139,9 +139,12 @@ function findModuleDeps(filepath) {
     }
     const setqNodes = (0, parser_1.astFindAll)(ast, n => (0, parser_1.astIsList)(n, 'setq'));
     for (const node of setqNodes) {
-        if (node.children && node.children.length >= 3 &&
-            node.children[1].type === 'symbol' && node.children[1].name === '@::*modules*' &&
-            node.children[2].type === 'list' && node.children[2].children) {
+        if (node.children &&
+            node.children.length >= 3 &&
+            node.children[1].type === 'symbol' &&
+            node.children[1].name === '@::*modules*' &&
+            node.children[2].type === 'list' &&
+            node.children[2].children) {
             for (const exp of node.children[2].children) {
                 if (exp.type === 'string' && typeof exp.value === 'string') {
                     exports.push(exp.value);
@@ -235,7 +238,7 @@ function lintProject(files, config, rootDir) {
             const visited = new Set();
             const stack = new Set();
             const cyclePath = [];
-            function dfs(current) {
+            const dfs = (current) => {
                 if (stack.has(current)) {
                     const idx = cyclePath.indexOf(current);
                     const cycle = cyclePath.slice(idx).concat(current);
@@ -268,7 +271,7 @@ function lintProject(files, config, rootDir) {
                 cyclePath.pop();
                 stack.delete(current);
                 return false;
-            }
+            };
             for (const f of moduleDeps.keys()) {
                 if (!visited.has(f)) {
                     dfs(f);

package/dist/rules.js

@@ -104,7 +104,7 @@ exports.RULES = [
         description: '检测可优化的 while/assoc 循环',
         category: '最佳实践',
     },
-    { name: 'magic_number', defaultSeverity: 'info', description: '检测硬编码的魔法数字', category: '风格' },
+    { name: 'magic_number', defaultSeverity: 'off', description: '检测硬编码的魔法数字', category: '风格' },
     {
         name: 'misplaced_else',
         defaultSeverity: 'info',
@@ -156,7 +156,12 @@ exports.RULES = [
         description: '检测函数调用自身（可能无限递归）',
         category: '正确性',
     },
-    { name: 'redundant_if', defaultSeverity: 'info', description: '检测 when/unless 中冗余 progn（when/unless 已隐含 progn）', category: '风格' },
+    {
+        name: 'redundant_if',
+        defaultSeverity: 'info',
+        description: '检测 when/unless 中冗余 progn（when/unless 已隐含 progn）',
+        category: '风格',
+    },
     { name: 'redundant_let', defaultSeverity: 'info', description: '检测无绑定的 let 建议改用 progn', category: '风格' },
     { name: 'redundant_nil_else', defaultSeverity: 'info', description: '检测 if 中冗余的 nil 分支', category: '风格' },
     { name: 'redundant_progn', defaultSeverity: 'info', description: '检测分支中多余的 progn', category: '风格' },
@@ -228,15 +233,30 @@ exports.RULES = [
         description: '检测 vlax-* 使用前未调用 vl-load-com',
         category: '最佳实践',
     },
-    { name: 'unused_catch_result', defaultSeverity: 'info', description: '检测 vl-catch-all-apply 结果被当布尔值用', category: '正确性' },
+    {
+        name: 'unused_catch_result',
+        defaultSeverity: 'info',
+        description: '检测 vl-catch-all-apply 结果被当布尔值用',
+        category: '正确性',
+    },
     { name: 'string_concat_loop', defaultSeverity: 'info', description: '检测循环内字符串拼接', category: '性能' },
     { name: 'if_without_else', defaultSeverity: 'info', description: '检测 if 无 else 分支', category: '风格' },
     { name: 'redundant_list', defaultSeverity: 'info', description: '检测 (list) 等价于 nil', category: '风格' },
     { name: 'entget_in_loop', defaultSeverity: 'warn', description: '检测循环内 entget', category: '性能' },
-    { name: 'promise_handler', defaultSeverity: 'info', description: '检测 vlax-invoke 缺少回调处理器', category: '最佳实践' },
+    {
+        name: 'promise_handler',
+        defaultSeverity: 'info',
+        description: '检测 vlax-invoke 缺少回调处理器',
+        category: '最佳实践',
+    },
     { name: 'module_cycle', defaultSeverity: 'warn', description: '检测模块循环依赖', category: '架构' },
     { name: 'arg_count_project', defaultSeverity: 'warn', description: '跨文件检查函数参数数量', category: '正确性' },
-    { name: 'builtin_arg_count', defaultSeverity: 'error', description: '检查 AutoLISP 内置函数调用参数个数是否匹配', category: '正确性' },
+    {
+        name: 'builtin_arg_count',
+        defaultSeverity: 'error',
+        description: '检查 AutoLISP 内置函数调用参数个数是否匹配',
+        category: '正确性',
+    },
 ];
 function generateRulesMarkdown() {
     const lines = [

package/dist/runner.js

@@ -166,15 +166,33 @@ function runChecks(content, file, config) {
     addIfEnabled('string_concat_loop', () => (0, string_concat_loop_1.checkStringConcatInLoop)(content, file));
     // AST-based checks via single-pass visitor
     const astRules = new Set([
-        'quit_exit', 'open_without_close', 'function_complexity',
-        'parameter_naming', 'unused_variable', 'unused_parameter',
-        'constant_condition', 'redundant_progn', 'empty_branch',
-        'unused_let_binding', 'recursive_call', 'variable_shadow',
-        'unused_local_fun', 'multiple_setq', 'redundant_quotes',
-        'redundant_setq', 'redundant_nil_else', 'single_arg_and_or',
-        'redundant_let', 'self_compare', 'misplaced_else',
-        'quote_vs_function', 'double_not', 'setq_single_arg',
-        'assoc_without_cdr', 'identical_branches', 'while_constant',
+        'quit_exit',
+        'open_without_close',
+        'function_complexity',
+        'parameter_naming',
+        'unused_variable',
+        'unused_parameter',
+        'constant_condition',
+        'redundant_progn',
+        'empty_branch',
+        'unused_let_binding',
+        'recursive_call',
+        'variable_shadow',
+        'unused_local_fun',
+        'multiple_setq',
+        'redundant_quotes',
+        'redundant_setq',
+        'redundant_nil_else',
+        'single_arg_and_or',
+        'redundant_let',
+        'self_compare',
+        'misplaced_else',
+        'quote_vs_function',
+        'double_not',
+        'setq_single_arg',
+        'assoc_without_cdr',
+        'identical_branches',
+        'while_constant',
         'cond_duplicate',
     ]);
     const needsAst = Array.from(astRules).some(r => checks[r] !== 'off');
@@ -317,13 +335,28 @@ function extractForm(s, start) {
 }
 // ===== FIX APPLICATION =====
 exports.FIXABLE_RULES = new Set([
-    'redundant_quotes', 'double_not', 'redundant_nil_else',
-    'single_arg_and_or', 'redundant_setq', 'redundant_progn',
-    'redundant_let', 'quote_style', 'redundant_if', 'misplaced_else',
-    'setq_multiple', 'append_single', 'nth_usage', 'setq_single_arg',
-    'extra_parens', 'empty_branch',
-    'comment_style', 'eq_usage', 'cond_simplify', 'self_compare',
-    'while_constant', 'redundant_list',
+    'redundant_quotes',
+    'double_not',
+    'redundant_nil_else',
+    'single_arg_and_or',
+    'redundant_setq',
+    'redundant_progn',
+    'redundant_let',
+    'quote_style',
+    'redundant_if',
+    'misplaced_else',
+    'setq_multiple',
+    'append_single',
+    'nth_usage',
+    'setq_single_arg',
+    'extra_parens',
+    'empty_branch',
+    'comment_style',
+    'eq_usage',
+    'cond_simplify',
+    'self_compare',
+    'while_constant',
+    'redundant_list',
 ]);
 function applyFixes(issues, content, filepath) {
     const lines = content.split('\n');

package/dist/validate.js

@@ -85,6 +85,7 @@ const VALID_RULES = [
     'promise_handler',
     'module_cycle',
     'arg_count_project',
+    'builtin_arg_count',
 ];
 const VALID_SEVERITIES = ['off', 'info', 'warn', 'error'];
 function validateConfig(config) {

package/dist/visitor-runner.js

@@ -4,11 +4,6 @@ exports.runChecksWithVisitor = runChecksWithVisitor;
 const locale_1 = require("./locale");
 const disable_1 = require("./disable");
 const parser_1 = require("@atlisp/parser");
-function emit(issues, rule, line, severity, message, file) {
-    if (severity === 'off')
-        return;
-    issues.push({ file, line, severity: severity, rule, message });
-}
 function runChecksWithVisitor(ast, file, config, disableMap) {
     const issues = [];
     const checks = config.checks;
@@ -34,7 +29,11 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
     function isInQuote(node) {
         let p = node.parent;
         while (p) {
-            if (p.type === 'list' && p.children && p.children.length > 0 && p.children[0].type === 'symbol' && (p.children[0].name === 'quote' || p.children[0].name === 'function')) {
+            if (p.type === 'list' &&
+                p.children &&
+                p.children.length > 0 &&
+                p.children[0].type === 'symbol' &&
+                (p.children[0].name === 'quote' || p.children[0].name === 'function')) {
                 return true;
             }
             p = p.parent;
@@ -82,7 +81,11 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
     }
     function hasSelfCall(body, fnName) {
         for (const form of body) {
-            if (form.type === 'list' && form.children && form.children.length > 0 && form.children[0].type === 'symbol' && form.children[0].name === fnName) {
+            if (form.type === 'list' &&
+                form.children &&
+                form.children.length > 0 &&
+                form.children[0].type === 'symbol' &&
+                form.children[0].name === fnName) {
                 return true;
             }
         }
@@ -143,8 +146,16 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
         }
     }
     const higherOrderFuncs = new Set([
-        'mapcar', 'apply', 'lambda', 'vl-sort', 'vl-sort-i',
-        'vl-remove-if', 'vl-remove-if-not', 'vl-member-if', 'vl-some', 'vl-every',
+        'mapcar',
+        'apply',
+        'lambda',
+        'vl-sort',
+        'vl-sort-i',
+        'vl-remove-if',
+        'vl-remove-if-not',
+        'vl-member-if',
+        'vl-some',
+        'vl-every',
     ]);
     // redundant_progn
     if (checks['redundant_progn'] !== 'off') {
@@ -220,9 +231,13 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
     // double_not
     if (checks['double_not'] !== 'off') {
         visitor.on('not', node => {
-            if (node.children && node.children.length >= 2 && node.children[1].type === 'list' &&
-                node.children[1].children && node.children[1].children.length > 0 &&
-                node.children[1].children[0].type === 'symbol' && node.children[1].children[0].name === 'not') {
+            if (node.children &&
+                node.children.length >= 2 &&
+                node.children[1].type === 'list' &&
+                node.children[1].children &&
+                node.children[1].children.length > 0 &&
+                node.children[1].children[0].type === 'symbol' &&
+                node.children[1].children[0].name === 'not') {
                 addIssue('double_not', node.pos.line, (0, locale_1.t)('double_not'));
             }
         });
@@ -249,9 +264,12 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
         visitor.on('if', node => {
             if (node.children && node.children.length === 4) {
                 const cond = node.children[1];
-                if (cond.type === 'list' && cond.children && cond.children.length >= 2 &&
-                    cond.children[0].type === 'symbol' && cond.children[0].name === 'not') {
-                    const innerName = cond.children[1].type === 'symbol' ? (cond.children[1].name || '') : '';
+                if (cond.type === 'list' &&
+                    cond.children &&
+                    cond.children.length >= 2 &&
+                    cond.children[0].type === 'symbol' &&
+                    cond.children[0].name === 'not') {
+                    const innerName = cond.children[1].type === 'symbol' ? cond.children[1].name || '' : '';
                     addIssue('misplaced_else', node.pos.line, (0, locale_1.t)('misplaced_else', innerName));
                 }
             }
@@ -263,7 +281,7 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
             if (node.children && node.children.length >= 2) {
                 const cond = node.children[1];
                 if (isLiteral(cond)) {
-                    const name = cond.type === 'symbol' ? (cond.name || '') : String(cond.value ?? '');
+                    const name = cond.type === 'symbol' ? cond.name || '' : String(cond.value ?? '');
                     addIssue('while_constant', node.pos.line, (0, locale_1.t)('while_constant', name));
                 }
             }
@@ -275,7 +293,7 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
             if (node.children && node.children.length >= 2) {
                 const cond = node.children[1];
                 if (isLiteral(cond)) {
-                    const name = cond.type === 'symbol' ? (cond.name || '') : String(cond.value ?? '');
+                    const name = cond.type === 'symbol' ? cond.name || '' : String(cond.value ?? '');
                     addIssue('constant_condition', node.pos.line, (0, locale_1.t)('constant_condition', name, formName));
                 }
             }
@@ -288,7 +306,7 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
                 if (clause.type === 'list' && clause.children && clause.children.length >= 2) {
                     const test = clause.children[1];
                     if (isLiteral(test)) {
-                        const name = test.type === 'symbol' ? (test.name || '') : String(test.value ?? '');
+                        const name = test.type === 'symbol' ? test.name || '' : String(test.value ?? '');
                         addIssue('constant_condition', node.pos.line, (0, locale_1.t)('constant_condition', name, 'cond'));
                     }
                 }
@@ -298,9 +316,13 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
     // quote_vs_function
     if (checks['quote_vs_function'] !== 'off') {
         visitor.on('quote', node => {
-            if (node.children && node.children.length >= 2 && node.children[1].type === 'list' &&
-                node.children[1].children && node.children[1].children.length > 0 &&
-                node.children[1].children[0].type === 'symbol' && node.children[1].children[0].name === 'lambda') {
+            if (node.children &&
+                node.children.length >= 2 &&
+                node.children[1].type === 'list' &&
+                node.children[1].children &&
+                node.children[1].children.length > 0 &&
+                node.children[1].children[0].type === 'symbol' &&
+                node.children[1].children[0].name === 'lambda') {
                 const parent = node.parent;
                 if (parent && parent.children && parent.children.length > 0) {
                     const pName = (parent.children[0].type === 'symbol' && parent.children[0].name) || '';
@@ -314,9 +336,13 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
     // redundant_quotes
     if (checks['redundant_quotes'] !== 'off') {
         visitor.on('quote', node => {
-            if (node.children && node.children.length >= 2 && node.children[1].type === 'list' &&
-                node.children[1].children && node.children[1].children.length > 0 &&
-                node.children[1].children[0].type === 'symbol' && node.children[1].children[0].name === 'quote') {
+            if (node.children &&
+                node.children.length >= 2 &&
+                node.children[1].type === 'list' &&
+                node.children[1].children &&
+                node.children[1].children.length > 0 &&
+                node.children[1].children[0].type === 'symbol' &&
+                node.children[1].children[0].name === 'quote') {
                 addIssue('redundant_quotes', node.pos.line, (0, locale_1.t)('redundant_quotes'));
             }
         });
@@ -347,8 +373,11 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
                 addIssue('assoc_without_cdr', node.pos.line, (0, locale_1.t)('assoc_without_cdr'));
                 return;
             }
-            if (parent.type === 'list' && parent.children && parent.children.length > 0 &&
-                parent.children[0].type === 'symbol' && (parent.children[0].name === 'cdr' || parent.children[0].name === 'cadr')) {
+            if (parent.type === 'list' &&
+                parent.children &&
+                parent.children.length > 0 &&
+                parent.children[0].type === 'symbol' &&
+                (parent.children[0].name === 'cdr' || parent.children[0].name === 'cadr')) {
                 return;
             }
             addIssue('assoc_without_cdr', node.pos.line, (0, locale_1.t)('assoc_without_cdr'));
@@ -368,8 +397,12 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
     }
     // open_without_close (data collection)
     if (checks['open_without_close'] !== 'off') {
-        visitor.on('open', () => { state.openCount++; });
-        visitor.on('close', () => { state.closeCount++; });
+        visitor.on('open', () => {
+            state.openCount++;
+        });
+        visitor.on('close', () => {
+            state.closeCount++;
+        });
     }
     // cond_duplicate (data collection)
     if (checks['cond_duplicate'] !== 'off') {
@@ -404,8 +437,12 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
             dangerNames.add('vl-registry-write');
         if (dangerNames.size > 0) {
             visitor.on('*', node => {
-                if (node.type === 'list' && node.children && node.children.length > 0 &&
-                    node.children[0].type === 'symbol' && node.children[0].name && dangerNames.has(node.children[0].name)) {
+                if (node.type === 'list' &&
+                    node.children &&
+                    node.children.length > 0 &&
+                    node.children[0].type === 'symbol' &&
+                    node.children[0].name &&
+                    dangerNames.has(node.children[0].name)) {
                     if (!isInQuote(node)) {
                         state.dangerousCalls.push({ name: node.children[0].name, node });
                     }
@@ -419,8 +456,11 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
             if (node.type === 'list' && node.children) {
                 let prevSetq = false;
                 for (const child of node.children) {
-                    if (child.type === 'list' && child.children && child.children.length > 0 &&
-                        child.children[0].type === 'symbol' && child.children[0].name === 'setq') {
+                    if (child.type === 'list' &&
+                        child.children &&
+                        child.children.length > 0 &&
+                        child.children[0].type === 'symbol' &&
+                        child.children[0].name === 'setq') {
                         if (prevSetq) {
                             addIssue('multiple_setq', child.pos.line, (0, locale_1.t)('multiple_setq'));
                             prevSetq = false;
@@ -460,15 +500,18 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
                 return;
             const letVars = new Set();
             for (const b of bindings.children) {
-                if (b.type === 'list' && b.children && b.children.length > 0 && b.children[0].type === 'symbol' && b.children[0].name) {
+                if (b.type === 'list' &&
+                    b.children &&
+                    b.children.length > 0 &&
+                    b.children[0].type === 'symbol' &&
+                    b.children[0].name) {
                     letVars.add(b.children[0].name);
                 }
             }
             // Walk body for setq of let-bound vars (shallow, don't descend into nested lets)
             const walkBodyForSetq = (forms) => {
                 for (const form of forms) {
-                    if (form.type === 'list' && form.children && form.children.length > 0 &&
-                        form.children[0].type === 'symbol') {
+                    if (form.type === 'list' && form.children && form.children.length > 0 && form.children[0].type === 'symbol') {
                         if (form.children[0].name === 'setq' && form.children.length > 1) {
                             for (let i = 1; i < form.children.length; i += 2) {
                                 const child = form.children[i];
@@ -501,7 +544,11 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
                 return;
             const letVars = [];
             for (const b of bindings.children) {
-                if (b.type === 'list' && b.children && b.children.length > 0 && b.children[0].type === 'symbol' && b.children[0].name) {
+                if (b.type === 'list' &&
+                    b.children &&
+                    b.children.length > 0 &&
+                    b.children[0].type === 'symbol' &&
+                    b.children[0].name) {
                     letVars.push({ name: b.children[0].name, line: b.children[0].pos.line });
                 }
             }
@@ -524,7 +571,7 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
             if (!node.children || node.children.length < 4)
                 return;
             const fnName = node.children[1].type === 'symbol' ? node.children[1].name : '';
-            if (!fnName || (fnName.startsWith('C:') || fnName.startsWith('c:')))
+            if (!fnName || fnName.startsWith('C:') || fnName.startsWith('c:'))
                 return;
             const body = node.children.slice(3);
             if (checks['unused_parameter'] !== 'off') {
@@ -564,7 +611,13 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
                 return;
             for (let i = 1; i < node.children.length; i += 2) {
                 const varNode = node.children[i];
-                if (varNode.type === 'symbol' && varNode.name && !varNode.name.startsWith('*') && !varNode.name.includes(':*') && varNode.name !== 'T' && varNode.name !== 'nil' && !varNode.name.startsWith('/')) {
+                if (varNode.type === 'symbol' &&
+                    varNode.name &&
+                    !varNode.name.startsWith('*') &&
+                    !varNode.name.includes(':*') &&
+                    varNode.name !== 'T' &&
+                    varNode.name !== 'nil' &&
+                    !varNode.name.startsWith('/')) {
                     state.setqDefs.set(varNode.name, { line: varNode.pos.line, file });
                 }
             }
@@ -598,7 +651,10 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
         visitor.on('if', node => {
             if (node.children && node.children.length === 3) {
                 const parent = node.parent;
-                if (parent && parent.type === 'list' && parent.children && parent.children.length > 0 &&
+                if (parent &&
+                    parent.type === 'list' &&
+                    parent.children &&
+                    parent.children.length > 0 &&
                     parent.children[0].type === 'symbol') {
                     const parentName = parent.children[0].name;
                     if (parentName === 'cond' || parentName === 'if')
@@ -619,19 +675,28 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
     // promise_handler
     if (checks['promise_handler'] !== 'off') {
         visitor.on('*', node => {
-            if (node.type === 'list' && node.children && node.children.length > 0 &&
-                node.children[0].type === 'symbol' && node.children[0].name &&
+            if (node.type === 'list' &&
+                node.children &&
+                node.children.length > 0 &&
+                node.children[0].type === 'symbol' &&
+                node.children[0].name &&
                 (node.children[0].name.startsWith('vlax-invoke') || node.children[0].name.startsWith('vlax-invoke-method'))) {
                 if (isInQuote(node))
                     return;
                 const parent = node.parent;
-                if (parent && parent.type === 'list' && parent.children && parent.children.length > 0 &&
-                    parent.children[0].type === 'symbol' && parent.children[0].name === 'vl-catch-all-apply') {
+                if (parent &&
+                    parent.type === 'list' &&
+                    parent.children &&
+                    parent.children.length > 0 &&
+                    parent.children[0].type === 'symbol' &&
+                    parent.children[0].name === 'vl-catch-all-apply') {
                     return;
                 }
                 let hasCallback = false;
                 for (const child of (node.children || []).slice(1)) {
-                    if (child.type === 'list' && child.children && child.children.length > 0 &&
+                    if (child.type === 'list' &&
+                        child.children &&
+                        child.children.length > 0 &&
                         child.children[0].type === 'symbol' &&
                         (child.children[0].name === 'lambda' || child.children[0].name === 'function')) {
                         hasCallback = true;
@@ -654,15 +719,19 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
     }
     // dangerous_calls
     if (checks['quit_exit'] !== 'off') {
-        const dc = config.dangerous_calls;
         for (const call of state.dangerousCalls) {
             const sev = config.dangerous_calls[call.name === 'vl-registry-write' ? 'vl_registry_write' : call.name] || 'off';
             if (sev === 'off')
                 continue;
-            const msgKey = call.name === 'quit' ? 'dangerous.quit' :
-                call.name === 'exit' ? 'dangerous.exit' :
-                    call.name === 'startapp' ? 'dangerous.startapp' :
-                        call.name === 'vl-registry-write' ? 'dangerous.vl_registry_write' : '';
+            const msgKey = call.name === 'quit'
+                ? 'dangerous.quit'
+                : call.name === 'exit'
+                    ? 'dangerous.exit'
+                    : call.name === 'startapp'
+                        ? 'dangerous.startapp'
+                        : call.name === 'vl-registry-write'
+                            ? 'dangerous.vl_registry_write'
+                            : '';
             if (msgKey) {
                 addIssue(call.name === 'vl-registry-write' ? 'vl_registry_write' : call.name, call.node.pos.line, (0, locale_1.t)(msgKey));
             }
@@ -682,7 +751,6 @@ function runChecksWithVisitor(ast, file, config, disableMap) {
     // function_complexity
     if (checks['function_complexity'] !== 'off') {
         const maxLines = config.function_complexity.max_lines;
-        const maxNesting = config.function_complexity.max_nesting;
         for (const scope of state.defunScopes) {
             let maxLine = scope.line;
             const computeEnd = (nodes) => {

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@atlisp/lint",
-  "version": "0.2.2",
+  "version": "0.2.4",
   "description": "AutoLISP static analysis tool — parens, security, conventions, SBCL syntax validation",
   "keywords": [
     "CAD",
@@ -37,15 +37,15 @@
     "prepack": "npm run build"
   },
   "dependencies": {
-    "@atlisp/parser": "^0.1.3"
+    "@atlisp/parser": "^0.1.5"
   },
   "devDependencies": {
-    "@types/jest": "^29",
-    "@types/node": "^18",
-    "@typescript-eslint/eslint-plugin": "^7",
-    "@typescript-eslint/parser": "^7",
+    "@types/jest": "^30",
+    "@types/node": "^22",
+    "@typescript-eslint/eslint-plugin": "^8",
+    "@typescript-eslint/parser": "^8",
     "eslint": "^8",
-    "jest": "^29",
+    "jest": "^30",
     "prettier": "^3",
     "ts-jest": "^29",
     "ts-node": "^10.9.2",

package/dist/atlisp-lint.default.json

@@ -1,90 +0,0 @@
-{
-  "locale": "zh",
-  "source": {
-    "globs": ["**/*.lsp"],
-    "exclude": ["**/node_modules/**", "**/vendor/**", "**/.git/**"]
-  },
-  "checks": {
-    "parens": "error",
-    "encoding": "warn",
-    "cl_syntax": "warn",
-    "quit_exit": "error",
-    "command_shell": "error",
-    "startapp": "warn",
-    "vl_registry_write": "warn",
-    "vlax_without_loading": "off",
-    "token_in_url": "warn",
-    "open_without_close": "warn",
-    "bare_function_names": "off",
-    "line_length": "warn",
-    "function_complexity": "warn",
-    "parameter_naming": "warn",
-    "unused_variable": "warn",
-    "missing_doc": "warn",
-    "error_handling": "warn",
-    "global_naming": "warn",
-    "extra_parens": "warn",
-    "arg_count": "warn",
-    "strcat_usage": "warn",
-    "cond_simplify": "warn",
-    "redundant_progn": "warn",
-    "quote_style": "warn",
-    "eq_usage": "warn",
-    "lambda_syntax": "warn",
-    "comment_style": "warn",
-    "empty_catch": "warn",
-    "nth_usage": "warn",
-    "append_single": "warn",
-    "setq_multiple": "warn",
-    "function_order": "off",
-    "magic_number": "off",
-    "mixed_indent": "warn",
-    "long_function_call": "warn",
-    "no_return": "warn",
-    "shadow_builtin": "warn",
-    "dynamic_doc": "warn",
-    "loop_optimization": "off",
-    "type_check": "off",
-    "redundant_if": "warn",
-    "trailing_whitespace": "warn",
-    "module_registration": "off",
-    "namespace_header": "off"
-  },
-  "line_length": {
-    "max": 100,
-    "tab_width": 2
-  },
-  "function_complexity": {
-    "max_lines": 60,
-    "max_nesting": 6
-  },
-  "cl_syntax": {
-    "keywords": ["&key"]
-  },
-  "dangerous_calls": {
-    "quit": "error",
-    "exit": "error",
-    "command_shell": "error",
-    "startapp": "warn",
-    "vl_registry_write": "warn"
-  },
-  "module_registration": {
-    "severity": "off",
-    "patterns": [],
-    "dirs": ["modules"]
-  },
-  "namespace_header": {
-    "severity": "off",
-    "package": "",
-    "deps": [],
-    "search_lines": 15
-  },
-  "bare_function_names": {
-    "allowlist": ["T", "nil"],
-    "namespace_pattern": "^[a-z]+:"
-  },
-  "sbcl": {
-    "walk_exclude": [".vscode", "vendor", ".git"],
-    "defmacro_allow_files": ["compat-cl"]
-  }
-}

package/dist/lib/lint-sbcl.lisp

@@ -1,161 +0,0 @@
-;; @lisp SBCL Lint — syntax validation via SBCL
-;; Usage: sbcl --script lint-sbcl.lisp <src-dir> <stub-packages.json> <walk-exclude-json> <defmacro-allow-files-json> <locale>
-
-(require :uiop)
-
-(defparameter *errors* 0)
-(defparameter *warnings* 0)
-(defparameter *checked* 0)
-(defparameter *locale* "zh")
-
-;; ── i18n ──────────────────────────────────────────────────────────────
-(defun i18n (key)
-  (cdr (assoc key
-    (if (string= *locale* "zh")
-      '((:not-found . "not found symbol")
-        (:syntax-error . "syntax error")
-        (:vec-syntax . "#( vector syntax")
-        (:char-syntax . "# backslash char literal")
-        (:eval-syntax . "#. read-time eval")
-        (:defmacro . "defmacro")
-        (:trailing-ws . "trailing whitespace")
-        (:ok . "OK")
-        (:fail . "FAIL")
-        (:header . "  @lisp SBCL Lint")
-        (:source . "  Source")
-        (:found . "  Found ~d .lsp files")
-        (:scanned . "  Scanned")
-        (:errors . "  Errors")
-        (:warnings . "  Warnings"))
-      '((:not-found . "not found symbol")
-        (:syntax-error . "syntax error")
-        (:vec-syntax . "#( vector syntax")
-        (:char-syntax . "# backslash char literal")
-        (:eval-syntax . "#. read-time eval")
-        (:defmacro . "defmacro")
-        (:trailing-ws . "trailing whitespace")
-        (:ok . "OK")
-        (:fail . "FAIL")
-        (:header . "  @lisp SBCL Lint")
-        (:source . "  Source")
-        (:found . "  Found ~d .lsp files")
-        (:scanned . "  Scanned")
-        (:errors . "  Errors")
-        (:warnings . "  Warnings"))))))
-
-;; ── Stub packages from external file ──────────────────────────────────
-(defun load-stub-packages (file-path)
-  (flet ((ensure-pkg (name &optional use-list)
-           (unless (find-package name)
-             (make-package name :use (or use-list '())))))
-    (with-open-file (s file-path :direction :input)
-      (let ((packages (read s)))
-        (dolist (pkg packages)
-          (ensure-pkg (first pkg) (second pkg)))))))
-
-;; ── File walking ──────────────────────────────────────────────────────
-(defun source-files (dir)
-  (sort
-    (remove-if-not
-      (lambda (p)
-        (let ((n (pathname-type p)))
-          (and n (string-equal n "lsp"))))
-      (uiop:directory-files dir))
-    'string< :key #'namestring))
-
-(defun walk-tree (dir exclude-dirs)
-  (let ((result (source-files dir)))
-    (dolist (sub (uiop:subdirectories dir))
-      (let ((name (car (last (pathname-directory sub)))))
-        (unless (find name exclude-dirs :test 'string=)
-          (setf result (append result (walk-tree sub exclude-dirs))))))
-    result))
-
-;; ── Per-file check ────────────────────────────────────────────────────
-(defun check-file (path src-dir defmacro-allow-files)
-  (incf *checked*)
-  (let* ((rel (enough-namestring path src-dir))
-         (fullname (format nil "~a.~a" (pathname-name path) (pathname-type path))))
-    (format t "  ~a ... " rel)
-    (force-output)
-    ;; Syntax check via READ
-    (handler-case
-        (with-open-file (s path :direction :input)
-          (loop for form = (read s nil :eof)
-                until (eq form :eof)))
-      (error (e)
-        (let ((msg (princ-to-string e)))
-          (cond
-            ((search "not found" msg)
-             (format t "~%  [NOTE] ~a: ~a~%" rel (i18n :not-found))
-             (incf *warnings*))
-            (t
-             (format t "~a~%  [ERROR] ~a: ~a~%" (i18n :fail) rel (i18n :syntax-error))
-             (incf *errors*)
-             (return-from check-file))))))
-    ;; Trailing whitespace
-    (with-open-file (s path :direction :input)
-      (loop for line = (read-line s nil nil)
-            for lineno from 1
-            while line
-            when (and (> (length line) 0)
-                      (find (char line (1- (length line))) '(#\Space #\Tab)))
-              do (progn
-                   (format t "~%  [WARN] ~a line ~d: ~a~%" rel lineno (i18n :trailing-ws))
-                   (incf *warnings*))))
-    ;; CL-ism checks: raw content scan
-    (with-open-file (s path :direction :input)
-      (let ((content (make-string (file-length s))))
-        (file-position s 0)
-        (read-sequence content s)
-        (when (search "#(" content)
-          (format t "~%  [WARN] ~a: ~a~%" rel (i18n :vec-syntax))
-          (incf *warnings*))
-        (when (search "#\\" content)
-          (format t "~%  [WARN] ~a: ~a~%" rel (i18n :char-syntax))
-          (incf *warnings*))
-        (when (search "#." content)
-          (format t "~%  [WARN] ~a: ~a~%" rel (i18n :eval-syntax))
-          (incf *warnings*))
-        (when (and (search "defmacro" content)
-                   (not (some (lambda (s) (search s fullname)) defmacro-allow-files)))
-          (format t "~%  [WARN] ~a: ~a~%" rel (i18n :defmacro))
-          (incf *warnings*))))
-    (format t "~a~%" (i18n :ok))))
-
-;; ── Main ──────────────────────────────────────────────────────────────
-(defun main ()
-  (let* ((args (uiop:command-line-arguments))
-         (src-dir (first args))
-         (stub-file (second args))
-         (walk-exclude (if (third args)
-                          (read-from-string (third args))
-                          '(".vscode" "test" "experiment" "tools" ".git")))
-         (defmacro-allow (if (fourth args)
-                            (read-from-string (fourth args))
-                            '("compat-cl")))
-         (locale (fifth args)))
-    (when locale (setf *locale* locale))
-    (load-stub-packages stub-file)
-
-    (format t "~%==================================================~%")
-    (format t "~a~%" (i18n :header))
-    (format t "~a: ~a~%" (i18n :source) (namestring (pathname src-dir)))
-    (format t "==================================================~%~%")
-    (setf *errors* 0 *warnings* 0 *checked* 0)
-
-    (let ((files (walk-tree src-dir walk-exclude)))
-      (format t "~a~%~%" (format nil (i18n :found) (length files)))
-      (dolist (f files)
-        (check-file f src-dir defmacro-allow)))
-
-    (format t "~%==================================================~%")
-    (format t "~a: ~d~%" (i18n :scanned) *checked*)
-    (format t "~a: ~d~%" (i18n :errors) *errors*)
-    (format t "~a: ~d~%" (i18n :warnings) *warnings*)
-    (format t "==================================================~%~%")
-    (if (> *errors* 0)
-        (uiop:quit 1)
-        (uiop:quit 0))))
-
-(main)

package/dist/stub-packages.json

@@ -1,41 +0,0 @@
-((AUTOLISP ())
- (@ (COMMON-LISP AUTOLISP))
- (C ())
- (JSON ())
- (SIDEBAR ())
- (FUN ())
- (DCL ())
- (BASE ())
- (STRING ())
- (BLOCK ())
- (ENTITY ())
- (LAYER ())
- (LAYOUT ())
- (CURVE ())
- (LIST ())
- (M ())
- (P ())
- (UI ())
- (SYS ())
- (EXCEL ())
- (WORD ())
- (RE ())
- (VECTRA ())
- (DOS ())
- (AT-PM ())
- (QRENCODE ())
- (NETWORK ())
- (PKGMAN ())
- (DATETIME ())
- (DICT ())
- (@NLP ())
- (AT-SIDEBAR ())
- (S ())
- (VL ())
- (VLR ())
- (VLAX ())
- (THEME ())
- (AJAX ())
- (ATLISP ())
- (LOG ())
- (ATLISP-CORE ()))