Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Possible macro-expansion or pcase-related bug in Emacs 28 #232

Closed
natask opened this issue Jul 5, 2021 · 29 comments
Closed

Possible macro-expansion or pcase-related bug in Emacs 28 #232

natask opened this issue Jul 5, 2021 · 29 comments

Comments

@natask
Copy link
Contributor

natask commented Jul 5, 2021

I am getting (void-variable rest) whenever I try to use (scheduled :to today) and/or (ts-active :on today).
I traced it down to

(query (org-ql--normalize-query query))

I believe the bug is caused by org-ql--normalize-from-to-on.

I am using the lastest commit 8342656
GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.22, cairo version 1.17.3) of 2020-08-20

@alphapapa
Copy link
Owner

alphapapa commented Jul 5, 2021

I can't reproduce this. However, you might be encountering a very strange problem that I recently found happening only in the GitHub Actions CI tests (i.e. the tests always pass locally). I had to disable one test, because it didn't even fail in a comprehensible way--Buttercup didn't even give a useful failure message. I just pushed a temp branch with that test re-enabled, which shows the failures: https://github.com/alphapapa/org-ql/runs/2987486139

Please evaluate this form and tell me the result:

    (org-ql--normalize-query '(or (ts-active :on "2019-01-01")
                                  (ts-a :on "2019-01-01")
                                  (ts-inactive :on "2019-01-01")
                                  (ts-i :on "2019-01-01")))

Also:

  1. How did you install Emacs?
  2. How did you install this package?
  3. Are all of this package's dependency packages up-to-date in your Emacs config?
  4. Did you try reinstalling this package?
  5. Did you try reinstalling this package and all of its dependencies? (i.e. you should package-delete all of them, including any obsolete versions, then restart Emacs, then reinstall org-ql and let Emacs install the dependencies. You can use this to help delete old package versions: https://github.com/alphapapa/unpackaged.el#delete-all-installed-versions-of-a-package)
  6. Does this problem happen on other Emacs versions? (This should be tested with a clean Emacs config for each version, because sharing a config with compiled packages between Emacs versions may not work. You may use https://github.com/alphapapa/emacs-sandbox.sh to make this process much easier.)

Thanks.

@natask
Copy link
Contributor Author

natask commented Jul 5, 2021

I get Symbol’s value as variable is void: rest. passing each clause one by one results in the same error.

executing

org-ql/org-ql.el

Line 1142 in 8342656

(org-ql--define-normalize-query-fn (reverse org-ql-predicates))

brings up warning that reads

Warning: reference to free variable ‘rest’
Warning: assignment to free variable ‘rest’

1 I installed the package from MELPA. I also have tried the latest commit from git.
2. Yes. emacs == 28.0.5 > 26.1, dash==2.18.1 == 2.18.1, map == 3.0 > 2.1, and so on.
3. Yes.
4. Yes.
5. I haven't tried other versions of emacs. I can try emacs-sandbox.sh sometime in the future..

I have ran the tests that came with the package.
test results
Ran 373 specs, 136 failed, in 6.60s.
tests pertaining to org-ql-defpred clauses, (clocked), (closed), (deadline), scheduled), (planning), (ts), defined using org-ql--normalize-from-to-on Fail.

./makem.sh  -s ~/test --install-deps -d test
LOG (2021-07-05 00:13:57): Initializing sandbox...
LOG (2021-07-05 00:13:57): Installing packages into sandbox...
Importing package-keyring.gpg...
Importing package-keyring.gpg...done
Contacting host: elpa.gnu.org:443
Contacting host: elpa.gnu.org:443
Contacting host: melpa.org:443
Contacting host: stable.melpa.org:443
Package refresh done
Contacting host: melpa.org:443
Parsing tar file... 
Parsing tar file...done
Extracting... \ 
Extracting...done
  INFO     Scraping files for dash-autoloads.el... 
  INFO     Scraping files for dash-autoloads.el...done
Checking /tmp/tmp.xdDFN9y44j/elpa/dash-20210704.1302...
Compiling /tmp/tmp.xdDFN9y44j/elpa/dash-20210704.1302/dash-autoloads.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/dash-20210704.1302/dash-pkg.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/dash-20210704.1302/dash.el...
Done (Total of 1 file compiled, 2 skipped)
Package ‘dash’ installed.
  INFO     Scraping files for s-autoloads.el... 
  INFO     Scraping files for s-autoloads.el...done
Checking /tmp/tmp.xdDFN9y44j/elpa/s-20210616.619...
Compiling /tmp/tmp.xdDFN9y44j/elpa/s-20210616.619/s-autoloads.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/s-20210616.619/s-pkg.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/s-20210616.619/s.el...
Done (Total of 1 file compiled, 2 skipped)
Package ‘s’ installed.
Parsing tar file... 
Parsing tar file...done
Extracting... \ 
Extracting...done
  INFO     Scraping files for async-autoloads.el... 
  INFO     Scraping files for async-autoloads.el...done
Checking /tmp/tmp.xdDFN9y44j/elpa/async-20210501.1527...
Compiling /tmp/tmp.xdDFN9y44j/elpa/async-20210501.1527/async-autoloads.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/async-20210501.1527/async-bytecomp.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/async-20210501.1527/async-pkg.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/async-20210501.1527/async.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/async-20210501.1527/dired-async.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/async-20210501.1527/smtpmail-async.el...
Done (Total of 4 files compiled, 2 skipped)
Contacting host: melpa.org:443
Parsing tar file... 
Parsing tar file...done
Extracting... \ 
Extracting...done
  INFO     Scraping files for helm-core-autoloads.el... 
  INFO     Scraping files for helm-core-autoloads.el...done
Checking /tmp/tmp.xdDFN9y44j/elpa/helm-core-20210704.556...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-core-20210704.556/helm-core-autoloads.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-core-20210704.556/helm-core-pkg.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-core-20210704.556/helm-lib.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-core-20210704.556/helm-multi-match.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-core-20210704.556/helm-source.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-core-20210704.556/helm.el...

In helm-execute-persistent-action:
helm.el:6851:47: Warning: ‘special-display-buffer-names’ is an obsolete
    variable (as of 24.3); use ‘display-buffer-alist’ instead.
helm.el:6851:23: Warning: ‘special-display-regexps’ is an obsolete variable
    (as of 24.3); use ‘display-buffer-alist’ instead.
helm.el:6850:23: Warning: ‘display-buffer-function’ is an obsolete variable
    (as of 24.3); use ‘display-buffer-alist’ instead.
Done (Total of 4 files compiled, 2 skipped)
  INFO     Scraping files for popup-autoloads.el... 
  INFO     Scraping files for popup-autoloads.el...done
Checking /tmp/tmp.xdDFN9y44j/elpa/popup-20210625.400...
Compiling /tmp/tmp.xdDFN9y44j/elpa/popup-20210625.400/popup-autoloads.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/popup-20210625.400/popup-pkg.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/popup-20210625.400/popup.el...
Done (Total of 1 file compiled, 2 skipped)
Contacting host: melpa.org:443
Parsing tar file... 
Parsing tar file...done
Extracting... \ 
Extracting...done
  INFO     Scraping files for helm-autoloads.el... 
  INFO     Scraping files for helm-autoloads.el...done
Checking /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-adaptive.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-autoloads.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-bookmark.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-buffers.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-color.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-comint.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-command.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-config.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-dabbrev.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-easymenu.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-elisp-package.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-elisp.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-epa.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-eshell.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-eval.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-external.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-fd.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-files.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-find.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-font.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-for-files.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-global-bindings.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-grep.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-help.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-id-utils.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-imenu.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-info.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-locate.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-man.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-misc.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-mode.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-net.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-occur.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-pkg.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-regexp.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-ring.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-semantic.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-shell.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-sys.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-tags.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-types.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-utils.el...
Compiling /tmp/tmp.xdDFN9y44j/elpa/helm-20210701.637/helm-x-files.el...
Done (Total of 41 files compiled, 2 skipped)
Contacting host: melpa.org:443
  INFO     Scraping files for helm-org-autoloads.el... 
  INFO     Scraping files for helm-org-autoloads.el...done
Loading async...
Package ‘helm-org’ installed.
  INFO     Scraping files for ts-autoloads.el... 
  INFO     Scraping files for ts-autoloads.el...done
Loading async...
Parsing tar file... 
Parsing tar file...done
Extracting... \ 
Extracting...done
  INFO     Scraping files for transient-autoloads.el... 
  INFO     Scraping files for transient-autoloads.el...done
Loading async...
Contacting host: elpa.gnu.org:443
Parsing tar file... 
Parsing tar file...done
Extracting... \ 
Extracting...done
  INFO     Scraping files for peg-autoloads.el... 
  INFO     Scraping files for peg-autoloads.el...done
Loading async...
  INFO     Scraping files for ov-autoloads.el... 
Not registering prefix "ov" from ov.  Affects: ("ov" "ov?" "ov-create" "ov-insert" "ov-val" "ov-end" "ov-line" "ov-length" "ov-at" "ov-all" "ov-beg" "ov-buf" "ov-backwards" "ov-forwards" "ov-make" "ov-match" "ov-move" "ov-timeout" "ov-keymap" "ov-regexp" "ov-region" "ov-reset" "ov-recenter" "ov-read-only" "ov-p" "ov-put" "ov-prop" "ov-prop-list" "ov-placeholder" "ov--placeholder" "ov--parse-hex-color" "ov--read-only" "ov--random-color" "ov-sticky-front" "ov-sticky-rear" "ov-set" "ov-spec" "ov-smear")
  INFO     Scraping files for ov-autoloads.el...done
Loading async...
Contacting host: melpa.org:443
  INFO     Scraping files for ht-autoloads.el... 
Not registering prefix "ht" from ht.  Affects: ("ht" "ht<-alist" "ht<-plist" "ht?" "ht-get" "ht-get*" "ht-update" "ht-update!" "ht-merge" "ht-map" "ht-keys" "ht-values" "ht-items" "ht-amap" "ht-aeach" "ht->plist" "ht->alist" "ht-to-plist" "ht-to-alist" "ht-p" "ht-create" "ht-clear" "ht-clear!" "ht-copy" "ht-contains?" "ht-contains-p" "ht-size" "ht-set" "ht-set!" "ht-select" "ht-select-keys" "ht-remove" "ht-remove!" "ht-reject" "ht-reject!" "ht-delete-if" "ht-from-alist" "ht-from-plist" "ht-find" "ht-each" "ht-empty?" "ht-empty-p" "ht-equal?" "ht-equal-p")
  INFO     Scraping files for ht-autoloads.el...done
Loading async...
Parsing tar file... 
Parsing tar file...done
Extracting... \ 
Extracting...done
  INFO     Scraping files for org-super-agenda-autoloads.el... 
  INFO     Scraping files for org-super-agenda-autoloads.el...done
Loading async...
  INFO     Scraping files for f-autoloads.el... 
  INFO     Scraping files for f-autoloads.el...done
Loading async...
Parsing tar file... 
Parsing tar file...done
Extracting... \ 
Extracting...done
  INFO     Scraping files for org-ql-autoloads.el... 
  INFO     Scraping files for org-ql-autoloads.el...done
Loading async...
Package ‘org-ql’ installed.
‘dash’ is already installed
‘f’ is already installed
‘map’ is already installed
‘org’ is already installed
‘org-super-agenda’ is already installed
‘ov’ is already installed
‘peg’ is already installed
‘s’ is already installed
‘transient’ is already installed
‘ts’ is already installed
Contacting host: melpa.org:443
Parsing tar file... 
Parsing tar file...done
Extracting... \ 
Extracting...done
  INFO     Scraping files for buttercup-autoloads.el... 
Not registering prefix "it" from buttercup.  Affects: ("it")
  INFO     Scraping files for buttercup-autoloads.el...done
Loading async...
Package ‘buttercup’ installed.
  INFO     Scraping files for with-simulated-input-autoloads.el... 
  INFO     Scraping files for with-simulated-input-autoloads.el...done
Loading async...
Package ‘with-simulated-input’ installed.
LOG (2021-07-05 00:14:11): Packages installed.
LOG (2021-07-05 00:14:11): Sandbox initialized.
ERROR (2021-07-05 00:14:11): Invalid rule: /home/savnkk/test
LOG (2021-07-05 00:14:11): Running all tests...
LOG (2021-07-05 00:14:11): ERT tests not found.
LOG (2021-07-05 00:14:11): Compiling...
LOG (2021-07-05 00:14:11): Compiling file: helm-org-ql.el...

In toplevel form:
helm-org-ql.el:44:1: Warning: reference to free variable ‘rest’
helm-org-ql.el:44:1: Warning: assignment to free variable ‘rest’
LOG (2021-07-05 00:14:12): Compiling file: org-ql-search.el...

In toplevel form:
org-ql-search.el:38:1: Warning: reference to free variable ‘rest’
org-ql-search.el:38:1: Warning: assignment to free variable ‘rest’

In org-dblock-write:org-ql:
org-ql-search.el:288:36: Warning: ‘org-make-link-string’ is an obsolete
    function (as of Org 9.3); use ‘org-link-make-string’ instead.
LOG (2021-07-05 00:14:14): Compiling file: org-ql-view.el...

In toplevel form:
org-ql-view.el:41:1: Warning: reference to free variable ‘rest’
org-ql-view.el:41:1: Warning: assignment to free variable ‘rest’

In org-ql-view--link-store:
org-ql-view.el:690:10: Warning: ‘org-store-link-props’ is an obsolete function
    (as of Org 9.3); use ‘org-link-store-props’ instead.
‘define-transient-command’ is an obsolete alias (as of Transient 0.3.0); use ‘transient-define-prefix’ instead.
‘define-infix-command’ is an obsolete alias (as of Transient 0.3.0); use ‘transient-define-infix’ instead.
‘define-infix-command’ is an obsolete alias (as of Transient 0.3.0); use ‘transient-define-infix’ instead.
‘define-infix-command’ is an obsolete alias (as of Transient 0.3.0); use ‘transient-define-infix’ instead.
‘define-infix-command’ is an obsolete alias (as of Transient 0.3.0); use ‘transient-define-infix’ instead.
‘define-infix-command’ is an obsolete alias (as of Transient 0.3.0); use ‘transient-define-infix’ instead.
LOG (2021-07-05 00:14:15): Compiling file: org-ql.el...

In toplevel form:
org-ql.el:78:5: Warning: ‘org-bracket-link-regexp’ is an obsolete variable (as
    of Org 9.3); use ‘org-link-bracket-re’ instead.

In org-ql--duration-to-minutes:
org-ql.el:1252:16: Warning: ‘org-duration-string-to-minutes’ is an obsolete
    function (as of Org 9.1); use ‘org-duration-to-minutes’ instead.
LOG (2021-07-05 00:14:16): Compiling file: tests/test-org-ql.el...

In toplevel form:
test-org-ql.el:32:1: Warning: reference to free variable ‘rest’
test-org-ql.el:32:1: Warning: assignment to free variable ‘rest’
test-org-ql.el:205:49: Warning: ‘org-get-local-tags’ is an obsolete function
    (as of Org 9.2); use ‘org-get-tags’ instead.
test-org-ql.el:333:76: Warning: ‘org-ql’ is an obsolete macro (as of org-ql
    0.5); Please use functions ‘org-ql-select’ or ‘org-ql-query’ instead

In end of data:
test-org-ql.el:2125:1: Warning: the function ‘xr’ is not known to be defined.
LOG (2021-07-05 00:14:18): Compiling finished without errors.
LOG (2021-07-05 00:14:18): Running Buttercup tests...
org-ql.elc: Warning: reference to free variable ‘rest’
org-ql.elc: Warning: assignment to free variable ‘rest’
tests/test-org-ql.el: ‘org-ql’ is an obsolete macro (as of org-ql 0.5); Please use functions ‘org-ql-select’ or ‘org-ql-query’ instead
Running 373 specs.

org-ql
  Caching
    Clears value cache after buffer changes (0.77ms)
    Returns nil when cache misses and function returns nil (0.50ms)
  Query functions/macros
    org-ql (6.38ms)
    org-ql-select (4.41ms)
    org-ql-query (4.54ms)
  Query pre-processing
    (level)
      with one level (0.16ms)
      with two levels (0.14ms)
      with a comparator and a level (0.13ms)
    (link)
      with one argument (0.16ms)
      with one argument and :regexp-p (0.13ms)
      with keyword arguments (0.14ms)
    (outline-path)
      with a regexp metacharacter (0.13ms)
    (tags-inherited)
    timestamp predicates
      (clocked)
        with a number  FAILED (0.23ms)
        :from/:to/:on  FAILED (0.15ms)
      (closed)
        with a number  FAILED (0.22ms)
        :from/:to/:on  FAILED (0.14ms)
      (deadline)
        with auto (0.60ms)
        with a number  FAILED (0.15ms)
        :from/:to/:on  FAILED (0.15ms)
      (scheduled)
        with a number  FAILED (0.17ms)
        :from/:to/:on  FAILED (0.12ms)
      (planning)
        with a number  FAILED (0.13ms)
        :from/:to/:on  FAILED (35.15ms)
      (ts)
        with a number  FAILED (0.27ms)
        :from/:to/:on  FAILED (0.24ms)
  Query preambles
    (clocked)
      without arguments (0.27ms)
      with a number of days (0.22ms)
    (level)
      with a number (0.22ms)
      with two numbers (0.20ms)
      < (0.25ms)
      <= (0.20ms)
      > (0.20ms)
      >= (0.15ms)
  Plain query parsing
    Negated terms (38.05ms)
    Regexp predicates (57.33ms)
    Timestamp-based predicates (165.90ms)
    To-do predicates (31.13ms)
    Compound queries (15.05ms)
  Convert sexp queries to non-sexp queries
    (heading) (0.26ms)
    (priority) (0.81ms)
    (todo) (0.43ms)
    (ts) (0.30ms)
    (and ...) (0.23ms)
    (or ...) (0.13ms)
  Query results
    (ancestors)
      without sub-query (preamble)    (7.78ms)
      without sub-query (no preamble) (6.78ms)
      with sub-query (preamble)    (46.05ms)
      with sub-query (no preamble) (10.14ms)
    (parent)
      without sub-query (preamble)    (6.51ms)
      without sub-query (no preamble) (7.48ms)
      with sub-query (preamble)    (6.27ms)
      with sub-query (no preamble) (6.78ms)
    (category)
      without arguments (preamble)    (4.95ms)
      without arguments (no preamble) (6.05ms)
      with a category (preamble)    (4.75ms)
      with a category (no preamble) (5.92ms)
    (children)
      without arguments (preamble)    (20.49ms)
      without arguments (no preamble) (61.36ms)
      with sub-query (preamble)    (23.10ms)
      with sub-query (no preamble) (20.48ms)
      with grandchildren query (preamble)    (29.09ms)
      with grandchildren query (no preamble) (69.28ms)
    (descendants)
      without arguments (preamble)    (19.47ms)
      without arguments (no preamble) (16.40ms)
      with sub-query (preamble)    (18.94ms)
      with sub-query (no preamble) (57.68ms)
      with granddescendants query (preamble)    (24.40ms)
      with granddescendants query (no preamble) (21.23ms)
      with query that should not match parent (preamble)    (18.44ms)
      with query that should not match parent (no preamble) (50.99ms)
    (clocked)
      without arguments (preamble)     FAILED (0.16ms)
      without arguments (no preamble)  FAILED (0.13ms)
      with a number (preamble)     FAILED (0.23ms)
      with a number (no preamble)  FAILED (0.20ms)
      :from a timestamp (preamble)     FAILED (0.14ms)
      :from a timestamp (no preamble)  FAILED (0.12ms)
      :from today (preamble)     FAILED (0.12ms)
      :from today (no preamble)  FAILED (0.13ms)
      :to a timestamp (preamble)     FAILED (0.12ms)
      :to a timestamp (no preamble)  FAILED (0.12ms)
      :to today (preamble)     FAILED (0.12ms)
      :to today (no preamble)  FAILED (0.12ms)
      :on a date (preamble)     FAILED (0.12ms)
      :on a date (no preamble)  FAILED (0.12ms)
      :on today (preamble)     FAILED (0.12ms)
      :on today (no preamble)  FAILED (0.12ms)
      within a range (:from and :to) (preamble)     FAILED (0.12ms)
      within a range (:from and :to) (no preamble)  FAILED (0.12ms)
      relative dates update after midnight (preamble)     FAILED (0.20ms)
      relative dates update after midnight (no preamble)  FAILED (0.19ms)
    (closed)
      without arguments (preamble)     FAILED (0.12ms)
      without arguments (no preamble)  FAILED (0.11ms)
      with a number (preamble)     FAILED (0.19ms)
      with a number (no preamble)  FAILED (0.18ms)
      :on (preamble)     FAILED (0.12ms)
      :on (no preamble)  FAILED (0.12ms)
      :from (preamble)     FAILED (0.12ms)
      :from (no preamble)  FAILED (0.12ms)
      :to (preamble)     FAILED (0.12ms)
      :to (no preamble)  FAILED (0.12ms)
      relative dates update after midnight (preamble)     FAILED (0.19ms)
      relative dates update after midnight (no preamble)  FAILED (0.19ms)
    (deadline)
      without arguments (preamble)     FAILED (0.12ms)
      without arguments (no preamble)  FAILED (0.12ms)
      auto (preamble)    (4.55ms)
      auto (no preamble) (4.49ms)
      with a number (preamble)     FAILED (0.16ms)
      with a number (no preamble)  FAILED (0.14ms)
      :on (preamble)     FAILED (0.13ms)
      :on (no preamble)  FAILED (0.13ms)
      :from (preamble)     FAILED (0.12ms)
      :from (no preamble)  FAILED (0.17ms)
      :to (preamble)     FAILED (0.13ms)
      :to (no preamble)  FAILED (0.12ms)
      :with-time (preamble)     FAILED (0.12ms)
      :with-time (no preamble)  FAILED (0.12ms)
      relative dates update after midnight (preamble)     FAILED (0.13ms)
      relative dates update after midnight (no preamble)  FAILED (0.13ms)
    (done) (preamble)    (3.96ms)
    (done) (no preamble) (3.89ms)
    (effort)
      with a number (preamble)    (17.04ms)
      with a number (no preamble) (14.97ms)
      with two numbers (preamble)    (53.20ms)
      with two numbers (no preamble) (20.29ms)
      < (preamble)    (15.87ms)
      < (no preamble) (18.40ms)
      <= (preamble)    (26.09ms)
      <= (no preamble) (16.25ms)
      > (preamble)    (58.19ms)
      > (no preamble) (19.46ms)
      >= (preamble)    (25.83ms)
      >= (no preamble) (27.85ms)
    (habit) (preamble)    (5.94ms)
    (habit) (no preamble) (4.29ms)
    (heading)
      with one argument (preamble)    (45.92ms)
      with one argument (no preamble) (6.82ms)
      with two arguments (preamble)    (4.38ms)
      with two arguments (no preamble) (4.45ms)
    (heading-regexp)
      with one argument (preamble)    (5.88ms)
      with one argument (no preamble) (7.17ms)
      with two arguments (preamble)    (6.43ms)
      with two arguments (no preamble) (6.51ms)
    (link)
      without arguments (preamble)    (6.41ms)
      without arguments (no preamble) (6.63ms)
      with description-or-target (preamble)    (6.89ms)
      with description-or-target (no preamble) (5.52ms)
      with :description (preamble)    (6.77ms)
      with :description (no preamble) (6.59ms)
      with :target (preamble)    (7.13ms)
      with :target (no preamble) (4.77ms)
      with :description and :target (preamble)    (7.12ms)
      with :description and :target (no preamble) (6.63ms)
      with description-or-target regexp (preamble)    (6.21ms)
      with description-or-target regexp (no preamble) (3.51ms)
      with :description regexp (preamble)    (4.74ms)
      with :description regexp (no preamble) (5.39ms)
      with :target regexp (preamble)    (5.04ms)
      with :target regexp (no preamble) (38.48ms)
      with :description and :target regexp (preamble)    (4.07ms)
      with :description and :target regexp (no preamble) (3.80ms)
    (outline-path)
      with one argument (preamble)    (4.07ms)
      with one argument (no preamble) (3.73ms)
      with two arguments (preamble)    (3.74ms)
      with two arguments (no preamble) (3.71ms)
    (outline-path-segment)
      with one argument (preamble)    (3.67ms)
      with one argument (no preamble) (3.73ms)
      with a contiguous segment (preamble)    (3.62ms)
      with a contiguous segment (no preamble) (3.66ms)
      with a non-contiguous segment (preamble)    (3.54ms)
      with a non-contiguous segment (no preamble) (3.52ms)
    (path)
      without arguments (preamble)    (4.02ms)
      without arguments (no preamble) (3.82ms)
      with one argument (preamble)    (3.74ms)
      with one argument (no preamble) (3.92ms)
      with two matching arguments (preamble)    (4.72ms)
      with two matching arguments (no preamble) (4.91ms)
      with two arguments, one matching (preamble)    (5.10ms)
      with two arguments, one matching (no preamble) (39.28ms)
    (planning)
      without arguments (preamble)     FAILED (0.19ms)
      without arguments (no preamble)  FAILED (0.16ms)
      with a number (preamble)     FAILED (0.16ms)
      with a number (no preamble)  FAILED (0.17ms)
      :on (preamble)     FAILED (0.17ms)
      :on (no preamble)  FAILED (0.14ms)
      :from (preamble)     FAILED (0.15ms)
      :from (no preamble)  FAILED (0.14ms)
      :to (preamble)     FAILED (0.14ms)
      :to (no preamble)  FAILED (0.14ms)
      :with-time (preamble)     FAILED (0.14ms)
      :with-time (no preamble)  FAILED (0.14ms)
      relative dates update after midnight (preamble)     FAILED (0.15ms)
      relative dates update after midnight (no preamble)  FAILED (0.15ms)
    (priority)
      without arguments (preamble)    (4.10ms)
      without arguments (no preamble) (5.07ms)
      with a priority (preamble)    (3.80ms)
      with a priority (no preamble) (4.75ms)
      = a priority (preamble)    (3.54ms)
      = a priority (no preamble) (5.14ms)
      < a priority (preamble)    (3.79ms)
      < a priority (no preamble) (4.89ms)
      <= a priority (preamble)    (3.77ms)
      <= a priority (no preamble) (4.82ms)
      > a priority (preamble)    (3.51ms)
      > a priority (no preamble) (4.69ms)
      >= a priority (preamble)    (3.71ms)
      >= a priority (no preamble) (4.72ms)
    (property)
      with a property (preamble)    (3.60ms)
      with a property (no preamble) (3.69ms)
      with a property and a value (preamble)    (3.38ms)
      with a property and a value (no preamble) (36.92ms)
    (regexp)
      with 1 argument (preamble)    (4.02ms)
      with 1 argument (no preamble) (3.77ms)
      with 2 arguments (preamble)    (3.61ms)
      with 2 arguments (no preamble) (3.74ms)
      with a plain string (preamble)    (3.66ms)
      with a plain string (no preamble) (3.57ms)
      with two plain strings in an OR (preamble)    (3.93ms)
      with two plain strings in an OR (no preamble) (3.96ms)
      case-folding predicate with non-case-folding preamble (preamble)    (3.79ms)
      case-folding predicate with non-case-folding preamble (no preamble) (3.89ms)
    (scheduled)
      without arguments (preamble)     FAILED (0.16ms)
      without arguments (no preamble)  FAILED (0.13ms)
      with a number (preamble)     FAILED (0.14ms)
      with a number (no preamble)  FAILED (0.13ms)
      :on (preamble)     FAILED (0.13ms)
      :on (no preamble)  FAILED (0.13ms)
      :from (preamble)     FAILED (0.13ms)
      :from (no preamble)  FAILED (0.14ms)
      :to (preamble)     FAILED (0.13ms)
      :to (no preamble)  FAILED (0.13ms)
      :with-time (preamble)     FAILED (0.13ms)
      :with-time (no preamble)  FAILED (0.13ms)
      relative dates update after midnight (preamble)     FAILED (0.13ms)
      relative dates update after midnight (no preamble)  FAILED (0.14ms)
    (todo)
      without arguments (preamble)    (3.93ms)
      without arguments (no preamble) (3.83ms)
      with 1 argument (preamble)    (3.46ms)
      with 1 argument (no preamble) (3.51ms)
      with 2 arguments (preamble)    (3.32ms)
      with 2 arguments (no preamble) (3.52ms)
    (tags)
      without arguments (preamble)    (6.93ms)
      without arguments (no preamble) (41.44ms)
      with a tag (preamble)    (7.76ms)
      with a tag (no preamble) (7.77ms)
      with 2 tags (preamble)    (7.73ms)
      with 2 tags (no preamble) (7.65ms)
      with file tags (preamble)    (21.72ms)
      with file tags (no preamble) (11.52ms)
    (tags-inherited)
      without arguments (preamble)    (7.80ms)
      without arguments (no preamble) (7.44ms)
      with a tag (preamble)    (46.65ms)
      with a tag (no preamble) (12.28ms)
      with 2 tags (preamble)    (7.75ms)
      with 2 tags (no preamble) (7.82ms)
      with file tags (preamble)    (10.74ms)
      with file tags (no preamble) (11.12ms)
    (tags-local)
      without arguments (preamble)    (8.54ms)
      without arguments (no preamble) (8.38ms)
      with a tag (preamble)    (11.60ms)
      with a tag (no preamble) (48.65ms)
      with 2 tags (preamble)    (8.94ms)
      with 2 tags (no preamble) (8.22ms)
      with file tags (preamble)    (10.73ms)
      with file tags (no preamble) (10.34ms)
    (tags-all), (tags&)
      with 2 tags (preamble)    (7.66ms)
      with 2 tags (no preamble) (7.12ms)
      with file tags (preamble)    (4.84ms)
      with file tags (no preamble) (4.86ms)
    (tags-regexp), (tags*)
      without arguments (preamble)    (6.83ms)
      without arguments (no preamble) (41.09ms)
      with a tag regexp (preamble)    (7.66ms)
      with a tag regexp (no preamble) (7.79ms)
      with 2 tag regexps (preamble)    (7.60ms)
      with 2 tag regexps (no preamble) (9.44ms)
      with regexp matching file tags (preamble)    (10.84ms)
      with regexp matching file tags (no preamble) (11.10ms)
    (ts)
      active
        without arguments (preamble)     FAILED (0.16ms)
        without arguments (no preamble)  FAILED (0.13ms)
        :from a timestamp (preamble)     FAILED (0.12ms)
        :from a timestamp (no preamble)  FAILED (0.12ms)
        :from a number of days (preamble)     FAILED (0.13ms)
        :from a number of days (no preamble)  FAILED (0.13ms)
        :to a timestamp (preamble)     FAILED (0.12ms)
        :to a timestamp (no preamble)  FAILED (0.12ms)
        :to a number of days (preamble)     FAILED (0.13ms)
        :to a number of days (no preamble)  FAILED (0.12ms)
        :on a timestamp (preamble)     FAILED (0.12ms)
        :on a timestamp (no preamble)  FAILED (0.12ms)
        :on a number of days (preamble)     FAILED (0.13ms)
        :on a number of days (no preamble)  FAILED (0.13ms)
        :with-time (preamble)     FAILED (0.12ms)
        :with-time (no preamble)  FAILED (0.12ms)
      inactive
        without arguments (preamble)     FAILED (0.12ms)
        without arguments (no preamble)  FAILED (0.14ms)
        :from a timestamp (preamble)     FAILED (0.14ms)
        :from a timestamp (no preamble)  FAILED (0.14ms)
        :from a number of days (preamble)     FAILED (0.17ms)
        :from a number of days (no preamble)  FAILED (0.16ms)
        :to a timestamp (preamble)     FAILED (0.15ms)
        :to a timestamp (no preamble)  FAILED (0.14ms)
        :to a number of days (preamble)     FAILED (0.16ms)
        :to a number of days (no preamble)  FAILED (0.15ms)
        :on a timestamp (preamble)     FAILED (0.14ms)
        :on a timestamp (no preamble)  FAILED (0.14ms)
        :on a number of days (preamble)     FAILED (0.15ms)
        :on a number of days (no preamble)  FAILED (0.15ms)
        :with-time (preamble)     FAILED (0.14ms)
        :with-time (no preamble)  FAILED (0.14ms)
      both
        without arguments (preamble)     FAILED (0.14ms)
        without arguments (no preamble)  FAILED (0.13ms)
        :from a timestamp (preamble)     FAILED (0.14ms)
        :from a timestamp (no preamble)  FAILED (0.14ms)
        :from a number of days (preamble)     FAILED (0.14ms)
        :from a number of days (no preamble)  FAILED (0.14ms)
        :to a timestamp (preamble)     FAILED (0.14ms)
        :to a timestamp (no preamble)  FAILED (0.14ms)
        :to a number of days (preamble)     FAILED (0.14ms)
        :to a number of days (no preamble)  FAILED (0.14ms)
        :on a timestamp (preamble)     FAILED (0.14ms)
        :on a timestamp (no preamble)  FAILED (0.13ms)
        :on a number of days (preamble)     FAILED (0.14ms)
        :on a number of days (no preamble)  FAILED (0.15ms)
        :with-time (preamble)     FAILED (0.14ms)
        :with-time (no preamble)  FAILED (0.14ms)
        relative dates update after midnight (preamble)     FAILED (0.17ms)
        relative dates update after midnight (no preamble)  FAILED (0.16ms)
    Compound queries
      Tags and to-do (preamble)    (43.44ms)
      Tags and to-do (no preamble) (4.19ms)
  Org link safety
    buffers-files parameter
      Errors for a quoted lambda (4.62ms)
      Errors for an unquoted lambda (5.05ms)
      Errors for a quoted lambda in a list (8.25ms)
      Errors for an unquoted lambda in a list (5.28ms)
    super-groups parameter
      Errors for a quoted lambda (14.51ms)
      Errors for an unquoted lambda (13.51ms)
      Errors for a quoted expression (13.72ms)
      Errors for an unquoted expression (52.21ms)
      Errors for a :pred group (14.02ms)
      Errors for an :auto-map group (14.55ms)
    title parameter
      Errors for a quoted lambda (14.59ms)
      Errors for an unquoted lambda (54.99ms)
      Errors for an expression (14.04ms)
    sort parameter
      Errors for a quoted lambda (4.10ms)
      Errors for an unquoted lambda (4.21ms)
      Errors for a quoted lambda in a list (7.72ms)
      Errors for an unquoted lambda in a list (4.61ms)
  View saving/loading
    Bookmarks
      Grouping
        is restored (22.08ms)
      Queries
        Sexps match (51.47ms)
        Strings match (20.20ms)
      Sorting
        One sorter is restored (13.85ms)
        Multiple sorters are restored (13.96ms)
      Buffers/Files
        One filename matches (45.75ms)
        A list of filenames matches (15.68ms)
        One buffer matches (12.63ms)
        A list of buffers matches (17.28ms)
    Dynamic blocks
      warn about sexp queries
        when org-ql-ask-unsafe-queries is non-nilUpdating dynamic block ‘org-ql’ at line 3...
        when org-ql-ask-unsafe-queries is non-nil (105.73ms)
        unless org-ql-ask-unsafe-queries is nilUpdating dynamic block ‘org-ql’ at line 3...
Updating dynamic block ‘org-ql’ at line 3...done
        unless org-ql-ask-unsafe-queries is nil (70.93ms)
    Links
      Queries
        in sexp form
          prompt when `org-ql-ask-unsafe-queries' is non-nil
            and signal an error when rejected by user (169.72ms)
            and run when approved by user (138.57ms)
          don't prompt when `org-ql-ask-unsafe-queries' is nil (186.57ms)
          match after restoring (172.76ms)
        in raw sexp form
          prompt when `org-ql-ask-unsafe-queries' is non-nil
            and signal an error when rejected by user (60.93ms)
            and run when approved by user (67.74ms)
          don't prompt when `org-ql-ask-unsafe-queries' is nil (102.10ms)
          match after restoring (65.55ms)
          could be evil when not prompted about (64.98ms)
        in string form
          match after restoring (180.19ms)
      Grouping
        is restored (183.34ms)
      Sorting
        One sorter is restored (207.64ms)
        Multiple sorters are restored (197.59ms)
      Buffers/Files
        Can search a file by filename (159.12ms)
        Can search multiple files by filename (274.45ms)
        Can search buffer containing the link (272.28ms)
        Refuses to link to non-file-backed buffer (120.22ms)

========================================
org-ql Query pre-processing timestamp predicates (clocked) with a number

Traceback (most recent call last):
  org-ql--normalize-query((clocked 0))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query pre-processing timestamp predicates (clocked) :from/:to/:on

Traceback (most recent call last):
  org-ql--normalize-query((clocked :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query pre-processing timestamp predicates (closed) with a number

Traceback (most recent call last):
  org-ql--normalize-query((closed 0))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query pre-processing timestamp predicates (closed) :from/:to/:on

Traceback (most recent call last):
  org-ql--normalize-query((closed :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query pre-processing timestamp predicates (deadline) with a number

Traceback (most recent call last):
  org-ql--normalize-query((deadline 0))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query pre-processing timestamp predicates (deadline) :from/:to/:on

Traceback (most recent call last):
  org-ql--normalize-query((deadline :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query pre-processing timestamp predicates (scheduled) with a number

Traceback (most recent call last):
  org-ql--normalize-query((scheduled 0))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query pre-processing timestamp predicates (scheduled) :from/:to/:on

Traceback (most recent call last):
  org-ql--normalize-query((scheduled :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query pre-processing timestamp predicates (planning) with a number

Traceback (most recent call last):
  org-ql--normalize-query((planning 0))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query pre-processing timestamp predicates (planning) :from/:to/:on

Traceback (most recent call last):
  org-ql--normalize-query((planning :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query pre-processing timestamp predicates (ts) with a number

Traceback (most recent call last):
  org-ql--normalize-query((ts 0))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query pre-processing timestamp predicates (ts) :from/:to/:on

Traceback (most recent call last):
  org-ql--normalize-query((ts :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) without arguments (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked) :action (org-ql-test-org-get-head...
  org-ql--normalize-query((clocked))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) without arguments (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked) :action (org-ql-test-org-get-head...
  org-ql--normalize-query((clocked))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) with a number (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked 10) :action (org-ql-test-org-get-h...
  org-ql--normalize-query((clocked 10))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) with a number (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked 10) :action (org-ql-test-org-get-h...
  org-ql--normalize-query((clocked 10))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) :from a timestamp (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked :from "2017-07-05") :action (org-q...
  org-ql--normalize-query((clocked :from "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) :from a timestamp (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked :from "2017-07-05") :action (org-q...
  org-ql--normalize-query((clocked :from "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) :from today (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked :from today) :action (org-ql-test-...
  org-ql--normalize-query((clocked :from today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) :from today (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked :from today) :action (org-ql-test-...
  org-ql--normalize-query((clocked :from today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) :to a timestamp (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked :to "2017-07-05") :action (org-ql-...
  org-ql--normalize-query((clocked :to "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) :to a timestamp (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked :to "2017-07-05") :action (org-ql-...
  org-ql--normalize-query((clocked :to "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) :to today (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked :to today) :action (org-ql-test-or...
  org-ql--normalize-query((clocked :to today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) :to today (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked :to today) :action (org-ql-test-or...
  org-ql--normalize-query((clocked :to today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) :on a date (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked :on "2017-07-05") :action (org-ql-...
  org-ql--normalize-query((clocked :on "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) :on a date (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked :on "2017-07-05") :action (org-ql-...
  org-ql--normalize-query((clocked :on "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) :on today (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked :on today) :action (org-ql-test-or...
  org-ql--normalize-query((clocked :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) :on today (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked :on today) :action (org-ql-test-or...
  org-ql--normalize-query((clocked :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) within a range (:from and :to) (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked :from "2017-07-04" :to "2018-12-11...
  org-ql--normalize-query((clocked :from "2017-07-04" :to "2018-12-11"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) within a range (:from and :to) (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked :from "2017-07-04" :to "2018-12-11...
  org-ql--normalize-query((clocked :from "2017-07-04" :to "2018-12-11"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) relative dates update after midnight (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked 0) :action (org-ql-test-org-get-he...
  org-ql--normalize-query((clocked 0))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (clocked) relative dates update after midnight (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (clocked 0) :action (org-ql-test-org-get-he...
  org-ql--normalize-query((clocked 0))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (closed) without arguments (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (closed) :action (org-ql-test-org-get-headi...
  org-ql--normalize-query((closed))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (closed) without arguments (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (closed) :action (org-ql-test-org-get-headi...
  org-ql--normalize-query((closed))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (closed) with a number (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (closed 10) :action (org-ql-test-org-get-he...
  org-ql--normalize-query((closed 10))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (closed) with a number (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (closed 10) :action (org-ql-test-org-get-he...
  org-ql--normalize-query((closed 10))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (closed) :on (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (closed :on "2017-07-05") :action (org-ql-t...
  org-ql--normalize-query((closed :on "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (closed) :on (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (closed :on "2017-07-05") :action (org-ql-t...
  org-ql--normalize-query((closed :on "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (closed) :from (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (closed :from "2017-07-04") :action (org-ql...
  org-ql--normalize-query((closed :from "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (closed) :from (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (closed :from "2017-07-04") :action (org-ql...
  org-ql--normalize-query((closed :from "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (closed) :to (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (closed :to "2017-07-04") :action (org-ql-t...
  org-ql--normalize-query((closed :to "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (closed) :to (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (closed :to "2017-07-04") :action (org-ql-t...
  org-ql--normalize-query((closed :to "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (closed) relative dates update after midnight (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (closed 0) :action (org-ql-test-org-get-hea...
  org-ql--normalize-query((closed 0))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (closed) relative dates update after midnight (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (closed 0) :action (org-ql-test-org-get-hea...
  org-ql--normalize-query((closed 0))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (deadline) without arguments (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (deadline) :action (org-ql-test-org-get-hea...
  org-ql--normalize-query((deadline))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (deadline) without arguments (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (deadline) :action (org-ql-test-org-get-hea...
  org-ql--normalize-query((deadline))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (deadline) with a number (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (deadline 2) :action (org-ql-test-org-get-h...
  org-ql--normalize-query((deadline 2))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (deadline) with a number (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (deadline 2) :action (org-ql-test-org-get-h...
  org-ql--normalize-query((deadline 2))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (deadline) :on (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (deadline :on "2017-07-05") :action (org-ql...
  org-ql--normalize-query((deadline :on "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (deadline) :on (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (deadline :on "2017-07-05") :action (org-ql...
  org-ql--normalize-query((deadline :on "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (deadline) :from (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (deadline :from "2017-07-04") :action (org-...
  org-ql--normalize-query((deadline :from "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (deadline) :from (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (deadline :from "2017-07-04") :action (org-...
  org-ql--normalize-query((deadline :from "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (deadline) :to (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (deadline :to "2017-07-04") :action (org-ql...
  org-ql--normalize-query((deadline :to "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (deadline) :to (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (deadline :to "2017-07-04") :action (org-ql...
  org-ql--normalize-query((deadline :to "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (deadline) :with-time (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (deadline :with-time nil) :action (org-ql-t...
  org-ql--normalize-query((deadline :with-time nil))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (deadline) :with-time (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (deadline :with-time nil) :action (org-ql-t...
  org-ql--normalize-query((deadline :with-time nil))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (deadline) relative dates update after midnight (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (deadline :on today) :action (org-ql-test-o...
  org-ql--normalize-query((deadline :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (deadline) relative dates update after midnight (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (deadline :on today) :action (org-ql-test-o...
  org-ql--normalize-query((deadline :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (planning) without arguments (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (planning) :action (org-ql-test-org-get-hea...
  org-ql--normalize-query((planning))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (planning) without arguments (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (planning) :action (org-ql-test-org-get-hea...
  org-ql--normalize-query((planning))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (planning) with a number (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (planning 2) :action (org-ql-test-org-get-h...
  org-ql--normalize-query((planning 2))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (planning) with a number (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (planning 2) :action (org-ql-test-org-get-h...
  org-ql--normalize-query((planning 2))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (planning) :on (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (planning :on "2017-07-05") :action (org-ql...
  org-ql--normalize-query((planning :on "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (planning) :on (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (planning :on "2017-07-05") :action (org-ql...
  org-ql--normalize-query((planning :on "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (planning) :from (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (planning :from "2017-07-04") :action (org-...
  org-ql--normalize-query((planning :from "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (planning) :from (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (planning :from "2017-07-04") :action (org-...
  org-ql--normalize-query((planning :from "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (planning) :to (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (planning :to "2017-07-04") :action (org-ql...
  org-ql--normalize-query((planning :to "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (planning) :to (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (planning :to "2017-07-04") :action (org-ql...
  org-ql--normalize-query((planning :to "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (planning) :with-time (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (planning :with-time nil) :action (org-ql-t...
  org-ql--normalize-query((planning :with-time nil))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (planning) :with-time (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (planning :with-time nil) :action (org-ql-t...
  org-ql--normalize-query((planning :with-time nil))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (planning) relative dates update after midnight (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (planning :on today) :action (org-ql-test-o...
  org-ql--normalize-query((planning :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (planning) relative dates update after midnight (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (planning :on today) :action (org-ql-test-o...
  org-ql--normalize-query((planning :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (scheduled) without arguments (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (scheduled) :action (org-ql-test-org-get-he...
  org-ql--normalize-query((scheduled))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (scheduled) without arguments (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (scheduled) :action (org-ql-test-org-get-he...
  org-ql--normalize-query((scheduled))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (scheduled) with a number (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (scheduled -1) :action (org-ql-test-org-get...
  org-ql--normalize-query((scheduled -1))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (scheduled) with a number (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (scheduled -1) :action (org-ql-test-org-get...
  org-ql--normalize-query((scheduled -1))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (scheduled) :on (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (scheduled :on "2017-07-05") :action (org-q...
  org-ql--normalize-query((scheduled :on "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (scheduled) :on (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (scheduled :on "2017-07-05") :action (org-q...
  org-ql--normalize-query((scheduled :on "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (scheduled) :from (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (scheduled :from "2017-07-04") :action (org...
  org-ql--normalize-query((scheduled :from "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (scheduled) :from (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (scheduled :from "2017-07-04") :action (org...
  org-ql--normalize-query((scheduled :from "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (scheduled) :to (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (scheduled :to "2017-07-04") :action (org-q...
  org-ql--normalize-query((scheduled :to "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (scheduled) :to (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (scheduled :to "2017-07-04") :action (org-q...
  org-ql--normalize-query((scheduled :to "2017-07-04"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (scheduled) :with-time (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (scheduled :with-time t) :action (org-ql-te...
  org-ql--normalize-query((scheduled :with-time t))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (scheduled) :with-time (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (scheduled :with-time t) :action (org-ql-te...
  org-ql--normalize-query((scheduled :with-time t))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (scheduled) relative dates update after midnight (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (scheduled :on today) :action (org-ql-test-...
  org-ql--normalize-query((scheduled :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (scheduled) relative dates update after midnight (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (scheduled :on today) :action (org-ql-test-...
  org-ql--normalize-query((scheduled :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active without arguments (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :type active) :action (org-ql-test-org-...
  org-ql--normalize-query((ts :type active))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active without arguments (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :type active) :action (org-ql-test-org-...
  org-ql--normalize-query((ts :type active))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active :from a timestamp (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :from "2017-07-08" :type active) :actio...
  org-ql--normalize-query((ts :from "2017-07-08" :type active))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active :from a timestamp (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :from "2017-07-08" :type active) :actio...
  org-ql--normalize-query((ts :from "2017-07-08" :type active))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active :from a number of days (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :from 5) :action (org-ql-test-org-get-h...
  org-ql--normalize-query((ts :from 5))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active :from a number of days (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :from 5) :action (org-ql-test-org-get-h...
  org-ql--normalize-query((ts :from 5))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active :to a timestamp (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :to "2019-06-10" :type active) :action ...
  org-ql--normalize-query((ts :to "2019-06-10" :type active))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active :to a timestamp (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :to "2019-06-10" :type active) :action ...
  org-ql--normalize-query((ts :to "2019-06-10" :type active))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active :to a number of days (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :to -1) :action (org-ql-test-org-get-he...
  org-ql--normalize-query((ts :to -1))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active :to a number of days (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :to -1) :action (org-ql-test-org-get-he...
  org-ql--normalize-query((ts :to -1))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active :on a timestamp (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :on "2017-07-05" :type active) :action ...
  org-ql--normalize-query((ts :on "2017-07-05" :type active))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active :on a timestamp (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :on "2017-07-05" :type active) :action ...
  org-ql--normalize-query((ts :on "2017-07-05" :type active))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active :on a number of days (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts-active :on 2) :action (org-ql-test-org-...
  org-ql--normalize-query((ts-active :on 2))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active :on a number of days (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts-active :on 2) :action (org-ql-test-org-...
  org-ql--normalize-query((ts-active :on 2))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active :with-time (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts-active :with-time nil) :action (org-ql-...
  org-ql--normalize-query((ts-active :with-time nil))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) active :with-time (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts-active :with-time nil) :action (org-ql-...
  org-ql--normalize-query((ts-active :with-time nil))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive without arguments (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :type inactive) :action (org-ql-test-or...
  org-ql--normalize-query((ts :type inactive))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive without arguments (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :type inactive) :action (org-ql-test-or...
  org-ql--normalize-query((ts :type inactive))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive :from a timestamp (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :from "2017-07-06" :type inactive) :act...
  org-ql--normalize-query((ts :from "2017-07-06" :type inactive))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive :from a timestamp (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :from "2017-07-06" :type inactive) :act...
  org-ql--normalize-query((ts :from "2017-07-06" :type inactive))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive :from a number of days (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts-i :from 5) :action (org-ql-test-org-get...
  org-ql--normalize-query((ts-i :from 5))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive :from a number of days (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts-i :from 5) :action (org-ql-test-org-get...
  org-ql--normalize-query((ts-i :from 5))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive :to a timestamp (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :to "2019-06-10" :type inactive) :actio...
  org-ql--normalize-query((ts :to "2019-06-10" :type inactive))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive :to a timestamp (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :to "2019-06-10" :type inactive) :actio...
  org-ql--normalize-query((ts :to "2019-06-10" :type inactive))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive :to a number of days (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts-i :to 5) :action (org-ql-test-org-get-h...
  org-ql--normalize-query((ts-i :to 5))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive :to a number of days (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts-i :to 5) :action (org-ql-test-org-get-h...
  org-ql--normalize-query((ts-i :to 5))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive :on a timestamp (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :on "2017-07-05" :type inactive) :actio...
  org-ql--normalize-query((ts :on "2017-07-05" :type inactive))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive :on a timestamp (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :on "2017-07-05" :type inactive) :actio...
  org-ql--normalize-query((ts :on "2017-07-05" :type inactive))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive :on a number of days (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts-inactive :on 19) :action (org-ql-test-o...
  org-ql--normalize-query((ts-inactive :on 19))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive :on a number of days (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts-inactive :on 19) :action (org-ql-test-o...
  org-ql--normalize-query((ts-inactive :on 19))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive :with-time (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts-inactive :with-time nil) :action (org-q...
  org-ql--normalize-query((ts-inactive :with-time nil))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) inactive :with-time (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts-inactive :with-time nil) :action (org-q...
  org-ql--normalize-query((ts-inactive :with-time nil))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both without arguments (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts) :action (org-ql-test-org-get-heading))
  org-ql--normalize-query((ts))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both without arguments (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts) :action (org-ql-test-org-get-heading))
  org-ql--normalize-query((ts))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both :from a timestamp (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :from "2017-07-05") :action (org-ql-tes...
  org-ql--normalize-query((ts :from "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both :from a timestamp (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :from "2017-07-05") :action (org-ql-tes...
  org-ql--normalize-query((ts :from "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both :from a number of days (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :from -5) :action (org-ql-test-org-get-...
  org-ql--normalize-query((ts :from -5))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both :from a number of days (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :from -5) :action (org-ql-test-org-get-...
  org-ql--normalize-query((ts :from -5))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both :to a timestamp (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :to "2017-07-06") :action (org-ql-test-...
  org-ql--normalize-query((ts :to "2017-07-06"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both :to a timestamp (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :to "2017-07-06") :action (org-ql-test-...
  org-ql--normalize-query((ts :to "2017-07-06"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both :to a number of days (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :to 5) :action (org-ql-test-org-get-hea...
  org-ql--normalize-query((ts :to 5))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both :to a number of days (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :to 5) :action (org-ql-test-org-get-hea...
  org-ql--normalize-query((ts :to 5))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both :on a timestamp (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :on "2017-07-05") :action (org-ql-test-...
  org-ql--normalize-query((ts :on "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both :on a timestamp (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :on "2017-07-05") :action (org-ql-test-...
  org-ql--normalize-query((ts :on "2017-07-05"))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both :on a number of days (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :on 5) :action (org-ql-test-org-get-hea...
  org-ql--normalize-query((ts :on 5))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both :on a number of days (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :on 5) :action (org-ql-test-org-get-hea...
  org-ql--normalize-query((ts :on 5))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both :with-time (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :with-time nil) :action (org-ql-test-or...
  org-ql--normalize-query((ts :with-time nil))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both :with-time (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :with-time nil) :action (org-ql-test-or...
  org-ql--normalize-query((ts :with-time nil))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both relative dates update after midnight (preamble)   

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :on today) :action (org-ql-test-org-get...
  org-ql--normalize-query((ts :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

========================================
org-ql Query results (ts) both relative dates update after midnight (no preamble)

Traceback (most recent call last):
  org-ql-select(#<killed buffer> (ts :on today) :action (org-ql-test-org-get...
  org-ql--normalize-query((ts :on today))
  #[(element) "\306▒\307\310▒\311312\313\314@\315A\316B\317C\320D\...
  #[nil \306▒\307\n\310\"307\n\311\"\307\n\312\"\307\n\313\"'   ('\2...
error: (void-variable rest)

Ran 373 specs, 136 failed, in 6.60s.
Debugger entered--Lisp error: (error "")
  signal(error (""))
  error("")
  (or noerror (error ""))
  (not (or noerror (error "")))
  (or (= 0 (buttercup-suites-total-specs-failed suites)) (not (or noerror (error ""))))
  buttercup--run-suites((#s(buttercup-suite :description "org-ql" :parent nil :status passed :failure-description 22 :failure-stack nil :time-started (24802 45388 48465 798000) :time-ended (24802 45394 36294 568000) :children (... ... ... ... ... ... ... ... ...) :before-each nil :after-each nil :before-all (...) :after-all nil)) nil)
  (if buttercup-suites (buttercup--run-suites buttercup-suites noerror) (or (and noerror :no-suites) (error "No suites defined")))
  buttercup-run()
  command-line-1(("--title" "makem.sh: org-ql (sandbox: /tmp/tmp.xdDFN9y44j)" "--eval" "(setq init-file-debug t)" "--eval" "(setq debug-on-error t)" "--eval" "(setq user-emacs-directory (file-truename \"/tmp/tm..." "--eval" "(setq user-init-file (file-truename \"/tmp/tmp.xdDF..." "-l" "/tmp/tmp.uhJgSrlrTP" "-L" "." "-L" "tests" "--load" "tests/test-org-ql.el" "-f" "buttercup-run"))
  command-line()
  normal-top-level()

ERROR (2021-07-05 00:14:26): Buttercup tests failed.
LOG (2021-07-05 00:14:26): Finished with 2 errors.
```

@alphapapa
Copy link
Owner

How did you install Emacs? From what source and/or package?

When you installed versions of this package other than from MELPA, what procedure did you follow?

Yes. emacs == 28.0.5 > 26.1, dash==2.18.1 == 2.18.1, map == 3.0 > 2.1, and so on.

I don't understand what that means.

@natask
Copy link
Contributor Author

natask commented Jul 5, 2021

I built emacs 28.0.5 from source on my machine.

Yes. emacs == 28.0.5 > 26.1, dash==2.18.1 == 2.18.1, map == 3.0 > 2.1, and so on.

I meant, my version of emacs is 28.0.5 and org-ql declares emacs 26.1. The packages I use are either the same version or higher compared to what is declared in org-ql.

@alphapapa
Copy link
Owner

Thanks.

Please note that Emacs 28 is not yet released, and by running Emacs master, you do open yourself up to occasional pre-release breakage (e.g. alphapapa/ts.el#18, though probably not related to this problem). As well, sometimes breaking changes happen from one Emacs release to another, so although this package requires at least Emacs 26.1, that doesn't mean that subsequent Emacs releases won't exhibit problems. And the same goes for package versions: using a version of a package later than the minimum declared version doesn't mean a problem won't arise.

Anyway, I may have found the problem. Please test this commit: 85540f5

@alphapapa
Copy link
Owner

alphapapa commented Jul 5, 2021

I built emacs 28.0.5 from source on my machine.

Please elaborate on this as well. Did you then install the built Emacs? Or did you run it from the build directory? Did you change any of the build options or flags?

Can you reproduce this problem by using a distro-provided Emacs package?

I ask these questions because I am completely unable to reproduce the problem on my system, and yet it also happens on GitHub CI, but not to the degree which you encounter it (i.e. only that one test fails, while for you, it seems like actually running searches fails). The only possible explanation I have at the moment is some difference in how Emacs is built or installed, a difference which may be common to your system and the Nix-based environment used in the CI. I have once encountered a similarly weird problem which was caused by a distro-provided package installing a system-level Elisp file that shadowed another one, causing obsolete/broken code to be invisibly loaded before my own config; it was a major pain to troubleshoot. That seems unlikely, but it's all I have left.

@natask
Copy link
Contributor Author

natask commented Jul 5, 2021

The latest commit suffers from the same issue.

 Warning: reference to free variable ‘argh’
 Warning: assignment to free variable ‘argh’

I installed emacs 27.2-1 and org-ql works on it without issues.

This is most likely issue related with emacs 28.5.
Thanks for the help.

@natask natask closed this as completed Jul 5, 2021
@alphapapa
Copy link
Owner

alphapapa commented Jul 5, 2021

As much as I'd like to close this issue and forget about it, I think that would be unwise, considering how a change in Emacs 28.0.50 was recently discovered to affect ts-fill. For example, there may have been a change in pcase that affects the macro expansions. It would be best if we could track down this problem and try to get it fixed before Emacs 28 releases.

@tpeacock19 Since you recently and very rapidly (from my perspective!) tracked down a similar change in Emacs 28, would you be able to help here? If you can bisect it with a script, this Lisp form should signal an error only after the breaking change in Emacs 28:

    (org-ql--normalize-query '(or (ts-active :on "2019-01-01")
                                  (ts-a :on "2019-01-01")
                                  (ts-inactive :on "2019-01-01")
                                  (ts-i :on "2019-01-01")))

Although byte-compiling and/or loading the package's files may also warn or error about void/free variables after the breaking change (assuming there is one).

Also, I can't be certain that this is exclusive to Emacs 28, because before 85540f5, that one test fails on 26.3, 27.1, and 27.2 also, but only on CI--not on my system. But none of the other tests fail, i.e. the ones that actually test the query results, which doesn't make sense, because they should exercise the same code paths.

While messing with these variable names in the pcase forms, I somehow made pcase give the error Please avoid it, which appears twice in pcase.el:

Notably, the error calls are adjacent to the symbol rest. Then, when I renamed the symbol rest to argh in these forms, that error went away, and the test passed on all Emacs versions. I could just imagine this deep error during macro expansion somehow not being raised up to the output from Buttercup. Maybe somehow it's a bug in pcase shadowing the symbol rest? That seems very unlikely, but so far, the signs seem to point to something strange going on there (and the weird "Please avoid it" error is...well, weird). I'm tempted to ask Stefan Monnier, but we should exhaust other options first.

@alphapapa alphapapa reopened this Jul 5, 2021
@alphapapa alphapapa changed the title error: Symbol’s value as variable is void: rest. Associated with time based queries Possible macro-expansion or pcase-related bug in Emacs 28 Jul 5, 2021
@natask
Copy link
Contributor Author

natask commented Jul 5, 2021

As a side note, I am building emacs from the arch user repository. I was on emacs-version 28.50 $(git rev-list --count HEAD) = 142261). I will build the lastest AUR emacs-version $(git rev-list --count HEAD) == 148607 and see if the problem persists.

@alphapapa
Copy link
Owner

I will build the lastest AUR emacs-version $(git rev-list --count HEAD) == 148607 and see if the problem persists.

Yes, it would be good to test with the latest version first.

Regarding "Please avoid it" errors, I searched and found this discussion from 2016: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=20784#35 That doesn't explain what's going on here, but Stefan did say:

IIRC they should only show up in unusual cases, so I made them signal errors, to try and see when/where those cases show up. So far I never bumped into them and haven't received any bug report about them either. We should probably remove them, tho, because those corner cases may be annoying to avoid when doing metaprogramming.

I wonder if I have encountered one of those "corner cases...when doing metaprogramming"...

@natask
Copy link
Contributor Author

natask commented Jul 5, 2021

I built and no issues.
I get the following warning though.

 Warning: pcase pattern `(,(or 'tags-inherited 'inherited-tags 'tags-i
    'itags)) shadowed by previous pcase pattern

@alphapapa
Copy link
Owner

I get the following warning though.

That's unrelated to this problem; see relevant issue/PR on this repo.

I built and no issues.

Okay, so to summarize:

  1. The problem does not occur for you with Emacs 27.2.
  2. The problem does occur for you with Emacs 28.0.50 ~6,000 commits ago.
  3. The problem does not occur for you with Emacs 28.0.50 from the latest commit.

Is that correct?

@natask
Copy link
Contributor Author

natask commented Jul 5, 2021

  1. Yes.
  2. Yes.
  3. Not quite. no issues on commit 148607. Emacs is on commit 148,851. Unless a bug was introduced in the last ~250 commits, Yes.

@alphapapa
Copy link
Owner

Note to self: Issues with ts and local system timezones appear to have been the cause of the "weird" test failure I had only on GitHub CI (i.e. alphapapa/ts.el#6; the failure is completely understandable in light of that, but the way in which it failed, with Buttercup not handling the failure properly, made it seem inexplicable, and made me wonder if it was a deep macro expansion problem, like pcase--u1 signalling an error in macro expansion might cause).

So that test failure appears to be unrelated to the void/free variable errors described here.

The errors described here...I have no explanation for them, other than it being caused by a change in Emacs 28.0 that's already been fixed.

@tpeacock19 Please ignore my request for your help, and sorry for the noise.

So, unless this can ever be reproduced, it does not appear to be a bug in this package, or even in Emacs anymore.

@natask When reporting bugs, please be careful to reproduce them on either the latest released Emacs version, and/or on the latest commit from Emacs master (in which case it might indicate a bug in Emacs rather than in this package). My first instinct in replying to this issue was to point to the passing tests and suggest a problem on your end, but then I remembered the apparently weird test failures I had recently, and I thought maybe they were related...so I went down the rabbit hole...and 2 hours later, it turns out to have been simply a case of your running an outdated master build of an unreleased Emacs version. :/

@natask
Copy link
Contributor Author

natask commented Jul 5, 2021

My sincere apologizes. I will do so in the future.

@alphapapa
Copy link
Owner

Well, it's a lesson for me, too: in your first message, you said your Emacs build was "of 2020-08-20," and I noticed it, but I decided to start digging anyway. I should have waited for confirmation about the latest Emacs build before investing much time.

At least this helped me verify the cause of that weird test failure, so maybe some good came from it.

Thanks for your quick responses.

@alphapapa
Copy link
Owner

alphapapa commented Jul 5, 2021

Also, note to self: I think my causing the pcase-related "Please avoid it" errors was due to a mistake I made when trying to debug the void/free variable errors, in which I didn't rename some of the symbols in some of the pcase expression forms to match the changes in the pattern forms; pcase was right to complain about that, but the error message wasn't very helpful. (It's a good thing I didn't bother Stefan about it; that would have wasted his time. Although he might be receptive to improving the error message, or removing them altogether, as he mentioned in that bug message.)

@ParetoOptimalDev
Copy link

I think my causing the pcase-related "Please avoid it"

I'm getting this error, perhaps it's worth creating a new issue?

Here are the details for now regardless:

GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.41, cairo version 1.18.0)
org-ql Version: 0.9-pre 20240403.2027

Using trivial org file:

* TODO test

backtrace:

Debugger entered--Lisp error: (error "Please avoid it")
  error("Please avoid it")
  pcase--u1(((or (match x169 quote effort)) (match element app cdr-safe (and (pred consp) (app car-safe _comparator-or-num) (app cdr-safe ...)))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>) nil (((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ... ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ... ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ... ...) (match element app cdr-safe regexps)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe plist)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ... ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe letters)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ... ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ... ...) (match element app cdr-safe regexps)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe args)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ... ... ... ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe _)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe rest)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe _)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe rest)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ...) (match element app cdr-safe rest)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (or ... ... ... ... ...) (match element app cdr-safe rest)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match x169 quote and) (match element app cdr-safe rest)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ...))
  pcase--u1(((match element app car-safe (or 'effort)) (match element app cdr-safe (and (pred consp) (app car-safe _comparator-or-num) (app cdr-safe (and ... ... ...))))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>) nil (((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe 'nil)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ... ...)) (match element app cdr-safe 'nil)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ... ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ... ...)) (match element app cdr-safe regexps)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe 'nil)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe 'nil)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe plist)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ... ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe 'nil)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe letters)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ... ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ... ...)) (match element app cdr-safe regexps)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe 'nil)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe args)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ... ... ... ...)) (match element app cdr-safe (and tags ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and todo-keywords ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe 'nil)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe _)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe rest)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe _)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe rest)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ...)) (match element app cdr-safe rest)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe (or ... ... ... ... ...)) (match element app cdr-safe rest)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and (match element app car-safe 'and) (match element app cdr-safe rest)) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((match element . _) #f(compiled-function (vars) #<bytecode 0x110e043f93c0367f>))))
  pcase--u1(((match element pred consp) (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>) nil (((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ...))
  pcase--u1(((and (match element pred consp) (match element app car-safe ...) (match element app cdr-safe ...))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>) nil (((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ...))
  pcase--u((((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ...))
  pcase--u1(((match element quote (or _))) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>) nil (((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ...))
  pcase--u((((match element quote ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ((and ... ... ...) #f(compiled-function (vars) #<bytecode 0xf8a59908b4036a7>)) ...))
  pcase-compile-patterns(element ((`(or _) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3273fc6cba44bbc>)) (`(,(or 'effort) ,_comparator-or-num ,_num) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'effort) ,num) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'habit)) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'heading-regexp 'h*)) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'heading-regexp 'h*) ,regexp) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'heading-regexp 'h*) \, regexps) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'level)) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'level) ,comparator-or-num ,num) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'level) ,num) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'link)) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'link) ,(and description-or-target (guard ...)) \, plist) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'link) \, plist) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'rifle 'smart) :regexps ',regexps) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'priority)) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'priority) ,(and (or ... ... ... ... ...) comparator) ,letter) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'priority) \, letters) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'property) ,property ,value \, (map :inherit)) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'property) ,property \, (map :inherit)) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'regexp 'r) ,regexp) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'regexp 'r) \, regexps) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'src)) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'src) \, args) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'tags-local 'local-tags 'tags-l 'ltags) \, (and tags (guard tags))) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'todo) \, (and todo-keywords (guard todo-keywords))) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'clocked) ,(pred numberp)) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'clocked)) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'closed) \, _) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'deadline) \, rest) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'deadline-warning) \, _) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'planning) \, rest) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'scheduled) \, rest) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(,(or 'ts 'ts-active 'ts-a 'ts-inactive 'ts-i) \, rest) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (`(and \, rest) . #f(compiled-function (varvals count &rest _) #<bytecode 0x3f69d222ba44bbc>)) (_ . #f(compiled-function (varvals count &rest _) #<bytecode 0x3273fc6cba44bbc>))))
  pcase--expand(element ((`(or _) element) (`(,... ,_comparator-or-num ,_num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,comparator-or-num ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... :regexps '...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... ,letter) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, letters) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property ,value \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, args) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and tags ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and todo-keywords ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(and \, rest) (let ((clauses ...)) `(and ...))) (_ element)))
  #f(compiled-function (exp &rest cases) "Evaluate EXP to get EXPVAL; try passing control to one of CASES.\nCASES is a list of elements of the form (PATTERN CODE...).\nFor the first CASE whose PATTERN \"matches\" EXPVAL,\nevaluate its CODE..., and return the value of the last form.\nIf no CASE has a PATTERN that matches, return nil.\n\nEach PATTERN expands, in essence, to a predicate to call\non EXPVAL.  When the return value of that call is non-nil,\nPATTERN matches.  PATTERN can take one of the forms:\n\n  _                matches anything.\n  \\='VAL             matches if EXPVAL is `equal' to VAL.\n  KEYWORD          shorthand for \\='KEYWORD\n  INTEGER          shorthand for \\='INTEGER\n  STRING           shorthand for \\='STRING\n  SYMBOL           matches anything and binds it to SYMBOL.\n                   If a SYMBOL is used twice in the same pattern\n                   the second occurrence becomes an `eq'uality test.\n  (pred FUN)       matches if FUN called on EXPVAL returns non-nil.\n  (pred (not FUN)) matches if FUN called on EXPVAL returns nil.\n  (app FUN PAT)    matches if FUN called on EXPVAL matches PAT.\n  (guard BOOLEXP)  matches if BOOLEXP evaluates to non-nil.\n  (and PAT...)     matches if all the patterns match.\n  (or PAT...)      matches if any of the patterns matches.\n\nFUN in `pred' and `app' can take one of the forms:\n  SYMBOL  or  (lambda ARGS BODY)\n     call it with one argument\n  (F ARG1 .. ARGn)\n     call F with ARG1..ARGn and EXPVAL as n+1'th argument\n  (F ARG1 .. _ .. ARGn)\n     call F, passing EXPVAL at the _ position.\n\nFUN, BOOLEXP, and subsequent PAT can refer to variables\nbound earlier in the pattern by a SYMBOL pattern.\n\nAdditional patterns can be defined using `pcase-defmacro'.\n\nSee Info node `(elisp) Pattern-Matching Conditional' in the\nEmacs Lisp manual for more information and examples." #<bytecode -0x183752b12bd396b9>)(element (`(or _) element) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, regexps) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... \, plist) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, plist) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... :regexps ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, letters) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, regexps) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, args) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) ...)
  macroexpand-1((pcase element (`(or _) element) (`(,... ,_comparator-or-num ,_num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,comparator-or-num ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... :regexps '...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... ,letter) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, letters) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property ,value \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, args) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and tags ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and todo-keywords ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(and \, rest) (let ((clauses ...)) `(and ...))) (_ element)) ((function . cl--labels-convert) (rec . #f(compiled-function (&rest args) #<bytecode -0x5bf968993ba17c4>))))
  macroexp-macroexpand((pcase element (`(or _) element) (`(,... ,_comparator-or-num ,_num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,comparator-or-num ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... :regexps '...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... ,letter) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, letters) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property ,value \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, args) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and tags ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and todo-keywords ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(and \, rest) (let ((clauses ...)) `(and ...))) (_ element)) ((function . cl--labels-convert) (rec . #f(compiled-function (&rest args) #<bytecode -0x5bf968993ba17c4>))))
  macroexp--expand-all((pcase element (`(or _) element) (`(,... ,_comparator-or-num ,_num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,comparator-or-num ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... :regexps '...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... ,letter) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, letters) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property ,value \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, args) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and tags ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and todo-keywords ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(and \, rest) (let ((clauses ...)) `(and ...))) (_ element)))
  macroexp--all-forms((or (when org-ql-preamble element) (pcase element (`(or _) element) (`(,... ,_comparator-or-num ,_num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,comparator-or-num ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... :regexps '...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... ,letter) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, letters) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property ,value \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, args) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and tags ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and todo-keywords ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(and \, rest) (let ((clauses ...)) `(and ...))) (_ element))) 1)
  macroexp--expand-all((or (when org-ql-preamble element) (pcase element (`(or _) element) (`(,... ,_comparator-or-num ,_num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,comparator-or-num ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... :regexps '...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... ,letter) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, letters) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property ,value \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, args) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and tags ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and todo-keywords ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(and \, rest) (let ((clauses ...)) `(and ...))) (_ element))))
  macroexp--all-forms((lambda (element) (or (when org-ql-preamble element) (pcase element (`(or _) element) (`(,... ,_comparator-or-num ,_num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,comparator-or-num ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... :regexps '...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... ,letter) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, letters) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property ,value \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, args) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and tags ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and todo-keywords ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(and \, rest) (let ((clauses ...)) `(and ...))) (_ element)))) 2)
  macroexp--expand-all((cl-function (lambda (element) (or (when org-ql-preamble element) (pcase element (`(or _) element) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, regexps) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... \, plist) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, plist) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... :regexps ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, letters) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, regexps) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, args) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, _) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, _) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(and \, rest) (let (...) `...)) (_ element))))))
  macroexpand-all((cl-function (lambda (element) (or (when org-ql-preamble element) (pcase element (`(or _) element) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, regexps) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... \, plist) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, plist) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... :regexps ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, letters) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, regexps) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, args) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, _) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, _) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(and \, rest) (let (...) `...)) (_ element))))) ((function . cl--labels-convert) (rec . #f(compiled-function (&rest args) #<bytecode -0x5bf968993ba17c4>))))
  #f(compiled-function (bind) #<bytecode 0x1ba90765c410db79>)((--cl-rec-- (element) (or (when org-ql-preamble element) (pcase element (`(or _) element) (`(,... ,_comparator-or-num ,_num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,comparator-or-num ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,num) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, plist) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... :regexps '...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,... ,letter) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, letters) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property ,value \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,property \, (map :inherit)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,regexp) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, regexps) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, args) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and tags ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, (and todo-keywords ...)) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... ,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,...) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, _) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(,... \, rest) (-let* ((... ...)) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(and \, rest) (let ((clauses ...)) `(and ...))) (_ element)))))
  mapcar(#f(compiled-function (bind) #<bytecode 0x1ba90765c410db79>) ((--cl-rec-- (element) (or (when org-ql-preamble element) (pcase element (`(or _) element) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, regexps) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... \, plist) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, plist) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... :regexps ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, letters) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, regexps) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, args) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, _) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, _) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(and \, rest) (let (...) `...)) (_ element))))))
  #f(compiled-function (arg1 &rest rest) "Make local (recursive) function definitions.\nBINDINGS is a list of definitions of the form (FUNC ARGLIST BODY...) where\nFUNC is the function name, ARGLIST its arguments, and BODY the\nforms of the function body.  FUNC is defined in any BODY, as well\nas FORM, so you can write recursive and mutually recursive\nfunction definitions.  See info node `(cl) Function Bindings' for\ndetails." #<bytecode 0x1e8c2ef06b15f283>)(((rec (element) (or (when org-ql-preamble element) (pcase element (`(or _) element) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, regexps) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... \, plist) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, plist) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... :regexps ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, letters) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, regexps) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, args) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, _) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, _) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(and \, rest) (let (...) `...)) (_ element))))) (setq query (pcase (mapcar #'rec (list query)) ((or `(nil) `((nil)) `((and)) `((or))) t) (`(t) t) (query (-flatten-n 1 query)))) (list :query query :preamble org-ql-preamble :preamble-case-fold preamble-case-fold))
  (cl-labels ((rec (element) (or (when org-ql-preamble element) (pcase element (`(or _) element) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, regexps) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... \, plist) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, plist) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... :regexps ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, letters) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... ... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, regexps) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, args) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... ...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(...) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, _) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, _) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(... \, rest) (-let* (...) (setf org-ql-preamble regexp preamble-case-fold case-fold) query)) (`(and \, rest) (let (...) `...)) (_ element))))) (setq query (pcase (mapcar #'rec (list query)) ((or `(nil) `((nil)) `((and)) `((or))) t) (`(t) t) (query (-flatten-n 1 query)))) (list :query query :preamble org-ql-preamble :preamble-case-fold preamble-case-fold))
  (let ((preamble-case-fold t) org-ql-preamble) (cl-labels ((rec (element) (or (when org-ql-preamble element) (pcase element (`... element) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (-let* ... ... query)) (`... (let ... ...)) (_ element))))) (setq query (pcase (mapcar #'rec (list query)) ((or `(nil) `(...) `(...) `(...)) t) (`(t) t) (query (-flatten-n 1 query)))) (list :query query :preamble org-ql-preamble :preamble-case-fold preamble-case-fold)))
  (let nil (let ((preamble-case-fold t) org-ql-preamble) (cl-labels ((rec (element) (or (when org-ql-preamble element) (pcase element (... element) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (_ element))))) (setq query (pcase (mapcar #'rec (list query)) ((or `... `... `... `...) t) (`(t) t) (query (-flatten-n 1 query)))) (list :query query :preamble org-ql-preamble :preamble-case-fold preamble-case-fold))))
  (if (null org-ql-use-preamble) (let nil (list :query query :preamble nil)) (let nil (let ((preamble-case-fold t) org-ql-preamble) (cl-labels ((rec (element) (or (when org-ql-preamble element) (pcase element ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))) (setq query (pcase (mapcar #'rec (list query)) ((or ... ... ... ...) t) (`... t) (query (-flatten-n 1 query)))) (list :query query :preamble org-ql-preamble :preamble-case-fold preamble-case-fold)))))
  (pcase org-ql-use-preamble ('nil (list :query query :preamble nil)) (_ (let ((preamble-case-fold t) org-ql-preamble) (cl-labels ((rec (element) (or (when org-ql-preamble element) (pcase element ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))) (setq query (pcase (mapcar #'rec (list query)) ((or ... ... ... ...) t) (`... t) (query (-flatten-n 1 query)))) (list :query query :preamble org-ql-preamble :preamble-case-fold preamble-case-fold)))))
  org-ql--query-preamble((todo))
  org-ql-select(#<buffer myfile.org> (todo) :action element-with-markers :narrow nil :sort nil)
  org-ql-search(#<buffer myfile.org> "(todo)" :narrow nil :super-groups nil :sort nil)
  funcall-interactively(org-ql-search #<buffer myfile.org> "(todo)" :narrow nil :super-groups nil :sort nil)
  command-execute(org-ql-search)

@alphapapa
Copy link
Owner

@ParetoOptimalDev Please try to reproduce the problem in the latest release of Emacs.

@ParetoOptimalDev
Copy link

@ParetoOptimalDev Please try to reproduce the problem in the latest release of Emacs.

In the release emacs 29.3 version things work perfectly fine. I can just use 29.3 for now as a workaround.

@alphapapa
Copy link
Owner

So how recent was the build from master that you found the problem on?

@whudwl
Copy link

whudwl commented Jun 13, 2024

So how recent was the build from master that you found the problem on?

I'm getting "please avoid it" error using commit 6b7ff60a5e71c161a064e27509fe4fb95cf74ddd, I'll go back to stable 29.3 for now.

@alphapapa
Copy link
Owner

alphapapa commented Jun 13, 2024

The most recent commit that touches the code where that message appears is:

806759dc0a6a3b049ce35d0497011464e5fc4dcb
Author:     Stefan Monnier <[email protected]>
AuthorDate: Sun Feb 11 22:00:44 2024 -0500
Commit:     Stefan Monnier <[email protected]>
CommitDate: Sun Feb 11 22:00:44 2024 -0500

Parent:     9ebc91795f2 Remove redundant `apply` with `derived-mode-p`
Merged:     emacs-28
Contained:  master wip/fix-format-spec-truncation wip/fix-vtable--recompute-numerical
            wip/fix-vtable-update-object wip/vtable-update-object-optional
Follows:    emacs-29.1.90 (169986)

(pcase): New `_` syntax in pred/app functions

The current syntax for functions in `app` and `pred` patterns
allows a shorthand (F ARGS) where the object being matched is
added as an extra last argument.  This is nice for things like
(pred (< 5)) but sometimes the object needs to be at
another position.
Until now you had to use (pred (lambda (x) (memq x my-list)))
or (pred (pcase--flip memq my-list)) in those cases.
So, introduce a new shorthand where `_` can be used to indicate
where the object should be passed: (pred (memq _ my-list))

* lisp/emacs-lisp/pcase.el (pcase--split-pred): Document new syntax
for pred/app functions.
(pcase--funcall): Support new syntax.
(pcase--flip): Declare obsolete.
(pcase--u1, \`): Use `_` instead.
(pcase--split-pred): Adjust accordingly.

* doc/lispref/control.texi (pcase Macro): Document new syntax
for pred/app functions.

* lisp/progmodes/opascal.el (pcase-defmacro):
* lisp/emacs-lisp/seq.el (seq--make-pcase-bindings):
* lisp/emacs-lisp/eieio.el (eieio):
* lisp/emacs-lisp/cl-macs.el (cl-struct, cl-type):
Use _ instead of `pcase--flip`.
(cl--pcase-mutually-exclusive-p): Adjust accordingly.

* lisp/emacs-lisp/map.el (map--pcase-map-elt): Declare obsolete.
(map--make-pcase-bindings): Use `_` instead.

But the purpose of that commit is not to cause such an error to happen where one did not previously.

So would you please confirm that the error happens on commit 806759dc0a6a3b049ce35d0497011464e5fc4dcb and does not happen on commit 9ebc91795f2?

Also, please be sure to recompile the org-ql package on each Emacs commit before testing it.

@alphapapa
Copy link
Owner

alphapapa commented Jun 13, 2024

FWIW, I installed emacs-next with Guix, currently a build of 170c6557922dad7e6e9bc0d6dadf6c080108fd42, and I cannot produce any linting or test failures, nor can I reproduce the problem you reported interactively. If you've been switching between versions of things, you may have mixed versions of files or packages or libraries. Generally, in case of weird errors like this (especially ones that might indicate compilation issues), the first thing you should try is to ensure that you don't have old libraries or byte-compiled files being loaded, and recompile all of your packages on the version of Emacs that you're using.

@whudwl
Copy link

whudwl commented Jun 13, 2024

Here is my test result (for the "Please avoid it" error) :

commit Reproduced
806759dc0a6a3b049ce35d0497011464e5fc4dcb NO
9ebc91795f2 NO
6b7ff60a5e71c161a064e27509fe4fb95cf74ddd YES

here is my my test procedure

  • git checkout xxx
  • make bootstrap
  • mkdir xxx
  • ./src/emacs --init-directory=./xxx
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(package-initialize)
(package-refresh-contents)

M-x package-install org-ql, the error happens (if it happens) here during installation without further action.

@alphapapa
Copy link
Owner

alphapapa commented Jun 13, 2024

Well, that narrows it down to something between 806759dc0a6a3b049ce35d0497011464e5fc4dcb and 6b7ff60a5e71c161a064e27509fe4fb95cf74ddd, because that is the latest commit on emacs.git master and it has nothing to do with this issue. It's also curious that you could not reproduce it with 806759dc0a6a3b049ce35d0497011464e5fc4dcb, which is the change that last touched that code.

Since you have the procedure lined up, you could git bisect it automatically, which is what I would recommend doing. (You could use with-emacs.sh to automate the installation of the package after building Emacs.)

Actually, AFAICT the problem commit must be after 170c6557922, because that is the one I could not reproduce the problem with.

@whudwl
Copy link

whudwl commented Jun 13, 2024

git bisect told me the bad commit is

16fc5b6c0c72464a75d9a84b754375662b3acec6  pcase.el (\`): Try and handle large patterns better

@alphapapa
Copy link
Owner

Great, thanks.

@smonnier I remember that thread on the mailing list, and I'm happy for that change, but it looks like it may introduce a backward-incompatibility (either that, or expose a problem which was not the case before). What do you think?

@alphapapa
Copy link
Owner

Posted at #433

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Development

No branches or pull requests

4 participants