[O] [test] Failure on GNU Emacs 22.3.2 (i686-pc-linux-gnu) of 2011-05-28 on x60s

[David Maus]

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/org-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.... address@hidden
Email..... address@hidden

pgpIM9BwmQM8t.pgp
Description: PGP signature