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))