* [test] Failure on GNU Emacs 22.3.2 (i686-pc-linux-gnu) of 2011-05-28 on x60s
@ 2011-11-06 14:57 David Maus
2011-11-07 10:58 ` Martyn Jago
0 siblings, 1 reply; 2+ messages in thread
From: David Maus @ 2011-11-06 14:57 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 9460 bytes --]
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 ...)))
(let ((full-block ...) (beg-block ...) (end-block ...) (lang ...) (beg-lang ...) (end-lang ...) (switches ...) (beg-switches ...) (end-switches ...) (header-args ...) (beg-header-args ...) (end-header-args ...) (body ...) (beg-body ...) (end-body ...)) (let* (... ...) (when source-name ...)) (goto-char end-block))
(while (re-search-forward org-babel-src-block-regexp nil t) (goto-char (match-beginning 0)) (let (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (let* ... ...) (goto-char end-block)))
(save-window-excursion (when file (find-file file)) (setq to-be-removed (current-buffer)) (goto-char (point-min)) (while (re-search-forward org-babel-src-block-regexp nil t) (goto-char ...) (let ... ... ...)))
(let* ((file file) (visited-p ...) (point ...) to-be-removed) (save-window-excursion (when file ...) (setq to-be-removed ...) (goto-char ...) (while ... ... ...)) (unless visited-p (kill-buffer to-be-removed)) (goto-char point))
(org-babel-map-src-blocks file (let* (... ...) (when source-name ...)))
(let ((lob-ingest-count 0)) (org-babel-map-src-blocks file (let* ... ...)) (message "%d src block%s added to Library of Babel" lob-ingest-count (if ... "s" "")) lob-ingest-count)
org-babel-lob-ingest("/home/dmaus/projects/org-mode/org-mode/contrib/babel/library-of-babel.org")
eval-buffer(#<buffer *load*> nil "/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-lob.el" nil t) ; Reading at buffer position 494
load-with-code-conversion("/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-lob.el" "/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-lob.el" nil nil)
load("/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-lob.el" nil nil t)
load-file("/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-lob.el")
(catch (quote missing-test-dependency) (load-file path))
(if (file-directory-p path) (rld path) (catch (quote missing-test-dependency) (load-file path)))
(lambda (path) (if (file-directory-p path) (rld path) (catch ... ...)))("/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-lob.el")
mapc((lambda (path) (if (file-directory-p path) (rld path) (catch ... ...))) ("/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-R.el" "/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-awk.el" "/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-exp.el" "/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-fortran.el" "/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-lilypond.el" "/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-lob.el" "/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-sh.el" "/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-table.el" "/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob-tangle.el" "/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-ob.el" "/home/dmaus/projects/o
rg-mode/org-mode/testing/lisp/test-org-exp.el" "/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-org-html.el" "/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-org-table.el"
"/home/dmaus/projects/org-mode/org-mode/testing/lisp/test-org.el"))
(catch (quote --cl-block-rld--) (mapc (lambda ... ...) (directory-files base ... "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*\\.el$")))
(cl-block-wrapper (catch (quote --cl-block-rld--) (mapc ... ...)))
(block rld (mapc (lambda ... ...) (directory-files base ... "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*\\.el$")))
rld("/home/dmaus/projects/org-mode/org-mode/testing/lisp")
(progn (fset (quote rld) (function* ...)) (rld (expand-file-name "lisp" org-test-dir)) (rld (expand-file-name "lisp" ...)))
(unwind-protect (progn (fset ... ...) (rld ...) (rld ...)) (if --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
(let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (progn ... ... ...) (if --cl-letf-bound-- ... ...)))
(letf ((... ...)) (rld (expand-file-name "lisp" org-test-dir)) (rld (expand-file-name "lisp" ...)))
(letf* ((... ...)) (rld (expand-file-name "lisp" org-test-dir)) (rld (expand-file-name "lisp" ...)))
(flet ((rld ... ...)) (rld (expand-file-name "lisp" org-test-dir)) (rld (expand-file-name "lisp" ...)))
org-test-load()
org-test-run-all-tests()
call-interactively(org-test-run-all-tests)
execute-extended-command(nil)
call-interactively(execute-extended-command)
--
OpenPGP... 0x99ADB83B5A4478E6
Jabber.... dmjena@jabber.org
Email..... dmaus@ictsoc.de
[-- Attachment #2: Type: application/pgp-signature, Size: 230 bytes --]
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: [test] Failure on GNU Emacs 22.3.2 (i686-pc-linux-gnu) of 2011-05-28 on x60s
2011-11-06 14:57 [test] Failure on GNU Emacs 22.3.2 (i686-pc-linux-gnu) of 2011-05-28 on x60s David Maus
@ 2011-11-07 10:58 ` Martyn Jago
0 siblings, 0 replies; 2+ messages in thread
From: Martyn Jago @ 2011-11-07 10:58 UTC (permalink / raw)
To: emacs-orgmode
David Maus <dmaus@ictsoc.de> 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:3333/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
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2011-11-07 10:58 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2011-11-06 14:57 [test] Failure on GNU Emacs 22.3.2 (i686-pc-linux-gnu) of 2011-05-28 on x60s David Maus
2011-11-07 10:58 ` Martyn Jago
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).