Fix to parse a quoted-string with '$$' in PostgreSQL. (fixes #135)

fukamachi · Mar 5, 2024 · 174ec12 · 174ec12
1 parent 53250af
commit 174ec12
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/migration/sql-parse.lisp b/src/migration/sql-parse.lisp
@@ -35,8 +35,7 @@
                                 (+ (or (not #\$)
                                        (and #\\ #\$)))
                                 pg-dollar-sign))
-  (:destructure (d1 content d2)
-   (format nil "~A~A~A" d1 (coerce content 'string) d2)))
+  (:text t))
 
 (defrule space (or #\Space #\Newline #\Return #\Tab))