Fix: (org-ql--define-query-preamble-fn) Pcase pattern for Emacs 30

Now all tests and lints pass on Emacs versions 27.1-29.4, and the
current 30.0.50-ish snapshot build.

Note: This change was originally applied on master, but it seems
reasonable to apply it to this stable bugfix release now.

Fixes #433.

Reported-by: Akira Komamura <akira.komamura@gmail.com>
Co-developed-by: Stefan Monnier <monnier@iro.umontreal.ca>

org-ql.info

@@ -1099,6 +1099,12 @@ File: README.info,  Node: 089-pre,  Next: 088,  Up: Changelog
      maintaining Buttercup
      (https://github.com/jorgenschaefer/emacs-buttercup).)
 
+   *Compatibility*
+   • Fix compilation error on Emacs 30.  (#433
+     (https://github.com/alphapapa/org-ql/issues/433).  Thanks to Akira
+     Komamura (https://github.com/akirak) and Stefan Monnier
+     (https://github.com/monnier).)
+
 
 File: README.info,  Node: 088,  Next: 087,  Prev: 089-pre,  Up: Changelog
 
@@ -2077,49 +2083,49 @@ Node: Links38939
 Node: Tips39626
 Node: Changelog39950
 Node: 089-pre40900
-Node: 08841801
-Node: 08742881
-Node: 08644109
-Node: 08544343
-Node: 08444999
-Node: 08345451
-Node: 08245792
-Node: 08146185
-Node: 0846606
-Node: 07449332
-Node: 07349557
-Node: 07250291
-Node: 07151212
-Node: 0752023
-Node: 06354889
-Node: 06255422
-Node: 06155729
-Node: 0656299
-Node: 05259355
-Node: 05159657
-Node: 0560082
-Node: 04961613
-Node: 04861895
-Node: 04762244
-Node: 04662653
-Node: 04563061
-Node: 04463422
-Node: 04363781
-Node: 04263984
-Node: 04164145
-Node: 0464392
-Node: 03268493
-Node: 03168896
-Node: 0369093
-Node: 02372393
-Node: 02272627
-Node: 02172907
-Node: 0273112
-Node: 0177190
-Node: Notes77291
-Node: Comparison with Org Agenda searches77453
-Node: org-sidebar78342
-Node: License78621
+Node: 08842039
+Node: 08743119
+Node: 08644347
+Node: 08544581
+Node: 08445237
+Node: 08345689
+Node: 08246030
+Node: 08146423
+Node: 0846844
+Node: 07449570
+Node: 07349795
+Node: 07250529
+Node: 07151450
+Node: 0752261
+Node: 06355127
+Node: 06255660
+Node: 06155967
+Node: 0656537
+Node: 05259593
+Node: 05159895
+Node: 0560320
+Node: 04961851
+Node: 04862133
+Node: 04762482
+Node: 04662891
+Node: 04563299
+Node: 04463660
+Node: 04364019
+Node: 04264222
+Node: 04164383
+Node: 0464630
+Node: 03268731
+Node: 03169134
+Node: 0369331
+Node: 02372631
+Node: 02272865
+Node: 02173145
+Node: 0273350
+Node: 0177428
+Node: Notes77529
+Node: Comparison with Org Agenda searches77691
+Node: org-sidebar78580
+Node: License78859
 
 End Tag Table