bat/assets/patches/Lisp.sublime-syntax.patch

2366 lines
74 KiB
Diff
Raw Normal View History

2024-05-27 22:22:07 +02:00
diff --git syntaxes/01_Packages/Lisp/Lisp.sublime-syntax syntaxes/01_Packages/Lisp/Lisp.sublime-syntax
2024-05-27 21:52:26 +02:00
index 50e5dad3..44a9795d 100644
2024-05-27 22:22:07 +02:00
--- syntaxes/01_Packages/Lisp/Lisp.sublime-syntax
+++ syntaxes/01_Packages/Lisp/Lisp.sublime-syntax
2024-05-27 21:52:26 +02:00
@@ -1,11 +1,14 @@
%YAML 1.2
---
-# http://www.sublimetext.com/docs/3/syntax.html
+# https://www.sublimetext.com/docs/syntax.html
#
# `Common Lisp` Language Reference:
-# http://www.cs.cmu.edu/Groups/AI/html/cltl/clm/index.html
-#
+# https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/index.html
+# https://www.lispworks.com/documentation/lw70/CLHS/Front/Contents.htm
name: Lisp
+scope: source.lisp
+version: 2
+
file_extensions:
- lisp
- cl
@@ -17,108 +20,2268 @@ file_extensions:
- ss
- lsp
- fasl # Scheme dialect of Lisp
-scope: source.lisp
+ - sld # Scheme r7rs library
+
+first_line_match: |-
+ (?xi:
+ ^ \s* ; .*? -\*- .*? \blisp\b .*? -\*- # editorconfig
+ )
+
+###############################################################################
+
contexts:
main:
- - include: comments
+ - include: statements
+
+ statements:
- include: parens
+ - include: expressions
+ - match: \)
+ scope: invalid.illegal.stray-bracket-end.lisp
expressions:
- include: comments
- include: numbers
- - include: constants
- include: strings
- - include: variables
+ - include: annotations
+ - include: keywords
+ - include: quotes
+ - include: macros
+ - include: modifiers
+ - include: identifiers
+
+###[ COMMENTS ]################################################################
+
+ comments:
+ - include: line-comments
+ - include: block-comments
+ - match: \|#
+ scope: invalid.illegal.stray-comment-end.lisp
+
+ block-comments:
+ - match: '#\|'
+ scope: punctuation.definition.comment.begin.lisp
+ push: block-comment-body
+
+ block-comment-body:
+ - meta_scope: comment.block.lisp
+ - match: '\|#'
+ scope: punctuation.definition.comment.end.lisp
+ pop: 1
+ - include: block-comments
+
+ line-comments:
+ - match: ;+
+ scope: punctuation.definition.comment.lisp
+ push: line-comment-body
+
+ line-comment-body:
+ - meta_scope: comment.line.semicolon.lisp
+ - match: $\n?
+ pop: 1
+
+###[ PARENTHESES ]#############################################################
+
+ parens:
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ push:
+ - paren-body
+ - paren-begin
+
+ paren-begin:
+ - include: class-declaration
+ - include: function-declaration
+ - include: macro-declaration
+ - include: struct-declaration
+ - include: type-declaration
+ - include: variable-declaration
+ - include: other-declaration
+ - include: declare
- include: control
- - include: functions
- - include: operators
+ - include: loop
+ - include: operator
+ - include: quote
+ - include: namespaces
+ - include: builtin-function
+ - include: other-function
+ - include: comments
+ - include: else-pop
- variables:
- - match: (\*)(?i:trace-output|terminal-io|suppress-series-warnings|standard-output|standard-input|readtable|read-suppress|read-eval|read-default-float-format|read-base|random-state|query-io|print-right-margin|print-readably|print-radix|print-pretty|print-pprint-dispatch|print-miser-width|print-lines|print-level|print-length|print-gensym|print-escape|print-circle|print-case|print-base|print-array|package|modules|macroexpand-hook|load-verbose|load-truename|load-print|load-pathname|gensym-counter|features|evalhook|error-output|default-pathname-defaults|debugger-hook|debug-io|compile-verbose|compile-print|compile-file-truename|compile-file-pathname|break-on-warnings|break-on-signals|applyhook)(\*)
- scope: variable.language.lisp
+ paren-body:
+ - meta_scope: meta.parens.lisp
+ - include: paren-end
+ - include: parens
+ - include: expressions
+
+ paren-end:
+ - meta_include_prototype: false
+ - meta_scope: meta.parens.lisp
+ - match: \)
+ scope: punctuation.section.parens.end.lisp
+ pop: 1
+
+###[ LISTS ]###################################################################
+
+ expect-list:
+ # a list expression
+ # skips function-like parentheses on next level
+ - meta_include_prototype: false
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ set: paren-body
+ - include: comments
+ - include: else-pop
+
+ expect-lists-list:
+ # a list of list expressions
+ # skips function-like parentheses on next 2 levels
+ - meta_include_prototype: false
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ set: lists-list-body
+ - include: comments
+ - include: else-pop
+
+ lists-list-body:
+ - meta_scope: meta.parens.lisp
+ - include: paren-end
+ - include: lists
+ - include: expressions
+
+ lists:
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ push: paren-body
+
+###[ QUOTED EXPRESSIONS ]######################################################
+
+ quotes:
+ # abbreviation of (quote ...) function
+ - match: \'
+ scope: punctuation.definition.quoted.lisp
+ push: quoted-content
+
+ quoted-content:
+ - meta_include_prototype: false
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ set: quoted-paren-body
+ # A quoted symbol evaluates to the symbol.
+ - match: '{{identifier}}'
+ scope: constant.other.symbol.lisp
captures:
- 1: punctuation.definition.variable.begin.lisp
- 2: punctuation.definition.variable.end.lisp
- - match: (\*)(\S*)(\*)
- scope: variable.other.global.lisp
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ - include: immediately-pop
+
+ quoted-parens:
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ push: quoted-paren-body
+
+ quoted-paren-body:
+ - meta_scope: meta.parens.lisp
+ - include: paren-end
+ - include: quoted-parens
+ - include: expressions
+
+###[ CLASS DECLARATIONS ]######################################################
+
+ class-declaration:
+ # https://www.lispworks.com/documentation/lw70/CLHS/Body/m_defcla.htm
+ - match: (?i:defclass|define-class){{break}}
+ scope: meta.class.lisp keyword.declaration.class.lisp
+ set:
+ - class-declaration-slots
+ - class-declaration-parent-list
+ - class-declaration-name
+
+ class-declaration-name:
+ - match: '{{identifier}}'
+ scope: entity.name.class.lisp
captures:
- 1: punctuation.definition.variable.begin.lisp
- 3: punctuation.definition.variable.end.lisp
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ - include: comments
+ - include: else-pop
+
+ class-declaration-parent-list:
+ - meta_include_prototype: false
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ set: class-declaration-parent-list-body
+ - include: comments
+ - include: else-pop
+
+ class-declaration-parent-list-body:
+ - meta_scope: meta.parens.lisp
+ - include: namespaces
+ - match: '{{identifier}}'
+ scope: entity.other.inherited-class.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ - include: comments
+ - include: paren-end
+
+ class-declaration-slots:
+ - meta_content_scope: meta.class.lisp
+ - include: paren-pop
+ - include: lists
+ - include: expressions
+
+###[ FUNCTION DECLARATIONS ]###################################################
+
+ function-declaration:
+ # https://www.lispworks.com/documentation/HyperSpec/Body/s_lambda.htm
+ - match: (?i:lambda){{break}}
+ scope: meta.function.lisp keyword.declaration.function.inline.lisp
+ set:
+ - function-body
+ - function-parameter-list
+ # https://www.lispworks.com/documentation/HyperSpec/Body/m_defun.htm
+ - match: (?i:def(?:[a-z]+f)?un|defgeneric|define-(?:command(?:-global)?|parenscript)){{break}}
+ scope: meta.function.lisp keyword.declaration.function.lisp
+ set:
+ - function-body
+ - function-parameter-list
+ - function-declaration-name
+ # https://www.lispworks.com/documentation/HyperSpec/Body/m_defmet.htm
+ - match: (?i:defmethod){{break}}
+ scope: meta.function.lisp keyword.declaration.function.lisp
+ set:
+ - function-body
+ - function-parameter-list
+ - method-qualifier
+ - function-declaration-name
+ # https://www.lispworks.com/documentation/HyperSpec/Body/s_flet_.htm
+ - match: (?i:flet|labels){{break}}
+ scope: keyword.declaration.function.lisp
+ set: function-declaration-list
+
+ function-declaration-list:
+ - meta_include_prototype: false
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ set: function-declaration-list-body
+ - include: comments
+ - include: else-pop
+
+ function-declaration-list-body:
+ - meta_scope: meta.parens.lisp
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ push:
+ - paren-end
+ - function-body
+ - function-parameter-list
+ - function-declaration-name
+ - include: comments
+ - include: paren-end
+
+ function-declaration-name:
+ - include: namespaces
+ - match: '{{identifier}}'
+ scope: entity.name.function.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ - include: comments
+ - include: else-pop
+
+ method-qualifier:
+ # qualifiers may be anything but lists
+ - include: expressions
+ - include: else-pop
+
+ function-parameter-list:
+ - meta_include_prototype: false
+ - match: \(
+ scope: punctuation.section.parameters.begin.lisp
+ set: function-parameter-list-body
+ - include: comments
+ - include: else-pop
+
+ function-parameter-list-body:
+ - clear_scopes: 1
+ - meta_scope: meta.function.parameters.lisp
+ - match: \)
+ scope: punctuation.section.parameters.end.lisp
+ pop: 1
+ - include: comments
+ - include: annotations
+ - include: keywords
+ - include: modifiers
+ - include: parameters
+
+ function-body:
+ - meta_content_scope: meta.function.lisp
+ - include: paren-pop
+ - include: parens
+ - include: expressions
+
+###[ MACRO DECLARATIONS ]######################################################
+
+ macro-declaration:
+ # https://www.lispworks.com/documentation/HyperSpec/Body/m_defmac.htm
+ - match: (?i:defmacro){{break}}
+ scope: meta.macro.lisp keyword.declaration.macro.lisp
+ set:
+ - macro-body
+ - macro-parameter-list
+ - macro-declaration-name
+ # https://www.lispworks.com/documentation/HyperSpec/Body/s_flet_.htm
+ - match: (?i:macrolet){{break}}
+ scope: keyword.declaration.macro.lisp
+ set: macro-declaration-list
+
+ macro-declaration-list:
+ - meta_include_prototype: false
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ set: macro-declaration-list-body
+ - include: comments
+ - include: else-pop
+
+ macro-declaration-list-body:
+ - meta_scope: meta.parens.lisp
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ push:
+ - paren-end
+ - macro-body
+ - macro-parameter-list
+ - macro-declaration-name
+ - include: comments
+ - include: paren-end
+
+ macro-declaration-name:
+ - include: namespaces
+ - match: '{{identifier}}'
+ scope: entity.name.macro.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ - include: comments
+ - include: else-pop
+
+ macro-parameter-list:
+ - meta_include_prototype: false
+ - match: \(
+ scope: punctuation.section.parameters.begin.lisp
+ set: macro-parameter-list-body
+ - include: comments
+ - include: else-pop
+
+ macro-parameter-list-body:
+ - clear_scopes: 1
+ - meta_scope: meta.macro.parameters.lisp
+ - match: \)
+ scope: punctuation.section.parameters.end.lisp
+ pop: 1
+ - include: comments
+ - include: annotations
+ - include: keywords
+ - include: modifiers
+ - include: parameters
+
+ macro-body:
+ - meta_content_scope: meta.macro.lisp
+ - include: paren-pop
+ - include: parens
+ - include: expressions
+
+###[ STRUCT DECLARATIONS ]#####################################################
+
+ struct-declaration:
+ # https://www.lispworks.com/documentation/lw70/CLHS/Body/m_defstr.htm
+ - match: (?i:defstruct|define-struct){{break}}
+ scope: meta.struct.lisp keyword.declaration.struct.lisp
+ set:
+ - struct-declaration-body
+ - struct-declaration-name
+
+ struct-declaration-name:
+ - meta_include_prototype: false
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ set:
+ - paren-body
+ - struct-declaration-qualified-name
+ - include: struct-declaration-qualified-name
+
+ struct-declaration-qualified-name:
+ - include: namespaces
+ - match: '{{identifier}}'
+ scope: entity.name.struct.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ - include: comments
+ - include: else-pop
+
+ struct-declaration-body:
+ - meta_content_scope: meta.struct.lisp
+ - include: paren-pop
+ - include: lists
+ - include: expressions
+
+###[ TYPE DECLARATIONS ]#######################################################
+
+ type-declaration:
+ # https://www.lispworks.com/documentation/lw70/CLHS/Body/m_deftp.htm
+ - match: (?i:deftype|define-type){{break}}
+ scope: meta.type.lisp keyword.declaration.type.lisp
+ set:
+ - type-body
+ - type-parameter-list
+ - type-declaration-name
+
+ type-declaration-name:
+ - include: namespaces
+ - match: '{{identifier}}'
+ scope: entity.name.type.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ - include: comments
+ - include: else-pop
+
+ type-parameter-list:
+ - meta_include_prototype: false
+ - match: \(
+ scope: punctuation.section.parameters.begin.lisp
+ set: type-parameter-list-body
+ - include: comments
+ - include: else-pop
+
+ type-parameter-list-body:
+ - clear_scopes: 1
+ - meta_scope: meta.type.parameters.lisp
+ - match: \)
+ scope: punctuation.section.parameters.end.lisp
+ pop: 1
+ - include: comments
+ - include: annotations
+ - include: keywords
+ - include: modifiers
+ - include: parameters
+
+ type-body:
+ - meta_content_scope: meta.type.lisp
+ - include: paren-pop
+ - include: parens
+ - include: expressions
+
+###[ VARIABLE DECLARATIONS ]###################################################
+
+ variable-declaration:
+ # https://www.lispworks.com/documentation/HyperSpec/Body/s_let_l.htm
+ - match: (?i:let\*?){{break}}
+ scope: keyword.declaration.variable.lisp
+ set: variable-declaration-list
+ # https://www.lispworks.com/documentation/lw445/CLHS/Body/m_defcon.htm
+ - match: (?i:defconstant){{break}}
+ scope: meta.declaration.lisp keyword.declaration.constant.lisp
+ set: constant-declaration-name
+ # https://www.lispworks.com/documentation/HyperSpec/Body/m_defpar.htm
+ - match: (?i:defparameter|defvar){{break}}
+ scope: meta.declaration.lisp keyword.declaration.variable.lisp
+ set: variable-declaration-name
+
+ variable-declaration-list:
+ - meta_include_prototype: false
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ set: variable-declaration-list-body
+ - include: comments
+ - include: else-pop
+
+ variable-declaration-list-body:
+ - meta_scope: meta.parens.lisp
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ push:
+ - paren-body
+ - variable-declaration-name
+ - match: '{{identifier}}'
+ scope: meta.declaration.lisp variable.other.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ - include: comments
+ - include: paren-end
+
+ constant-declaration-name:
+ - meta_content_scope: meta.declaration.lisp
+ - match: '{{identifier}}'
+ scope: meta.declaration.lisp constant.other.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ - include: comments
+ - include: else-pop
+
+ variable-declaration-name:
+ - meta_content_scope: meta.declaration.lisp
+ - match: '{{identifier}}'
+ scope: meta.declaration.lisp variable.other.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ - include: comments
+ - include: else-pop
+
+###[ OTHER DECLARATIONS ]######################################################
+
+ other-declaration:
+ - match: '{{declaration_keywords}}'
+ scope: keyword.declaration.lisp
+ pop: 1
+
+###[ DECLARE STATEMENTS ]######################################################
+
+ declare:
+ # https://www.lispworks.com/documentation/HyperSpec/Body/s_declar.htm
+ - match: (?i:declare){{break}}
+ scope: keyword.declaration.declare.lisp
+ set: declare-specifier-list
+
+ declare-specifier-list:
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
+ push:
+ - paren-body
+ - declare-identifier
+ - include: comments
+ - include: else-pop
+
+ declare-identifier:
+ - match: '{{declaration_identifiers}}'
+ scope: storage.modifier.lisp
+ pop: 1
+ - include: comments
+ - include: else-pop
+
+###[ CONTROL FLOW STATEMENTS ]#################################################
control:
- - match: \b(?i:with|while|when|unless|typecase|to|thereis|then|return-from name|return|repeat|prog*|prog|never|named|maplist|mapl|mapcon|mapcar|mapcan|mapc|loop|let|initially|if|from|for|finally|etypecase|else|dotimes|dolist|doing|do*|do|ctypecase|cond|case|block|as|always)\b
+ # Conditional
+ - match: (?i:if|case|cond|otherwise|unless|when|[ce]?typecase){{break}}
+ scope: keyword.control.conditional.lisp
+ pop: 1
+ # Flow
+ - match: (?i:return(?:-from)?){{break}}
+ scope: keyword.control.flow.return.lisp
+ pop: 1
+ # Loop
+ # https://www.lispworks.com/documentation/lw70/CLHS/Body/m_dolist.htm
+ # https://www.lispworks.com/documentation/lw70/CLHS/Body/m_dotime.htm
+ - match: (?i:dolist|dotimes){{break}}
+ scope: keyword.control.loop.lisp
+ set: expect-list
+ # https://www.lispworks.com/documentation/lw70/CLHS/Body/m_do_do.htm
+ - match: (?i:do\*?|do-(?:all-|external-)?symbols|iterate){{break}}
+ scope: keyword.control.loop.lisp
+ set: expect-lists-list
+ # Other
+ - match: (?xi:block|map(?:can|car|con|c|list|l)){{break}}
scope: keyword.control.lisp
+ pop: 1
+
+###[ LOOP STATEMENTS ]#########################################################
+
+ loop:
+ # https://www.lispworks.com/documentation/lw70/CLHS/Body/06_a.htm
+ # https://www.lispworks.com/documentation/lw70/CLHS/Body/m_loop.htm
+ - match: (?i:loop){{break}}
+ scope: keyword.control.loop.lisp
+ set: loop-body
+
+ loop-body:
+ - meta_scope: meta.loop.lisp
+ - include: paren-pop
+
+ # declaration keywords
+ - match: (?i:named){{break}}
+ scope: keyword.declaration.name.lisp
+ push: loop-name
+ - match: (?i:with){{break}}
+ scope: keyword.declaration.variable.lisp
+
+ # loop termination test keywords
+ - match: (?i:always|as|do|doing|for|never|repeat|thereis|until|while){{break}}
+ scope: keyword.control.loop.lisp
+ # conditional keywords
+ - match: (?i:end|else|if|then|unless|when){{break}}
+ scope: keyword.control.conditional.lisp
+ # control flow keywords
+ - match: (?i:finally|initially){{break}}
+ scope: keyword.control.flow.lisp
+ - match: (?i:return(?:-from)?){{break}}
+ scope: keyword.control.flow.return.lisp
- functions:
- - match: \b(?i:(defun|defmethod|defmacro))\b\s+([\w\-!?<>]*)
- scope: meta.function.lisp
+ # operator keywords
+ - match: ={{break}} # can be both, assignment and comparison
+ scope: keyword.operator.lisp
+ - match: (?i:into){{break}}
+ scope: keyword.operator.assignment.lisp
+ - match: (?i:and){{break}}
+ scope: keyword.operator.logical.lisp
+ - match: |-
+ (?xi: across | above | being | below | by | each | in | of | on | the
+ | (?:down|up)?to | (?:up)?from | using ){{break}}
+ scope: keyword.other.loop.lisp
+
+ # expressions
+ - include: comments
+ - include: parens
+ - include: numbers
+ - include: strings
+ - include: annotations
+ - include: keywords
+ - include: quotes
+ - include: macros
+ - include: modifiers
+ - match: (?={{identifier}})
+ push: loop-identifier
+
+ loop-identifier:
+ - include: builtin-function
+ - include: identifier
+
+ loop-name:
+ - match: '{{identifier}}'
+ scope: entity.name.loop.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ - include: comments
+ - include: else-pop
+
+###[ QUOTE STATEMENTS ]########################################################
+
+ quote:
+ - match: (?i:quote){{break}}
+ scope: meta.function-call.lisp support.function.lisp
+ set: quote-args
+
+ quote-args:
+ - include: paren-pop
+ - include: quoted-parens
+ - include: expressions
+
+###[ FUNCTIONS ]###############################################################
+
+ builtin-function:
+ - match: '{{builtin_functions}}'
+ scope: meta.function-call.lisp support.function.lisp
+ pop: 1
+
+ other-function:
+ # functions starting with `make-` are most likely used as constructors
+ - match: make-{{identifier}}
+ scope: meta.function-call.lisp variable.function.constructor.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ # mutating functions changing data in-place end with !
+ - match: (?![+*#`'&]\S){{identifier}}\!{{break}}
+ scope: meta.function-call.lisp variable.function.mutating.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ # predicate functions returning boolean values end with ? or -p
+ - match: (?![+*#`'&]\S){{identifier}}(?:\?|-p){{break}}
+ scope: meta.function-call.lisp variable.function.predicate.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ # anything not looking like global variable, constant or macro
+ - match: (?![+*#`'&]\S|{{builtin_constants}}|{{builtin_types}}){{identifier}}
+ scope: meta.function-call.lisp variable.function.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+
+###[ MACROS ]##################################################################
+
+ macros:
+ # https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node191.html
+ - include: macro-arrays
+ - include: macro-characters
+ - include: macro-conditionals
+ - include: macro-functions
+ - include: macro-numbers
+ - include: macro-pathnames
+ - include: macro-structures
+ - include: macro-throw-exceptions
+ - include: macro-variables
+ - include: macro-vectors
+
+ macro-conditionals:
+ # Feature-flags
+ - match: (#[-+])({{identifier}})?
+ captures:
+ 1: keyword.control.conditional.lisp
+ 2: constant.other.feature.lisp
+ 3: punctuation.definition.symbol.begin.lisp
+ 4: punctuation.definition.symbol.end.lisp
+
+ macro-arrays:
+ # https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node29.html
+ - match: (#\d*[aA])(\()
+ captures:
+ 1: punctuation.definition.array.lisp
+ 2: meta.parens.lisp punctuation.section.parens.begin.lisp
+ push: macro-array-body
+ - match: (#\d*[aA])({{identifier}})
+ captures:
+ 1: punctuation.definition.array.lisp
+ 2: variable.other.lisp
+ 3: punctuation.definition.symbol.begin.lisp
+ 4: punctuation.definition.symbol.end.lisp
+
+ macro-array-body:
+ - meta_scope: meta.array.lisp
+ - meta_content_scope: meta.parens.lisp
+ - match: \)
+ scope: meta.parens.lisp punctuation.section.parens.end.lisp
+ pop: 1
+ - include: parens
+ - include: expressions
+
+ macro-characters:
+ # Standard Characters
+ # https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node22.html
+ # Non-Standard Characters
+ # https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node24.html
+ # Character Attributes
+ # https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node25.html
+ - match: (#(\d*)\\){{char_attributes}}?(?i:Space|NewLine){{break}}
+ scope: constant.character.standard.lisp
+ captures:
+ 1: punctuation.definition.constant.lisp
+ 2: storage.modifier.attributes.lisp
+ - match: (#(\d*)\\){{char_attributes}}?(?i:Backspace|Tab|Linefeed|Page|Return|RubOut){{break}}
+ scope: constant.character.semi-standard.lisp
+ captures:
+ 1: punctuation.definition.constant.lisp
+ 2: storage.modifier.attributes.lisp
+ - match: (#(\d*)\\){{char_attributes}}?{{standard_char}}{{break}}
+ scope: constant.character.standard.lisp
captures:
- 1: storage.type.function-type.lisp
- 2: entity.name.function.lisp
- - match: \b(?i:zerop|yes-or-no-p|y-or-n-p|write-to-string|write-string|write-char|write-byte|write|with-standard-io-syntax|with-slots|with-simple-restart|with-package-iterator|with-output-to-string|with-open-stream|with-open-file|with-input-from-string|with-hash-table-iterator|with-condition-restarts|with-compilation-unit|with-accessors|wild-pathname-p|warn|vectorp|vector-push-extend|vector-push|vector-pop|vector|variable-information|values-list|values|user-homedir-pathname|use-value|use-package|upper-case-p|upgraded-complex-part-type|upgraded-array-element-type|update-instance-for-redefined-class|update-instance-for-different-class|unuse-package|untrace|until-if|until|unread-char|union|unintern|unexport|typep|type-of|type-error-expected-type|type-error-datum|two-way-stream-output-stream|two-way-stream-input-stream|truncate|truename|tree-equal|translate-pathname|translate-logical-pathname|trace|to-alter|time|third|terpri|terminate-producing|tenth|tanh|tan|tailp|synonym-stream-symbol|symbolp|symbol-value|symbol-plist|symbol-package|symbol-name|symbol-function|sxhash|svref|summing|sum|subtypep|substitute-if-not|substitute-if|substitute|subst-if-not|subst-if|subst|subsetp|subseries|subseq|sublis|stringp|string>=|string>|string=|string<=|string<|string/=|string-upcase|string-trim|string-right-trim|string-not-lessp|string-not-greaterp|string-not-equal|string-lessp|string-left-trim|string-greaterp|string-equal|string-downcase|string-char-p|string-capitalize|string|streamp|stream-external-format|stream-error-stream|stream-element-type|store-value|step|standard-char-p|stable-sort|sqrt|split-if|split|special-form-p|sort|some|software-version|software-type|slot-value|slot-unbound|slot-missing|slot-makunbound|slot-exists-p|slot-boundp|sleep|sixth|sinh|sin|simple-vector-p|simple-string-p|simple-condition-format-string|simple-condition-format-arguments|simple-bit-vector-p|signum|signal|short-site-name|shiftf|shared-initialize|shadowing-import|shadow|seventh|setq|setf|set-syntax-from-char|set-pprint-dispatch|set-macro-character|set-exclusive-or|set-dispatch-macro-character|set-difference|set-char-bit|set|series|second|search|schar|scan-symbols|scan-sublists|scan-range|scan-plist|scan-multiple|scan-lists-of-lists-fringe|scan-lists-of-lists|scan-hash|scan-fn-inclusive|scan-fn|scan-file|scan-alist|scan|scale-float|sbit|rplacd|rplaca|row-major-aref|round|rotatef|room|reverse|revappend|result-of|restart-name|restart-case|restart-bind|rest|require|replace|rename-package|rename-file|remprop|remove-method|remove-duplicates|remove|remhash|remf|reinitialize-instance|reduce|realpart|realp|readtablep|readtable-case|read-preserving-whitespace|read-line|read-from-string|read-delimited-list|read-char-no-hang|read-char|read-byte|read|rationalp|rationalize|rational|rassoc-if-not|rassoc-if|rassoc|random-state-p|random|quote|pushnew|push|psetq|psetf|provide|progn|prog2|prog1|producing|proclaim|probe-file|print-unreadable-object|print-object|print|prin1|previous|pprint-tabular|pprint-tab|pprint-pop|pprint-newline|pprint-logical-block|pprint-linear|pprint-indent|pprint-fill|pprint-exit-if-list-exhausted|pprint-dispatch|positions|position-if-not|position-if|position|pop|plusp|phase|peek-char|pathnamep|pathname-version|pathname-type|pathname-name|pathname-match-p|pathname-host|pathname-directory|pathname-device|pathname|parse-namestring|parse-macro|parse-integer|pairlis|packagep|package-used-by-list|package-use-list|package-shadowing-symbols|package-nicknames|package-name|package-error-package|output-stream-p|open-stream-p|open|oddp|nunion|numerator|numberp|nthcdr|nth-value|nth|nsubstitute-if-not|nsubstitute-if|nsubstitute|nsubst-if-not|nsubst-if|nsubst|nsublis|nstring-upcase|nstring-downcase|nstring-capitalize|nset-exclusive-or|nset-difference|nreverse|nreconc|notevery|notany|no-next-method|no-applicable-method|ninth|nintersection|next-out|next-method-p|next-in|nconcing|nconc|nbutlast|namestring|name-char|multiple-value-setq|multiple-value-list|multiple-value-bind|muffle-warning|mismatch|minusp|minimizing|minimize|mingle|method-qualifiers|method-comb
- scope: support.function.lisp
+ 1: punctuation.definition.constant.lisp
+ 2: storage.modifier.attributes.lisp
+ - match: (#(\d*)\\){{char_attributes}}?{{identifier_char}}+{{break}}
+ scope: constant.character.non-standard.lisp
+ captures:
+ 1: punctuation.definition.constant.lisp
+ 2: storage.modifier.attributes.lisp
+
+ macro-functions:
+ # Function reference
+ - match: \#[Mm']
+ scope: punctuation.definition.function.lisp
+ push: macro-function-name
+
+ macro-function-name:
+ - include: namespaces
+ - include: operator
+ - include: builtin-function
+ - include: other-function
+ - include: immediately-pop
+
+ macro-numbers:
+ # binary rational numbers
+ - match: |-
+ (?xi)
+ ( \#(?: b | 2r ) )
+ ( [-+]? )
+ ( [01]+ (/) [01]+ )
+ {{break}}
+ scope: meta.number.rational.binary.lisp
+ captures:
+ 1: constant.numeric.base.lisp
+ 2: keyword.operator.arithmetic.lisp
+ 3: constant.numeric.value.lisp
+ 4: keyword.operator.arithmetic.lisp
+ # binary integer numbers
+ - match: |-
+ (?xi)
+ ( \#(?: b | 2r ) )
+ ( [-+]? )
+ ( [01]+ (?: (\.)(?![01]) | {{break}} ) )
+ scope: meta.number.integer.binary.lisp
+ captures:
+ 1: constant.numeric.base.lisp
+ 2: keyword.operator.arithmetic.lisp
+ 3: constant.numeric.value.lisp
+ 4: punctuation.separator.decimal.lisp
+ # octal rational numbers
+ - match: |-
+ (?xi)
+ ( \#(?: o | 8r ) )
+ ( [-+]? )
+ ( [0-7]+ (/) [0-7]+ )
+ {{break}}
+ scope: meta.number.rational.octal.lisp
+ captures:
+ 1: constant.numeric.base.lisp
+ 2: keyword.operator.arithmetic.lisp
+ 3: constant.numeric.value.lisp
+ 4: keyword.operator.arithmetic.lisp
+ # octal integer numbers
+ - match: |-
+ (?xi)
+ ( \#(?: o | 8r ) )
+ ( [-+]? )
+ ( [0-7]+ (?: (\.)(?![0-7]) | {{break}} ) )
+ scope: meta.number.integer.octal.lisp
+ captures:
+ 1: constant.numeric.base.lisp
+ 2: keyword.operator.arithmetic.lisp
+ 3: constant.numeric.value.lisp
+ 4: punctuation.separator.decimal.lisp
+ # hexadecimal rational numbers
+ - match: |-
+ (?xi)
+ ( \#(?: x | 16r ) )
+ ( [-+]? )
+ ( \h+ (/) \h+ )
+ {{break}}
+ scope: meta.number.rational.hexadecimal.lisp
+ captures:
+ 1: constant.numeric.base.lisp
+ 2: keyword.operator.arithmetic.lisp
+ 3: constant.numeric.value.lisp
+ 4: keyword.operator.arithmetic.lisp
+ # hexadecimal integer numbers
+ - match: |-
+ (?xi)
+ ( \#(?: x | 16r ) )
+ ( [-+]? )
+ ( \h+ (?: (\.)(?!\h) | {{break}} ) )
+ scope: meta.number.integer.hexadecimal.lisp
+ captures:
+ 1: constant.numeric.base.lisp
+ 2: keyword.operator.arithmetic.lisp
+ 3: constant.numeric.value.lisp
+ 4: punctuation.separator.decimal.lisp
+ # radix rational numbers
+ - match: |-
+ (?xi)
+ ( \#\d+r )
+ ( [-+]? )
+ ( [[:alnum:]]+ (/) [[:alnum:]]+ )
+ {{break}}
+ scope: meta.number.rational.other.lisp
+ captures:
+ 1: constant.numeric.base.lisp
+ 2: keyword.operator.arithmetic.lisp
+ 3: constant.numeric.value.lisp
+ 4: keyword.operator.arithmetic.lisp
+ # radix integer numbers
+ - match: |-
+ (?xi)
+ ( \#\d+r )
+ ( [-+]? )
+ ( [[:alnum:]]+ (?: (\.)(?![[:alnum:]]) | {{break}} ) )
+ scope: meta.number.integer.other.lisp
+ captures:
+ 1: constant.numeric.base.lisp
+ 2: keyword.operator.arithmetic.lisp
+ 3: constant.numeric.value.lisp
+ 4: punctuation.separator.decimal.lisp
+ # complex numbers
+ - match: (#[cC])(\()
+ captures:
+ 1: punctuation.definition.complex.lisp
+ 2: meta.parens.lisp punctuation.section.parens.begin.lisp
+ push: macro-numbers-complex-body
+
+ macro-numbers-complex-body:
+ - meta_scope: meta.number.complex.lisp
+ - meta_content_scope: meta.parens.lisp
+ - match: \)
+ scope: meta.parens.lisp punctuation.section.parens.end.lisp
+ pop: 1
+ - include: parens
+ - include: expressions
- operators:
- - match: '\/\=|\>\=|\<\=|\=|\>|\<|\b(?i:max|min|eq|neq|eql|equalp|equal)\b'
+ macro-pathnames:
+ - match: (#\d*[pP])(\")
+ captures:
+ 1: punctuation.definition.pathname.lisp
+ 2: string.quoted.double.lisp punctuation.definition.string.begin.lisp
+ push: macro-pathname-body
+
+ macro-pathname-body:
+ - meta_scope: meta.path.lisp
+ - meta_content_scope: string.quoted.double.lisp
+ - match: \"
+ scope: string.quoted.double.lisp punctuation.definition.string.end.lisp
+ pop: 1
+ - match: \\.
+ scope: constant.character.escape.lisp
+
+ macro-structures:
+ # Structures
+ # https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node39.html
+ - match: (#\d*[sS])(\()
+ captures:
+ 1: punctuation.definition.struct.lisp
+ 2: meta.parens.lisp punctuation.section.parens.begin.lisp
+ push:
+ - macro-struct-body
+ - macro-struct-name
+
+ macro-struct-name:
+ - match: '{{identifier}}'
+ scope: entity.name.struct.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ - include: else-pop
+
+ macro-struct-body:
+ - meta_scope: meta.struct.lisp
+ - meta_content_scope: meta.parens.lisp
+ - match: \)
+ scope: meta.parens.lisp punctuation.section.parens.end.lisp
+ pop: 1
+ - include: lists
+ - include: expressions
+
+ macro-vectors:
+ # Vector
+ # https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node30.html
+ - match: (#\d*)(\()
+ captures:
+ 1: punctuation.definition.vector.lisp
+ 2: meta.parens.lisp punctuation.section.parens.begin.lisp
+ push: macro-vector-body
+ # Bit vector
+ # https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node32.html
+ - match: (#\d*\*)([01]*){{break}}
+ scope: meta.vector.lisp
+ captures:
+ 1: punctuation.definition.vector.lisp
+ 2: meta.number.integer.binary constant.numeric.value.lisp
+
+ macro-vector-body:
+ - meta_scope: meta.vector.lisp
+ - meta_content_scope: meta.parens.lisp
+ - match: \)
+ scope: meta.parens.lisp punctuation.section.parens.end.lisp
+ pop: 1
+ - include: parens
+ - include: expressions
+
+ macro-throw-exceptions:
+ - match: '#[ \t\n\r)<]'
+ scope: keyword.control.exception.throw.lisp
+
+ macro-variables:
+ # Inline runtime/loadtime eval
+ - match: \#[.,:]
+ scope: punctuation.definition.variable.lisp
+ # Local assignment
+ - match: ((#)\d+)\s*(=)
+ captures:
+ 1: variable.other.local.lisp
+ 2: punctuation.definition.variable.lisp
+ 3: keyword.operator.assignment.lisp
+ - match: (#)(\d+)(#)
+ scope: variable.other.lisp
+ captures:
+ 1: punctuation.definition.variable.begin.lisp
+ 2: variable.other.local.lisp
+ 3: punctuation.definition.variable.end.lisp
+
+###[ OPERATORS ]###############################################################
+
+ modifiers:
+ # https://www.lispworks.com/documentation/lw70/CLHS/Body/02_df.htm
+ - match: '[`'']'
+ scope: punctuation.definition.quoted.lisp
+ - match: ',@?'
+ scope: punctuation.definition.variable.lisp
+
+ operator:
+ # Contains 'Standardized Compound Type Specifier Names'
+ # https://www.lispworks.com/documentation/lw70/CLHS/Body/04_bc.htm
+ - match: (?:(?:/=|>=|<=|=|>|<)|(?i:max|min|eq|neq|eql|equalp|equal)){{break}}
scope: keyword.operator.comparison.lisp
- - match: '\+|\-|\*|\/|\b(?i:mod|rem|incf|decf)\b'
+ pop: 1
+ - match: ={{break}}
+ scope: keyword.operator.assignment.lisp
+ pop: 1
+ - match: (?:[-+*/]|(?i:mod|rem|incf|decf)){{break}}
scope: keyword.operator.arithmetic.lisp
- - match: \b(?i:and|or|not)\b
+ pop: 1
+ - match: (?i:and|or|not|satisfies){{break}}
scope: keyword.operator.logical.lisp
- - match: \b(?i:logand|logior|logxor|lognor|logeqv)\b
+ pop: 1
+ - match: (?i:logand|logior|logxor|lognor|logeqv){{break}}
scope: keyword.operator.bitwise.lisp
+ pop: 1
- parens:
- - match: '\('
- scope: punctuation.definition.group.begin.lisp
- push:
- - meta_scope: meta.group.lisp
- - match: '\)'
- scope: punctuation.definition.group.end.lisp
- pop: true
- - include: expressions
- - include: parens
- - match: '\)'
- scope: invalid.illegal.stray-bracket-end.lisp
-
- constants:
- - match: \b(?i:null|t|single-float-negative-epsilon|single-float-epsilon|short-float-negative-epsilon|short-float-epsilon|pi|nil|multiple-values-limit|most-positive-single-float|most-positive-short-float|most-positive-long-float|most-positive-fixnum|most-positive-double-float|most-negative-single-float|most-negative-short-float|most-negative-long-float|most-negative-fixnum|most-negative-double-float|long-float-negative-epsilon|long-float-epsilon|least-positive-single-float|least-positive-short-float|least-positive-normalized-single-float|least-positive-normalized-short-float|least-positive-normalized-long-float|least-positive-normalized-double-float|least-positive-long-float|least-positive-double-float|least-negative-single-float|least-negative-short-float|least-negative-normalized-single-float|least-negative-normalized-short-float|least-negative-normalized-long-float|least-negative-normalized-double-float|least-negative-long-float|least-negative-double-float|lambda-parameters-limit|lambda-list-keywords|internal-time-units-per-second|double-float-negative-epsilon|double-float-epsilon|char-super-bit|char-meta-bit|char-hyper-bit|char-font-limit|char-control-bit|char-code-limit|char-bits-limit|call-arguments-limit|array-total-size-limit|array-rank-limit|array-dimension-limit)\b
- scope: constant.language.lisp
- - match: '(#)(\w|[\\+-=<>''"&#])+'
- scope: constant.character.lisp
- captures:
- 1: punctuation.definition.constant.lisp
+###[ LITERALS ]################################################################
numbers:
- - match: '\b((0(x|X)\h*)|(([0-9]+\.?[0-9]*)|(\.[0-9]+))((e|E)(\+|-)?[0-9]+)?)(?i:l|ul|u|f|ll|ull)?\b'
- scope: constant.numeric.lisp
+ # https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node16.html
+ # https://www.lispworks.com/documentation/lw70/CLHS/Body/02_ca.htm
+ # decimal floating point
+ - match: |-
+ (?x)
+ ( [-+]? )
+ ( \d* (?: (\.) \d+ ) {{exponent}}?
+ | \d+ (?: (\.) \d* )? {{exponent}})
+ {{break}}
+ scope: meta.number.float.decimal.lisp
+ captures:
+ 1: keyword.operator.arithmetic.lisp
+ 2: constant.numeric.value.lisp
+ 3: punctuation.separator.decimal.lisp
+ 4: punctuation.separator.decimal.lisp
+ # decimal rational numbers
+ - match: |-
+ (?x)
+ ( [-+]? )
+ ( \d+ (/) \d+ )
+ {{break}}
+ scope: meta.number.rational.decimal.lisp
+ captures:
+ 1: keyword.operator.arithmetic.lisp
+ 2: constant.numeric.value.lisp
+ 3: keyword.operator.arithmetic.lisp
+ # decimal integer numbers
+ - match: |-
+ (?x)
+ ( [-+]? )
+ ( \d+ (?: (\.)(?!\d) | {{break}} ) )
+ scope: meta.number.integer.decimal.lisp
+ captures:
+ 1: keyword.operator.arithmetic.lisp
+ 2: constant.numeric.value.lisp
+ 3: punctuation.separator.decimal.lisp
strings:
- - match: '"'
+ # https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node31.html
+ - match: \"
scope: punctuation.definition.string.begin.lisp
+ push: string-body
+
+ string-body:
+ - meta_include_prototype: false
+ - meta_scope: meta.string.lisp string.quoted.double.lisp
+ - match: \"
+ scope: punctuation.definition.string.end.lisp
+ pop: 1
+ - match: \\.
+ scope: constant.character.escape.lisp
+ - include: string-format-mini-language
+
+ string-format-mini-language:
+ # https://www.hexstreamsoft.com/articles/common-lisp-format-reference/clhs-summary/#subsections-summary-table
+ - match: (~)(\d*)[%&|~]
+ scope: constant.character.escape.lisp
+ captures:
+ 1: punctuation.definition.placeholder.lisp
+ # 2: constant.numeric.integer.decimal.lisp
+ - match: (~):?@?[CR]
+ scope: constant.other.placeholder.lisp
+ captures:
+ 1: punctuation.definition.placeholder.lisp
+ # ~R
+ - match: |-
+ (?x:
+ (~)
+ (?:(\d*) # Radix
+ (?:(,)\d* # mincol
+ (?:(,)(?:'.)? # padchar
+ (?:(,)(?:'.)? # comma-char
+ (?:(,)\d*)? # comma-interval
+ )?)?)?)
+ ):?@?[rR]
+ scope: constant.other.placeholder.lisp
+ captures:
+ 1: punctuation.definition.placeholder.lisp
+ 2: punctuation.definition.numeric.base.lisp
+ 3: punctuation.separator.sequence.lisp
+ 4: punctuation.separator.sequence.lisp
+ 5: punctuation.separator.sequence.lisp
+ 6: punctuation.separator.sequence.lisp
+ # ~b, ~o, ~d, ~x
+ - match: |-
+ (?x:
+ (~)
+ (?:\d* # mincol
+ (?:(,)(?:'.)? # padchar
+ (?:(,)(?:'.)? # comma-char
+ (?:(,)\d*)? # comma-interval
+ )?)?)?
+ ):?@?[bBoOdDxX]
+ scope: constant.other.placeholder.lisp
+ captures:
+ 1: punctuation.definition.placeholder.lisp
+ 2: punctuation.separator.sequence.lisp
+ 3: punctuation.separator.sequence.lisp
+ 4: punctuation.separator.sequence.lisp
+ # ~f
+ - match: |-
+ (?x:
+ (~)
+ (?:\d* # width
+ (?:(,)\d* # decimals
+ (?:(,)\d* # scale
+ (?:(,)(?:'.)? # overflowchar
+ (?:(,)(?:'.)? # padchar
+ )?)?)?)?)?
+ )@?[fF]
+ scope: constant.other.placeholder.lisp
+ captures:
+ 1: punctuation.definition.placeholder.lisp
+ 2: punctuation.separator.sequence.lisp
+ 3: punctuation.separator.sequence.lisp
+ 4: punctuation.separator.sequence.lisp
+ 5: punctuation.separator.sequence.lisp
+ # ~e, ~g
+ - match: |-
+ (?x:
+ (~)
+ (?:\d* # width
+ (?:(,)\d* # decimals
+ (?:(,)\d* # exponent-width
+ (?:(,)\d* # scale
+ (?:(,)(?:'.)? # overflowchar
+ (?:(,)(?:'.)? # padchar
+ (?:(,)(?:'.)? # exponentchar
+ )?)?)?)?)?)?)?
+ )@?[eEgG]
+ scope: constant.other.placeholder.lisp
+ captures:
+ 1: punctuation.definition.placeholder.lisp
+ 2: punctuation.separator.sequence.lisp
+ 3: punctuation.separator.sequence.lisp
+ 4: punctuation.separator.sequence.lisp
+ 5: punctuation.separator.sequence.lisp
+ 6: punctuation.separator.sequence.lisp
+ 7: punctuation.separator.sequence.lisp
+ # ~$
+ - match: |-
+ (?x:
+ (~)
+ (?:\d* # decimals
+ (?:(,)\d* # min-units
+ (?:(,)\d* # min-width
+ (?:(,)(?:'.)? # padchar
+ )?)?)?)?
+ ):?@?\$
+ scope: constant.other.placeholder.lisp
+ captures:
+ 1: punctuation.definition.placeholder.lisp
+ 2: punctuation.separator.sequence.lisp
+ 3: punctuation.separator.sequence.lisp
+ 4: punctuation.separator.sequence.lisp
+ # ~a, ~s
+ - match: |-
+ (?x:
+ (~)
+ (?:\d* # min-col
+ (?:(,)\d* # col-inc
+ (?:(,)\d* # min-pad
+ (?:(,)(?:'.)? # padchar
+ )?)?)?)?
+ ):?@?[aAsS]
+ scope: constant.other.placeholder.lisp
+ captures:
+ 1: punctuation.definition.placeholder.lisp
+ 2: punctuation.separator.sequence.lisp
+ 3: punctuation.separator.sequence.lisp
+ 4: punctuation.separator.sequence.lisp
+
+###[ SYMBOLS ]#################################################################
+
+ annotations:
+ - match: (&){{identifier}}
+ scope: variable.annotation.lisp
+ captures:
+ 1: punctuation.definition.annotation.lisp
+ 2: punctuation.definition.symbol.begin.lisp
+ 3: punctuation.definition.symbol.end.lisp
+
+ keywords:
+ # The colon : is a package marker.
+ # If the package name is missing, the symbol is in the KEYWORD package.
+ - match: (::?)({{identifier}})
+ captures:
+ 1: punctuation.accessor.lisp
+ 2: keyword.other.symbol.lisp
+ 3: punctuation.definition.symbol.begin.lisp
+ 4: punctuation.definition.symbol.end.lisp
+ - match: \.{{break}}
+ scope: keyword.control.lisp
+
+ identifiers:
+ # https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node27.html
+ # Pushing a dedicated context reduces syntax cache size
+ # and increases parsing performance, significantly.
+ - match: (?={{identifier}})
+ push: identifier
+
+ identifier:
+ - include: namespaces
+ # types
+ - match: '{{builtin_types}}'
+ scope: storage.type.lisp
+ pop: 1
+ # constants
+ - match: (?i:true|false){{break}}
+ scope: constant.language.boolean.lisp
+ pop: 1
+ - match: (?i:nil|null){{break}}
+ scope: constant.language.null.lisp
+ pop: 1
+ - match: '{{builtin_constants}}'
+ scope: constant.language.lisp
+ pop: 1
+ - match: \+\S+\+{{break}}
+ scope: constant.other.lisp
+ pop: 1
+ # variables
+ - match: '{{builtin_variables}}'
+ scope: variable.language.lisp
+ pop: 1
+ - match: '{{identifier}}'
+ scope: variable.other.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ - include: immediately-pop
+
+ parameters:
+ # parameter with initial value
+ - match: \(
+ scope: punctuation.section.parens.begin.lisp
push:
- - meta_scope: string.quoted.double.lisp
- - match: '"'
- scope: punctuation.definition.string.end.lisp
- pop: true
- - match: \\.
- scope: constant.character.escape.lisp
-
- block-comment:
- - match: '#\|'
- scope: punctuation.definition.comment.begin.lisp
- push:
- - meta_scope: comment.block.lisp
- - include: block-comment
- - match: '\|#'
- scope: punctuation.definition.comment.end.lisp
- pop: true
+ - paren-body
+ - parameter-name
+ # parameter without initial value
+ - match: '{{identifier}}'
+ scope: variable.parameter.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
- comments:
- - include: block-comment
- - match: '\|#'
- scope: invalid.illegal.stray-comment-end.lisp
- - match: (;).*$\n?
- scope: comment.line.semicolon.lisp
+ parameter-name:
+ - include: annotations
+ - include: keywords
+ - include: modifiers
+ - match: '{{identifier}}'
+ scope: variable.parameter.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ pop: 1
+ - include: comments
+ - include: else-pop
+
+ namespaces:
+ # built-in namespace indicating keyword symbols
+ # note: accessor is consumed by `keywords` context
+ - match: (\|?)keyword(\|?)(?=:)
+ scope: variable.namespace.lisp
+ captures:
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+ # normal namespaces but not an escaped char #\:
+ - match: ((?!#\\?){{identifier}})(::?)
+ captures:
+ 1: variable.namespace.lisp
+ 2: punctuation.definition.symbol.begin.lisp
+ 3: punctuation.definition.symbol.end.lisp
+ 4: punctuation.accessor.lisp
+
+ variables:
+ # Symbols evaluate to their values
+ # https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node27.html
+ - match: '{{identifier}}'
+ scope: variable.other.lisp
captures:
- 1: punctuation.definition.comment.lisp
+ 1: punctuation.definition.symbol.begin.lisp
+ 2: punctuation.definition.symbol.end.lisp
+
+###[ PROTOTYPES ]##############################################################
+
+ else-pop:
+ - match: (?=\S)
+ pop: 1
+
+ immediately-pop:
+ - match: ''
+ pop: 1
+
+ paren-pop:
+ - match: (?=\))
+ pop: 1
+
+###############################################################################
+
+variables:
+
+ # variables / keyword-symbols
+ identifier: (?:{{identifier_char}}*{{identifier_must_have}}{{identifier_char}}*|{{quoted_identifier}})
+ identifier_char: (?:\\.|[^{{break_char}}])
+ identifier_must_have: (?:\\.|[^\d.{{break_char}}]) # May not be only digits or periods
+ quoted_identifier: (\|)(?:\\.|[^|])*(\|)
+
+ break: (?={{break_char}}|$)
+ break_char: '[\s()"'',:;|]'
+
+ # caracters
+ standard_char: '[0-9A-Za-z!"#$%&''()*+,\-./:;<=>?@\\\[\]^_`{|}~]'
+ char_attributes: (?:(?:[[:alnum:]_]+-)+\\?)
+
+ # numbers
+ exponent: (?:[esfdlESFDL][-+]?\d+)
+
+ declaration_keywords: |-
+ (?xi:
+ declaim
+ | define-(?: compiler-macro | condition | declaration | method-combination | modify-macro | setf-method )
+ | def(?: class | constant | generic | macro | method | package | parameter | setf | struct | type | un | var )
+ | generic-(?: flet | function | labels )
+ | flet
+ | labels
+ | let\*?
+ | locally
+ | macrolet
+ | multiple-value-bind
+ | proclaim
+ | prog\*?
+ | with-(?: accessors | added-methods | condition-restarts | input-from-string | open-file | open-stream | output-to-string | standard-io-syntax )
+ ){{break}}
+
+ declaration_identifiers: |-
+ (?xi:
+ dynamic-extent
+ | ftype
+ | ignorable
+ | ignore
+ | inline
+ | notinline
+ | optimize
+ | special
+ | type
+ ){{break}}
+
+ builtin_constants: |-
+ (?xi:
+ t | true | false | null | nil | pi
+ | array-(?: rank | dimension | total-size )-limit
+ | call-arguments-limit
+ | char-(?: (?: super | hyper | meta | control )-bit | (?: font | code | bits )-limit )
+ | internal-time-units-per-second
+ | lambda-(?: parameters-limit | list-keywords )
+ | least-(?: positive | negative )-normalized-(?: single | short | long | double )-float
+ | most-(?: positive | negative )-fixnum
+ | (?: most | least )-(?: positive | negative )-(?: single | short | long | double )-float
+ | multiple-values-limit
+ | (?: single | short | long | double )-float-(?: negative- )?epsilon
+ ){{break}}
+
+ builtin_functions: |-
+ (?xi:
+ abort
+ | abs
+ | acons
+ | acos
+ | acosh
+ | add-method
+ | adjoin
+ | adjust-array
+ | adjustable-array-p
+ | alpha-char-p
+ | alphanumericp
+ | alter
+ | append
+ | appending
+ | apply
+ | applyhook
+ | apropos
+ | apropos-list
+ | aref
+ | arithmetic-error-operands
+ | arithmetic-error-operation
+ | array-dimension
+ | array-dimensions
+ | array-element-type
+ | array-has-fill-pointer-p
+ | array-in-bounds-p
+ | array-rank
+ | array-row-major-index
+ | array-total-size
+ | arrayp
+ | ash
+ | asin
+ | asinh
+ | assert
+ | assoc
+ | assoc-if
+ | assoc-if-not
+ | atan
+ | atanh
+ | atom
+ | augment-environment
+ | bit
+ | bit-and
+ | bit-andc1
+ | bit-andc2
+ | bit-eqv
+ | bit-ior
+ | bit-nand
+ | bit-nor
+ | bit-not
+ | bit-orc1
+ | bit-orc2
+ | bit-vector-p
+ | bit-xor
+ | boole
+ | both-case-p
+ | boundp
+ | break
+ | broadcast-stream-streams
+ | butlast
+ | byte
+ | byte-position
+ | byte-size
+ | caaaar
+ | caaadr
+ | caaar
+ | caadar
+ | caaddr
+ | caadr
+ | caar
+ | cadaar
+ | cadadr
+ | cadar
+ | caddar
+ | cadddr
+ | caddr
+ | cadr
+ | call-method
+ | call-next-method
+ | car
+ | catenate
+ | ccase
+ | cdaaar
+ | cdaadr
+ | cdaar
+ | cdadar
+ | cdaddr
+ | cdadr
+ | cdar
+ | cddaar
+ | cddadr
+ | cddar
+ | cdddar
+ | cddddr
+ | cdddr
+ | cddr
+ | cdr
+ | ceiling
+ | cell-error-name
+ | cerror
+ | change-class
+ | char
+ | char-bit
+ | char-bits
+ | char-code
+ | char-downcase
+ | char-equal
+ | char-font
+ | char-greaterp
+ | char-int
+ | char-lessp
+ | char-name
+ | char-not-equal
+ | char-not-greaterp
+ | char-not-lessp
+ | char-upcase
+ | char/=
+ | char<
+ | char<=
+ | char=
+ | char>
+ | char>=
+ | character
+ | characterp
+ | check-type
+ | choose
+ | choose-if
+ | chunk
+ | cis
+ | class-name
+ | class-of
+ | clear-input
+ | close
+ | clrhash
+ | code-char
+ | coerce
+ | collect
+ | collect-alist
+ | collect-and
+ | collect-append
+ | collect-file
+ | collect-first
+ | collect-fn
+ | collect-hash
+ | collect-last
+ | collect-length
+ | collect-max
+ | collect-min
+ | collect-nconc
+ | collect-nth
+ | collect-or
+ | collect-plist
+ | collect-sum
+ | collecting
+ | collecting-fn
+ | commonp
+ | compile
+ | compile-file
+ | compile-file-pathname
+ | compiled-function-p
+ | compiler-let
+ | compiler-macro-function
+ | compiler-macroexpand
+ | compiler-macroexpand-1
+ | complement
+ | complex
+ | complexp
+ | compute-applicable-methods
+ | compute-restarts
+ | concatenate
+ | concatenated-stream-streams
+ | conjugate
+ | cons
+ | consp
+ | constantp
+ | continue
+ | copy-alist
+ | copy-list
+ | copy-pprint-dispatch
+ | copy-readtable
+ | copy-seq
+ | copy-symbol
+ | copy-tree
+ | cos
+ | cosh
+ | cotruncate
+ | count
+ | count-if
+ | count-if-not
+ | counting
+ | declaim
+ | declaration-information
+ | decode-float
+ | decode-universal-time
+ | delete
+ | delete-duplicates
+ | delete-file
+ | delete-if
+ | delete-if-not
+ | delete-package
+ | denominator
+ | deposit-field
+ | describe
+ | describe-object
+ | destructuring-bind
+ | digit-char
+ | digit-char-p
+ | directory
+ | directory-namestring
+ | disassemble
+ | do-all-keyword-symbols
+ | do-external-keyword-symbols
+ | do-keyword-symbols
+ | documentation
+ | dolist
+ | dpb
+ | dribble
+ | ecase
+ | echo-stream-input-stream
+ | echo-stream-output-stream
+ | ed
+ | eighth
+ | elt
+ | encapsulated
+ | enclose
+ | encode-universal-time
+ | endp
+ | enough-namestring
+ | ensure-generic-function
+ | error
+ | eval
+ | evalhook
+ | evenp
+ | every
+ | exp
+ | expand
+ | export
+ | expt
+ | f
+ | fboundp
+ | fdefinition
+ | ffloor
+ | fifth
+ | file-author
+ | file-error-pathname
+ | file-length
+ | file-namestring
+ | file-position
+ | file-string-length
+ | file-write-date
+ | fill
+ | fill-pointer
+ | find
+ | find-all-keyword-symbols
+ | find-class
+ | find-if
+ | find-if-not
+ | find-method
+ | find-package
+ | find-restart
+ | find-symbol
+ | finish-output
+ | first
+ | float
+ | float-digits
+ | float-precision
+ | float-radix
+ | float-sign
+ | floatp
+ | floor
+ | format
+ | formatter
+ | fourth
+ | funcall
+ | function-information
+ | function-keywords
+ | function-lambda-expression
+ | functionp
+ | gatherer
+ | gathering
+ | gcd
+ | generator
+ | generic-function
+ | gensym
+ | gentemp
+ | get
+ | get-decoded-time
+ | get-internal-real-time
+ | get-internal-run-time
+ | get-output-stream-string
+ | get-properties
+ | get-setf-method
+ | get-setf-method-multiple-value
+ | get-universal-time
+ | getf
+ | gethash
+ | graphic-char-p
+ | handler-bind
+ | handler-case
+ | hash-table-count
+ | hash-table-p
+ | hash-table-rehash-size
+ | hash-table-rehash-threshold
+ | hash-table-size
+ | hash-table-test
+ | host-namestring
+ | identity
+ | ignore-errors
+ | imagpart
+ | import
+ | in-package
+ | initialize-instance
+ | input-stream-p
+ | inspect
+ | int-char
+ | integer-decode-float
+ | integer-length
+ | integerp
+ | interactive-stream-p
+ | intern
+ | intersection
+ | invalid-method-error
+ | invoke-debugger
+ | invoke-restart
+ | isqrt
+ | iterate
+ | keywordp
+ | last
+ | latch
+ | lcm
+ | ldb
+ | ldb-test
+ | ldiff
+ | length
+ | lisp-implementation-type
+ | lisp-implementation-version
+ | list
+ | list-all-packages
+ | list-length
+ | list\*
+ | listen
+ | listp
+ | load
+ | load-logical-pathname-translations
+ | locally
+ | log
+ | logandc1
+ | logandc2
+ | logbitp
+ | logcount
+ | logical-pathname
+ | logical-pathname-translations
+ | lognand
+ | lognot
+ | logorc1
+ | logorc2
+ | logtest
+ | long-site-name
+ | loop-finish
+ | lower-case-p
+ | machine-instance
+ | machine-type
+ | machine-version
+ | macro-function
+ | macroexpand
+ | macroexpand-1
+ | make-array
+ | make-broadcast-stream
+ | make-char
+ | make-concatenated-stream
+ | make-condition
+ | make-dispatch-macro-character
+ | make-echo-stream
+ | make-hash-table
+ | make-instance
+ | make-instances-obsolete
+ | make-list
+ | make-load-form
+ | make-load-form-saving-slots
+ | make-package
+ | make-pathname
+ | make-random-state
+ | make-sequence
+ | make-string
+ | make-string-input-stream
+ | make-string-output-stream
+ | make-symbol
+ | make-synonym-stream
+ | make-two-way-stream
+ | makunbound
+ | map
+ | map-fn
+ | map-into
+ | maphash
+ | mapping
+ | mask
+ | mask-field
+ | maximize
+ | maximizing
+ | member
+ | member-if
+ | member-if-not
+ | memberp
+ | merge
+ | merge-pathnames
+ | method-combination-error
+ | method-qualifiers
+ | mingle
+ | minimize
+ | minimizing
+ | minusp
+ | mismatch
+ | muffle-warning
+ | multiple-value-bind
+ | multiple-value-list
+ | multiple-value-setq
+ | name-char
+ | namestring
+ | nbutlast
+ | nconc
+ | nconcing
+ | next-in
+ | next-method-p
+ | next-out
+ | nintersection
+ | ninth
+ | no-applicable-method
+ | no-next-method
+ | notany
+ | notevery
+ | nreconc
+ | nreverse
+ | nset-difference
+ | nset-exclusive-or
+ | nstring-capitalize
+ | nstring-downcase
+ | nstring-upcase
+ | nsublis
+ | nsubst
+ | nsubst-if
+ | nsubst-if-not
+ | nsubstitute
+ | nsubstitute-if
+ | nsubstitute-if-not
+ | nth
+ | nth-value
+ | nthcdr
+ | numberp
+ | numerator
+ | nunion
+ | oddp
+ | open
+ | open-stream-p
+ | output-stream-p
+ | package-error-package
+ | package-name
+ | package-nicknames
+ | package-shadowing-keyword-symbols
+ | package-use-list
+ | package-used-by-list
+ | packagep
+ | pairlis
+ | parse-integer
+ | parse-macro
+ | parse-namestring
+ | pathname
+ | pathname-device
+ | pathname-directory
+ | pathname-host
+ | pathname-match-p
+ | pathname-name
+ | pathname-type
+ | pathname-version
+ | pathnamep
+ | peek-char
+ | phase
+ | plusp
+ | pop
+ | position
+ | position-if
+ | position-if-not
+ | positions
+ | pprint-dispatch
+ | pprint-exit-if-list-exhausted
+ | pprint-fill
+ | pprint-indent
+ | pprint-linear
+ | pprint-logical-block
+ | pprint-newline
+ | pprint-pop
+ | pprint-tab
+ | pprint-tabular
+ | previous
+ | prin1
+ | print
+ | print-object
+ | print-unreadable-object
+ | probe-file
+ | producing
+ | prog1
+ | prog2
+ | progn
+ | provide
+ | psetf
+ | psetq
+ | push
+ | pushnew
+ | quote
+ | random
+ | random-state-p
+ | rassoc
+ | rassoc-if
+ | rassoc-if-not
+ | rational
+ | rationalize
+ | rationalp
+ | read
+ | read-byte
+ | read-char
+ | read-char-no-hang
+ | read-delimited-list
+ | read-from-string
+ | read-line
+ | read-preserving-whitespace
+ | readtable-case
+ | readtablep
+ | realp
+ | realpart
+ | reduce
+ | reinitialize-instance
+ | remf
+ | remhash
+ | remove
+ | remove-duplicates
+ | remove-method
+ | remprop
+ | rename-file
+ | rename-package
+ | replace
+ | require
+ | rest
+ | restart-bind
+ | restart-case
+ | restart-name
+ | result-of
+ | revappend
+ | reverse
+ | room
+ | rotatef
+ | round
+ | row-major-aref
+ | rplaca
+ | rplacd
+ | sbit
+ | scale-float
+ | scan
+ | scan-alist
+ | scan-file
+ | scan-fn
+ | scan-fn-inclusive
+ | scan-hash
+ | scan-lists-of-lists
+ | scan-lists-of-lists-fringe
+ | scan-multiple
+ | scan-plist
+ | scan-range
+ | scan-sublists
+ | scan-symbols
+ | schar
+ | search
+ | second
+ | series
+ | set
+ | set-char-bit
+ | set-difference
+ | set-dispatch-macro-character
+ | set-exclusive-or
+ | set-macro-character
+ | set-pprint-dispatch
+ | set-syntax-from-char
+ | setf
+ | setq
+ | seventh
+ | shadow
+ | shadowing-import
+ | shared-initialize
+ | shiftf
+ | short-site-name
+ | signal
+ | signum
+ | simple-bit-vector-p
+ | simple-condition-format-arguments
+ | simple-condition-format-string
+ | simple-string-p
+ | simple-vector-p
+ | sin
+ | sinh
+ | sixth
+ | sleep
+ | slot-boundp
+ | slot-exists-p
+ | slot-makunbound
+ | slot-missing
+ | slot-unbound
+ | slot-value
+ | software-type
+ | software-version
+ | some
+ | sort
+ | special-form-p
+ | split
+ | split-if
+ | sqrt
+ | stable-sort
+ | standard-char-p
+ | step
+ | store-value
+ | stream-element-type
+ | stream-error-stream
+ | stream-external-format
+ | streamp
+ | string
+ | string-capitalize
+ | string-downcase
+ | string-equal
+ | string-greaterp
+ | string-left-trim
+ | string-lessp
+ | string-not-equal
+ | string-not-greaterp
+ | string-not-lessp
+ | string-right-trim
+ | string-trim
+ | string-upcase
+ | string/=
+ | string<
+ | string<=
+ | string=
+ | string>
+ | string>=
+ | stringp
+ | sublis
+ | subseq
+ | subseries
+ | subsetp
+ | subst
+ | subst-if
+ | subst-if-not
+ | substitute
+ | substitute-if
+ | substitute-if-not
+ | subtypep
+ | sum
+ | summing
+ | svref
+ | sxhash
+ | symbol-function
+ | symbol-name
+ | symbol-package
+ | symbol-plist
+ | symbol-value
+ | symbolp
+ | synonym-stream-symbol
+ | tailp
+ | tan
+ | tanh
+ | tenth
+ | terminate-producing
+ | terpri
+ | third
+ | time
+ | to-alter
+ | trace
+ | translate-logical-pathname
+ | translate-pathname
+ | tree-equal
+ | truename
+ | truncate
+ | two-way-stream-input-stream
+ | two-way-stream-output-stream
+ | type-error-datum
+ | type-error-expected-type
+ | type-of
+ | typep
+ | unexport
+ | unintern
+ | union
+ | unread-char
+ | untrace
+ | unuse-package
+ | update-instance-for-different-class
+ | update-instance-for-redefined-class
+ | upgraded-array-element-type
+ | upgraded-complex-part-type
+ | upper-case-p
+ | use-package
+ | use-value
+ | user-homedir-pathname
+ | values
+ | values-list
+ | variable-information
+ | vector
+ | vector-pop
+ | vector-push
+ | vector-push-extend
+ | vectorp
+ | warn
+ | wild-pathname-p
+ | with-compilation-unit
+ | with-hash-table-iterator
+ | with-package-iterator
+ | with-simple-restart
+ | with-standard-io-syntax
+ | write
+ | write-byte
+ | write-char
+ | write-string
+ | write-to-string
+ | y-or-n-p
+ | yes-or-no-p
+ | zerop
+ ){{break}}
+
+ # Built-in atomic type specifiers
+ # https://www.lispworks.com/documentation/lw70/CLHS/Body/04_bc.htm
+ # Note: Some of them are scoped function when appearing as first list item.
+ builtin_types: |-
+ (?xi:
+ arithmetic-error
+ | array
+ | atom
+ | base-char
+ | base-string
+ | bignum
+ | bit
+ | bit-vector
+ | broadcast-stream
+ | built-in-class
+ | cell-error
+ | character
+ | class
+ | compiled-function
+ | complex
+ | concatenated-stream
+ | condition
+ | cons
+ | control-error
+ | division-by-zero
+ | double-float
+ | echo-stream
+ | end-of-file
+ | error
+ | extended-char
+ | file-error
+ | file-stream
+ | fixnum
+ | float
+ | floating-point-inexact
+ | floating-point-invalid-operation
+ | floating-point-overflow
+ | floating-point-underflow
+ | function
+ | generic-function
+ | hash-table
+ | integer
+ | keyword
+ | list
+ | logical-pathname
+ | long-float
+ | method
+ | method-combination
+ | number
+ | package
+ | package-error
+ | parse-error
+ | pathname
+ | print-not-readable
+ | program-error
+ | random-state
+ | ratio
+ | rational
+ | reader-error
+ | readtable
+ | real
+ | restart
+ | sequence
+ | serious-condition
+ | short-float
+ | signed-byte
+ | simple-array
+ | simple-base-string
+ | simple-bit-vector
+ | simple-condition
+ | simple-error
+ | simple-string
+ | simple-type-error
+ | simple-vector
+ | simple-warning
+ | single-float
+ | standard-char
+ | standard-class
+ | standard-generic-function
+ | standard-method
+ | standard-object
+ | storage-condition
+ | stream
+ | stream-error
+ | string
+ | string-stream
+ | structure-class
+ | structure-object
+ | style-warning
+ | symbol
+ | synonym-stream
+ | two-way-stream
+ | type-error
+ | unbound-slot
+ | unbound-variable
+ | undefined-function
+ | unsigned-byte
+ | vector
+ | warning
+ ){{break}}
+
+ builtin_variables: |-
+ \*(?xi:
+ applyhook
+ | break-on-signals
+ | break-on-warnings
+ | compile-file-pathname
+ | compile-file-truename
+ | compile-print
+ | compile-verbose
+ | debug-io
+ | debugger-hook
+ | default-pathname-defaults
+ | error-output
+ | evalhook
+ | features
+ | gensym-counter
+ | load-pathname
+ | load-print
+ | load-truename
+ | load-verbose
+ | macroexpand-hook
+ | modules
+ | package
+ | print-array
+ | print-base
+ | print-case
+ | print-circle
+ | print-escape
+ | print-gensym
+ | print-length
+ | print-level
+ | print-lines
+ | print-miser-width
+ | print-pprint-dispatch
+ | print-pretty
+ | print-radix
+ | print-readably
+ | print-right-margin
+ | query-io
+ | random-state
+ | read-base
+ | read-default-float-format
+ | read-eval
+ | read-suppress
+ | readtable
+ | standard-input
+ | standard-output
+ | suppress-series-warnings
+ | terminal-io
+ | trace-output
+ )\*{{break}}