Debugger entered--Lisp error: (cl-assertion-failed (lexical-binding nil)) cl--assertion-failed(lexical-binding) #f(compiled-function (type bindings mutables args &rest body) "Low level construction of an OClosure object.\nTYPE should be a form returning an OClosure type (a symbol).\nBINDINGS should list all the slots expected by this type, in the proper order.\nMUTABLE is a list of symbols indicating which of the BINDINGS\nshould be mutable.\nNo checking is performed." #)('peg-function ((pexs temp1924)) nil nil (or (and (or (progn (while (let (... ...) (if ... ... ... nil))) t) (peg--record-failure '(* (set nil nil ...)))) (or (and (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)) (or (progn (while ...) t) (peg--record-failure '...))) (peg--record-failure '(and (and ... ...) (* ...))))) (peg--record-failure '(and (* (set nil nil (blank))) (and (and (call term) (* ...)) (* (and ... ...))))))) apply(#f(compiled-function (type bindings mutables args &rest body) "Low level construction of an OClosure object.\nTYPE should be a form returning an OClosure type (a symbol).\nBINDINGS should list all the slots expected by this type, in the proper order.\nMUTABLE is a list of symbols indicating which of the BINDINGS\nshould be mutable.\nNo checking is performed." #) ('peg-function ((pexs temp1924)) nil nil (or (and (or (progn (while (let ... ...)) t) (peg--record-failure '(* ...))) (or (and (or (and ... ...) (peg--record-failure ...)) (or (progn ... t) (peg--record-failure ...))) (peg--record-failure '(and ... ...)))) (peg--record-failure '(and (* (set nil nil ...)) (and (and ... ...) (* ...))))))) macroexpand-1((oclosure--lambda 'peg-function ((pexs temp1924)) nil nil (or (and (or (progn (while (let ... ...)) t) (peg--record-failure '(* ...))) (or (and (or (and ... ...) (peg--record-failure ...)) (or (progn ... t) (peg--record-failure ...))) (peg--record-failure '(and ... ...)))) (peg--record-failure '(and (* (set nil nil ...)) (and (and ... ...) (* ...)))))) ((function . cl--labels-convert) (peg-rule\ separator . #f(compiled-function (&rest args) #)) (peg-rule\ negation . #f(compiled-function (&rest args) #)) (peg-rule\ empty-quote . #f(compiled-function (&rest args) #)) (peg-rule\ unquoted-arg . #f(compiled-function (&rest args) #)) (peg-rule\ quoted-arg . #f(compiled-function (&rest args) #)) (peg-rule\ keyword . #f(compiled-function (&rest args) #)) (peg-rule\ keyword-arg . #f(compiled-function (&rest args) #)) (peg-rule\ args . #f(compiled-function (&rest args) #)) (peg-rule\ predicate . #f(compiled-function (&rest args) #)) (peg-rule\ predicate-without-args . #f(compiled-function (&rest args) #)) (peg-rule\ predicate-with-args . #f(compiled-function (&rest args) #)) (peg-rule\ plain-string . #f(compiled-function (&rest args) #)) (peg-rule\ positive-term . #f(compiled-function (&rest args) #)) (peg-rule\ term . #f(compiled-function (&rest args) #)) (peg-rule\ query . #f(compiled-function (&rest args) #)) (:peg-rules (query and (* (set nil nil (blank))) (and (and (call term) (* (set nil nil ...))) (* (and (call term) (* ...))))) (term or (and (call negation) (and (and (action ...) (and ... ...)) (action (let ... ...)))) (or (call positive-term) (call empty-quote))) (positive-term or (and (call predicate-with-args) (action (let (... ...) (push ... peg--stack)))) (or (and (call predicate-without-args) (action (let ... ...))) (and (call plain-string) (action (let ... ...))))) (plain-string or (call quoted-arg) (call unquoted-arg)) (predicate-with-args and (and (action (let nil (push ... peg--stack))) (and (call predicate) (action (let ... ...)))) (and (char 58) (call args))) (predicate-without-args and (and (action (let nil (push ... peg--stack))) (and (call predicate) (action (let ... ...)))) (char 58)) (predicate or (str "outline-path-segment") (or (str "org-back-to-heading") (or (str "deadline-warning") (or (str "heading-regexp") (or ... ...))))) (args and (action (let nil (push 'magic-marker peg--stack))) (and (and (and (or ... ...) (or ... ...)) (* (and ... ...))) (action (let nil (push ... peg--stack))))) (keyword-arg and (call keyword) (and (char 61) (action (let (...) (push ... peg--stack))))) (keyword and (action (let nil (push (point) peg--stack))) (and (and (and (not ...) (any)) (* (and ... ...))) (action (let (...) (push ... peg--stack))))) (quoted-arg and (char 34) (and (and (action (let nil ...)) (and (and ... ...) (action ...))) (char 34))) (unquoted-arg and (action (let nil (push (point) peg--stack))) (and (and (and (not ...) (any)) (* (and ... ...))) (action (let (...) (push ... peg--stack))))) (empty-quote str "\"\"") (negation char 33) (separator char 44)))) macroexp-macroexpand((oclosure--lambda 'peg-function ((pexs temp1924)) nil nil (or (and (or (progn (while (let ... ...)) t) (peg--record-failure '(* ...))) (or (and (or (and ... ...) (peg--record-failure ...)) (or (progn ... t) (peg--record-failure ...))) (peg--record-failure '(and ... ...)))) (peg--record-failure '(and (* (set nil nil ...)) (and (and ... ...) (* ...)))))) ((function . cl--labels-convert) (peg-rule\ separator . #f(compiled-function (&rest args) #)) (peg-rule\ negation . #f(compiled-function (&rest args) #)) (peg-rule\ empty-quote . #f(compiled-function (&rest args) #)) (peg-rule\ unquoted-arg . #f(compiled-function (&rest args) #)) (peg-rule\ quoted-arg . #f(compiled-function (&rest args) #)) (peg-rule\ keyword . #f(compiled-function (&rest args) #)) (peg-rule\ keyword-arg . #f(compiled-function (&rest args) #)) (peg-rule\ args . #f(compiled-function (&rest args) #)) (peg-rule\ predicate . #f(compiled-function (&rest args) #)) (peg-rule\ predicate-without-args . #f(compiled-function (&rest args) #)) (peg-rule\ predicate-with-args . #f(compiled-function (&rest args) #)) (peg-rule\ plain-string . #f(compiled-function (&rest args) #)) (peg-rule\ positive-term . #f(compiled-function (&rest args) #)) (peg-rule\ term . #f(compiled-function (&rest args) #)) (peg-rule\ query . #f(compiled-function (&rest args) #)) (:peg-rules (query and (* (set nil nil (blank))) (and (and (call term) (* (set nil nil ...))) (* (and (call term) (* ...))))) (term or (and (call negation) (and (and (action ...) (and ... ...)) (action (let ... ...)))) (or (call positive-term) (call empty-quote))) (positive-term or (and (call predicate-with-args) (action (let (... ...) (push ... peg--stack)))) (or (and (call predicate-without-args) (action (let ... ...))) (and (call plain-string) (action (let ... ...))))) (plain-string or (call quoted-arg) (call unquoted-arg)) (predicate-with-args and (and (action (let nil (push ... peg--stack))) (and (call predicate) (action (let ... ...)))) (and (char 58) (call args))) (predicate-without-args and (and (action (let nil (push ... peg--stack))) (and (call predicate) (action (let ... ...)))) (char 58)) (predicate or (str "outline-path-segment") (or (str "org-back-to-heading") (or (str "deadline-warning") (or (str "heading-regexp") (or ... ...))))) (args and (action (let nil (push 'magic-marker peg--stack))) (and (and (and (or ... ...) (or ... ...)) (* (and ... ...))) (action (let nil (push ... peg--stack))))) (keyword-arg and (call keyword) (and (char 61) (action (let (...) (push ... peg--stack))))) (keyword and (action (let nil (push (point) peg--stack))) (and (and (and (not ...) (any)) (* (and ... ...))) (action (let (...) (push ... peg--stack))))) (quoted-arg and (char 34) (and (and (action (let nil ...)) (and (and ... ...) (action ...))) (char 34))) (unquoted-arg and (action (let nil (push (point) peg--stack))) (and (and (and (not ...) (any)) (* (and ... ...))) (action (let (...) (push ... peg--stack))))) (empty-quote str "\"\"") (negation char 33) (separator char 44)))) macroexp--expand-all((oclosure--lambda 'peg-function ((pexs temp1924)) nil nil (or (and (or (progn (while (let ... ...)) t) (peg--record-failure '(* ...))) (or (and (or (and ... ...) (peg--record-failure ...)) (or (progn ... t) (peg--record-failure ...))) (peg--record-failure '(and ... ...)))) (peg--record-failure '(and (* (set nil nil ...)) (and (and ... ...) (* ...))))))) macroexp--all-forms(((oclosure--lambda 'peg-function ((pexs temp1924)) nil nil (or (and (or (progn (while ...) t) (peg--record-failure '...)) (or (and (or ... ...) (or ... ...)) (peg--record-failure '...))) (peg--record-failure '(and (* ...) (and ... ...))))))) macroexp--expand-all((peg--lambda '(and (* (set nil nil (blank))) (and (and (call term) (* (set nil nil ...))) (* (and (call term) (* ...))))) nil (or (and (or (progn (while (let ... ...)) t) (peg--record-failure '(* ...))) (or (and (or (and ... ...) (peg--record-failure ...)) (or (progn ... t) (peg--record-failure ...))) (peg--record-failure '(and ... ...)))) (peg--record-failure '(and (* (set nil nil ...)) (and (and ... ...) (* ...))))))) macroexpand-all((peg--lambda '(and (* (set nil nil (blank))) (and (and (call term) (* (set nil nil ...))) (* (and (call term) (* ...))))) nil (or (and (or (progn (while (let ... ...)) t) (peg--record-failure '(* ...))) (or (and (or (and ... ...) (peg--record-failure ...)) (or (progn ... t) (peg--record-failure ...))) (peg--record-failure '(and ... ...)))) (peg--record-failure '(and (* (set nil nil ...)) (and (and ... ...) (* ...)))))) ((function . cl--labels-convert) (peg-rule\ separator . #f(compiled-function (&rest args) #)) (peg-rule\ negation . #f(compiled-function (&rest args) #)) (peg-rule\ empty-quote . #f(compiled-function (&rest args) #)) (peg-rule\ unquoted-arg . #f(compiled-function (&rest args) #)) (peg-rule\ quoted-arg . #f(compiled-function (&rest args) #)) (peg-rule\ keyword . #f(compiled-function (&rest args) #)) (peg-rule\ keyword-arg . #f(compiled-function (&rest args) #)) (peg-rule\ args . #f(compiled-function (&rest args) #)) (peg-rule\ predicate . #f(compiled-function (&rest args) #)) (peg-rule\ predicate-without-args . #f(compiled-function (&rest args) #)) (peg-rule\ predicate-with-args . #f(compiled-function (&rest args) #)) (peg-rule\ plain-string . #f(compiled-function (&rest args) #)) (peg-rule\ positive-term . #f(compiled-function (&rest args) #)) (peg-rule\ term . #f(compiled-function (&rest args) #)) (peg-rule\ query . #f(compiled-function (&rest args) #)) (:peg-rules (query and (* (set nil nil (blank))) (and (and (call term) (* (set nil nil ...))) (* (and (call term) (* ...))))) (term or (and (call negation) (and (and (action ...) (and ... ...)) (action (let ... ...)))) (or (call positive-term) (call empty-quote))) (positive-term or (and (call predicate-with-args) (action (let (... ...) (push ... peg--stack)))) (or (and (call predicate-without-args) (action (let ... ...))) (and (call plain-string) (action (let ... ...))))) (plain-string or (call quoted-arg) (call unquoted-arg)) (predicate-with-args and (and (action (let nil (push ... peg--stack))) (and (call predicate) (action (let ... ...)))) (and (char 58) (call args))) (predicate-without-args and (and (action (let nil (push ... peg--stack))) (and (call predicate) (action (let ... ...)))) (char 58)) (predicate or (str "outline-path-segment") (or (str "org-back-to-heading") (or (str "deadline-warning") (or (str "heading-regexp") (or ... ...))))) (args and (action (let nil (push 'magic-marker peg--stack))) (and (and (and (or ... ...) (or ... ...)) (* (and ... ...))) (action (let nil (push ... peg--stack))))) (keyword-arg and (call keyword) (and (char 61) (action (let (...) (push ... peg--stack))))) (keyword and (action (let nil (push (point) peg--stack))) (and (and (and (not ...) (any)) (* (and ... ...))) (action (let (...) (push ... peg--stack))))) (quoted-arg and (char 34) (and (and (action (let nil ...)) (and (and ... ...) (action ...))) (char 34))) (unquoted-arg and (action (let nil (push (point) peg--stack))) (and (and (and (not ...) (any)) (* (and ... ...))) (action (let (...) (push ... peg--stack))))) (empty-quote str "\"\"") (negation char 33) (separator char 44)))) #f(compiled-function (bind) #)((--cl-peg-rule\ query-- (peg--lambda '(and (* (set nil nil (blank))) (and (and (call term) (* ...)) (* (and ... ...)))) nil (or (and (or (progn (while ...) t) (peg--record-failure '...)) (or (and (or ... ...) (or ... ...)) (peg--record-failure '...))) (peg--record-failure '(and (* ...) (and ... ...))))))) mapcar(#f(compiled-function (bind) #) ((--cl-peg-rule\ query-- (peg--lambda '(and (* (set nil nil ...)) (and (and ... ...) (* ...))) nil (or (and (or (progn ... t) (peg--record-failure ...)) (or (and ... ...) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (--cl-peg-rule\ term-- (peg--lambda '(or (and (call negation) (and ... ...)) (or (call positive-term) (call empty-quote))) nil (or (let ((point ...) (actions peg--actions)) (or (or ... ...) (progn ... ... ...))) (peg--record-failure '(or ... ...))))) (--cl-peg-rule\ positive-term-- (peg--lambda '(or (and (call predicate-with-args) (action ...)) (or (and ... ...) (and ... ...))) nil (or (let ((point ...) (actions peg--actions)) (or (or ... ...) (progn ... ... ...))) (peg--record-failure '(or ... ...))))) (--cl-peg-rule\ plain-string-- (peg--lambda '(or (call quoted-arg) (call unquoted-arg)) nil (or (let ((point ...) (actions peg--actions)) (or (or ... ...) (progn ... ... ...))) (peg--record-failure '(or ... ...))))) (--cl-peg-rule\ predicate-with-args-- (peg--lambda '(and (and (action ...) (and ... ...)) (and (char 58) (call args))) nil (or (and (or (and ... ...) (peg--record-failure ...)) (or (and ... ...) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (--cl-peg-rule\ predicate-without-args-- (peg--lambda '(and (and (action ...) (and ... ...)) (char 58)) nil (or (and (or (and ... ...) (peg--record-failure ...)) (or (when ... ... t) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (--cl-peg-rule\ predicate-- (peg--lambda '(or (str "outline-path-segment") (or (str "org-back-to-heading") (or ... ...))) nil (or (let ((point ...) (actions peg--actions)) (or (or ... ...) (progn ... ... ...))) (peg--record-failure '(or ... ...))))) (--cl-peg-rule\ args-- (peg--lambda '(and (action (let nil ...)) (and (and ... ...) (action ...))) nil (or (and (or (progn ... t) (peg--record-failure ...)) (or (and ... ...) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (--cl-peg-rule\ keyword-arg-- (peg--lambda '(and (call keyword) (and (char 61) (action ...))) nil (or (and (or (peg-rule\ keyword) (peg--record-failure ...)) (or (and ... ...) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (--cl-peg-rule\ keyword-- (peg--lambda '(and (action (let nil ...)) (and (and ... ...) (action ...))) nil (or (and (or (progn ... t) (peg--record-failure ...)) (or (and ... ...) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (--cl-peg-rule\ quoted-arg-- (peg--lambda '(and (char 34) (and (and ... ...) (char 34))) nil (or (and (or (when ... ... t) (peg--record-failure ...)) (or (and ... ...) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (--cl-peg-rule\ unquoted-arg-- (peg--lambda '(and (action (let nil ...)) (and (and ... ...) (action ...))) nil (or (and (or (progn ... t) (peg--record-failure ...)) (or (and ... ...) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (--cl-peg-rule\ empty-quote-- (peg--lambda '(str "\"\"") nil (or (when (looking-at '"\"\"") (goto-char (match-end 0)) t) (peg--record-failure '(str "\"\""))))) (--cl-peg-rule\ negation-- (peg--lambda '(char 33) nil (or (when (eq (char-after) '33) (forward-char) t) (peg--record-failure '(char 33))))) (--cl-peg-rule\ separator-- (peg--lambda '(char 44) nil (or (when (eq (char-after) '44) (forward-char) t) (peg--record-failure '(char 44))))))) #f(compiled-function (arg1 &rest rest) "Make local (recursive) function definitions.\nBINDINGS is a list of definitions of the form either (FUNC EXP)\nwhere EXP is a form that should return the function to bind to the\nfunction name FUNC, or (FUNC ARGLIST BODY...) where\nFUNC is the function name, ARGLIST its arguments, and BODY the\nforms of the function body. FUNC is in scope in any BODY or EXP, as well\nas FORM, so you can write recursive and mutually recursive\nfunction definitions, with the caveat that EXPs are evaluated in sequence\nand you cannot call a FUNC before its EXP has been evaluated.\nSee info node `(cl) Function Bindings' for details." #)(((peg-rule\ query (peg--lambda '(and (* (set nil nil ...)) (and (and ... ...) (* ...))) nil (or (and (or (progn ... t) (peg--record-failure ...)) (or (and ... ...) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (peg-rule\ term (peg--lambda '(or (and (call negation) (and ... ...)) (or (call positive-term) (call empty-quote))) nil (or (let ((point ...) (actions peg--actions)) (or (or ... ...) (progn ... ... ...))) (peg--record-failure '(or ... ...))))) (peg-rule\ positive-term (peg--lambda '(or (and (call predicate-with-args) (action ...)) (or (and ... ...) (and ... ...))) nil (or (let ((point ...) (actions peg--actions)) (or (or ... ...) (progn ... ... ...))) (peg--record-failure '(or ... ...))))) (peg-rule\ plain-string (peg--lambda '(or (call quoted-arg) (call unquoted-arg)) nil (or (let ((point ...) (actions peg--actions)) (or (or ... ...) (progn ... ... ...))) (peg--record-failure '(or ... ...))))) (peg-rule\ predicate-with-args (peg--lambda '(and (and (action ...) (and ... ...)) (and (char 58) (call args))) nil (or (and (or (and ... ...) (peg--record-failure ...)) (or (and ... ...) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (peg-rule\ predicate-without-args (peg--lambda '(and (and (action ...) (and ... ...)) (char 58)) nil (or (and (or (and ... ...) (peg--record-failure ...)) (or (when ... ... t) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (peg-rule\ predicate (peg--lambda '(or (str "outline-path-segment") (or (str "org-back-to-heading") (or ... ...))) nil (or (let ((point ...) (actions peg--actions)) (or (or ... ...) (progn ... ... ...))) (peg--record-failure '(or ... ...))))) (peg-rule\ args (peg--lambda '(and (action (let nil ...)) (and (and ... ...) (action ...))) nil (or (and (or (progn ... t) (peg--record-failure ...)) (or (and ... ...) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (peg-rule\ keyword-arg (peg--lambda '(and (call keyword) (and (char 61) (action ...))) nil (or (and (or (peg-rule\ keyword) (peg--record-failure ...)) (or (and ... ...) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (peg-rule\ keyword (peg--lambda '(and (action (let nil ...)) (and (and ... ...) (action ...))) nil (or (and (or (progn ... t) (peg--record-failure ...)) (or (and ... ...) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (peg-rule\ quoted-arg (peg--lambda '(and (char 34) (and (and ... ...) (char 34))) nil (or (and (or (when ... ... t) (peg--record-failure ...)) (or (and ... ...) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (peg-rule\ unquoted-arg (peg--lambda '(and (action (let nil ...)) (and (and ... ...) (action ...))) nil (or (and (or (progn ... t) (peg--record-failure ...)) (or (and ... ...) (peg--record-failure ...))) (peg--record-failure '(and ... ...))))) (peg-rule\ empty-quote (peg--lambda '(str "\"\"") nil (or (when (looking-at '"\"\"") (goto-char (match-end 0)) t) (peg--record-failure '(str "\"\""))))) (peg-rule\ negation (peg--lambda '(char 33) nil (or (when (eq (char-after) '33) (forward-char) t) (peg--record-failure '(char 33))))) (peg-rule\ separator (peg--lambda '(char 44) nil (or (when (eq (char-after) '44) (forward-char) t) (peg--record-failure '(char 44)))))) (peg-run (peg query) (lambda (failures) (when org-ql-signal-peg-failure (peg-signal-failure failures))))) apply(#f(compiled-function (arg1 &rest rest) "Make local (recursive) function definitions.\nBINDINGS is a list of definitions of the form either (FUNC EXP)\nwhere EXP is a form that should return the function to bind to the\nfunction name FUNC, or (FUNC ARGLIST BODY...) where\nFUNC is the function name, ARGLIST its arguments, and BODY the\nforms of the function body. FUNC is in scope in any BODY or EXP, as well\nas FORM, so you can write recursive and mutually recursive\nfunction definitions, with the caveat that EXPs are evaluated in sequence\nand you cannot call a FUNC before its EXP has been evaluated.\nSee info node `(cl) Function Bindings' for details." #) (((peg-rule\ query (peg--lambda '(and (* ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ term (peg--lambda '(or (and ... ...) (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ positive-term (peg--lambda '(or (and ... ...) (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ plain-string (peg--lambda '(or (call quoted-arg) (call unquoted-arg)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate-with-args (peg--lambda '(and (and ... ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate-without-args (peg--lambda '(and (and ... ...) (char 58)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate (peg--lambda '(or (str "outline-path-segment") (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ args (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ keyword-arg (peg--lambda '(and (call keyword) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ keyword (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ quoted-arg (peg--lambda '(and (char 34) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ unquoted-arg (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ empty-quote (peg--lambda '(str "\"\"") nil (or (when (looking-at ...) (goto-char ...) t) (peg--record-failure '...)))) (peg-rule\ negation (peg--lambda '(char 33) nil (or (when (eq ... ...) (forward-char) t) (peg--record-failure '...)))) (peg-rule\ separator (peg--lambda '(char 44) nil (or (when (eq ... ...) (forward-char) t) (peg--record-failure '...))))) (peg-run (peg query) (lambda (failures) (when org-ql-signal-peg-failure (peg-signal-failure failures)))))) macroexpand-1((cl-labels ((peg-rule\ query (peg--lambda '(and (* ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ term (peg--lambda '(or (and ... ...) (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ positive-term (peg--lambda '(or (and ... ...) (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ plain-string (peg--lambda '(or (call quoted-arg) (call unquoted-arg)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate-with-args (peg--lambda '(and (and ... ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate-without-args (peg--lambda '(and (and ... ...) (char 58)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate (peg--lambda '(or (str "outline-path-segment") (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ args (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ keyword-arg (peg--lambda '(and (call keyword) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ keyword (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ quoted-arg (peg--lambda '(and (char 34) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ unquoted-arg (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ empty-quote (peg--lambda '(str "\"\"") nil (or (when (looking-at ...) (goto-char ...) t) (peg--record-failure '...)))) (peg-rule\ negation (peg--lambda '(char 33) nil (or (when (eq ... ...) (forward-char) t) (peg--record-failure '...)))) (peg-rule\ separator (peg--lambda '(char 44) nil (or (when (eq ... ...) (forward-char) t) (peg--record-failure '...))))) (peg-run (peg query) (lambda (failures) (when org-ql-signal-peg-failure (peg-signal-failure failures))))) ((:peg-rules (query and (* (set nil nil (blank))) (and (and (call term) (* (set nil nil ...))) (* (and (call term) (* ...))))) (term or (and (call negation) (and (and (action ...) (and ... ...)) (action (let ... ...)))) (or (call positive-term) (call empty-quote))) (positive-term or (and (call predicate-with-args) (action (let (... ...) (push ... peg--stack)))) (or (and (call predicate-without-args) (action (let ... ...))) (and (call plain-string) (action (let ... ...))))) (plain-string or (call quoted-arg) (call unquoted-arg)) (predicate-with-args and (and (action (let nil (push ... peg--stack))) (and (call predicate) (action (let ... ...)))) (and (char 58) (call args))) (predicate-without-args and (and (action (let nil (push ... peg--stack))) (and (call predicate) (action (let ... ...)))) (char 58)) (predicate or (str "outline-path-segment") (or (str "org-back-to-heading") (or (str "deadline-warning") (or (str "heading-regexp") (or ... ...))))) (args and (action (let nil (push 'magic-marker peg--stack))) (and (and (and (or ... ...) (or ... ...)) (* (and ... ...))) (action (let nil (push ... peg--stack))))) (keyword-arg and (call keyword) (and (char 61) (action (let (...) (push ... peg--stack))))) (keyword and (action (let nil (push (point) peg--stack))) (and (and (and (not ...) (any)) (* (and ... ...))) (action (let (...) (push ... peg--stack))))) (quoted-arg and (char 34) (and (and (action (let nil ...)) (and (and ... ...) (action ...))) (char 34))) (unquoted-arg and (action (let nil (push (point) peg--stack))) (and (and (and (not ...) (any)) (* (and ... ...))) (action (let (...) (push ... peg--stack))))) (empty-quote str "\"\"") (negation char 33) (separator char 44)))) macroexp-macroexpand((cl-labels ((peg-rule\ query (peg--lambda '(and (* ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ term (peg--lambda '(or (and ... ...) (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ positive-term (peg--lambda '(or (and ... ...) (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ plain-string (peg--lambda '(or (call quoted-arg) (call unquoted-arg)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate-with-args (peg--lambda '(and (and ... ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate-without-args (peg--lambda '(and (and ... ...) (char 58)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate (peg--lambda '(or (str "outline-path-segment") (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ args (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ keyword-arg (peg--lambda '(and (call keyword) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ keyword (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ quoted-arg (peg--lambda '(and (char 34) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ unquoted-arg (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ empty-quote (peg--lambda '(str "\"\"") nil (or (when (looking-at ...) (goto-char ...) t) (peg--record-failure '...)))) (peg-rule\ negation (peg--lambda '(char 33) nil (or (when (eq ... ...) (forward-char) t) (peg--record-failure '...)))) (peg-rule\ separator (peg--lambda '(char 44) nil (or (when (eq ... ...) (forward-char) t) (peg--record-failure '...))))) (peg-run (peg query) (lambda (failures) (when org-ql-signal-peg-failure (peg-signal-failure failures))))) ((:peg-rules (query and (* (set nil nil (blank))) (and (and (call term) (* (set nil nil ...))) (* (and (call term) (* ...))))) (term or (and (call negation) (and (and (action ...) (and ... ...)) (action (let ... ...)))) (or (call positive-term) (call empty-quote))) (positive-term or (and (call predicate-with-args) (action (let (... ...) (push ... peg--stack)))) (or (and (call predicate-without-args) (action (let ... ...))) (and (call plain-string) (action (let ... ...))))) (plain-string or (call quoted-arg) (call unquoted-arg)) (predicate-with-args and (and (action (let nil (push ... peg--stack))) (and (call predicate) (action (let ... ...)))) (and (char 58) (call args))) (predicate-without-args and (and (action (let nil (push ... peg--stack))) (and (call predicate) (action (let ... ...)))) (char 58)) (predicate or (str "outline-path-segment") (or (str "org-back-to-heading") (or (str "deadline-warning") (or (str "heading-regexp") (or ... ...))))) (args and (action (let nil (push 'magic-marker peg--stack))) (and (and (and (or ... ...) (or ... ...)) (* (and ... ...))) (action (let nil (push ... peg--stack))))) (keyword-arg and (call keyword) (and (char 61) (action (let (...) (push ... peg--stack))))) (keyword and (action (let nil (push (point) peg--stack))) (and (and (and (not ...) (any)) (* (and ... ...))) (action (let (...) (push ... peg--stack))))) (quoted-arg and (char 34) (and (and (action (let nil ...)) (and (and ... ...) (action ...))) (char 34))) (unquoted-arg and (action (let nil (push (point) peg--stack))) (and (and (and (not ...) (any)) (* (and ... ...))) (action (let (...) (push ... peg--stack))))) (empty-quote str "\"\"") (negation char 33) (separator char 44)))) macroexp--expand-all((cl-labels ((peg-rule\ query (peg--lambda '(and (* ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ term (peg--lambda '(or (and ... ...) (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ positive-term (peg--lambda '(or (and ... ...) (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ plain-string (peg--lambda '(or (call quoted-arg) (call unquoted-arg)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate-with-args (peg--lambda '(and (and ... ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate-without-args (peg--lambda '(and (and ... ...) (char 58)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate (peg--lambda '(or (str "outline-path-segment") (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ args (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ keyword-arg (peg--lambda '(and (call keyword) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ keyword (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ quoted-arg (peg--lambda '(and (char 34) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ unquoted-arg (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ empty-quote (peg--lambda '(str "\"\"") nil (or (when (looking-at ...) (goto-char ...) t) (peg--record-failure '...)))) (peg-rule\ negation (peg--lambda '(char 33) nil (or (when (eq ... ...) (forward-char) t) (peg--record-failure '...)))) (peg-rule\ separator (peg--lambda '(char 44) nil (or (when (eq ... ...) (forward-char) t) (peg--record-failure '...))))) (peg-run (peg query) (lambda (failures) (when org-ql-signal-peg-failure (peg-signal-failure failures)))))) macroexpand-all((cl-labels ((peg-rule\ query (peg--lambda '(and (* ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ term (peg--lambda '(or (and ... ...) (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ positive-term (peg--lambda '(or (and ... ...) (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ plain-string (peg--lambda '(or (call quoted-arg) (call unquoted-arg)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate-with-args (peg--lambda '(and (and ... ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate-without-args (peg--lambda '(and (and ... ...) (char 58)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ predicate (peg--lambda '(or (str "outline-path-segment") (or ... ...)) nil (or (let (... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ args (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ keyword-arg (peg--lambda '(and (call keyword) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ keyword (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ quoted-arg (peg--lambda '(and (char 34) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ unquoted-arg (peg--lambda '(and (action ...) (and ... ...)) nil (or (and (or ... ...) (or ... ...)) (peg--record-failure '...)))) (peg-rule\ empty-quote (peg--lambda '(str "\"\"") nil (or (when (looking-at ...) (goto-char ...) t) (peg--record-failure '...)))) (peg-rule\ negation (peg--lambda '(char 33) nil (or (when (eq ... ...) (forward-char) t) (peg--record-failure '...)))) (peg-rule\ separator (peg--lambda '(char 44) nil (or (when (eq ... ...) (forward-char) t) (peg--record-failure '...))))) (peg-run (peg query) (lambda (failures) (when org-ql-signal-peg-failure (peg-signal-failure failures))))) ((:peg-rules (query and (* (set nil nil (blank))) (and (and (call term) (* (set nil nil ...))) (* (and (call term) (* ...))))) (term or (and (call negation) (and (and (action ...) (and ... ...)) (action (let ... ...)))) (or (call positive-term) (call empty-quote))) (positive-term or (and (call predicate-with-args) (action (let (... ...) (push ... peg--stack)))) (or (and (call predicate-without-args) (action (let ... ...))) (and (call plain-string) (action (let ... ...))))) (plain-string or (call quoted-arg) (call unquoted-arg)) (predicate-with-args and (and (action (let nil (push ... peg--stack))) (and (call predicate) (action (let ... ...)))) (and (char 58) (call args))) (predicate-without-args and (and (action (let nil (push ... peg--stack))) (and (call predicate) (action (let ... ...)))) (char 58)) (predicate or (str "outline-path-segment") (or (str "org-back-to-heading") (or (str "deadline-warning") (or (str "heading-regexp") (or ... ...))))) (args and (action (let nil (push 'magic-marker peg--stack))) (and (and (and (or ... ...) (or ... ...)) (* (and ... ...))) (action (let nil (push ... peg--stack))))) (keyword-arg and (call keyword) (and (char 61) (action (let (...) (push ... peg--stack))))) (keyword and (action (let nil (push (point) peg--stack))) (and (and (and (not ...) (any)) (* (and ... ...))) (action (let (...) (push ... peg--stack))))) (quoted-arg and (char 34) (and (and (action (let nil ...)) (and (and ... ...) (action ...))) (char 34))) (unquoted-arg and (action (let nil (push (point) peg--stack))) (and (and (and (not ...) (any)) (* (and ... ...))) (action (let (...) (push ... peg--stack))))) (empty-quote str "\"\"") (negation char 33) (separator char 44)))) (let* ((rulesets nil) (rules (delq nil (mapcar #'(lambda (rule) (if ... ... ...)) rules))) (ctx (assq :peg-rules macroexpand-all-environment)) (body (macroexpand-all (cons 'cl-labels (cons (mapcar #'... rules) body)) (cons (cons ':peg-rules (append rules (cdr ctx))) macroexpand-all-environment)))) (if (null rulesets) body (list 'cl-flet (mapcan #'(lambda (ruleset) (let (...) (if aliases nil ...) (copy-sequence aliases))) rulesets) body))) #f(lambda (rules &rest body) [t] "Make PEG rules RULES available within the scope of BODY.\nRULES is a list of rules of the form (NAME . PEXS), where PEXS is a sequence\nof PEG expressions, implicitly combined with `and'.\nRULES can also contain symbols in which case these must name\nrulesets defined previously with `define-peg-ruleset'." (let* ((rulesets nil) (rules (delq nil (mapcar #'(lambda (rule) (if (symbolp rule) (progn (setq rulesets (cons rule rulesets)) nil) (cons (car rule) (peg-normalize (cons 'and (cdr rule)))))) rules))) (ctx (assq :peg-rules macroexpand-all-environment)) (body (macroexpand-all (cons 'cl-labels (cons (mapcar #'(lambda (rule) (list (peg--rule-id (car rule)) (list 'peg--lambda (list 'quote (cdr rule)) nil (peg--translate-rule-body (car rule) (cdr rule))))) rules) body)) (cons (cons ':peg-rules (append rules (cdr ctx))) macroexpand-all-environment)))) (if (null rulesets) body (list 'cl-flet (mapcan #'(lambda (ruleset) (let ((aliases (get ruleset 'peg--rules))) (if aliases nil (message "Unknown PEG ruleset: %S" ruleset)) (copy-sequence aliases))) rulesets) body))))(((query (and (* [blank]) (+ (and term (* [blank]))))) (term (or (and negation (list positive-term) `(pred -- (list ... ...))) positive-term empty-quote)) (positive-term (or (and predicate-with-args `(pred args -- (cons ... args))) (and predicate-without-args `(pred -- (list ...))) (and plain-string `(s -- (list org-ql-default-predicate s))))) (plain-string (or quoted-arg unquoted-arg)) (predicate-with-args (substring predicate) ":" args) (predicate-without-args (substring predicate) ":") (predicate (or "outline-path-segment" "org-back-to-heading" "deadline-warning" "heading-regexp" "tags-inherited" "inherited-tags" "outline-path" "tags-regexp" "descendants" "ts-inactive" "tags-local" "local-tags" "ancestors" "scheduled" "ts-active" "category" "priority" "property" "tags-all" "children" "deadline" "planning" "blocked" "heading" "clocked" "effort" "regexp" "parent" "closed" "buffer" "tags-i" "tags-l" "habit" "level" "rifle" "smart" "tags&" "itags" "ltags" "tags*" "done" "link" "path" "tags" "todo" "prop" "olps" "ts-a" "ts-i" ...)) (args (list (+ (and (or keyword-arg quoted-arg unquoted-arg) (opt separator))))) (keyword-arg (and keyword "=" `(kw -- (intern (concat ":" kw))))) (keyword (substring (+ (not (or separator "=" "\"" (syntax-class whitespace))) (any)))) (quoted-arg "\"" (substring (+ (not (or separator "\"")) (any))) "\"") (unquoted-arg (substring (+ (not (or separator "\"" (syntax-class whitespace))) (any)))) (empty-quote "\"\"") (negation "!") (separator ",")) (peg-run (peg query) (lambda (failures) (when org-ql-signal-peg-failure (peg-signal-failure failures))))) (with-peg-rules ((query (and (* [blank]) (+ (and term (* [blank]))))) (term (or (and negation (list positive-term) `(pred -- (list ... ...))) positive-term empty-quote)) (positive-term (or (and predicate-with-args `(pred args -- (cons ... args))) (and predicate-without-args `(pred -- (list ...))) (and plain-string `(s -- (list org-ql-default-predicate s))))) (plain-string (or quoted-arg unquoted-arg)) (predicate-with-args (substring predicate) ":" args) (predicate-without-args (substring predicate) ":") (predicate (or "outline-path-segment" "org-back-to-heading" "deadline-warning" "heading-regexp" "tags-inherited" "inherited-tags" "outline-path" "tags-regexp" "descendants" "ts-inactive" "tags-local" "local-tags" "ancestors" "scheduled" "ts-active" "category" "priority" "property" "tags-all" "children" "deadline" "planning" "blocked" "heading" "clocked" "effort" "regexp" "parent" "closed" "buffer" "tags-i" "tags-l" "habit" "level" "rifle" "smart" "tags&" "itags" "ltags" "tags*" "done" "link" "path" "tags" "todo" "prop" "olps" "ts-a" "ts-i" ...)) (args (list (+ (and (or keyword-arg quoted-arg unquoted-arg) (opt separator))))) (keyword-arg (and keyword "=" `(kw -- (intern (concat ":" kw))))) (keyword (substring (+ (not (or separator "=" "\"" (syntax-class whitespace))) (any)))) (quoted-arg "\"" (substring (+ (not (or separator "\"")) (any))) "\"") (unquoted-arg (substring (+ (not (or separator "\"" (syntax-class whitespace))) (any)))) (empty-quote "\"\"") (negation "!") (separator ",")) (peg-run (peg query) (lambda (failures) (when org-ql-signal-peg-failure (peg-signal-failure failures))))) eval((with-peg-rules ((query (and (* [blank]) (+ (and term (* ...))))) (term (or (and negation (list positive-term) `(pred -- ...)) positive-term empty-quote)) (positive-term (or (and predicate-with-args `(pred args -- ...)) (and predicate-without-args `(pred -- ...)) (and plain-string `(s -- ...)))) (plain-string (or quoted-arg unquoted-arg)) (predicate-with-args (substring predicate) ":" args) (predicate-without-args (substring predicate) ":") (predicate (or "outline-path-segment" "org-back-to-heading" "deadline-warning" "heading-regexp" "tags-inherited" "inherited-tags" "outline-path" "tags-regexp" "descendants" "ts-inactive" "tags-local" "local-tags" "ancestors" "scheduled" "ts-active" "category" "priority" "property" "tags-all" "children" "deadline" "planning" "blocked" "heading" "clocked" "effort" "regexp" "parent" "closed" "buffer" "tags-i" "tags-l" "habit" "level" "rifle" "smart" "tags&" "itags" "ltags" "tags*" "done" "link" "path" "tags" "todo" "prop" "olps" "ts-a" "ts-i" ...)) (args (list (+ (and (or keyword-arg quoted-arg unquoted-arg) (opt separator))))) (keyword-arg (and keyword "=" `(kw -- (intern ...)))) (keyword (substring (+ (not (or separator "=" "\"" ...)) (any)))) (quoted-arg "\"" (substring (+ (not (or separator "\"")) (any))) "\"") (unquoted-arg (substring (+ (not (or separator "\"" ...)) (any)))) (empty-quote "\"\"") (negation "!") (separator ",")) (peg-run (peg query) (lambda (failures) (when org-ql-signal-peg-failure (peg-signal-failure failures)))))) (progn (insert input) (goto-char (point-min)) (eval (list 'with-peg-rules pexs (cons 'peg-run (cons (list 'peg (car (car pexs))) '((lambda ... ...))))))) (unwind-protect (progn (insert input) (goto-char (point-min)) (eval (list 'with-peg-rules pexs (cons 'peg-run (cons (list 'peg (car ...)) '(...)))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert input) (goto-char (point-min)) (eval (list 'with-peg-rules pexs (cons 'peg-run (cons (list ... ...) '...))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert input) (goto-char (point-min)) (eval (list 'with-peg-rules pexs (cons 'peg-run (cons ... ...))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let* ((boolean (or boolean 'and)) (parsed-sexp (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert input) (goto-char ...) (eval ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))) (if (consp parsed-sexp) (let* ((x1790 (car-safe parsed-sexp)) (x1791 (cdr-safe parsed-sexp))) (if (null x1791) (let ((one-predicate x1790)) one-predicate) (let nil (cons boolean (reverse parsed-sexp))))) 'nil)) (if (s-blank-str? input) nil (let* ((boolean (or boolean 'and)) (parsed-sexp (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))))) (if (consp parsed-sexp) (let* ((x1790 (car-safe parsed-sexp)) (x1791 (cdr-safe parsed-sexp))) (if (null x1791) (let ((one-predicate x1790)) one-predicate) (let nil (cons boolean (reverse parsed-sexp))))) 'nil))) org-ql--query-string-to-sexp("index") #f(compiled-function (arg1) #)("index") #f(compiled-function (arg1 arg2 arg3) #)("index" nil lambda) test-completion("index" #f(compiled-function (arg1 arg2 arg3) #) nil) completion--do-completion(13 18) completion--in-region-1(13 18) #f(compiled-function (start end collection predicate) #)(13 18 #f(compiled-function (arg1 arg2 arg3) #) nil) apply(#f(compiled-function (start end collection predicate) #) (13 18 #f(compiled-function (arg1 arg2 arg3) #) nil)) #f(compiled-function (funs global args) #)(nil nil (13 18 #f(compiled-function (arg1 arg2 arg3) #) nil)) completion--in-region(13 18 #f(compiled-function (arg1 arg2 arg3) #) nil) completion-in-region(13 18 #f(compiled-function (arg1 arg2 arg3) #) nil) minibuffer-complete() funcall-interactively(minibuffer-complete) call-interactively(minibuffer-complete nil nil) command-execute(minibuffer-complete) read-from-minibuffer("Find entry: " nil (keymap (10 . minibuffer-complete-and-exit) (13 . minibuffer-complete-and-exit) keymap (menu-bar keymap (minibuf "Minibuf" keymap (tab menu-item "Complete" minibuffer-complete :help "Complete as far as possible") (space menu-item "Complete Word" minibuffer-complete-word :help "Complete at most one word") (63 menu-item "List Completions" minibuffer-completion-help :help "Display all possible completions") "Minibuf")) (M-down . minibuffer-next-completion) (M-up . minibuffer-previous-completion) (27 keymap (13 . minibuffer-choose-completion) (103 keymap (27 keymap (99 . switch-to-completions))) (118 . switch-to-completions)) (prior . switch-to-completions) (63 . minibuffer-completion-help) (32 . minibuffer-complete-word) (backtab . minibuffer-complete) (9 . minibuffer-complete) keymap (67108903 . vz/minibuffer-avy-completions) (8388727 . vz/minibuffer-yank-symbol) (remap keymap (previous-buffer . vz/minibuffer-previous-buffer) (next-buffer . vz/minibuffer-next-buffer)) (s-tab . file-cache-minibuffer-complete) (menu-bar keymap (minibuf "Minibuf" keymap (previous menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer") (next menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") (isearch-backward menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") (isearch-forward menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-sequence "\15" :help "Terminate input and exit minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") "Minibuf")) (24 keymap (down) (up)) (13 . exit-minibuffer) (10 . exit-minibuffer) (7 . minibuffer-keyboard-quit) (C-tab) (9 . self-insert-command) (XF86Back . previous-history-element) (up . previous-line-or-history-element) (prior . previous-history-element) (XF86Forward . next-history-element) (down . next-line-or-history-element) (next . next-history-element) (27 keymap (60 . minibuffer-beginning-of-buffer) (114) (115) (112 . previous-history-element) (110 . next-history-element))) nil nil nil nil) completing-read-default("Find entry: " #f(compiled-function (arg1 arg2 arg3) #) nil t nil nil nil nil) completing-read("Find entry: " #f(compiled-function (arg1 arg2 arg3) #) nil t) org-ql-completing-read(# :query-prefix nil :query-filter nil :prompt "Find entry: ") org-ql-find(#) funcall-interactively(org-ql-find #) call-interactively(org-ql-find record nil) command-execute(org-ql-find record) execute-extended-command(nil "org-ql-find" nil) funcall-interactively(execute-extended-command nil "org-ql-find" nil) call-interactively(execute-extended-command nil nil) command-execute(execute-extended-command)