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) #) nil (((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ... ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ... ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ... ...) (match element app cdr-safe regexps)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe plist)) #f(compiled-function (vars) #)) ((and (or ... ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe letters)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ... ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ... ...) (match element app cdr-safe regexps)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe args)) #f(compiled-function (vars) #)) ((and (or ... ... ... ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe ...)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe _)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe rest)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe _)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe rest)) #f(compiled-function (vars) #)) ((and (or ...) (match element app cdr-safe rest)) #f(compiled-function (vars) #)) ((and (or ... ... ... ... ...) (match element app cdr-safe rest)) #f(compiled-function (vars) #)) ((and (match x169 quote and) (match element app cdr-safe rest)) #f(compiled-function (vars) #)) ...)) 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) #) nil (((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe 'nil)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ... ...)) (match element app cdr-safe 'nil)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ... ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ... ...)) (match element app cdr-safe regexps)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe 'nil)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe 'nil)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe plist)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ... ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe 'nil)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe letters)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ... ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ... ...)) (match element app cdr-safe regexps)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe 'nil)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe args)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ... ... ... ...)) (match element app cdr-safe (and tags ...))) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and todo-keywords ...))) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe 'nil)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe _)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe rest)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe _)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe rest)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ...)) (match element app cdr-safe rest)) #f(compiled-function (vars) #)) ((and (match element app car-safe (or ... ... ... ... ...)) (match element app cdr-safe rest)) #f(compiled-function (vars) #)) ((and (match element app car-safe 'and) (match element app cdr-safe rest)) #f(compiled-function (vars) #)) ((match element . _) #f(compiled-function (vars) #)))) pcase--u1(((match element pred consp) (match element app car-safe (or ...)) (match element app cdr-safe (and ... ... ...))) #f(compiled-function (vars) #) nil (((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ...)) pcase--u1(((and (match element pred consp) (match element app car-safe ...) (match element app cdr-safe ...))) #f(compiled-function (vars) #) nil (((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ...)) pcase--u((((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ...)) pcase--u1(((match element quote (or _))) #f(compiled-function (vars) #) nil (((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ...)) pcase--u((((match element quote ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ((and ... ... ...) #f(compiled-function (vars) #)) ...)) pcase-compile-patterns(element ((`(or _) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'effort) ,_comparator-or-num ,_num) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'effort) ,num) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'habit)) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'heading-regexp 'h*)) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'heading-regexp 'h*) ,regexp) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'heading-regexp 'h*) \, regexps) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'level)) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'level) ,comparator-or-num ,num) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'level) ,num) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'link)) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'link) ,(and description-or-target (guard ...)) \, plist) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'link) \, plist) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'rifle 'smart) :regexps ',regexps) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'priority)) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'priority) ,(and (or ... ... ... ... ...) comparator) ,letter) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'priority) \, letters) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'property) ,property ,value \, (map :inherit)) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'property) ,property \, (map :inherit)) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'regexp 'r) ,regexp) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'regexp 'r) \, regexps) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'src)) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'src) \, args) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'tags-local 'local-tags 'tags-l 'ltags) \, (and tags (guard tags))) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'todo) \, (and todo-keywords (guard todo-keywords))) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'clocked) ,(pred numberp)) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'clocked)) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'closed) \, _) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'deadline) \, rest) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'deadline-warning) \, _) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'planning) \, rest) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'scheduled) \, rest) . #f(compiled-function (varvals count &rest _) #)) (`(,(or 'ts 'ts-active 'ts-a 'ts-inactive 'ts-i) \, rest) . #f(compiled-function (varvals count &rest _) #)) (`(and \, rest) . #f(compiled-function (varvals count &rest _) #)) (_ . #f(compiled-function (varvals count &rest _) #)))) 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." #)(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) #)))) 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) #)))) 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) #)))) #f(compiled-function (bind) #)((--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) #) ((--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." #)(((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(# (todo) :action element-with-markers :narrow nil :sort nil) org-ql-search(# "(todo)" :narrow nil :super-groups nil :sort nil) funcall-interactively(org-ql-search # "(todo)" :narrow nil :super-groups nil :sort nil) command-execute(org-ql-search)