Re: [O] [test] Failure on GNU Emacs 22.3.2 (i686-pc-linux-gnu) of 2011-05-28 on x60s
David Maus dm...@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:/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 ...))) (let