crash of 21.5-b27 in planner-create-task-from-buffer

Looks gc-related.

Fatal error.

Your files have been auto-saved.
Use `M-x recover-session' to recover them.

Your version of XEmacs was distributed with a PROBLEMS file that may describe
your crash, and with luck a workaround.  Please check it first, but do report
the crash anyway.

Please report this bug by invoking M-x report-emacs-bug, or by selecting
`Send Bug Report' from the Help menu.  If that won't work, send ordinary
email to `xemacs-beta@xemacs.org'.  *MAKE SURE* to include this entire
output from this crash, especially including the Lisp backtrace, as well as
the XEmacs configuration from M-x describe-installation (or equivalently,
the file `Installation' in the top of the build tree).

If you are fortunate enough to have some sort of debugging aid installed
on your system, for example Visual C++, and you can get a C stack backtrace,
*please* include it, as it will make our life far easier.


Lisp backtrace follows:

  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # bind (upper other window old-frame target-frame explicit-frame shrink-it)
  byte-code("..." [explicit-frame tem car target-frame buffer window nil last-no
nminibuf-frame selected-frame get-buffer bufferp wrong-type-argument throw done
buffer-dedicated-frame frame-live-p window-buffer selected-window display-buffer
-1 buffer-name assoc switch-to-buffer string-match 0 get-buffer-window frame-sel
ected-window set-window-buffer frame-property minibuffer only window-dedicated-p
 frame-root-window unsplittable get-largest-window visible t window-frame window
-height window-width window-leftmost-p window-rightmost-p split-window get-lru-w
indow window-parent window-previous-child window-next-child window-pixel-edges w
indow-pixel-height enlarge-window 2 ...] 8)
  # (catch done ...)
  # bind (shrink-to-fit override-frame not-this-window-p buffer)
  display-buffer(#<buffer "*Calendar*"> nil nil)
  # bind (oldbuf buf window frame on-frame not-this-window-p bufname)
  pop-to-buffer("*Calendar*")
  # bind (year month date split-height-threshold pop-up-windows arg)
  calendar-basic-setup(nil)
  # bind (arg)
  calendar()
  (if planner-use-calendar-flag (calendar))
  (when planner-use-calendar-flag (calendar))
  # bind (old-buffer)
  (let ((old-buffer (current-buffer))) (when planner-use-calendar-flag (calendar
)) (let ((old-map (copy-keymap calendar-mode-map))) (unwind-protect (progn (defi
ne-key calendar-mode-map [return] (quote planner-calendar-select)) (define-key c
alendar-mode-map [mouse-1] (quote planner-calendar-select)) (setq planner-calend
ar-selected-date nil) (let ((text (read-string (format "%s %s" (or prompt "When"
) (format-time-string "(%Y.%m.%d, %m.%d, %d): "))))) (or planner-calendar-select
ed-date (with-current-buffer old-buffer (planner-expand-name text))))) (setq cal
endar-mode-map old-map))))
  (if (or planner-use-day-pages force-read) (let ((old-buffer (current-buffer)))
 (when planner-use-calendar-flag (calendar)) (let ((old-map (copy-keymap calenda
r-mode-map))) (unwind-protect (progn (define-key calendar-mode-map [return] (quo
te planner-calendar-select)) (define-key calendar-mode-map [mouse-1] (quote plan
ner-calendar-select)) (setq planner-calendar-selected-date nil) (let ((text (rea
d-string (format "%s %s" (or prompt "When") (format-time-string "(%Y.%m.%d, %m.%
d, %d): "))))) (or planner-calendar-selected-date (with-current-buffer old-buffe
r (planner-expand-name text))))) (setq calendar-mode-map old-map)))))
  (when (or planner-use-day-pages force-read) (let ((old-buffer (current-buffer)
)) (when planner-use-calendar-flag (calendar)) (let ((old-map (copy-keymap calen
dar-mode-map))) (unwind-protect (progn (define-key calendar-mode-map [return] (q
uote planner-calendar-select)) (define-key calendar-mode-map [mouse-1] (quote pl
anner-calendar-select)) (setq planner-calendar-selected-date nil) (let ((text (r
ead-string (format "%s %s" (or prompt "When") (format-time-string "(%Y.%m.%d, %m
.%d, %d): "))))) (or planner-calendar-selected-date (with-current-buffer old-buf
fer (planner-expand-name text))))) (setq calendar-mode-map old-map)))))
  (progn (when (or planner-use-day-pages force-read) (let ((old-buffer (current-
buffer))) (when planner-use-calendar-flag (calendar)) (let ((old-map (copy-keyma
p calendar-mode-map))) (unwind-protect (progn (define-key calendar-mode-map [ret
urn] (quote planner-calendar-select)) (define-key calendar-mode-map [mouse-1] (q
uote planner-calendar-select)) (setq planner-calendar-selected-date nil) (let ((
text (read-string (format "%s %s" (or prompt "When") (format-time-string "(%Y.%m
.%d, %m.%d, %d): "))))) (or planner-calendar-selected-date (with-current-buffer
old-buffer (planner-expand-name text))))) (setq calendar-mode-map old-map))))))
  # (unwind-protect ...)
  (unwind-protect (progn (when (or planner-use-day-pages force-read) (let ((old-
buffer (current-buffer))) (when planner-use-calendar-flag (calendar)) (let ((old
-map (copy-keymap calendar-mode-map))) (unwind-protect (progn (define-key calend
ar-mode-map [return] (quote planner-calendar-select)) (define-key calendar-mode-
map [mouse-1] (quote planner-calendar-select)) (setq planner-calendar-selected-d
ate nil) (let ((text (read-string (format "%s %s" (or prompt "When") (format-tim
e-string "(%Y.%m.%d, %m.%d, %d): "))))) (or planner-calendar-selected-date (with
-current-buffer old-buffer (planner-expand-name text))))) (setq calendar-mode-ma
p old-map)))))) (set-window-configuration G20286))
  # bind (G20286)
  (let ((G20286 (current-window-configuration))) (unwind-protect (progn (when (o
r planner-use-day-pages force-read) (let ((old-buffer (current-buffer))) (when p
lanner-use-calendar-flag (calendar)) (let ((old-map (copy-keymap calendar-mode-m
ap))) (unwind-protect (progn (define-key calendar-mode-map [return] (quote plann
er-calendar-select)) (define-key calendar-mode-map [mouse-1] (quote planner-cale
ndar-select)) (setq planner-calendar-selected-date nil) (let ((text (read-string
 (format "%s %s" (or prompt "When") (format-time-string "(%Y.%m.%d, %m.%d, %d):
"))))) (or planner-calendar-selected-date (with-current-buffer old-buffer (plann
er-expand-name text))))) (setq calendar-mode-map old-map)))))) (set-window-confi
guration G20286)))
  (save-window-excursion (when (or planner-use-day-pages force-read) (let ((old-
buffer (current-buffer))) (when planner-use-calendar-flag (calendar)) (let ((old
-map (copy-keymap calendar-mode-map))) (unwind-protect (progn (define-key calend
ar-mode-map [return] (quote planner-calendar-select)) (define-key calendar-mode-
map [mouse-1] (quote planner-calendar-select)) (setq planner-calendar-selected-d
ate nil) (let ((text (read-string (format "%s %s" (or prompt "When") (format-tim
e-string "(%Y.%m.%d, %m.%d, %d): "))))) (or planner-calendar-selected-date (with
-current-buffer old-buffer (planner-expand-name text))))) (setq calendar-mode-ma
p old-map))))))
  # bind (force-read prompt)
  planner-read-date()
  # bind (planner-expand-name-favor-future-p)
  (let ((planner-expand-name-favor-future-p (or planner-expand-name-favor-future
-p planner-task-dates-favor-future-p))) (planner-read-date))
  (cond ((and current-prefix-arg (planner-derived-mode-p (quote planner-mode)) (
string-match planner-date-regexp (planner-page-name))) (planner-page-name)) ((co
ndition-case nil (calendar-cursor-to-date) (error nil)) (planner-date-to-filenam
e (calendar-cursor-to-date))) (t (let ((planner-expand-name-favor-future-p (or p
lanner-expand-name-favor-future-p planner-task-dates-favor-future-p))) (planner-
read-date))))
  (if planner-use-day-pages (cond ((and current-prefix-arg (planner-derived-mode
-p (quote planner-mode)) (string-match planner-date-regexp (planner-page-name)))
 (planner-page-name)) ((condition-case nil (calendar-cursor-to-date) (error nil)
) (planner-date-to-filename (calendar-cursor-to-date))) (t (let ((planner-expand
-name-favor-future-p (or planner-expand-name-favor-future-p planner-task-dates-f
avor-future-p))) (planner-read-date)))))
  (when planner-use-day-pages (cond ((and current-prefix-arg (planner-derived-mo
de-p (quote planner-mode)) (string-match planner-date-regexp (planner-page-name)
)) (planner-page-name)) ((condition-case nil (calendar-cursor-to-date) (error ni
l)) (planner-date-to-filename (calendar-cursor-to-date))) (t (let ((planner-expa
nd-name-favor-future-p (or planner-expand-name-favor-future-p planner-task-dates
-favor-future-p))) (planner-read-date)))))
  (list (read-string "Describe task: ") (when planner-use-day-pages (cond ((and
current-prefix-arg (planner-derived-mode-p (quote planner-mode)) (string-match p
lanner-date-regexp (planner-page-name))) (planner-page-name)) ((condition-case n
il (calendar-cursor-to-date) (error nil)) (planner-date-to-filename (calendar-cu
rsor-to-date))) (t (let ((planner-expand-name-favor-future-p (or planner-expand-
name-favor-future-p planner-task-dates-favor-future-p))) (planner-read-date)))))
 (when planner-use-plan-pages (if (and current-prefix-arg (planner-derived-mode-
p (quote planner-mode)) (not (string-match planner-date-regexp (planner-page-nam
e)))) (planner-page-name) (let ((planner-default-page (if (and (planner-derived-
mode-p (quote planner-mode)) (planner-page-name) (not (string-match planner-date
-regexp (planner-page-name)))) (planner-page-name) planner-default-page))) (plan
ner-read-non-date-page (planner-file-alist))))) planner-default-task-status)
  planner-read-task()
  call-interactively(planner-create-task-from-buffer)
  command-execute(planner-create-task-from-buffer t)
  # bind (_execute_command_keys_ _execute_command_name_ prefix-arg)
  execute-extended-command(nil)
  # bind (command-debug-status)
  call-interactively(execute-extended-command)
  # (condition-case ... . error)
  # (catch top-level ...)

----

lispdesc_indirect_count_1(long 17751397, const memory_description * 0x00000000, const void * 0x011f3a50 glyph_block_dynarr_description_1) line 364
kkcc_marking(int 17759461) line 1148 + 19 bytes
gc_incremental() line 1971 + 421 bytes
Ffuncall(int 17119406, long * 0x00000001) line 3826
execute_optimized_program(const unsigned char * 0x0082d9b8, int 29, long * 0x0266a008) line 862 + 11 bytes
Fbyte_code(long 14, long 40280064, long 17) line 2622 + 19 bytes
Feval(long 39912408) line 3646 + 66 bytes
internal_catch(long 37683776, long (long)* 0x0108d030 Feval(long), long 39912408, int * volatile 0x00000000, long * volatile 0x00000000, long * volatile 0x00000000) line 1530 + 7 bytes
execute_rare_opcode(long * 0x0082e434, const unsigned char * 0x0623df2d, Opcode Bcatch) line 1419 + 26 bytes
execute_optimized_program(const unsigned char * 0x0082e428, int 29, long * 0x0264dec8) line 754 + 8 bytes
Ffuncall(int 17119406, long * 0x00000003) line 3932 + 791 bytes
execute_optimized_program(const unsigned char * 0x0082e4e0, int 21, long * 0x024739a8) line 862 + 11 bytes
Ffuncall(int 17119406, long * 0x00000001) line 3932 + 791 bytes
execute_optimized_program(const unsigned char * 0x0082e59c, int 13, long * 0x059f9820) line 862 + 11 bytes
Ffuncall(int 17119406, long * 0xff7d19ac) line 3932 + 791 bytes
execute_optimized_program(const unsigned char * 0x0082e654, int 12, long * 0x0c61d664) line 862 + 11 bytes
Feval(long 91262144) line 3707 + 996 bytes
Fif(long 17356831) line 870 + 6 bytes
Feval(long 459613420) line 3603 + 11 bytes
Feval(long 91262120) line 3731 + 101 bytes
Flet(long 1) line 1123 + 50 bytes
Feval(long 91262048) line 3618 + 7 bytes
Fif(long 17356831) line 870 + 6 bytes
Feval(long 459613384) line 3603 + 11 bytes
Feval(long 91261964) line 3731 + 101 bytes
Fprogn(long 459612208) line 954 + 6 bytes
Feval(long 459612244) line 3618 + 7 bytes
Funwind_protect(long 17356831) line 1738 + 9 bytes
Feval(long 459612304) line 3603 + 11 bytes
Flet(long 1) line 1123 + 50 bytes
Feval(long 459612340) line 3618 + 7 bytes
Feval(long 91261952) line 3731 + 101 bytes
funcall_lambda(long 17359838, int 91263048, long * 0x00000000) line 4249 + 64 bytes
Feval(long 91448052) line 3758 + 14 bytes