Fix the SQL parser to parse quoted-strings correctly.

fukamachi · Feb 12, 2024 · 53250af · 53250af
1 parent 4111b56
commit 53250af
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/migration/sql-parse.lisp b/src/migration/sql-parse.lisp
@@ -36,7 +36,7 @@
                                        (and #\\ #\$)))
                                 pg-dollar-sign))
   (:destructure (d1 content d2)
-   (format nil "~{~A~}~{~A~}~{~A~}" d1 content d2)))
+   (format nil "~A~A~A" d1 (coerce content 'string) d2)))
 
 (defrule space (or #\Space #\Newline #\Return #\Tab))