@atlisp/lint 0.1.1 → 0.1.2

package/dist/validate.d.ts

@@ -0,0 +1,8 @@
+import { LintConfig } from './types';
+interface ValidationError {
+    path: string;
+    message: string;
+}
+export declare function validateConfig(config: LintConfig): ValidationError[];
+export {};
+//# sourceMappingURL=validate.d.ts.map

package/dist/validate.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"validate.d.ts","sourceRoot":"","sources":["../src/validate.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,UAAU,EAAY,MAAM,SAAS,CAAC;AAc/C,UAAU,eAAe;IACvB,IAAI,EAAE,MAAM,CAAC;IACb,OAAO,EAAE,MAAM,CAAC;CACjB;AAED,wBAAgB,cAAc,CAAC,MAAM,EAAE,UAAU,GAAG,eAAe,EAAE,CA8CpE"}

package/dist/validate.js

@@ -0,0 +1,55 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.validateConfig = validateConfig;
+const VALID_RULES = [
+    'parens', 'encoding', 'cl_syntax', 'quit_exit', 'command_shell',
+    'startapp', 'vl_registry_write', 'vlax_without_loading', 'token_in_url',
+    'open_without_close', 'bare_function_names', 'line_length',
+    'function_complexity', 'parameter_naming', 'unused_variable', 'missing_doc',
+    'error_handling', 'global_naming', 'extra_parens', 'arg_count',
+    'strcat_usage', 'cond_simplify', 'trailing_whitespace',
+    'module_registration', 'namespace_header',
+];
+const VALID_SEVERITIES = ['off', 'warn', 'error'];
+function validateConfig(config) {
+    const errors = [];
+    if (config.locale && config.locale !== 'zh' && config.locale !== 'en') {
+        errors.push({ path: 'locale', message: `Invalid locale '${config.locale}', expected 'zh' or 'en'` });
+    }
+    if (config.checks) {
+        for (const [rule, sev] of Object.entries(config.checks)) {
+            if (!VALID_RULES.includes(rule)) {
+                errors.push({ path: `checks.${rule}`, message: `Unknown rule '${rule}'` });
+            }
+            if (!VALID_SEVERITIES.includes(sev)) {
+                errors.push({ path: `checks.${rule}`, message: `Invalid severity '${sev}', expected 'off', 'warn', or 'error'` });
+            }
+        }
+    }
+    if (config.source) {
+        if (!Array.isArray(config.source.globs)) {
+            errors.push({ path: 'source.globs', message: 'Must be an array of glob patterns' });
+        }
+        if (!Array.isArray(config.source.exclude)) {
+            errors.push({ path: 'source.exclude', message: 'Must be an array of glob patterns' });
+        }
+    }
+    if (config.line_length) {
+        if (typeof config.line_length.max !== 'number' || config.line_length.max < 1) {
+            errors.push({ path: 'line_length.max', message: 'Must be a positive number' });
+        }
+        if (typeof config.line_length.tab_width !== 'number' || config.line_length.tab_width < 1) {
+            errors.push({ path: 'line_length.tab_width', message: 'Must be a positive number' });
+        }
+    }
+    if (config.function_complexity) {
+        if (typeof config.function_complexity.max_lines !== 'number' || config.function_complexity.max_lines < 1) {
+            errors.push({ path: 'function_complexity.max_lines', message: 'Must be a positive number' });
+        }
+        if (typeof config.function_complexity.max_nesting !== 'number' || config.function_complexity.max_nesting < 1) {
+            errors.push({ path: 'function_complexity.max_nesting', message: 'Must be a positive number' });
+        }
+    }
+    return errors;
+}
+//# sourceMappingURL=validate.js.map

package/dist/validate.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"validate.js","sourceRoot":"","sources":["../src/validate.ts"],"names":[],"mappings":";;AAmBA,wCA8CC;AA/DD,MAAM,WAAW,GAAG;IAClB,QAAQ,EAAE,UAAU,EAAE,WAAW,EAAE,WAAW,EAAE,eAAe;IAC/D,UAAU,EAAE,mBAAmB,EAAE,sBAAsB,EAAE,cAAc;IACvE,oBAAoB,EAAE,qBAAqB,EAAE,aAAa;IAC1D,qBAAqB,EAAE,kBAAkB,EAAE,iBAAiB,EAAE,aAAa;IAC3E,gBAAgB,EAAE,eAAe,EAAE,cAAc,EAAE,WAAW;IAC9D,cAAc,EAAE,eAAe,EAAE,qBAAqB;IACtD,qBAAqB,EAAE,kBAAkB;CAC1C,CAAC;AAEF,MAAM,gBAAgB,GAAe,CAAC,KAAK,EAAE,MAAM,EAAE,OAAO,CAAC,CAAC;AAO9D,SAAgB,cAAc,CAAC,MAAkB;IAC/C,MAAM,MAAM,GAAsB,EAAE,CAAC;IAErC,IAAI,MAAM,CAAC,MAAM,IAAI,MAAM,CAAC,MAAM,KAAK,IAAI,IAAI,MAAM,CAAC,MAAM,KAAK,IAAI,EAAE,CAAC;QACtE,MAAM,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,OAAO,EAAE,mBAAmB,MAAM,CAAC,MAAM,0BAA0B,EAAE,CAAC,CAAC;IACvG,CAAC;IAED,IAAI,MAAM,CAAC,MAAM,EAAE,CAAC;QAClB,KAAK,MAAM,CAAC,IAAI,EAAE,GAAG,CAAC,IAAI,MAAM,CAAC,OAAO,CAAC,MAAM,CAAC,MAAM,CAAC,EAAE,CAAC;YACxD,IAAI,CAAC,WAAW,CAAC,QAAQ,CAAC,IAAI,CAAC,EAAE,CAAC;gBAChC,MAAM,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,UAAU,IAAI,EAAE,EAAE,OAAO,EAAE,iBAAiB,IAAI,GAAG,EAAE,CAAC,CAAC;YAC7E,CAAC;YACD,IAAI,CAAC,gBAAgB,CAAC,QAAQ,CAAC,GAAe,CAAC,EAAE,CAAC;gBAChD,MAAM,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,UAAU,IAAI,EAAE,EAAE,OAAO,EAAE,qBAAqB,GAAG,uCAAuC,EAAE,CAAC,CAAC;YACpH,CAAC;QACH,CAAC;IACH,CAAC;IAED,IAAI,MAAM,CAAC,MAAM,EAAE,CAAC;QAClB,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,MAAM,CAAC,MAAM,CAAC,KAAK,CAAC,EAAE,CAAC;YACxC,MAAM,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,cAAc,EAAE,OAAO,EAAE,mCAAmC,EAAE,CAAC,CAAC;QACtF,CAAC;QACD,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,MAAM,CAAC,MAAM,CAAC,OAAO,CAAC,EAAE,CAAC;YAC1C,MAAM,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,gBAAgB,EAAE,OAAO,EAAE,mCAAmC,EAAE,CAAC,CAAC;QACxF,CAAC;IACH,CAAC;IAED,IAAI,MAAM,CAAC,WAAW,EAAE,CAAC;QACvB,IAAI,OAAO,MAAM,CAAC,WAAW,CAAC,GAAG,KAAK,QAAQ,IAAI,MAAM,CAAC,WAAW,CAAC,GAAG,GAAG,CAAC,EAAE,CAAC;YAC7E,MAAM,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,iBAAiB,EAAE,OAAO,EAAE,2BAA2B,EAAE,CAAC,CAAC;QACjF,CAAC;QACD,IAAI,OAAO,MAAM,CAAC,WAAW,CAAC,SAAS,KAAK,QAAQ,IAAI,MAAM,CAAC,WAAW,CAAC,SAAS,GAAG,CAAC,EAAE,CAAC;YACzF,MAAM,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,uBAAuB,EAAE,OAAO,EAAE,2BAA2B,EAAE,CAAC,CAAC;QACvF,CAAC;IACH,CAAC;IAED,IAAI,MAAM,CAAC,mBAAmB,EAAE,CAAC;QAC/B,IAAI,OAAO,MAAM,CAAC,mBAAmB,CAAC,SAAS,KAAK,QAAQ,IAAI,MAAM,CAAC,mBAAmB,CAAC,SAAS,GAAG,CAAC,EAAE,CAAC;YACzG,MAAM,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,+BAA+B,EAAE,OAAO,EAAE,2BAA2B,EAAE,CAAC,CAAC;QAC/F,CAAC;QACD,IAAI,OAAO,MAAM,CAAC,mBAAmB,CAAC,WAAW,KAAK,QAAQ,IAAI,MAAM,CAAC,mBAAmB,CAAC,WAAW,GAAG,CAAC,EAAE,CAAC;YAC7G,MAAM,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,iCAAiC,EAAE,OAAO,EAAE,2BAA2B,EAAE,CAAC,CAAC;QACjG,CAAC;IACH,CAAC;IAED,OAAO,MAAM,CAAC;AAChB,CAAC"}

package/dist/watch.d.ts

@@ -0,0 +1,9 @@
+import { LintConfig } from './types';
+interface WatchOptions {
+    rootDir: string;
+    format: 'default' | 'json';
+    config: LintConfig;
+}
+export declare function watchFiles(files: string[], options: WatchOptions): void;
+export {};
+//# sourceMappingURL=watch.d.ts.map

package/dist/watch.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"watch.d.ts","sourceRoot":"","sources":["../src/watch.ts"],"names":[],"mappings":"AAEA,OAAO,EAAE,UAAU,EAAS,MAAM,SAAS,CAAC;AAM5C,UAAU,YAAY;IACpB,OAAO,EAAE,MAAM,CAAC;IAChB,MAAM,EAAE,SAAS,GAAG,MAAM,CAAC;IAC3B,MAAM,EAAE,UAAU,CAAC;CACpB;AAED,wBAAgB,UAAU,CAAC,KAAK,EAAE,MAAM,EAAE,EAAE,OAAO,EAAE,YAAY,GAAG,IAAI,CA4CvE"}

package/dist/watch.js

@@ -0,0 +1,109 @@
+"use strict";
+var __createBinding = (this && this.__createBinding) || (Object.create ? (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    var desc = Object.getOwnPropertyDescriptor(m, k);
+    if (!desc || ("get" in desc ? !m.__esModule : desc.writable || desc.configurable)) {
+      desc = { enumerable: true, get: function() { return m[k]; } };
+    }
+    Object.defineProperty(o, k2, desc);
+}) : (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    o[k2] = m[k];
+}));
+var __setModuleDefault = (this && this.__setModuleDefault) || (Object.create ? (function(o, v) {
+    Object.defineProperty(o, "default", { enumerable: true, value: v });
+}) : function(o, v) {
+    o["default"] = v;
+});
+var __importStar = (this && this.__importStar) || (function () {
+    var ownKeys = function(o) {
+        ownKeys = Object.getOwnPropertyNames || function (o) {
+            var ar = [];
+            for (var k in o) if (Object.prototype.hasOwnProperty.call(o, k)) ar[ar.length] = k;
+            return ar;
+        };
+        return ownKeys(o);
+    };
+    return function (mod) {
+        if (mod && mod.__esModule) return mod;
+        var result = {};
+        if (mod != null) for (var k = ownKeys(mod), i = 0; i < k.length; i++) if (k[i] !== "default") __createBinding(result, mod, k[i]);
+        __setModuleDefault(result, mod);
+        return result;
+    };
+})();
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.watchFiles = watchFiles;
+const fs = __importStar(require("fs"));
+const path = __importStar(require("path"));
+const runner_1 = require("./runner");
+const formatters_1 = require("./formatters");
+const locale_1 = require("./locale");
+function watchFiles(files, options) {
+    const { rootDir, format, config } = options;
+    (0, locale_1.setLocale)(config.locale || 'zh');
+    // Initial lint
+    runLint(files, rootDir, format, config);
+    // Watch all files for changes
+    const watchers = [];
+    const watchedDirs = new Set();
+    for (const f of files) {
+        const dir = path.dirname(f);
+        if (!watchedDirs.has(dir)) {
+            watchedDirs.add(dir);
+            try {
+                const watcher = fs.watch(dir, (eventType, filename) => {
+                    if (!filename)
+                        return;
+                    const fullPath = path.join(dir, filename);
+                    if (files.includes(fullPath)) {
+                        // Debounce: wait a bit for the file to finish writing
+                        setTimeout(() => {
+                            runLint(files, rootDir, format, config);
+                        }, 200);
+                    }
+                });
+                watchers.push(watcher);
+            }
+            catch { /* ignore */ }
+        }
+    }
+    console.log(`\n${(0, locale_1.t)('index.watching')} (${files.length} files)`);
+    console.log((0, locale_1.t)('index.watch_hint'));
+    // Cleanup on exit
+    process.on('SIGINT', () => {
+        for (const w of watchers)
+            w.close();
+        process.exit(0);
+    });
+    process.on('SIGTERM', () => {
+        for (const w of watchers)
+            w.close();
+        process.exit(0);
+    });
+}
+function runLint(files, rootDir, format, config) {
+    // Clear console
+    process.stdout.write('\x1Bc');
+    const issues = (0, runner_1.lintFiles)(files, config, rootDir);
+    const fileContents = new Map();
+    for (const iss of issues) {
+        if (!fileContents.has(iss.file)) {
+            const fp = path.resolve(rootDir, iss.file);
+            try {
+                fileContents.set(iss.file, fs.readFileSync(fp, 'utf-8'));
+            }
+            catch { /* ignore */ }
+        }
+    }
+    if (format === 'json') {
+        console.log((0, formatters_1.formatJson)(issues));
+    }
+    else {
+        console.log((0, formatters_1.formatDefault)(issues, fileContents));
+    }
+    const errorCount = issues.filter(i => i.severity === 'error').length;
+    const warningCount = issues.filter(i => i.severity === 'warn').length;
+    console.log(`\n[${new Date().toLocaleTimeString()}] ${(0, locale_1.t)('index.watch_status', files.length, errorCount, warningCount)}`);
+}
+//# sourceMappingURL=watch.js.map

package/dist/watch.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"watch.js","sourceRoot":"","sources":["../src/watch.ts"],"names":[],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAcA,gCA4CC;AA1DD,uCAAyB;AACzB,2CAA6B;AAE7B,qCAAqC;AACrC,6CAAyD;AAEzD,qCAAwC;AAQxC,SAAgB,UAAU,CAAC,KAAe,EAAE,OAAqB;IAC/D,MAAM,EAAE,OAAO,EAAE,MAAM,EAAE,MAAM,EAAE,GAAG,OAAO,CAAC;IAC5C,IAAA,kBAAS,EAAC,MAAM,CAAC,MAAM,IAAI,IAAI,CAAC,CAAC;IAEjC,eAAe;IACf,OAAO,CAAC,KAAK,EAAE,OAAO,EAAE,MAAM,EAAE,MAAM,CAAC,CAAC;IAExC,8BAA8B;IAC9B,MAAM,QAAQ,GAAmB,EAAE,CAAC;IACpC,MAAM,WAAW,GAAG,IAAI,GAAG,EAAU,CAAC;IAEtC,KAAK,MAAM,CAAC,IAAI,KAAK,EAAE,CAAC;QACtB,MAAM,GAAG,GAAG,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC;QAC5B,IAAI,CAAC,WAAW,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC;YAC1B,WAAW,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;YACrB,IAAI,CAAC;gBACH,MAAM,OAAO,GAAG,EAAE,CAAC,KAAK,CAAC,GAAG,EAAE,CAAC,SAAS,EAAE,QAAQ,EAAE,EAAE;oBACpD,IAAI,CAAC,QAAQ;wBAAE,OAAO;oBACtB,MAAM,QAAQ,GAAG,IAAI,CAAC,IAAI,CAAC,GAAG,EAAE,QAAQ,CAAC,CAAC;oBAC1C,IAAI,KAAK,CAAC,QAAQ,CAAC,QAAQ,CAAC,EAAE,CAAC;wBAC7B,sDAAsD;wBACtD,UAAU,CAAC,GAAG,EAAE;4BACd,OAAO,CAAC,KAAK,EAAE,OAAO,EAAE,MAAM,EAAE,MAAM,CAAC,CAAC;wBAC1C,CAAC,EAAE,GAAG,CAAC,CAAC;oBACV,CAAC;gBACH,CAAC,CAAC,CAAC;gBACH,QAAQ,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC;YACzB,CAAC;YAAC,MAAM,CAAC,CAAC,YAAY,CAAC,CAAC;QAC1B,CAAC;IACH,CAAC;IAED,OAAO,CAAC,GAAG,CAAC,KAAK,IAAA,UAAC,EAAC,gBAAgB,CAAC,KAAK,KAAK,CAAC,MAAM,SAAS,CAAC,CAAC;IAChE,OAAO,CAAC,GAAG,CAAC,IAAA,UAAC,EAAC,kBAAkB,CAAC,CAAC,CAAC;IAEnC,kBAAkB;IAClB,OAAO,CAAC,EAAE,CAAC,QAAQ,EAAE,GAAG,EAAE;QACxB,KAAK,MAAM,CAAC,IAAI,QAAQ;YAAE,CAAC,CAAC,KAAK,EAAE,CAAC;QACpC,OAAO,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IAClB,CAAC,CAAC,CAAC;IAEH,OAAO,CAAC,EAAE,CAAC,SAAS,EAAE,GAAG,EAAE;QACzB,KAAK,MAAM,CAAC,IAAI,QAAQ;YAAE,CAAC,CAAC,KAAK,EAAE,CAAC;QACpC,OAAO,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IAClB,CAAC,CAAC,CAAC;AACL,CAAC;AAED,SAAS,OAAO,CAAC,KAAe,EAAE,OAAe,EAAE,MAA0B,EAAE,MAAkB;IAC/F,gBAAgB;IAChB,OAAO,CAAC,MAAM,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC;IAE9B,MAAM,MAAM,GAAG,IAAA,kBAAS,EAAC,KAAK,EAAE,MAAM,EAAE,OAAO,CAAC,CAAC;IAEjD,MAAM,YAAY,GAAG,IAAI,GAAG,EAAkB,CAAC;IAC/C,KAAK,MAAM,GAAG,IAAI,MAAM,EAAE,CAAC;QACzB,IAAI,CAAC,YAAY,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC;YAChC,MAAM,EAAE,GAAG,IAAI,CAAC,OAAO,CAAC,OAAO,EAAE,GAAG,CAAC,IAAI,CAAC,CAAC;YAC3C,IAAI,CAAC;gBACH,YAAY,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,EAAE,EAAE,CAAC,YAAY,CAAC,EAAE,EAAE,OAAO,CAAC,CAAC,CAAC;YAC3D,CAAC;YAAC,MAAM,CAAC,CAAC,YAAY,CAAC,CAAC;QAC1B,CAAC;IACH,CAAC;IAED,IAAI,MAAM,KAAK,MAAM,EAAE,CAAC;QACtB,OAAO,CAAC,GAAG,CAAC,IAAA,uBAAU,EAAC,MAAM,CAAC,CAAC,CAAC;IAClC,CAAC;SAAM,CAAC;QACN,OAAO,CAAC,GAAG,CAAC,IAAA,0BAAa,EAAC,MAAM,EAAE,YAAY,CAAC,CAAC,CAAC;IACnD,CAAC;IAED,MAAM,UAAU,GAAG,MAAM,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,QAAQ,KAAK,OAAO,CAAC,CAAC,MAAM,CAAC;IACrE,MAAM,YAAY,GAAG,MAAM,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,QAAQ,KAAK,MAAM,CAAC,CAAC,MAAM,CAAC;IACtE,OAAO,CAAC,GAAG,CAAC,MAAM,IAAI,IAAI,EAAE,CAAC,kBAAkB,EAAE,KAAK,IAAA,UAAC,EAAC,oBAAoB,EAAE,KAAK,CAAC,MAAM,EAAE,UAAU,EAAE,YAAY,CAAC,EAAE,CAAC,CAAC;AAC3H,CAAC"}

package/lib/lint-sbcl.lisp

@@ -1,14 +1,49 @@
 ;; @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>
+;; 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 ──────────────────────────────────
-;; File format: alist ((name use*) ...) — valid Lisp data
 (defun load-stub-packages (file-path)
   (flet ((ensure-pkg (name &optional use-list)
            (unless (find-package name)
@@ -52,11 +87,10 @@
         (let ((msg (princ-to-string e)))
           (cond
             ((search "not found" msg)
-             (format t "~%  [NOTE] ~a: ~a~%" rel
-                     (subseq msg 0 (min 80 (length msg))))
+             (format t "~%  [NOTE] ~a: ~a~%" rel (i18n :not-found))
              (incf *warnings*))
             (t
-             (format t "FAIL~%  [ERROR] ~a: ~a~%" rel e)
+             (format t "~a~%  [ERROR] ~a: ~a~%" (i18n :fail) rel (i18n :syntax-error))
              (incf *errors*)
              (return-from check-file))))))
     ;; Trailing whitespace
@@ -67,7 +101,7 @@
             when (and (> (length line) 0)
                       (find (char line (1- (length line))) '(#\Space #\Tab)))
               do (progn
-                   (format t "~%  [WARN] ~a line ~d: trailing whitespace~%" rel lineno)
+                   (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)
@@ -75,19 +109,19 @@
         (file-position s 0)
         (read-sequence content s)
         (when (search "#(" content)
-          (format t "~%  [WARN] ~a: #( vector syntax (not valid in AutoLISP)~%" rel)
+          (format t "~%  [WARN] ~a: ~a~%" rel (i18n :vec-syntax))
           (incf *warnings*))
         (when (search "#\\" content)
-          (format t "~%  [WARN] ~a: #\\ character literal syntax (not valid in AutoLISP)~%" rel)
+          (format t "~%  [WARN] ~a: ~a~%" rel (i18n :char-syntax))
           (incf *warnings*))
         (when (search "#." content)
-          (format t "~%  [WARN] ~a: #. read-time eval syntax (not valid in AutoLISP)~%" rel)
+          (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: defmacro (not valid in AutoLISP)~%" rel)
+          (format t "~%  [WARN] ~a: ~a~%" rel (i18n :defmacro))
           (incf *warnings*))))
-    (format t "OK~%")))
+    (format t "~a~%" (i18n :ok))))
 
 ;; ── Main ──────────────────────────────────────────────────────────────
 (defun main ()
@@ -99,25 +133,26 @@
                           '(".vscode" "test" "experiment" "tools" ".git")))
          (defmacro-allow (if (fourth args)
                             (read-from-string (fourth args))
-                            '("compat-cl"))))
-    ;; Load stub packages for CAD runtime symbols
+                            '("compat-cl")))
+         (locale (fifth args)))
+    (when locale (setf *locale* locale))
     (load-stub-packages stub-file)
 
     (format t "~%==================================================~%")
-    (format t "  @lisp SBCL Lint~%")
-    (format t "  Source: ~a~%" (namestring (pathname src-dir)))
+    (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 "  Found ~d .lsp files~%~%" (length files))
+      (format t "~a~%~%" (format nil (i18n :found) (length files)))
       (dolist (f files)
         (check-file f src-dir defmacro-allow)))
 
     (format t "~%==================================================~%")
-    (format t "  Scanned: ~d files~%" *checked*)
-    (format t "  Errors: ~d~%" *errors*)
-    (format t "  Warnings: ~d~%" *warnings*)
+    (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)

package/package.json

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