From 1b907e84c1f9b6a17b9fb62e996213ba62b10d77 Mon Sep 17 00:00:00 2001
From: Wilfred Hughes <me@wilfred.me.uk>
Date: Thu, 27 Jan 2022 21:53:21 -0800
Subject: [PATCH] Fix character literals in Lisp

Improves #85
---
 CHANGELOG.md              | 2 ++
 src/tree_sitter_parser.rs | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 369744158..cca077965 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -4,6 +4,8 @@
 
 Fixed an issue with missing positions in OCaml attribute syntax.
 
+Fixed an issue with parsing character literals in Common Lisp.
+
 ### Display
 
 Fixed display issues where lines were printed more than once.
diff --git a/src/tree_sitter_parser.rs b/src/tree_sitter_parser.rs
index d5f454922..c3513142a 100644
--- a/src/tree_sitter_parser.rs
+++ b/src/tree_sitter_parser.rs
@@ -149,7 +149,7 @@ pub fn from_language(language: guess::Language) -> TreeSitterConfig {
             TreeSitterConfig {
                 name: "Common Lisp",
                 language: unsafe { tree_sitter_commonlisp() },
-                atom_nodes: (vec!["str_lit"]).into_iter().collect(),
+                atom_nodes: (vec!["str_lit", "char_lit"]).into_iter().collect(),
                 delimiter_tokens: (vec![("(", ")")]),
                 highlight_query: ts::Query::new(language, "").unwrap(),
             }