From 174ec127ca17eb4d4b0c7e5aeb2036dc2f20995b Mon Sep 17 00:00:00 2001 From: Eitaro Fukamachi Date: Tue, 5 Mar 2024 11:38:08 +0000 Subject: [PATCH] Fix to parse a quoted-string with '$$' in PostgreSQL. (fixes #135) --- src/migration/sql-parse.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/migration/sql-parse.lisp b/src/migration/sql-parse.lisp index ecf353a..6336d2f 100644 --- 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))