From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Thomas S. Dye" Subject: [babel] (wrong-type-argument number-or-marker-p nil) Date: Sun, 7 Feb 2010 12:35:17 -1000 Message-ID: Mime-Version: 1.0 (Apple Message framework v936) Content-Type: multipart/mixed; boundary="===============1815603932==" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NeFj0-0007xu-Bk for emacs-orgmode@gnu.org; Sun, 07 Feb 2010 17:35:30 -0500 Received: from [199.232.76.173] (port=43235 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NeFiz-0007x7-9n for emacs-orgmode@gnu.org; Sun, 07 Feb 2010 17:35:29 -0500 Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60) (envelope-from ) id 1NeFit-000333-OB for emacs-orgmode@gnu.org; Sun, 07 Feb 2010 17:35:29 -0500 Received: from outbound-mail-347.bluehost.com ([66.147.249.8]:56469) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1NeFit-00032F-0p for emacs-orgmode@gnu.org; Sun, 07 Feb 2010 17:35:23 -0500 Received: from cpe-24-161-159-72.hawaii.res.rr.com ([24.161.159.72] helo=[192.168.1.3]) by box472.bluehost.com with esmtpa (Exim 4.69) (envelope-from ) id 1NeFio-0005aR-GW for emacs-orgmode@gnu.org; Sun, 07 Feb 2010 15:35:19 -0700 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: org-mode mailing list --===============1815603932== Content-Type: multipart/alternative; boundary=Apple-Mail-94--487891571 --Apple-Mail-94--487891571 Content-Type: text/plain; charset=UTF-8; format=flowed; delsp=yes Content-Transfer-Encoding: quoted-printable Aloha all, I pulled the latest org-mode this morning and got an error starting =20 emacs afterwards that appears to be tied to org-babel-load-file. I ran git bisect and ended up here: 131441dbd2d16e92f863864ed536f37fcd4a85fc is first bad commit commit 131441dbd2d16e92f863864ed536f37fcd4a85fc Author: Eric Schulte Date: Thu Feb 4 09:43:11 2010 -0700 babel: load-file works for symlinks -- Thanks to Martin K=E2=88=9A=C2= =BAhl :040000 040000 b4e1b1d95a9c1bfd182ad3a834830c4494566679 =20 7ae93fe06479799b0d7dc233caa00ddfd6daec3a M contrib The backtrace from starting emacs with --debug-init follows: > Debugger entered--Lisp error: (wrong-type-argument number-or-marker-=20= > p nil) > time-subtract((19311 14612 450479) nil) > (time-to-seconds (time-subtract (current-time) (sixth ...))) > (catch (quote --cl-block-age--) (time-to-seconds (time-=20 > subtract ... ...))) > (cl-block-wrapper (catch (quote --cl-block-age--) (time-to-=20 > seconds ...))) > (block age (time-to-seconds (time-subtract ... ...))) > age("td.org") > (> (age file) (age exported-file)) > (and (file-exists-p exported-file) (> (age file) (age exported-=20 > file))) > (if (and (file-exists-p exported-file) (> ... ...)) nil (org-babel-=20= > tangle-file file base-name "emacs-lisp")) > (unless (and (file-exists-p exported-file) (> ... ...)) (org-babel-=20= > tangle-file file base-name "emacs-lisp")) > (let* ((base-name ...) (exported-file ...)) (unless (and ... ...) =20= > (org-babel-tangle-file file base-name "emacs-lisp")) (load-file =20 > exported-file) (message "loaded %s" exported-file)) > (progn (fset (quote age) (function* ...)) (let* (... ...) =20 > (unless ... ...) (load-file exported-file) (message "loaded %s" =20 > exported-file))) > (unwind-protect (progn (fset ... ...) (let* ... ... ... ...)) (if =20= > --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...))) > (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-=20 > protect (progn ... ...) (if --cl-letf-bound-- ... ...))) > (letf ((... ...)) (let* (... ...) (unless ... ...) (load-file =20 > exported-file) (message "loaded %s" exported-file))) > (letf* ((... ...)) (let* (... ...) (unless ... ...) (load-file =20 > exported-file) (message "loaded %s" exported-file))) > (flet ((age ... ...)) (let* (... ...) (unless ... ...) (load-file =20= > exported-file) (message "loaded %s" exported-file))) > org-babel-load-file("td.org") > mapc(org-babel-load-file ("td.org")) > (let ((default-directory user-specific-dir)) (mapc (function load) =20= > (directory-files user-specific-dir nil ".*el$")) (mapc (function org-=20= > babel-load-file) (directory-files user-specific-dir nil ".*org$"))) > (progn (let (...) (mapc ... ...) (mapc ... ...))) > (if (file-exists-p user-specific-dir) (progn (let ... ... ...))) > (when (file-exists-p user-specific-dir) (let (...) (mapc ... ...) =20= > (mapc ... ...))) > eval-buffer(#> nil "/Users/dk/.emacs.d/starter-=20 > kit.el" nil t) ; Reading at buffer position 6504 > load-with-code-conversion("/Users/dk/.emacs.d/starter-kit.el" "/=20 > Users/dk/.emacs.d/starter-kit.el" nil nil) > load("/Users/dk/.emacs.d/starter-kit.el" nil nil t) > load-file("/Users/dk/.emacs.d/starter-kit.el") > (let* ((base-name ...) (exported-file ...)) (unless (and ... ...) =20= > (org-babel-tangle-file file base-name "emacs-lisp")) (load-file =20 > exported-file) (message "loaded %s" exported-file)) > (progn (fset (quote age) (function* ...)) (let* (... ...) =20 > (unless ... ...) (load-file exported-file) (message "loaded %s" =20 > exported-file))) > (unwind-protect (progn (fset ... ...) (let* ... ... ... ...)) (if =20= > --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...))) > (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-=20 > protect (progn ... ...) (if --cl-letf-bound-- ... ...))) > (letf ((... ...)) (let* (... ...) (unless ... ...) (load-file =20 > exported-file) (message "loaded %s" exported-file))) > (letf* ((... ...)) (let* (... ...) (unless ... ...) (load-file =20 > exported-file) (message "loaded %s" exported-file))) > (flet ((age ... ...)) (let* (... ...) (unless ... ...) (load-file =20= > exported-file) (message "loaded %s" exported-file))) > org-babel-load-file("/Users/dk/.emacs.d/starter-kit.org") > eval-buffer(# nil "/Users/dk/.emacs.d/init.el" nil =20= > t) ; Reading at buffer position 884 > load-with-code-conversion("/Users/dk/.emacs.d/init.el" "/Users/=20 > dk/.emacs.d/init.el" t t) > load("/Users/dk/.emacs.d/init" t t) > #[nil "=08\205\264=00 \306=3D\203=11=00\307=08\310Q\2027=00 = \311=3D=20 > \2033=00\312\307\313\314#\203#=00\315\2027=00\312\307\313\316#=20 > \203/=00\317\2027=00\315\2027=00\307=08\320Q=1A\321=13\322\n\321\211#\21= 0=0B\321=3D=20 > \203_=00\323\324\325\307=08\326Q!\"=1C\322\f\321\211#\210=0B= \321=3D\203^=00\n=13)=0B=20 > \203\244=00\327=0B!\330\232\203\244=00\331=0B!\211=1D\332P=1E\"\333=0E\"= !=20 > \203\200=00=0E\"\202\213=00\333 > !\203\212=00 > \202\213=00\313\211=15\203\243=00\334 > =0B\"\203\241=00\335\336 > =0B#\210\337\340!\210 > =13*=0E#?\205\263=00\313=1E$\322\341\321\211#))\207" [init-file-user = system-=20 > type user-init-file-1 user-init-file otherfile source ms-dos "~" "/=20 > _emacs" windows-nt directory-files nil "^\\.emacs\\(\\.elc?\\)?$" =20 > "~/.emacs" "^_emacs\\(\\.elc?\\)?$" "~/_emacs" "/.emacs" t load =20 > expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-=20= > extension "elc" file-name-sans-extension ".el" file-exists-p file-=20 > newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 =20 > "default" alt inhibit-default-init inhibit-startup-screen] 7]() > command-line() > normal-top-level() hth, Tom= --Apple-Mail-94--487891571 Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Aloha all,

I = pulled the latest org-mode this morning and got an error starting emacs = afterwards that appears to be tied to org-babel-load-file. =  

I ran git bisect and ended up = here:

131441dbd2d16e92f863864ed536f37fcd4a85= fc is first bad commit
commit = 131441dbd2d16e92f863864ed536f37fcd4a85fc
Author: Eric Schulte = <schulte.eric@gmail.com>
Date:   Thu Feb 4 09:43:11 2010 = -0700

    babel: load-file works = for symlinks -- Thanks to Martin = K=E2=88=9A=C2=BAhl

:040000 040000 = b4e1b1d95a9c1bfd182ad3a834830c4494566679 = 7ae93fe06479799b0d7dc233caa00ddfd6daec3a M     =  contrib

The backtrace from starting = emacs with --debug-init follows:

Debugger entered--Lisp error: (wrong-type-argument = number-or-marker-p nil)
  time-subtract((19311 14612 450479) = nil)
  (time-to-seconds (time-subtract = (current-time) (sixth ...)))
  (catch (quote = --cl-block-age--) (time-to-seconds (time-subtract ... = ...)))
  (cl-block-wrapper (catch (quote = --cl-block-age--) (time-to-seconds ...)))
  (block age = (time-to-seconds (time-subtract ... ...)))
  age("td.org")
  (> (age = file) (age exported-file))
  (and = (file-exists-p exported-file) (> (age file) (age = exported-file)))
  (if (and (file-exists-p exported-file) = (> ... ...)) nil (org-babel-tangle-file file base-name = "emacs-lisp"))
  (unless (and (file-exists-p exported-file) = (> ... ...)) (org-babel-tangle-file file base-name = "emacs-lisp"))
  (let* ((base-name ...) (exported-file = ...)) (unless (and ... ...) (org-babel-tangle-file file base-name = "emacs-lisp")) (load-file exported-file) (message "loaded %s" = exported-file))
  (progn (fset (quote age) (function* ...)) = (let* (... ...) (unless ... ...) (load-file exported-file) (message = "loaded %s" exported-file)))
  (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* (... ...) (unless ... ...) (load-file exported-file) = (message "loaded %s" exported-file)))
  (letf* ((... = ...)) (let* (... ...) (unless ... ...) (load-file exported-file) = (message "loaded %s" exported-file)))
  (flet ((age ... = ...)) (let* (... ...) (unless ... ...) (load-file exported-file) = (message "loaded %s" exported-file)))
  org-babel-load-file("td.org")
  mapc(org-babel-load-file = ("td.org"))
  (let ((default-directory = user-specific-dir)) (mapc (function load) (directory-files = user-specific-dir nil ".*el$")) (mapc (function org-babel-load-file) = (directory-files user-specific-dir nil = ".*org$")))
  (progn (let (...) (mapc ... ...) (mapc ... = ...)))
  (if (file-exists-p user-specific-dir) = (progn (let ... ... ...)))
  (when = (file-exists-p user-specific-dir) (let (...) (mapc ... ...) (mapc ... = ...)))
  eval-buffer(#<buffer =  *load*<2>> nil "/Users/dk/.emacs.d/starter-kit.el" nil t) =  ; Reading at buffer position 6504
  load-with-code-conversion("/Users/dk/.emacs.= d/starter-kit.el" "/Users/dk/.emacs.d/starter-kit.el" nil = nil)
  load("/Users/dk/.emacs.d/starter-kit.el" = nil nil t)
  load-file("/Users/dk/.emacs.d/starter-kit.el= ")
  (let* ((base-name ...) (exported-file = ...)) (unless (and ... ...) (org-babel-tangle-file file base-name = "emacs-lisp")) (load-file exported-file) (message "loaded %s" = exported-file))
  (progn (fset (quote age) (function* ...)) = (let* (... ...) (unless ... ...) (load-file exported-file) (message = "loaded %s" exported-file)))
  (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* (... ...) (unless ... ...) (load-file exported-file) = (message "loaded %s" exported-file)))
  (letf* ((... = ...)) (let* (... ...) (unless ... ...) (load-file exported-file) = (message "loaded %s" exported-file)))
  (flet ((age ... = ...)) (let* (... ...) (unless ... ...) (load-file exported-file) = (message "loaded %s" exported-file)))
  org-babel-load-file("/Users/dk/.emacs.d/star= ter-kit.org")
  eval-buffer(#<buffer  *load*> = nil "/Users/dk/.emacs.d/init.el" nil t)  ; Reading at buffer = position 884
  load-with-code-conversion("/Users/dk/.emacs.= d/init.el" "/Users/dk/.emacs.d/init.el" t t)
  load("/Users/dk/.emacs.d/init" t = t)
  #[nil "=08\205\264=00 \306=3D\203=11=00\307=08\310Q\2027=00 \311=3D\2033=00\312\307\313\314#\203#=00\315\2027=00\312= \307\313\316#\203/=00\317\2027=00\315\2027=00\307=08\320Q=1A\321=13\322\n\= 321\211#\210=0B\321=3D\203_=00\323\324\325\307=08\326Q!\"=1C\322\f\321\211= #\210=0B\321=3D\203^=00\n=13)=0B\203\244=00\327=0B!\330\232\203\244=00\331= =0B= !\211=1D\332P=1E\"\333=0E\"!\203\200=00=0E\"\202\213=00\333
!\203\212=00
\202\213=00\313\211=15\203\243=00\334
<= font class=3D"Apple-style-span" color=3D"#000000">=0B= \"\203\241=00\335\336
=0B#\210\337\340!\210
=13*=0E#?\205\263=00\313=1E$\322\341\321\211#))\207" = [init-file-user system-type user-init-file-1 user-init-file otherfile = source ms-dos "~" "/_emacs" windows-nt directory-files nil = "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" = "~/_emacs" "/.emacs" t load expand-file-name "init" = file-name-as-directory "/.emacs.d" file-name-extension "elc" = file-name-sans-extension ".el" file-exists-p file-newer-than-file-p = message "Warning: %s is newer than %s" sit-for 1 "default" alt = inhibit-default-init inhibit-startup-screen] 7]()
  command-line()
  normal-top-level()
=

hth,
Tom
= --Apple-Mail-94--487891571-- --===============1815603932== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --===============1815603932==--