From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: [test] Failure on GNU Emacs 22.3.2 (i686-pc-linux-gnu) of 2011-05-28 on x60s Date: Sun, 06 Nov 2011 15:57:20 +0100 Message-ID: <87ehxlcn8v.wl%dmaus@ictsoc.de> Mime-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka") Content-Type: multipart/signed; boundary="pgp-sign-Multipart_Sun_Nov__6_15:57:20_2011-1"; micalg=pgp-sha256; protocol="application/pgp-signature" Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([140.186.70.92]:57700) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RN4A3-0005TF-W6 for emacs-orgmode@gnu.org; Sun, 06 Nov 2011 09:57:29 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RN4A2-000495-1y for emacs-orgmode@gnu.org; Sun, 06 Nov 2011 09:57:27 -0500 Received: from app1a.xlhost.de ([213.202.242.161]:54693) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RN4A1-00048t-Nx for emacs-orgmode@gnu.org; Sun, 06 Nov 2011 09:57:25 -0500 Received: from x60s.ictsoc.de.ictsoc.de (p5485D945.dip.t-dialin.net [84.133.217.69]) (Authenticated sender: dmaus@ictsoc.de) by app1a.xlhost.de (Postfix) with ESMTPSA id 00EAA11B2CA5 for ; Sun, 6 Nov 2011 15:57:22 +0100 (CET) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --pgp-sign-Multipart_Sun_Nov__6_15:57:20_2011-1 Content-Type: text/plain; charset=US-ASCII 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(# 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 --pgp-sign-Multipart_Sun_Nov__6_15:57:20_2011-1 Content-Type: application/pgp-signature Content-Transfer-Encoding: 7bit -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.10 (GNU/Linux) iF4EABEIAAYFAk62oFAACgkQma24O1pEeOahsQEAop/OtWZDtfcDv+uDYTZM7U83 OEwDWiCCtp0arSB3dzQA/22zSQL8GR36Tprjiz0XnpJHI6sJKnww6IdFPiLQEUPr =rxFz -----END PGP SIGNATURE----- --pgp-sign-Multipart_Sun_Nov__6_15:57:20_2011-1--