Re: [O] Test failure
Nicolas Goaziou writes: > It looks like I created absolute symlinks instead of relative ones. > > Could you confirm it is now fixed? > It is fixed: Ran 790 tests, 790 results as expected (2018-02-15 11:45:03-0500) 9 expected failures Thanks! -- Nick
Re: [O] Test failure
Hello, Nick Dokos writes: > Org mode version 9.1.6 (release_9.1.6-474-g58da7d @ > /home/nick/elisp/org-mode/lisp/) > > I updated to the above and got two test failures: > > , > | 2 unexpected results: > |FAILED test-org-publish/base-extension > |FAILED test-org-publish/get-project-from-filename > ` > > Details on the first one: > > , > | Test test-org-publish/base-extension condition: > | (file-missing "Opening input file" "No such file or directory" > "/home/nick/src/emacs/org/org-mode/testing/examples/pub/link") > ` > > Presumably, that's because that path name is a symlink that does not resolve > on my system: > > , > | /home/nick/src/emacs/org/org-mode/testing/examples/pub: > | total used in directory 20 available 8850228 > | drwxrwxr-x. 3 nick nick 90 Feb 14 13:59 . > | drwxrwxr-x. 7 nick nick 4096 Feb 14 13:59 .. > | -rw-rw-r--. 1 nick nick 111 Oct 31 16:42 a.org > | -rw-rw-r--. 1 nick nick 104 Nov 15 16:00 b.org > | -rw-rw-r--. 1 nick nick5 Oct 27 09:14 file.txt > | lrwxrwxrwx. 1 nick nick 51 Feb 14 13:57 link -> > /home/ngz/dev/org-mode/testing/examples/pub-symlink > | -rw-rw-r--. 1 nick nick 12 Oct 27 09:14 noextension > | drwxrwxr-x. 2 nick nick 19 Feb 14 13:59 sub > ` > > > The second one fails because of this as well: it's looking for > .../examples/pub/link/link.org. It looks like I created absolute symlinks instead of relative ones. Could you confirm it is now fixed? Thank you. Regards, -- Nicolas Goaziou
[O] Test failure
Org mode version 9.1.6 (release_9.1.6-474-g58da7d @ /home/nick/elisp/org-mode/lisp/) I updated to the above and got two test failures: , | 2 unexpected results: |FAILED test-org-publish/base-extension |FAILED test-org-publish/get-project-from-filename ` Details on the first one: , | Test test-org-publish/base-extension condition: | (file-missing "Opening input file" "No such file or directory" "/home/nick/src/emacs/org/org-mode/testing/examples/pub/link") ` Presumably, that's because that path name is a symlink that does not resolve on my system: , | /home/nick/src/emacs/org/org-mode/testing/examples/pub: | total used in directory 20 available 8850228 | drwxrwxr-x. 3 nick nick 90 Feb 14 13:59 . | drwxrwxr-x. 7 nick nick 4096 Feb 14 13:59 .. | -rw-rw-r--. 1 nick nick 111 Oct 31 16:42 a.org | -rw-rw-r--. 1 nick nick 104 Nov 15 16:00 b.org | -rw-rw-r--. 1 nick nick5 Oct 27 09:14 file.txt | lrwxrwxrwx. 1 nick nick 51 Feb 14 13:57 link -> /home/ngz/dev/org-mode/testing/examples/pub-symlink | -rw-rw-r--. 1 nick nick 12 Oct 27 09:14 noextension | drwxrwxr-x. 2 nick nick 19 Feb 14 13:59 sub ` The second one fails because of this as well: it's looking for .../examples/pub/link/link.org. -- Nick
Re: [O] Test failure with current head
Hello, Nick Dokos writes: > I just updated to release_8.3beta-1286-g20795fd. > > ``make test'' shows a failure on test 226: > >passed 225/592 test-org-babel/src-block-regexp > Updating dynamic block `clocktable' at line 2... > Updating dynamic block `clocktable' at line 2...done > Test test-org-clock/clocktable-until-now backtrace: Fixed. Thank you. Regards, -- Nicolas Goaziou
Re: [O] Test failure with current head
Rasmus writes: > Nick Dokos writes: > >> I ran ``make test'' in a loop, 3 iterations per minute, >> for about an hour - no (unexpected) failures. Whatever it is, >> it's hiding. > > But did you change the clock to before 13:00? Now it's 10:30 I get the > error. > > I get c76fef6b9df3ffbb6a1cf4047f391721c4076caa is the bad commit. This is > also when the test and untilnow was implemented. > No, I misinterpreted your comment. I thought you meant the hour transition, not the specific hour. I just repeated it now and I got the failure (and it is 9AM here). -- Nick
Re: [O] Test failure with current head
Nick Dokos writes: > I ran ``make test'' in a loop, 3 iterations per minute, > for about an hour - no (unexpected) failures. Whatever it is, > it's hiding. But did you change the clock to before 13:00? Now it's 10:30 I get the error. I get c76fef6b9df3ffbb6a1cf4047f391721c4076caa is the bad commit. This is also when the test and untilnow was implemented. Rasmus -- When the facts change, I change my mind. What do you do, sir?
Re: [O] Test failure with current head
Rasmus writes: > Nick Dokos writes: > >> Rasmus writes: >> >>> Nick Dokos writes: >>> I just updated to release_8.3beta-1286-g20795fd. ``make test'' shows a failure on test 226: FAILED 226/592 test-org-clock/clocktable-until-now The backtrace was edited to get rid of a NUL that gnus complained >>> >>> I know. I don't really understand what untilnow does and the org >>> clocktable tests are really obscure to me. Fell free to do a bisect >>> master or/and submit a fix. >>> >> >> Seems like a heisenbug - first attempt to bisect fingered >> 20795fd1c4e48096226f3072de8d93bd99d761bf but only because it is the HEAD >> and I had declared it as bad: it turns out that `make test' does not >> get any failures now. And nothing changed - weird. > > I cannot reproduce the heisenbug. > > Maybe it depends on the system time. Changing my clock (via gnome > control center): > > - At 12:59 there's an error. > - At 13:00 there is not. > I ran ``make test'' in a loop, 3 iterations per minute, for about an hour - no (unexpected) failures. Whatever it is, it's hiding. -- Nick
Re: [O] Test failure with current head
David Engster writes: > Nick Dokos writes: >> Rasmus writes: >> > >>> Nick Dokos writes: >>> I just updated to release_8.3beta-1286-g20795fd. ``make test'' shows a failure on test 226: FAILED 226/592 test-org-clock/clocktable-until-now The backtrace was edited to get rid of a NUL that gnus complained >>> >>> I know. I don't really understand what untilnow does and the org >>> clocktable tests are really obscure to me. Fell free to do a bisect >>> master or/and submit a fix. >>> >> >> Seems like a heisenbug - first attempt to bisect fingered >> 20795fd1c4e48096226f3072de8d93bd99d761bf but only because it is the HEAD >> and I had declared it as bad: it turns out that `make test' does not >> get any failures now. And nothing changed - weird. > > Yes, it's not always failing, but it's been happening for a few days now > on the buildbot: > > http://randomsample.de/org-buildbot > > First time it happened was after this commit > > > http://orgmode.org/cgit.cgi/org-mode.git/commit/?id=22c652599c8bfedcd27e78d7ad9544826eae7dd0 > > but it looks harmless. Could very well be something else that triggers > this. This is in contrib. AFAIK it is not covered by make test. -- This is the kind of tedious nonsense up with which I will not put
Re: [O] Test failure with current head
Nick Dokos writes: > Rasmus writes: > >> Nick Dokos writes: >> >>> I just updated to release_8.3beta-1286-g20795fd. >>> >>> ``make test'' shows a failure on test 226: >>>FAILED 226/592 test-org-clock/clocktable-until-now >>> >>> >>> The backtrace was edited to get rid of a NUL that gnus complained >> >> I know. I don't really understand what untilnow does and the org >> clocktable tests are really obscure to me. Fell free to do a bisect >> master or/and submit a fix. >> > > Seems like a heisenbug - first attempt to bisect fingered > 20795fd1c4e48096226f3072de8d93bd99d761bf but only because it is the HEAD > and I had declared it as bad: it turns out that `make test' does not > get any failures now. And nothing changed - weird. I cannot reproduce the heisenbug. Maybe it depends on the system time. Changing my clock (via gnome control center): - At 12:59 there's an error. - At 13:00 there is not. Rasmus -- ツ
Re: [O] Test failure with current head
Nick Dokos writes: > Rasmus writes: > >> Nick Dokos writes: >> >>> I just updated to release_8.3beta-1286-g20795fd. >>> >>> ``make test'' shows a failure on test 226: >>>FAILED 226/592 test-org-clock/clocktable-until-now >>> >>> >>> The backtrace was edited to get rid of a NUL that gnus complained >> >> I know. I don't really understand what untilnow does and the org >> clocktable tests are really obscure to me. Fell free to do a bisect >> master or/and submit a fix. >> > > Seems like a heisenbug - first attempt to bisect fingered > 20795fd1c4e48096226f3072de8d93bd99d761bf but only because it is the HEAD > and I had declared it as bad: it turns out that `make test' does not > get any failures now. And nothing changed - weird. Yes, it's not always failing, but it's been happening for a few days now on the buildbot: http://randomsample.de/org-buildbot First time it happened was after this commit http://orgmode.org/cgit.cgi/org-mode.git/commit/?id=22c652599c8bfedcd27e78d7ad9544826eae7dd0 but it looks harmless. Could very well be something else that triggers this. -David
Re: [O] Test failure with current head
Rasmus writes: > Nick Dokos writes: > >> I just updated to release_8.3beta-1286-g20795fd. >> >> ``make test'' shows a failure on test 226: >>FAILED 226/592 test-org-clock/clocktable-until-now >> >> >> The backtrace was edited to get rid of a NUL that gnus complained > > I know. I don't really understand what untilnow does and the org > clocktable tests are really obscure to me. Fell free to do a bisect > master or/and submit a fix. > Seems like a heisenbug - first attempt to bisect fingered 20795fd1c4e48096226f3072de8d93bd99d761bf but only because it is the HEAD and I had declared it as bad: it turns out that `make test' does not get any failures now. And nothing changed - weird. Nick
Re: [O] Test failure with current head
Nick Dokos writes: > I just updated to release_8.3beta-1286-g20795fd. > > ``make test'' shows a failure on test 226: >FAILED 226/592 test-org-clock/clocktable-until-now > > > The backtrace was edited to get rid of a NUL that gnus complained I know. I don't really understand what untilnow does and the org clocktable tests are really obscure to me. Fell free to do a bisect master or/and submit a fix. Rasmus -- A page of history is worth a volume of logic
[O] Test failure with current head
I just updated to release_8.3beta-1286-g20795fd. ``make test'' shows a failure on test 226: --8<---cut here---start->8--- passed 225/592 test-org-babel/src-block-regexp Updating dynamic block `clocktable' at line 2... Updating dynamic block `clocktable' at line 2...done Test test-org-clock/clocktable-until-now backtrace: (if (unwind-protect (setq value-2215 (apply fn-2213 args-2214)) (set (let (form-description-2217) (if (unwind-protect (setq value-2215 (a (let ((value-2215 (quote ert-form-evaluation-aborted-2216))) (let (f (let ((fn-2213 (function equal)) (args-2214 (list "| Headline (lambda nil (let ((fn-2213 (function equal)) (args-2214 (list "| Hea ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc ert-run-test([cl-struct-ert-test test-org-clock/clocktable-until-now ert-run-or-rerun-test([cl-struct-ert--stats "\\(org\\|ob\\)" [[cl-st ert-run-tests("\\(org\\|ob\\)" #[385 "\306\307\"\203G\211\211G\310 ert-run-tests-batch("\\(org\\|ob\\)") ert-run-tests-batch-and-exit("\\(org\\|ob\\)") (let ((org-id-track-globally t) (org-test-selector (if org-test-sele org-test-run-batch-tests("\\(org\\|ob\\)") eval((org-test-run-batch-tests org-test-select-re)) command-line-1(("--eval" "(setq vc-handled-backends nil org-startup- command-line() normal-top-level() Test test-org-clock/clocktable-until-now condition: (ert-test-failed ((should (equal "| Headline | Time| |\n|--+-+---|\n| *Total time* | *25:00* | |\n|--+-+---|\n| Relative times in clocktable | 25:00 | |\n| Foo | | 10:00 |\n| Bar | | 15:00 |\n" (org-test-with-temp-text "* Relative times in clocktable\n** Foo\n** Bar\n" ...))) :form (equal "| Headline | Time| |\n|--+-+---|\n| *Total time* | *25:00* | |\n|--+-+---|\n| Relative times in clocktable | 25:00 | |\n| Foo | | 10:00 |\n| Bar | | 15:00 |\n" #("| Headline | Time| |\n|--+-+---|\n| *Total time* | *24:33* | |\n|--+-+---|\n| Relative times in clocktable | 24:33 | |\n| Foo | | 9:33 |\n| Bar | | 15:00 |\n" 2 10 (face org-table) 33 37 (face org-table) 104 116 (face org-table) 135 142 (face org-table) 206 234 (face org-table :org-clock-minutes 1473) 237 242 (face org-table) 257 260 (face org-table :org-clock-minutes 573) 299 303 (face org-table) 308 311 (face org-table :org-clock-minutes 900) 349 354 (face org-table))) :value nil :explanation (array-elt 137 (different-atoms (53 "#x35" "?5") (52 "#x34" "?4") FAILED 226/592 test-org-clock/clocktable-until-now --8<---cut here---end--->8--- The backtrace was edited to get rid of a NUL that gnus complained about. Nick
Re: [O] Test failure
Hello, Rasmus writes: > Nick Dokos writes: > >> I just pulled (HEAD is 02f2d5b42aabe9e272a5967ad0483b38750a8392) >> and got this test failure: [...] > Nicolas removed the "$" at the end of the regexps identifying LaTeX > environments here: > > > http://orgmode.org/cgit.cgi/org-mode.git/commit/?id=ec0e3cf70ba353ea59a5e66235462f659c99 Actually that was a mistake for maint. This should now be fixed. Regards, -- Nicolas Goaziou
Re: [O] Test failure
Rasmus writes: > > Nicolas removed the "$" at the end of the regexps identifying LaTeX > environments here: > > > http://orgmode.org/cgit.cgi/org-mode.git/commit/?id=ec0e3cf70ba353ea59a5e66235462f659c99 > > There a current thread discussion of this behavior on this list called > something like: > > [bug?, org-element] latex-environment delimiters... > > I think tests are corrected in the patch in that thread. > Good to know - thanks!
Re: [O] Test failure
Hi Nick, Nick Dokos writes: > I just pulled (HEAD is 02f2d5b42aabe9e272a5967ad0483b38750a8392) > and got this test failure: > > , > | Test test-org-element/latex-environment-parser backtrace: > | (if (not (unwind-protect (setq value-102202 (apply fn-102200 args-10 > | (let (form-description-102204) (if (not (unwind-protect (setq value- > | (let ((value-102202 (quote ert-form-evaluation-aborted-102203))) (le > | (let ((fn-102200 (function eq)) (args-102201 (list (quote latex-envi > | (lambda nil (let ((value-102183 (cl-gensym "ert-form-evaluation-abor > | #[0 "\306\307!r\211q\210\310\311\312\313\314\315!\316\"\317\320%DC > | funcall(#[0 "\306\307!r\211q\210\310\311\312\313\314\315!\316\"\31 > | ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc > | #[0 "r\304 q\210\305 )\306\307\310\311\312\313!\314\"\315\316%DC\2 > | funcall(#[0 "r\304 q\210\305 )\306\307\310\311\312\313!\314\"\315\ > | ert-run-test([cl-struct-ert-test test-org-element/latex-environment- > | ert-run-or-rerun-test([cl-struct-ert--stats "\\(org\\|ob\\)" [[cl-st > | ert-run-tests("\\(org\\|ob\\)" #[385 "\306\307\"\203D\211\211G\310 > | ert-run-tests-batch("\\(org\\|ob\\)") > | ert-run-tests-batch-and-exit("\\(org\\|ob\\)") > | (let ((org-id-track-globally t) (org-test-selector (if org-test-sele > | org-test-run-batch-tests("\\(org\\|ob\\)") > | eval((org-test-run-batch-tests org-test-select-re)) > | command-line-1(("--eval" "(setq vc-handled-backends nil org-startup- > | command-line() > | normal-top-level() > | Test test-org-element/latex-environment-parser condition: > | (ert-test-failed > | ((should-not > |(eq 'latex-environment > | (org-test-with-temp-text "\\begin{env}{arg} > something\nvalue\n\\end{env}" ...))) > | :form > | (eq latex-environment latex-environment) > | :value t)) > |FAILED 282/523 test-org-element/latex-environment-parser > ` Nicolas removed the "$" at the end of the regexps identifying LaTeX environments here: http://orgmode.org/cgit.cgi/org-mode.git/commit/?id=ec0e3cf70ba353ea59a5e66235462f659c99 There a current thread discussion of this behavior on this list called something like: [bug?, org-element] latex-environment delimiters... I think tests are corrected in the patch in that thread. —Rasmus -- Hooray!
[O] Test failure
I just pulled (HEAD is 02f2d5b42aabe9e272a5967ad0483b38750a8392) and got this test failure: , | Test test-org-element/latex-environment-parser backtrace: | (if (not (unwind-protect (setq value-102202 (apply fn-102200 args-10 | (let (form-description-102204) (if (not (unwind-protect (setq value- | (let ((value-102202 (quote ert-form-evaluation-aborted-102203))) (le | (let ((fn-102200 (function eq)) (args-102201 (list (quote latex-envi | (lambda nil (let ((value-102183 (cl-gensym "ert-form-evaluation-abor | #[0 "\306\307!r\211q\210\310\311\312\313\314\315!\316\"\317\320%DC | funcall(#[0 "\306\307!r\211q\210\310\311\312\313\314\315!\316\"\31 | ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc | #[0 "r\304 q\210\305 )\306\307\310\311\312\313!\314\"\315\316%DC\2 | funcall(#[0 "r\304 q\210\305 )\306\307\310\311\312\313!\314\"\315\ | ert-run-test([cl-struct-ert-test test-org-element/latex-environment- | ert-run-or-rerun-test([cl-struct-ert--stats "\\(org\\|ob\\)" [[cl-st | ert-run-tests("\\(org\\|ob\\)" #[385 "\306\307\"\203D\211\211G\310 | ert-run-tests-batch("\\(org\\|ob\\)") | ert-run-tests-batch-and-exit("\\(org\\|ob\\)") | (let ((org-id-track-globally t) (org-test-selector (if org-test-sele | org-test-run-batch-tests("\\(org\\|ob\\)") | eval((org-test-run-batch-tests org-test-select-re)) | command-line-1(("--eval" "(setq vc-handled-backends nil org-startup- | command-line() | normal-top-level() | Test test-org-element/latex-environment-parser condition: | (ert-test-failed | ((should-not |(eq 'latex-environment | (org-test-with-temp-text "\\begin{env}{arg} something\nvalue\n\\end{env}" ...))) | :form | (eq latex-environment latex-environment) | :value t)) |FAILED 282/523 test-org-element/latex-environment-parser ` Nick
Re: [O] test failure
Hi Nick, Nick Dokos writes: > ``make test'' fails on just-updated org: > > Org-mode version 7.9.2 (release_7.9.2-725-ge55681 @ > /home/nick/elisp/org-mode/lisp/) > > with the following backtrace: > > , > | Test test-org-src/blank-line-block backtrace: Fixed, thanks. > I thought Michael Brand's problem described in > >http://thread.gmane.org/gmane.emacs.orgmode/63523 > > might have something to do with it, but wrapping a progn around the > forms of the test did not make any difference. > > When I simulate the test by hand, I don't get the error, so this seems > to be another of those errors that only surface when the test suite is > run in batch mode. Indeed. Actually, the test passed okay when trying to edit from line 2 (#+begin_src) so I changed that, since we really want to test whether those source blocks can be edited at all. > BTW, why in the above is the following a prog1, rather than a progn? > >(prog1 (goto-line 3) (org-edit-special) (insert "blah") (org-edit-sr No reason, this is an error. (prog1 ,@body (kill-buffer)) in org-test-with-temp-text-in-file had two problems: (1) (prog1 ,@body ...) is unpredictible (2) (kill-buffer) within (with-temp-buffer ...) does not make sense. I fixed this. Thanks, -- Bastien
[O] test failure
``make test'' fails on just-updated org: Org-mode version 7.9.2 (release_7.9.2-725-ge55681 @ /home/nick/elisp/org-mode/lisp/) with the following backtrace: , | Test test-org-src/blank-line-block backtrace: | signal(user-error ("No special environment to edit here")) | user-error("No special environment to edit here") | org-edit-special() | (prog1 (goto-line 3) (org-edit-special) (insert "blah") (org-edit-sr | (progn (org-mode) (progn (insert "\n#+begin_src emacs-lisp\n\n#+end_ | (unwind-protect (progn (org-mode) (progn (insert "\n#+begin_src emac | (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn | (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-b | (lambda nil (let ((temp-buffer (generate-new-buffer " *temp*"))) (sa | byte-code("\306\307!q\210\310\216\311 \312\216\313\314\315\316\3 | ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc | byte-code("\306\307!\211\211r\310\311!q\210\312 d\313\223)L\210)\3 | ert-run-test([cl-struct-ert-test test-org-src/blank-line-block "Edit | ert-run-or-rerun-test([cl-struct-ert--stats "\\(org\\|ob\\)" [[cl-st | ert-run-tests("\\(org\\|ob\\)" #[(event-type &rest event-args) "\306 | ert-run-tests-batch("\\(org\\|ob\\)") | ert-run-tests-batch-and-exit("\\(org\\|ob\\)") | (let ((org-id-track-globally t) (org-id-locations-file (convert-stan | org-test-run-batch-tests() | call-interactively(org-test-run-batch-tests nil nil) | command-execute(org-test-run-batch-tests) | command-line-1(("--eval" "(add-to-list 'load-path \"./lisp\")" "--ev | command-line() | normal-top-level() | Test test-org-src/blank-line-block condition: | (user-error "No special environment to edit here") |FAILED 299/333 test-org-src/blank-line-block ` I thought Michael Brand's problem described in http://thread.gmane.org/gmane.emacs.orgmode/63523 might have something to do with it, but wrapping a progn around the forms of the test did not make any difference. When I simulate the test by hand, I don't get the error, so this seems to be another of those errors that only surface when the test suite is run in batch mode. BTW, why in the above is the following a prog1, rather than a progn? (prog1 (goto-line 3) (org-edit-special) (insert "blah") (org-edit-sr Nick
Re: [O] [test] Failure on GNU Emacs 22.3.2 (i686-pc-linux-gnu) of 2011-05-28 on x60s
David Maus writes: > Running the test suit on > > GNU Emacs 22.3.2 (i686-pc-linux-gnu) of 2011-05-28 on x60s > > currently fails with the backtrace below. > > Somehwere/somehow Babel ends up calling `member' with the second > argument not being a list. In Emacs22 this triggers an error, but not > so in Emacs23 and upwards. > > Devs don't consider this a bug: > > http://debbugs.gnu.org/cgi/bugreport.cgi?bug=264 > > Best, > -- David > [...] Hi David I don't actually see this on my continuous test server, although I did see regression on 29th October which appeared to be fixed the same day ( see http://martynjago.co.uk:/builds/org-mode_Emacs_22 ). Personally I've pretty much given up even monitoring such things since there seems to be such little appetite by most of the maintainers to test anything, or even to run tests, or monitor test results. From my experience, threads like this tend to go unanswered. Best, Martyn
[O] [test] Failure on GNU Emacs 22.3.2 (i686-pc-linux-gnu) of 2011-05-28 on x60s
Running the test suit on GNU Emacs 22.3.2 (i686-pc-linux-gnu) of 2011-05-28 on x60s currently fails with the backtrace below. Somehwere/somehow Babel ends up calling `member' with the second argument not being a list. In Emacs22 this triggers an error, but not so in Emacs23 and upwards. Devs don't consider this a bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=264 Best, -- David Debugger entered--Lisp error: (wrong-type-argument listp 58) member(118 58) (or (and (numberp spec) (= spec ch)) (member ch spec)) (progn (or (and ... ...) (member ch spec))) (block matches (or (and ... ...) (member ch spec))) matches(118 58) (and (matches ch (cdr alts)) (matches last (car alts))) (catch (quote --cl-block-matched--) (and (matches ch ...) (matches last ...))) (cl-block-wrapper (catch (quote --cl-block-matched--) (and ... ...))) (block matched (and (matches ch ...) (matches last ...))) matched(118 58) (and (= balance 0) (matched ch last)) (if (and (= balance 0) (matched ch last)) (progn (setq lst ...) (setq partial nil))) (when (and (= balance 0) (matched ch last)) (setq lst (cons ... lst)) (setq partial nil)) (lambda (ch) (setq balance (+ balance ...)) (setq partial (cons ch partial)) (when (and ... ...) (setq lst ...) (setq partial nil)) (setq last ch))(118) mapc((lambda (ch) (setq balance (+ balance ...)) (setq partial (cons ch partial)) (when (and ... ...) (setq lst ...) (setq partial nil)) (setq last ch)) (58 118 97 114 32 105 110 112 117 116 61 34 101 99 104 111 39 100 34)) (let ((balance 0) (partial nil) (lst nil) (last 0)) (mapc (lambda ... ... ... ... ...) (string-to-list string)) (nreverse (cons ... lst))) (progn (fset (quote matched) (function* ...)) (let (... ... ... ...) (mapc ... ...) (nreverse ...))) (unwind-protect (progn (fset ... ...) (let ... ... ...)) (if --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...))) (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (progn ... ...) (if --cl-letf-bound-- ... ...))) (letf ((... ...)) (let (... ... ... ...) (mapc ... ...) (nreverse ...))) (progn (fset (quote matches) (function* ...)) (letf (...) (let ... ... ...))) (unwind-protect (progn (fset ... ...) (letf ... ...)) (if --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...))) (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (progn ... ...) (if --cl-letf-bound-- ... ...))) (letf ((... ...)) (letf (...) (let ... ... ...))) (letf* ((... ...) (... ...)) (let (... ... ... ...) (mapc ... ...) (nreverse ...))) (flet ((matches ... ...) (matched ... ...)) (let (... ... ... ...) (mapc ... ...) (nreverse ...))) org-babel-balanced-split(":var input=\"echo'd\"" ((32 9) . 58)) ((lambda (raw) (cons ... ...)) (org-babel-balanced-split arg-string (quote ...))) (mapcar (lambda (arg) (if ... ... ...)) ((lambda ... ...) (org-babel-balanced-split arg-string ...))) (delq nil (mapcar (lambda ... ...) (... ...))) (org-babel-parse-multiple-vars (delq nil (mapcar ... ...))) (progn (org-babel-parse-multiple-vars (delq nil ...))) (if (> (length arg-string) 0) (progn (org-babel-parse-multiple-vars ...))) (when (> (length arg-string) 0) (org-babel-parse-multiple-vars (delq nil ...))) org-babel-parse-header-arguments(":var input=\"echo'd\"") (org-babel-merge-params org-babel-default-header-args (org-babel-params-from-properties lang) (if (boundp lang-headers) (eval lang-headers) nil) (org-babel-parse-header-arguments (org-babel-clean-text-properties ...))) (list lang (with-temp-buffer (save-match-data ... ... ...)) (org-babel-merge-params org-babel-default-header-args (org-babel-params-from-properties lang) (if ... ... nil) (org-babel-parse-header-arguments ...)) switches block-indentation) (let* ((block-indentation ...) (lang ...) (lang-headers ...) (switches ...) (body ...) (preserve-indentation ...)) (list lang (with-temp-buffer ...) (org-babel-merge-params org-babel-default-header-args ... ... ...) switches block-indentation)) org-babel-parse-src-block-match() (setq info (org-babel-parse-src-block-match)) (save-excursion (goto-char head) (setq info (org-babel-parse-src-block-match)) (setq indent (car ...)) (setq info (butlast info)) (while (and ... ...) (setf ... ...)) (when (looking-at org-babel-src-name-w-name-regexp) (setq name ...) (when ... ...))) (if (setq head (org-babel-where-is-src-block-head)) (save-excursion (goto-char head) (setq info ...) (setq indent ...) (setq info ...) (while ... ...) (when ... ... ...)) (when (org-babel-get-inline-src-block-matches) (setq info ...))) (let ((case-fold-search t) head info name indent) (if (setq head ...) (save-excursion ... ... ... ... ... ...) (when ... ...)) (when (and info ...) (setf ... ...)) (when info (append info ...))) org-babel-get-src-block-info(light) (let* ((info ...) (source-name ...)) (when source-name (setq source-name ... org-babel-library-of-babel ... lob-ingest-count ...))