@atlisp/lint 0.1.25 → 0.1.27

package/atlisp-lint.default.json

@@ -11,7 +11,7 @@
     "quit_exit": "error",
     "command_shell": "warn",
     "startapp": "warn",
-    "vl_registry_write": "warn",
+    "vl_registry_write": "off",
     "vlax_without_loading": "warn",
     "token_in_url": "warn",
     "open_without_close": "warn",
@@ -81,12 +81,12 @@
     "type_check": "off",
     "redundant_if": "warn",
     "undeclared_setq": "warn",
-    "unused_catch_result": "warn",
-    "string_concat_loop": "warn",
+    "unused_catch_result": "off",
+    "string_concat_loop": "off",
     "if_without_else": "off",
     "redundant_list": "warn",
     "entget_in_loop": "warn",
-    "promise_handler": "warn",
+    "promise_handler": "off",
     "module_cycle": "warn",
     "arg_count_project": "warn"
   },
@@ -106,7 +106,7 @@
     "exit": "error",
     "command_shell": "warn",
     "startapp": "warn",
-    "vl_registry_write": "warn"
+    "vl_registry_write": "off"
   },
   "module_registration": {
     "severity": "off",

package/dist/checks/arg-count.js

@@ -3,6 +3,17 @@ Object.defineProperty(exports, "__esModule", { value: true });
 exports.checkArgCount = checkArgCount;
 const locale_1 = require("../locale");
 const parser_1 = require("@atlisp/parser");
+function isInQuoteOrFunction(node) {
+    let cur = node.parent;
+    while (cur) {
+        if (cur.children?.[0]?.type === 'symbol' &&
+            (cur.children[0].name === 'quote' || cur.children[0].name === 'function')) {
+            return true;
+        }
+        cur = cur.parent;
+    }
+    return false;
+}
 function checkArgCount(content, file) {
     const issues = [];
     const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
@@ -36,13 +47,15 @@ function checkArgCount(content, file) {
         for (const call of calls) {
             if (!call.children || call.children.length === 0)
                 continue;
-            // Skip if the first child is the function name — that's the head of this call
+            // Skip calls inside quoted or function forms
+            if (isInQuoteOrFunction(call))
+                continue;
             const argCount = call.children.length - 1;
             if (argCount !== paramCount) {
                 issues.push({
                     file,
                     line: call.pos.line,
-                    severity: 'warn',
+                    severity: 'error',
                     rule: 'arg_count',
                     message: (0, locale_1.t)('arg_count', funcName, argCount, paramCount),
                 });

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

@@ -253,6 +253,9 @@ function checkNode(node, content, file, issues) {
         return;
     }
     const funcName = head.name.toLowerCase();
+    // Don't recurse into quoted or function forms
+    if (funcName === 'quote' || funcName === 'function')
+        return;
     const arity = BUILTIN_ARITY[funcName];
     if (arity) {
         const argCount = node.children.length - 1;
@@ -260,7 +263,7 @@ function checkNode(node, content, file, issues) {
             issues.push({
                 file,
                 line: head.pos.line,
-                severity: 'warn',
+                severity: 'error',
                 rule: 'builtin_arg_count',
                 message: (0, locale_1.t)('builtin_arg_count.too_few', funcName, argCount, arity.min),
             });
@@ -269,7 +272,7 @@ function checkNode(node, content, file, issues) {
             issues.push({
                 file,
                 line: head.pos.line,
-                severity: 'warn',
+                severity: 'error',
                 rule: 'builtin_arg_count',
                 message: (0, locale_1.t)('builtin_arg_count.too_many', funcName, argCount, arity.max),
             });

package/dist/checks/redundant-if.js

@@ -8,7 +8,7 @@ function checkRedundantIf(content, file) {
     const lines = content.split('\n');
     for (let i = 0; i < lines.length; i++) {
         const stripped = (0, utils_1.stripLine)(lines[i]);
-        if (/\((if|when|unless)\s+\S+\s+\(progn\b/.test(stripped)) {
+        if (/\((when|unless)\s+\S+\s+\(progn\b/.test(stripped)) {
             issues.push({ file, line: i + 1, severity: 'warn', rule: 'redundant_if', message: (0, locale_1.t)('redundant_if') });
         }
     }

package/dist/config.js

@@ -122,12 +122,12 @@ const DEFAULT_CONFIG = {
         type_check: 'off',
         format_indent: 'off',
         redundant_if: 'warn',
-        unused_catch_result: 'warn',
-        string_concat_loop: 'warn',
+        unused_catch_result: 'off',
+        string_concat_loop: 'off',
         if_without_else: 'off',
         redundant_list: 'warn',
         entget_in_loop: 'warn',
-        promise_handler: 'warn',
+        promise_handler: 'off',
         module_cycle: 'warn',
         arg_count_project: 'warn',
     },

package/dist/locale.js

@@ -36,6 +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",
         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",
@@ -156,6 +157,7 @@ Options:
         unused_parameter: "参数 '{0}' 在函数 '{1}' 中从未使用",
         constant_condition: "常量条件 '{0}' 在 {1} 中——可能是调试残留代码",
         redundant_progn: '冗余 progn：{0} 内只有一个表达式',
+        redundant_if: 'when/unless 体中冗余 progn —— when/unless 已隐含 progn，可直接写多个表达式',
         empty_branch: "'{0}' 的条件分支为空——没有表达式",
         unused_let_binding: "let 绑定 '{0}' 从未被使用",
         recursive_call: "函数 '{0}' 调用了自身——可能存在无限递归",

package/dist/presets.js

@@ -10,7 +10,7 @@ exports.PRESETS = {
             quit_exit: 'error',
             command_shell: 'warn',
             startapp: 'warn',
-            vl_registry_write: 'warn',
+            vl_registry_write: 'off',
             token_in_url: 'warn',
             open_without_close: 'warn',
             line_length: 'warn',
@@ -65,12 +65,12 @@ exports.PRESETS = {
             shadow_builtin: 'warn',
             dynamic_doc: 'warn',
             redundant_if: 'warn',
-            unused_catch_result: 'warn',
-            string_concat_loop: 'warn',
+            unused_catch_result: 'off',
+            string_concat_loop: 'off',
             if_without_else: 'off',
             redundant_list: 'warn',
             entget_in_loop: 'warn',
-            promise_handler: 'warn',
+            promise_handler: 'off',
             module_cycle: 'warn',
             arg_count_project: 'warn',
         },
@@ -152,11 +152,11 @@ exports.PRESETS = {
             module_registration: 'error',
             namespace_header: 'error',
             unused_catch_result: 'error',
-            string_concat_loop: 'warn',
+            string_concat_loop: 'off',
             if_without_else: 'off',
             redundant_list: 'error',
             entget_in_loop: 'warn',
-            promise_handler: 'error',
+            promise_handler: 'off',
             module_cycle: 'error',
             arg_count_project: 'error',
         },

package/dist/rules.js

@@ -156,7 +156,7 @@ exports.RULES = [
         description: '检测函数调用自身（可能无限递归）',
         category: '正确性',
     },
-    { name: 'redundant_if', defaultSeverity: 'warn', description: '检测 if/when 分支中冗余 progn', category: '风格' },
+    { name: 'redundant_if', defaultSeverity: 'warn', description: '检测 when/unless 中冗余 progn（when/unless 已隐含 progn）', category: '风格' },
     { name: 'redundant_let', defaultSeverity: 'warn', description: '检测无绑定的 let 建议改用 progn', category: '风格' },
     { name: 'redundant_nil_else', defaultSeverity: 'warn', description: '检测 if 中冗余的 nil 分支', category: '风格' },
     { name: 'redundant_progn', defaultSeverity: 'warn', description: '检测分支中多余的 progn', category: '风格' },
@@ -228,12 +228,12 @@ exports.RULES = [
         description: '检测 vlax-* 使用前未调用 vl-load-com',
         category: '最佳实践',
     },
-    { name: 'unused_catch_result', defaultSeverity: 'warn', description: '检测 vl-catch-all-apply 结果被当布尔值用', category: '正确性' },
-    { name: 'string_concat_loop', defaultSeverity: 'warn', description: '检测循环内字符串拼接', category: '性能' },
+    { name: 'unused_catch_result', defaultSeverity: 'off', description: '检测 vl-catch-all-apply 结果被当布尔值用', category: '正确性' },
+    { name: 'string_concat_loop', defaultSeverity: 'off', description: '检测循环内字符串拼接', category: '性能' },
     { name: 'if_without_else', defaultSeverity: 'off', description: '检测 if 无 else 分支', category: '风格' },
     { name: 'redundant_list', defaultSeverity: 'warn', description: '检测 (list) 等价于 nil', category: '风格' },
     { name: 'entget_in_loop', defaultSeverity: 'warn', description: '检测循环内 entget', category: '性能' },
-    { name: 'promise_handler', defaultSeverity: 'warn', description: '检测 vlax-invoke 缺少回调处理器', category: '最佳实践' },
+    { name: 'promise_handler', defaultSeverity: 'off', 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: '正确性' },

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@atlisp/lint",
-  "version": "0.1.25",
+  "version": "0.1.27",
   "description": "AutoLISP static analysis tool — parens, security, conventions, SBCL syntax validation",
   "keywords": [
     "CAD",