2021-04-04 09:45:45 +02:00
|
|
|
|
|
|
|
|
(defun_header
|
2023-07-22 15:29:32 +02:00
|
|
|
function_name: (sym_lit) @local.definition.function (#set! definition.function.scope "parent"))
|
2021-04-04 09:45:45 +02:00
|
|
|
(defun_header
|
2023-07-22 15:29:32 +02:00
|
|
|
lambda_list: (list_lit (sym_lit) @local.definition.parameter))
|
2021-04-04 09:45:45 +02:00
|
|
|
|
|
|
|
|
(defun_header
|
|
|
|
|
keyword: (defun_keyword "defmethod")
|
2023-07-22 15:29:32 +02:00
|
|
|
lambda_list: (list_lit (list_lit . (sym_lit) . (sym_lit) @local.definition.type)))
|
2021-04-04 09:45:45 +02:00
|
|
|
(defun_header
|
2023-07-22 15:29:32 +02:00
|
|
|
lambda_list: (list_lit (list_lit . (sym_lit) @local.definition.parameter . (_))))
|
2021-04-04 09:45:45 +02:00
|
|
|
|
2023-07-22 15:29:32 +02:00
|
|
|
(sym_lit) @local.reference
|
2021-04-04 09:45:45 +02:00
|
|
|
|
2023-07-22 15:29:32 +02:00
|
|
|
(defun) @local.scope
|
2021-04-04 09:45:45 +02:00
|
|
|
|
2023-07-22 15:29:32 +02:00
|
|
|
((list_lit . (sym_lit) @_defvar . (sym_lit) @local.definition.var)
|
2021-04-04 09:45:45 +02:00
|
|
|
(#match? @_defvar "^(cl:)?(defvar|defparameter)$"))
|
|
|
|
|
|
|
|
|
|
(list_lit
|
|
|
|
|
.
|
|
|
|
|
(sym_lit) @_deftest
|
|
|
|
|
.
|
2023-07-22 15:29:32 +02:00
|
|
|
(sym_lit) @local.definition.function
|
|
|
|
|
(#eq? @_deftest "deftest")) @local.scope
|
2021-04-04 09:45:45 +02:00
|
|
|
|
|
|
|
|
(list_lit
|
|
|
|
|
.
|
|
|
|
|
(sym_lit) @_deftest
|
|
|
|
|
.
|
2023-07-22 15:29:32 +02:00
|
|
|
(sym_lit) @local.definition.function
|
|
|
|
|
(#eq? @_deftest "deftest")) @local.scope
|
2021-04-04 09:45:45 +02:00
|
|
|
|
2023-07-22 15:29:32 +02:00
|
|
|
(for_clause . (sym_lit) @local.definition.var)
|
|
|
|
|
(with_clause . (sym_lit) @local.definition.var)
|
|
|
|
|
(loop_macro) @local.scope
|
2021-04-04 09:45:45 +02:00
|
|
|
|
|
|
|
|
(list_lit
|
|
|
|
|
.
|
|
|
|
|
(sym_lit) @_let (#match? @_let "(cl:|cffi:)?(with-accessors|with-foreign-objects|let[*]?)")
|
|
|
|
|
.
|
2023-07-22 15:29:32 +02:00
|
|
|
(list_lit (list_lit . (sym_lit) @local.definition.var))) @local.scope
|
2021-04-04 09:45:45 +02:00
|
|
|
|
|
|
|
|
(list_lit
|
|
|
|
|
.
|
2021-04-20 00:06:08 +02:00
|
|
|
(sym_lit) @_let (#match? @_let "(cl:|alexandria:)?(with-gensyms|dotimes|with-foreign-object)")
|
2021-04-04 09:45:45 +02:00
|
|
|
.
|
2023-07-22 15:29:32 +02:00
|
|
|
(list_lit . (sym_lit) @local.definition.var)) @local.scope
|
2021-04-05 14:37:53 +02:00
|
|
|
|
|
|
|
|
(list_lit
|
|
|
|
|
.
|
|
|
|
|
(kwd_lit) @_import_from (#eq? @_import_from ":import-from")
|
|
|
|
|
.
|
|
|
|
|
(_)
|
2023-07-22 15:29:32 +02:00
|
|
|
(kwd_lit (kwd_symbol) @local.definition.import))
|
2021-04-05 14:37:53 +02:00
|
|
|
|
|
|
|
|
(list_lit
|
|
|
|
|
.
|
|
|
|
|
(kwd_lit) @_import_from (#eq? @_import_from ":import-from")
|
|
|
|
|
.
|
|
|
|
|
(_)
|
2023-07-22 15:29:32 +02:00
|
|
|
(sym_lit) @local.definition.import)
|
2021-04-05 14:37:53 +02:00
|
|
|
|
|
|
|
|
(list_lit
|
|
|
|
|
.
|
|
|
|
|
(kwd_lit) @_use (#eq? @_use ":use")
|
2023-07-22 15:29:32 +02:00
|
|
|
(kwd_lit (kwd_symbol) @local.definition.import))
|
2021-04-05 14:37:53 +02:00
|
|
|
|
|
|
|
|
(list_lit
|
|
|
|
|
.
|
|
|
|
|
(kwd_lit) @_use (#eq? @_use ":use")
|
2023-07-22 15:29:32 +02:00
|
|
|
(sym_lit) @local.definition.import)
|
