[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Problems starting emacs-w3m on XEmacs 21.5, bad lexical ref



This bug report will be sent to the emacs-w3m development team,
 not to your local site managers!!
Please write in simple English, because the emacs-w3m developers
aren't good at English reading. ;-)

Please describe as succinctly as possible:
	- What happened.
	- What you thought should have happened.
	- Precisely what you were doing at the time.

Please also include any Lisp back-traces that you may have.
================================================================
Dear Bug Team!

When I try to start w3m I get the following error

Debugger entered--Lisp error: (wrong-type-argument symbolp [bad-lexical-ref])
  symbol-value([bad-lexical-ref])
  (list (symbol-value --url--16018))
  (list (list --url--temp--) (list (symbol-value --url--16018)) (list --value--temp--) (letf* (... ...) (list ... ... nil nil value)) (list (quote w3m-arrived-time) --url--temp--))
  (let* ((--url--temp-- ...) (--value--temp-- ...)) (list (list --url--temp--) (list ...) (list --value--temp--) (letf* ... ...) (list ... --url--temp--)))
  (catch (quote w3m-arrived-time) (let* (... ...) (list ... ... ... ... ...)))
  (block w3m-arrived-time (let* (... ...) (list ... ... ... ... ...)))
  (lambda (url) (block w3m-arrived-time (let* ... ...)))((w3m-url-strip-authinfo orig))
  apply((lambda (url) (block w3m-arrived-time (let* ... ...))) (w3m-url-strip-authinfo orig))
  get-setf-method((w3m-arrived-time (w3m-url-strip-authinfo orig)) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  cl-setf-do-modify((w3m-arrived-time (w3m-url-strip-authinfo orig)) (w3m-arrived-time url))
  #<compiled-function (from "/home/nkh/local/share/xemacs-21.5-b29/lisp/cl-macs.elc") (&rest args) "...(82)" [store method sets args nil setf progn setq cl-setf-do-modify cl-setf-do-store let*] 4 ("/home/nkh/local/share/xemacs-21.5-b29/lisp/cl-macs.elc" . 87365) 0x26a2>((w3m-arrived-time (w3m-url-strip-authinfo orig)) (w3m-arrived-time url))
  #<subr macroexpand-internal>((setf (w3m-arrived-time (w3m-url-strip-authinfo orig)) (w3m-arrived-time url)) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  macroexpand((setf (w3m-arrived-time (w3m-url-strip-authinfo orig)) (w3m-arrived-time url)) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  cl-macroexpand-all((setf (w3m-arrived-time (w3m-url-strip-authinfo orig)) (w3m-arrived-time url)) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  #<compiled-function (from "/home/nkh/local/src/xemacs/lisp/cl-extra.elc") (x) "...(5)" [env x cl-macroexpand-all] 3 0xf4>((setf (w3m-arrived-time (w3m-url-strip-authinfo orig)) (w3m-arrived-time url)))
  mapcar(#<compiled-function (from "/home/nkh/local/src/xemacs/lisp/cl-extra.elc") (x) "...(5)" [env x cl-macroexpand-all] 3 0xf4> ((and name (progn ... ...)) (setf (w3m-arrived-time ...) (w3m-arrived-time url))))
  cl-macroexpand-body(((and name (progn ... ...)) (setf (w3m-arrived-time ...) (w3m-arrived-time url))) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  cl-macroexpand-all((when (and name (progn ... ...)) (setf (w3m-arrived-time ...) (w3m-arrived-time url))) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  #<compiled-function (from "/home/nkh/local/src/xemacs/lisp/cl-extra.elc") (x) "...(5)" [env x cl-macroexpand-all] 3 0xf4>((when (and name (progn ... ...)) (setf (w3m-arrived-time ...) (w3m-arrived-time url))))
  mapcar(#<compiled-function (from "/home/nkh/local/src/xemacs/lisp/cl-extra.elc") (x) "...(5)" [env x cl-macroexpand-all] 3 0xf4> ((not action) (progn (w3m-history-push w3m-current-url ...) (goto-char ...)) (when (and name ...) (setf ... ...)) (unless (eq action ...) (if ... ... ...) (w3m-history-add-properties ...) (unless w3m-toggle-inline-images-permanently ...) (when ... ...) (cond ... ...))))
  cl-macroexpand-body(((not action) (progn (w3m-history-push w3m-current-url ...) (goto-char ...)) (when (and name ...) (setf ... ...)) (unless (eq action ...) (if ... ... ...) (w3m-history-add-properties ...) (unless w3m-toggle-inline-images-permanently ...) (when ... ...) (cond ... ...))) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  cl-macroexpand-all((if (not action) (progn (w3m-history-push w3m-current-url ...) (goto-char ...)) (when (and name ...) (setf ... ...)) (unless (eq action ...) (if ... ... ...) (w3m-history-add-properties ...) (unless w3m-toggle-inline-images-permanently ...) (when ... ...) (cond ... ...))) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  #<compiled-function (from "/home/nkh/local/src/xemacs/lisp/cl-extra.elc") (x) "...(5)" [env x cl-macroexpand-all] 3 0xf4>((if (not action) (progn (w3m-history-push w3m-current-url ...) (goto-char ...)) (when (and name ...) (setf ... ...)) (unless (eq action ...) (if ... ... ...) (w3m-history-add-properties ...) (unless w3m-toggle-inline-images-permanently ...) (when ... ...) (cond ... ...))))
  mapcar(#<compiled-function (from "/home/nkh/local/src/xemacs/lisp/cl-extra.elc") (x) "...(5)" [env x cl-macroexpand-all] 3 0xf4> ((set-buffer w3m-current-buffer) (setq w3m-current-process nil) (if (not action) (progn ... ...) (when ... ...) (unless ... ... ... ... ... ...)) (setq buffer-read-only t) (set-buffer-modified-p nil) (setq list-buffers-directory w3m-current-title) (setq default-directory (w3m-current-directory w3m-current-url)) (w3m-buffer-name-add-title) (w3m-update-toolbar) (w3m-select-buffer-update) (let (...) (run-hook-with-args ... real-url) (run-hook-with-args ... real-url)) (w3m-session-crash-recovery-save) (when (and w3m-current-url ... ...) (setq truncate-lines nil)) (when (or reload redisplay) (w3m-history-restore-position)) (w3m-set-buffer-unseen) (w3m-refresh-at-time)))
  cl-macroexpand-body(((set-buffer w3m-current-buffer) (setq w3m-current-process nil) (if (not action) (progn ... ...) (when ... ...) (unless ... ... ... ... ... ...)) (setq buffer-read-only t) (set-buffer-modified-p nil) (setq list-buffers-directory w3m-current-title) (setq default-directory (w3m-current-directory w3m-current-url)) (w3m-buffer-name-add-title) (w3m-update-toolbar) (w3m-select-buffer-update) (let (...) (run-hook-with-args ... real-url) (run-hook-with-args ... real-url)) (w3m-session-crash-recovery-save) (when (and w3m-current-url ... ...) (setq truncate-lines nil)) (when (or reload redisplay) (w3m-history-restore-position)) (w3m-set-buffer-unseen) (w3m-refresh-at-time)) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value -
 -referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  cl-macroexpand-all((with-current-buffer w3m-current-buffer (setq w3m-current-process nil) (if (not action) (progn ... ...) (when ... ...) (unless ... ... ... ... ... ...)) (setq buffer-read-only t) (set-buffer-modified-p nil) (setq list-buffers-directory w3m-current-title) (setq default-directory (w3m-current-directory w3m-current-url)) (w3m-buffer-name-add-title) (w3m-update-toolbar) (w3m-select-buffer-update) (let (...) (run-hook-with-args ... real-url) (run-hook-with-args ... real-url)) (w3m-session-crash-recovery-save) (when (and w3m-current-url ... ...) (setq truncate-lines nil)) (when (or reload redisplay) (w3m-history-restore-position)) (w3m-set-buffer-unseen) (w3m-refresh-at-time)) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-v
 alue --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  #<compiled-function (from "/home/nkh/local/src/xemacs/lisp/cl-extra.elc") (x) "...(5)" [env x cl-macroexpand-all] 3 0xf4>((with-current-buffer w3m-current-buffer (setq w3m-current-process nil) (if (not action) (progn ... ...) (when ... ...) (unless ... ... ... ... ... ...)) (setq buffer-read-only t) (set-buffer-modified-p nil) (setq list-buffers-directory w3m-current-title) (setq default-directory (w3m-current-directory w3m-current-url)) (w3m-buffer-name-add-title) (w3m-update-toolbar) (w3m-select-buffer-update) (let (...) (run-hook-with-args ... real-url) (run-hook-with-args ... real-url)) (w3m-session-crash-recovery-save) (when (and w3m-current-url ... ...) (setq truncate-lines nil)) (when (or reload redisplay) (w3m-history-restore-position)) (w3m-set-buffer-unseen) (w3m-refresh-at-time)))
  mapcar(#<compiled-function (from "/home/nkh/local/src/xemacs/lisp/cl-extra.elc") (x) "...(5)" [env x cl-macroexpand-all] 3 0xf4> ((with-current-buffer w3m-current-buffer (setq w3m-current-process nil) (if ... ... ... ...) (setq buffer-read-only t) (set-buffer-modified-p nil) (setq list-buffers-directory w3m-current-title) (setq default-directory ...) (w3m-buffer-name-add-title) (w3m-update-toolbar) (w3m-select-buffer-update) (let ... ... ...) (w3m-session-crash-recovery-save) (when ... ...) (when ... ...) (w3m-set-buffer-unseen) (w3m-refresh-at-time))))
  cl-macroexpand-body(((with-current-buffer w3m-current-buffer (setq w3m-current-process nil) (if ... ... ... ...) (setq buffer-read-only t) (set-buffer-modified-p nil) (setq list-buffers-directory w3m-current-title) (setq default-directory ...) (w3m-buffer-name-add-title) (w3m-update-toolbar) (w3m-select-buffer-update) (let ... ... ...) (w3m-session-crash-recovery-save) (when ... ...) (when ... ...) (w3m-set-buffer-unseen) (w3m-refresh-at-time))) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  cl-macroexpand-all((lambda (action) (with-current-buffer w3m-current-buffer (setq w3m-current-process nil) (if ... ... ... ...) (setq buffer-read-only t) (set-buffer-modified-p nil) (setq list-buffers-directory w3m-current-title) (setq default-directory ...) (w3m-buffer-name-add-title) (w3m-update-toolbar) (w3m-select-buffer-update) (let ... ... ...) (w3m-session-crash-recovery-save) (when ... ...) (when ... ...) (w3m-set-buffer-unseen) (w3m-refresh-at-time))) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  #<compiled-function (from "/home/nkh/local/src/xemacs/lisp/cl-extra.elc") (x) "...(5)" [env x cl-macroexpand-all] 3 0xf4>((lambda (action) (with-current-buffer w3m-current-buffer (setq w3m-current-process nil) (if ... ... ... ...) (setq buffer-read-only t) (set-buffer-modified-p nil) (setq list-buffers-directory w3m-current-title) (setq default-directory ...) (w3m-buffer-name-add-title) (w3m-update-toolbar) (w3m-select-buffer-update) (let ... ... ...) (w3m-session-crash-recovery-save) (when ... ...) (when ... ...) (w3m-set-buffer-unseen) (w3m-refresh-at-time))))
  mapcar(#<compiled-function (from "/home/nkh/local/src/xemacs/lisp/cl-extra.elc") (x) "...(5)" [env x cl-macroexpand-all] 3 0xf4> ((lambda (action) (with-current-buffer w3m-current-buffer ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))))
  cl-macroexpand-body(((lambda (action) (with-current-buffer w3m-current-buffer ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  cl-macroexpand-all((w3m-process-do (action (if ... ... ... ... ...)) (with-current-buffer w3m-current-buffer (setq w3m-current-process nil) (if ... ... ... ...) (setq buffer-read-only t) (set-buffer-modified-p nil) (setq list-buffers-directory w3m-current-title) (setq default-directory ...) (w3m-buffer-name-add-title) (w3m-update-toolbar) (w3m-select-buffer-update) (let ... ... ...) (w3m-session-crash-recovery-save) (when ... ...) (when ... ...) (w3m-set-buffer-unseen) (w3m-refresh-at-time))) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-d
 efun-expander)))
  #<compiled-function (from "/home/nkh/local/src/xemacs/lisp/cl-extra.elc") (x) "...(5)" [env x cl-macroexpand-all] 3 0xf4>((w3m-process-do (action (if ... ... ... ... ...)) (with-current-buffer w3m-current-buffer (setq w3m-current-process nil) (if ... ... ... ...) (setq buffer-read-only t) (set-buffer-modified-p nil) (setq list-buffers-directory w3m-current-title) (setq default-directory ...) (w3m-buffer-name-add-title) (w3m-update-toolbar) (w3m-select-buffer-update) (let ... ... ...) (w3m-session-crash-recovery-save) (when ... ...) (when ... ...) (w3m-set-buffer-unseen) (w3m-refresh-at-time))))
  mapcar(#<compiled-function (from "/home/nkh/local/src/xemacs/lisp/cl-extra.elc") (x) "...(5)" [env x cl-macroexpand-all] 3 0xf4> ((unless element (setq element ...)) (when (setq w3m-current-forms ...) (setq w3m-current-forms ...)) (when (and post-data element) (w3m-history-set-plist ... :forms nil)) (when (and ... ... ... ... ...) (setq url ... orig url)) (w3m-string-match-url-components url) (and (match-beginning 8) (setq name ... url ...)) (when (w3m-url-local-p url) (unless ... ...)) (w3m-process-do (action ...) (with-current-buffer w3m-current-buffer ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))))
  cl-macroexpand-body(((unless element (setq element ...)) (when (setq w3m-current-forms ...) (setq w3m-current-forms ...)) (when (and post-data element) (w3m-history-set-plist ... :forms nil)) (when (and ... ... ... ... ...) (setq url ... orig url)) (w3m-string-match-url-components url) (and (match-beginning 8) (setq name ... url ...)) (when (w3m-url-local-p url) (unless ... ...)) (w3m-process-do (action ...) (with-current-buffer w3m-current-buffer ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026)
  t) (defun . cl-defun-expander)))
  cl-macroexpand-all((let ((w3m-current-buffer ...)) (unless element (setq element ...)) (when (setq w3m-current-forms ...) (setq w3m-current-forms ...)) (when (and post-data element) (w3m-history-set-plist ... :forms nil)) (when (and ... ... ... ... ...) (setq url ... orig url)) (w3m-string-match-url-components url) (and (match-beginning 8) (setq name ... url ...)) (when (w3m-url-local-p url) (unless ... ...)) (w3m-process-do (action ...) (with-current-buffer w3m-current-buffer ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol
 -value --reuse-history--16026) t) (defun . cl-defun-expander)))
  #<compiled-function (from "/home/nkh/local/src/xemacs/lisp/cl-extra.elc") (x) "...(5)" [env x cl-macroexpand-all] 3 0xf4>((let ((w3m-current-buffer ...)) (unless element (setq element ...)) (when (setq w3m-current-forms ...) (setq w3m-current-forms ...)) (when (and post-data element) (w3m-history-set-plist ... :forms nil)) (when (and ... ... ... ... ...) (setq url ... orig url)) (w3m-string-match-url-components url) (and (match-beginning 8) (setq name ... url ...)) (when (w3m-url-local-p url) (unless ... ...)) (w3m-process-do (action ...) (with-current-buffer w3m-current-buffer ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))))
  mapcar(#<compiled-function (from "/home/nkh/local/src/xemacs/lisp/cl-extra.elc") (x) "...(5)" [env x cl-macroexpand-all] 3 0xf4> ((when w3m-current-forms (w3m-history-plist-put :forms w3m-current-forms)) (let (...) (unless element ...) (when ... ...) (when ... ...) (when ... ...) (w3m-string-match-url-components url) (and ... ...) (when ... ...) (w3m-process-do ... ...))))
  cl-macroexpand-body(((when w3m-current-forms (w3m-history-plist-put :forms w3m-current-forms)) (let (...) (unless element ...) (when ... ...) (when ... ...) (when ... ...) (w3m-string-match-url-components url) (and ... ...) (when ... ...) (w3m-process-do ... ...))) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  cl-macroexpand-all((progn (when w3m-current-forms (w3m-history-plist-put :forms w3m-current-forms)) (let (...) (unless element ...) (when ... ...) (when ... ...) (when ... ...) (w3m-string-match-url-components url) (and ... ...) (when ... ...) (w3m-process-do ... ...))) (("orig" (symbol-value --orig--16017) t) ("url" (symbol-value --url--16018) t) ("reload" (symbol-value --reload--16019) t) ("redisplay" (symbol-value --redisplay--16020) t) ("charset" (symbol-value --charset--16021) t) ("post-data" (symbol-value --post-data--16022) t) ("referer" (symbol-value --referer--16023) t) ("name" (symbol-value --name--16024) t) ("history-position" (symbol-value --history-position--16025) t) ("reuse-history" (symbol-value --reuse-history--16026) t) (defun . cl-defun-expander)))
  #<compiled-function (from "/home/nkh/local/share/xemacs-21.5-b29/lisp/cl-macs.elc") (bindings &rest body) "...(62)" [cl-macro-environment body bindings ebody cl-closure-vars vars mapcar #<compiled-function (from "/home/nkh/local/share/xemacs-21.5-b29/lisp/cl-macs.elc") ... "...(31)" ... 5 0x25f1> cl-macroexpand-all progn #<compiled-function (from "/home/nkh/local/share/xemacs-21.5-b29/lisp/cl-macs.elc") ... "...(13)" ... 3 0x25f2> (defun . cl-defun-expander) last used let #<compiled-function (from "/home/nkh/local/share/xemacs-21.5-b29/lisp/cl-macs.elc") ... "...(9)" ... 2 0x25f3> sublis #<compiled-function (from "/home/nkh/local/share/xemacs-21.5-b29/lisp/cl-macs.elc") ... "...(12)" ... 3 0x25f4> #<compiled-function (from "/home/nkh/local/share/xemacs-21.5-b29/lisp/cl-macs.elc") ... "...(13)" ... 5 0x25f5> apply append (setf) #<compiled-function (from "/home/nkh/local/share/xemacs-21.5-b29/lisp/cl-macs.elc") ... "...(11)" ... 2 0x25f6>] 8 ("/home/nkh/local/share/xemacs-21.
 5-b29/lisp/cl-macs.elc" . 44908) 0x25f7>(((orig url) (url (w3m-url-strip-authinfo url)) (reload (and ... reload)) (redisplay (eq reload ...)) (charset charset) (post-data post-data) (referer referer) (name) (history-position (get-text-property ... ...)) (reuse-history w3m-history-reuse-history-elements)) (when w3m-current-forms (w3m-history-plist-put :forms w3m-current-forms)) (let ((w3m-current-buffer ...)) (unless element (setq element ...)) (when (setq w3m-current-forms ...) (setq w3m-current-forms ...)) (when (and post-data element) (w3m-history-set-plist ... :forms nil)) (when (and ... ... ... ... ...) (setq url ... orig url)) (w3m-string-match-url-components url) (and (match-beginning 8) (setq name ... url ...)) (when (w3m-url-local-p url) (unless ... ...)) (w3m-process-do (action ...) (with-current-buffer w3m-current-buffer ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))))
  (lexical-let ((orig url) (url ...) (reload ...) (redisplay ...) (charset charset) (post-data post-data) (referer referer) (name) (history-position ...) (reuse-history w3m-history-reuse-history-elements)) (when w3m-current-forms (w3m-history-plist-put :forms w3m-current-forms)) (let (...) (unless element ...) (when ... ...) (when ... ...) (when ... ...) (w3m-string-match-url-components url) (and ... ...) (when ... ...) (w3m-process-do ... ...)))
  (if (string-match "\\`group:" url) (let (... ...) (w3m-process-do ... type)) (lexical-let (... ... ... ... ... ... ... ... ... ...) (when w3m-current-forms ...) (let ... ... ... ... ... ... ... ... ...)))
  (cond ((string-match "\\`mailto:" url) (w3m-goto-mailto-url url post-data)) ((and w3m-use-ange-ftp ... ...) (w3m-goto-ftp-url url)) ((condition-case nil ... ...)) ((w3m-buffer-local-url-p url) (let ... ... ... ...)) ((w3m-url-valid url) (w3m-buffer-setup) (w3m-arrived-setup) (unless no-popup ...) (w3m-cancel-refresh-timer ...) (when w3m-current-process ...) (w3m-process-stop ...) (w3m-idle-images-show-unqueue ...) (when ... ...) (if ... ... ...)) (t (w3m-message "Invalid URL: %s" url)))
  w3m-goto-url("about://bookmark/")
  (let* ((crash ...) (last ...)) (w3m-goto-url url) (when (or crash last) (w3m-session-goto-session ...)))
  (unwind-protect (let* (... ...) (w3m-goto-url url) (when ... ...)) (w3m-delete-buffer-if-empty buffer))
  (if nofetch nil (unwind-protect (let* ... ... ...) (w3m-delete-buffer-if-empty buffer)))
  (unless nofetch (unwind-protect (let* ... ... ...) (w3m-delete-buffer-if-empty buffer)))
  (let ((nofetch ...) (alived ...) (buffer ...) (w3m-pop-up-frames ...) (w3m-pop-up-windows ...)) (unless (and ... ...) (if buffer ... ...)) (unless buffer (with-current-buffer ... ...)) (w3m-popup-buffer buffer) (unless nofetch (unwind-protect ... ...)))
  (lambda (&optional url new-session interactive-p) "Visit World Wide Web pages using the external w3m command.\n\nWhen you invoke this command interactively for the first time, it will\nvisit a page which is pointed to by a string like url around the\ncursor position or the home page specified by the `w3m-home-page'\nvariable, but you will be prompted for a URL if `w3m-quick-start' is\nnil (default t) or `w3m-home-page' is nil.\n\nThe variables `w3m-pop-up-windows' and `w3m-pop-up-frames' control\nwhether this command should pop to a window or a frame up for the\nsession.\n\nWhen emacs-w3m sessions have already been opened, this command will\npop to the existing window or frame up, but if `w3m-quick-start' is\nnil, (default t), you will be prompted for a URL (which defaults to\n`popup' meaning to pop to an existing emacs-w3m buffer up).\n\nIn addition, if the prefix argument is given or you enter the empty\nstring for the prompt, it will visit the home page specified by the\
 n`w3m-home-page' variable or the \"about:\" page.\n\nYou can also run this command in the batch mode as follows:\n\n  emacs -f w3m http://emacs-w3m.namazu.org/ &\n\nIn that case, or if this command is called non-interactively, the\nvariables `w3m-pop-up-windows' and `w3m-pop-up-frames' will be ignored\n(treated as nil) and it will run emacs-w3m at the current (or the\ninitial) window.\n\nIf the optional NEW-SESSION is non-nil, this function makes a new\nemacs-w3m buffer.  Besides that, it also makes a new emacs-w3m buffer\nif `w3m-make-new-session' is non-nil and a user specifies a url string.\n\nThe optional INTERACTIVE-P is for the internal use; it is mainly used\nto check whether Emacs 22 or later calls this function as an\ninteractive command in the batch mode." (interactive (let ... ...)) (let (... ... ... ... ...) (unless ... ...) (unless buffer ...) (w3m-popup-buffer buffer) (unless nofetch ...)))("about://bookmark/" nil t)
  call-interactively(w3m)
  command-execute(w3m t)



================================================================

System Info to help track down your bug:
---------------------------------------
emacs-w3m-version
 => "1.4.435"
emacs-version
 => "XEmacs 21.5  (beta29) \"garbanzo\" 22c4e67a2e69 [Lucid] (i686-pc-linux, Mule) of Mon Feb 21 2011 on mm0112"
(featurep (quote mule))
 => t
(featurep (quote file-coding))
 => t
system-type
 => linux
(featurep (quote gtk))
 => nil
w3m-version
 => "w3m/0.5.2"
w3m-type
 => w3m-m17n
w3m-compile-options
 => ("lang=en" "m17n" "image" "color" "ansi-color" "mouse" "gpm" "menu" "cookie" "ssl" "ssl-verify" "external-uri-loader" "w3mmailer" "nntp" "gopher" "ipv6" "alarm" "mark" "migemo")
w3m-language
 => nil
w3m-command-arguments
 => nil
w3m-command-arguments-alist
 => nil
w3m-command-environment
 => nil
w3m-input-coding-system
 => utf-8
w3m-output-coding-system
 => utf-8
w3m-use-mule-ucs
 => nil