Debugger entered--Lisp error: (muse-assertion-failed (file-name-directory path))
  signal(muse-assertion-failed ((file-name-directory path)))
  (or (file-name-directory path) (signal (quote muse-assertion-failed) (list ...)))
  (progn (or (file-name-directory path) (signal ... ...)) nil)
  (muse-assert (file-name-directory path))
  (cond ((file-directory-p path) (dolist ... ...)) ((file-readable-p path) (setcdr lnames ...) (setq lnames ...)) (t (muse-assert ...) (dolist ... ...)))
  (let* ((names ...) (lnames names) (case-fold-search nil)) (cond (... ...) (... ... ...) (t ... ...)) (cdr names))
  muse-project-file-entries("WelcomePage")
  (nconc names (muse-project-file-entries (car pats)))
  (if (symbolp (car pats)) (setq pats (cddr pats)) (nconc names (muse-project-file-entries ...)) (setq pats (cdr pats)))
  (while pats (if (symbolp ...) (setq pats ...) (nconc names ...) (setq pats ...)))
  (let* ((names ...) (pats ...)) (while pats (if ... ... ... ...)) (cdr names))
  (setcar (cdr file-alist) (let* (... ...) (while pats ...) (cdr names)))
  (progn (setcar (cdr file-alist) (let* ... ... ...)))
  (unwind-protect (progn (setcar ... ...)) (set-match-data save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...)))
  (save-match-data (setcar (cdr file-alist) (let* ... ... ...)))
  (prog1 (save-match-data (setcar ... ...)) (run-hooks (quote muse-project-file-alist-hook)))
  (let ((muse-updating-file-alist-p t)) (prog1 (save-match-data ...) (run-hooks ...)))
  (if (or (and no-check-p ...) muse-updating-file-alist-p (not ...)) (cadr file-alist) (if file-alist (setcdr ... last-mod) (setq file-alist ... muse-project-file-alist ...)) (let (...) (prog1 ... ...)))
  (let* ((file-alist ...) (last-mod ...)) (unless (or muse-under-windows-p no-check-p) (let ... ...)) (if (or ... muse-updating-file-alist-p ...) (cadr file-alist) (if file-alist ... ...) (let ... ...)))
  muse-project-file-alist("WikiPlanner" nil)
  planner-file-alist()
  (mapcar (lambda (item) (when ... ...)) (planner-file-alist))
  (let ((buffers ...) files) (mapcar (lambda ... ...) (planner-file-alist)) (unless exclude-temp (while buffers ... ...)) files)
  planner-list-daily-files(nil)
  (mapcar (lambda (item) (and ... ... ... ... item)) (planner-list-daily-files exclude-temp))
  (delq nil (mapcar (lambda ... ...) (planner-list-daily-files exclude-temp)))
  (sort (delq nil (mapcar ... ...)) (lambda (l r) (string-lessp ... ...)))
  planner-get-day-pages(nil "2006.06.14")
  (let* ((today ...) (names ...) (today-buffer ...) (planner-tasks-file-behavior ...) (planner-use-other-window nil) (live-buffers ...)) (when (and ... ...) (setcdr ... nil)) (when force-days (while names ... ... ...)) (if (or planner-carry-tasks-forward ... ...) (planner-goto-today) (planner-goto ...)) (when planner-tasks-file-behavior (planner-save-buffers live-buffers)))
  (progn (unless force-days (setq force-days ...)) (when (and ... ...) (setq force-days t)) (planner-goto-today) (let* (... ... ... ... ... ...) (when ... ...) (when force-days ...) (if ... ... ...) (when planner-tasks-file-behavior ...)))
  (if planner-use-day-pages (progn (unless force-days ...) (when ... ...) (planner-goto-today) (let* ... ... ... ... ...)) (planner-find-file (or planner-default-page planner-initial-page)))
  plan(nil)
  call-interactively(plan)
  eval((call-interactively (quote plan)))
  (if (string-match "\\`\\s-*\\((.+)\\)\\s-*\\'" form) (eval (read ...)) (eval (read ...)))
  (let ((form ...)) (if (string-match "\\`\\s-*\\((.+)\\)\\s-*\\'" form) (eval ...) (eval ...)))
  (progn (let (...) (if ... ... ...)) t)
  (if (string-match "\\`lisp:/*\\(.+\\)" url) (progn (let ... ...) t))
  (when (string-match "\\`lisp:/*\\(.+\\)" url) (let (...) (if ... ... ...)) t)
  planner-lisp-browse-url("lisp:/plan")
  funcall(planner-lisp-browse-url "lisp:/plan")
  (progn (funcall (cadr entry) url))
  (if entry (progn (funcall ... url)))
  (when entry (funcall (cadr entry) url))
  (let* ((proto ...) (entry ...)) (when entry (funcall ... url)))
  (progn (let* (... ...) (when entry ...)))
  (if (string-match muse-url-regexp url) (progn (let* ... ...)))
  (when (string-match muse-url-regexp url) (let* (... ...) (when entry ...)))
  muse-browse-url("lisp:/plan")
  (if (string-match muse-url-regexp link) (muse-browse-url link) (setq link (planner-link-target link)) (let (... base-buffer) (when tag ...) (when link ... ...) (when tag ... ...)))
  planner-visit-link("lisp:/plan" nil)
  funcall(planner-visit-link "lisp:/plan" nil)
  (if visit-link-function (funcall visit-link-function link other-window) (muse-visit-link-default link other-window))
  (let ((visit-link-function ...)) (if visit-link-function (funcall visit-link-function link other-window) (muse-visit-link-default link other-window)))
  muse-visit-link("lisp:/plan" nil)
  (if link (muse-visit-link link other-window) (error "There is no valid link at point"))
  (let ((link ...)) (if link (muse-visit-link link other-window) (error "There is no valid link at point")))
  muse-follow-name-at-point(nil)
  call-interactively(muse-follow-name-at-point)