21.5.b8 crash on tiny-tools

XEmacs crashes when trying to load the "tinybookmark" file from the tiny-tools distribution. I downloaded the latest tiny-tools CVS version today (it happened with older versions too.) init.el -------------------------------------- (require 'cl) (pushnew "/usr/local/lib/xemacs/site-lisp/tiny-tools/lisp/tiny" load-path :test 'string=) (pushnew "/usr/local/lib/xemacs/site-lisp/tiny-tools/lisp/other" load-path :test 'string=) (require 'tinypath) (require 'tinybookmark) ;(require 'tiny-autoload-loaddefs-tiny) ;(require 'tiny-autoload-loaddefs-other) describe-installation ----------------------- uname -a: CYGWIN_NT-5.0 HERMANST 1.3.12(0.54/3/2) 2002-07-06 02:16 i686 unknown ./configure '--with-mule' '--use-kkcc' XEmacs 21.5-b8 "broccoli" configured for `i686-pc-cygwin'. Compilation / Installation: Source code location: /usr/local/src/xemacs/xemacs Installation prefix: /usr/local Operating system description file: `s/cygwin32.h' Machine description file: `m/intel386.h' Compiler: gcc -g -O3 -Wall -Wno-switch -Winline -Wmissing-prototypes -Wsign-compare -W shadow -Wpointer-arith Relocating allocator for buffers: no GNU version of malloc: yes Window System: Compiling in support for the Microsoft window system. Compiling in support for the X window system: - X Windows headers location: /usr/X11R6/include - X Windows libraries location: /usr/X11R6/lib - Handling WM_COMMAND properly. Using Lucid menubars. Using Lucid scrollbars. Using Motif dialog boxes. Using Motif native widgets. Compiling in support for Drag'n'Drop (EXPERIMENTAL). - Drag'n'Drop prototype: msw. TTY: Compiling in support for ncurses. Images: Compiling in support for GIF images (builtin). Compiling in support for XPM images. Compiling in support for PNG images. Compiling in support for JPEG images. Compiling in support for TIFF images. Compiling in support for X-Face message headers. Sound: Compiling in support for sound (native). Databases: Compiling in support for GNU DBM. Compiling in support for LDAP. Internationalization: Compiling in support for Mule (multi-lingual Emacs). Compiling in support for XIM (X11R5+ I18N input method). - Using raw Xlib to provide XIM support. Mail: Compiling in support for POP mail retrieval. Other Features: Inhibiting IPv6 canonicalization at startup. Compiling in support for dynamic shared object modules. Using the new GC algorithms. Compiling in support for extra debugging code. WARNING: --------------------------------------------------------- WARNING: Compiling in support for runtime error checking. WARNING: XEmacs will run noticeably more slowly as a result. WARNING: Error checking is on by default for XEmacs beta releases. WARNING: --------------------------------------------------------- Cygwin stack trace ---------------------------------------------- Stack trace: Frame Function Args 0022AEC0 77E83B5B (00000000, 00000001, 00000000, 0062CE64) 0022AF30 6106A428 (00000000, 00E1A7E0, 0022AF60, 0049757A) 0022AF80 61067935 (00000700, 00000006, 0022B1B0, 0022AFAC) 0022AFD0 61067B52 (00000700, 00000006, 0022B010, 0048B866) 0022B010 0048B875 (00000006, 00000000, FFFFFFFF, 0022B0A4) 0022B040 61012C33 (610C290C, 00000000, 0022B060, 61012B97) 0022B060 61012AF1 (0022B088, 00000006, 00000014, 00781B43) 0022B0A0 61068077 (0048B900, 005AC494, 0022B0D0, 0048D1BB) 0022B0B0 0048D363 (00000000, FFFFFFFF, 1064A380, 007819B9) 0022B0D0 0048D1BB (005AC494, 000003F7, 005AC6F2, 005BA47F) 0022B140 005B435D (1064A380, 00000002, 0022B1D0, 0040A3CB) 0022B170 005B4760 (1064A380, 0022B1D0, 00000002, 0040BFB1) 0022B1F0 005B4A9F (1064A380, 00000029, 00000001, 00000001) 0022B260 005B3B59 (1064A380, 00000002, 0022B2F0, 0040A3CB) 0022B290 005B4760 (1064A380, 0022B2F0, 00000002, 0040BFB1) 0022B310 005B4A9F (1064A380, 00000029, 00000001, 00000001) End of stack trace (more stack frames may be present) lisp backtrace ---------------------------------------------- # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # bind (current-load-list) # (unwind-protect ...) # bind (load-file-name) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load-internal("/usr/local/lib/xemacs/site-lisp/tiny-tools/lisp/tiny/tinylib. el " nil t t undecided) # bind (path handler filename nosuffix nomessage noerror file) efs-real-load("/usr/local/lib/xemacs/site-lisp/tiny-tools/lisp/tiny/tinylib. el " nil t t) # bind (after-load-alist after-load parsed filename nosuffix nomessage noerror file) ad-Orig-load("/usr/local/lib/xemacs/site-lisp/tiny-tools/lisp/tiny/tinylib.e l" nil nil nil) (setq ad-return-value (ad-Orig-load file noerror nomessage nosuffix)) (progn (setq ad-return-value (ad-Orig-load file noerror nomessage nosuffix))) (prog1 (progn (setq ad-return-value (ad-Orig-load file noerror nomessage nosuf fix))) (tinypath-time-record file start-time)) # bind (start-time) (let* ((start-time (current-time))) (prog1 (progn (setq ad-return-value (ad-Or ig-load file noerror nomessage nosuffix))) (tinypath-time-record file start-time ))) (tinypath-time-macro file (setq ad-return-value (ad-Orig-load file noerror nom essage nosuffix))) # bind (must-suffix nosuffix file) (let* ((file file) (nosuffix nosuffix) (must-suffix nil)) (when (and (null nos uffix) (null must-suffix)) (let ((path (tinypath-cache-p file))) (when path (tin ypath-verbose-macro 5 (message "TinyPath: (advice load) Cache hit %s" file)) (ti nypath-cache-warn-if-not-exist path) (setq file path)))) (tinypath-time-macro fi le (setq ad-return-value (ad-Orig-load file noerror nomessage nosuffix)))) # bind (ad-return-value) (let (ad-return-value) (let* ((file file) (nosuffix nosuffix) (must-suffix nil )) (when (and (null nosuffix) (null must-suffix)) (let ((path (tinypath-cache-p file))) (when path (tinypath-verbose-macro 5 (message "TinyPath: (advice load) C ache hit %s" file)) (tinypath-cache-warn-if-not-exist path) (setq file path)))) (tinypath-time-macro file (setq ad-return-value (ad-Orig-load file noerror nomes sage nosuffix)))) ad-return-value) # bind (nosuffix nomessage noerror file) load("tinylib" nil nil nil) # (unwind-protect ...) (ti::macrof-version-bug-report "tinybookmark.el" "tinybookmark" tinybookmark-: version-id "$Id: tinybookmark.el,v 2.27 2002/08/02 21:12:29 jaalto Exp $" (quote (tinybookmark-:version-id tinybookmark-:parse-before-hook tinybookmark-:load-ho ok tinybookmark-:cache tinybookmark-:cache-char-count tinybookmark-:bookmark-reg exp tinybookmark-:cache-update tinybookmark-:cache-threshold-val tinybookmark-:m ax-col tinybookmark-:trailer-space-len tinybookmark-:comment-start-func tinybook mark-:comment-end-func tinybookmark-:scan-filter-func tinybookmark-:goto-func ti nybookmark-:insert-strict tinybookmark-:re-default-chars))) (progn (ti::macrof-version-bug-report "tinybookmark.el" "tinybookmark" tinyboo kmark-:version-id "$Id: tinybookmark.el,v 2.27 2002/08/02 21:12:29 jaalto Exp $" (quote (tinybookmark-:version-id tinybookmark-:parse-before-hook tinybookmark-: load-hook tinybookmark-:cache tinybookmark-:cache-char-count tinybookmark-:bookm ark-regexp tinybookmark-:cache-update tinybookmark-:cache-threshold-val tinybook mark-:max-col tinybookmark-:trailer-space-len tinybookmark-:comment-start-func t inybookmark-:comment-end-func tinybookmark-:scan-filter-func tinybookmark-:goto- func tinybookmark-:insert-strict tinybookmark-:re-default-chars)))) (eval-and-compile (ti::macrof-version-bug-report "tinybookmark.el" "tinybookma rk" tinybookmark-:version-id "$Id: tinybookmark.el,v 2.27 2002/08/02 21:12:29 ja alto Exp $" (quote (tinybookmark-:version-id tinybookmark-:parse-before-hook tin ybookmark-:load-hook tinybookmark-:cache tinybookmark-:cache-char-count tinybook mark-:bookmark-regexp tinybookmark-:cache-update tinybookmark-:cache-threshold-v al tinybookmark-:max-col tinybookmark-:trailer-space-len tinybookmark-:comment-s tart-func tinybookmark-:comment-end-func tinybookmark-:scan-filter-func tinybook mark-:goto-func tinybookmark-:insert-strict tinybookmark-:re-default-chars)))) # bind (current-load-list) # (unwind-protect ...) # bind (load-file-name) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load-internal("/usr/local/lib/xemacs/site-lisp/tiny-tools/lisp/tiny/tinybook ma rk.el" nil t t undecided) # bind (path handler filename nosuffix nomessage noerror file) efs-real-load("/usr/local/lib/xemacs/site-lisp/tiny-tools/lisp/tiny/tinybook ma rk.el" nil t t) # bind (after-load-alist after-load parsed filename nosuffix nomessage noerror file) ad-Orig-load("/usr/local/lib/xemacs/site-lisp/tiny-tools/lisp/tiny/tinybookm ar k.el" nil t nil) (setq ad-return-value (ad-Orig-load file noerror nomessage nosuffix)) (progn (setq ad-return-value (ad-Orig-load file noerror nomessage nosuffix))) (prog1 (progn (setq ad-return-value (ad-Orig-load file noerror nomessage nosuf fix))) (tinypath-time-record file start-time)) # bind (start-time) (let* ((start-time (current-time))) (prog1 (progn (setq ad-return-value (ad-Or ig-load file noerror nomessage nosuffix))) (tinypath-time-record file start-time ))) (tinypath-time-macro file (setq ad-return-value (ad-Orig-load file noerror nom essage nosuffix))) # bind (must-suffix nosuffix file) (let* ((file file) (nosuffix nosuffix) (must-suffix nil)) (when (and (null nos uffix) (null must-suffix)) (let ((path (tinypath-cache-p file))) (when path (tin ypath-verbose-macro 5 (message "TinyPath: (advice load) Cache hit %s" file)) (ti nypath-cache-warn-if-not-exist path) (setq file path)))) (tinypath-time-macro fi le (setq ad-return-value (ad-Orig-load file noerror nomessage nosuffix)))) # bind (ad-return-value) (let (ad-return-value) (let* ((file file) (nosuffix nosuffix) (must-suffix nil )) (when (and (null nosuffix) (null must-suffix)) (let ((path (tinypath-cache-p file))) (when path (tinypath-verbose-macro 5 (message "TinyPath: (advice load) C ache hit %s" file)) (tinypath-cache-warn-if-not-exist path) (setq file path)))) (tinypath-time-macro file (setq ad-return-value (ad-Orig-load file noerror nomes sage nosuffix)))) ad-return-value) # bind (nosuffix nomessage noerror file) load("/usr/local/lib/xemacs/site-lisp/tiny-tools/lisp/tiny/tinybookmark.el" ni l t nil) # (unwind-protect ...) efs-real-require(tinybookmark "/usr/local/lib/xemacs/site-lisp/tiny-tools/lisp /tiny/tinybookmark.el") # bind (parsed fullpath filename feature) ad-Orig-require(tinybookmark "/usr/local/lib/xemacs/site-lisp/tiny-tools/lisp/ tiny/tinybookmark.el") (setq ad-return-value (ad-Orig-require feature filename)) (progn (setq ad-return-value (ad-Orig-require feature filename))) (prog1 (progn (setq ad-return-value (ad-Orig-require feature filename))) (tiny path-time-record (symbol-name feature) start-time)) # bind (start-time) (let* ((start-time (current-time))) (prog1 (progn (setq ad-return-value (ad-Or ig-require feature filename))) (tinypath-time-record (symbol-name feature) start -time))) (tinypath-time-macro (symbol-name feature) (setq ad-return-value (ad-Orig-requ ire feature filename))) # bind (path lib alist opt feature) (let* ((feature feature) (opt filename) (alist (get (quote require) (quote tin ypath-load-list))) lib path) (when (and (not (featurep feature)) (not (assq feat ure alist))) (setq lib (cond ((stringp opt) (if (string-match "/" opt) (tinypath -expand-file-name opt) opt)) (t (symbol-name feature)))) (when (setq path (tinyp ath-cache-p lib)) (tinypath-verbose-macro 5 (message "TinyPath: (advice require) Cache hit %s" lib)) (tinypath-cache-warn-if-not-exist path) (push (cons feature path) alist) (put (quote require) (quote tinypath-load-list) alist) (setq filen ame path))) (tinypath-time-macro (symbol-name feature) (setq ad-return-value (ad -Orig-require feature filename)))) # bind (ad-return-value) (let (ad-return-value) (let* ((feature feature) (opt filename) (alist (get (qu ote require) (quote tinypath-load-list))) lib path) (when (and (not (featurep fe ature)) (not (assq feature alist))) (setq lib (cond ((stringp opt) (if (string-m atch "/" opt) (tinypath-expand-file-name opt) opt)) (t (symbol-name feature)))) (when (setq path (tinypath-cache-p lib)) (tinypath-verbose-macro 5 (message "Tin yPath: (advice require) Cache hit %s" lib)) (tinypath-cache-warn-if-not-exist pa th) (push (cons feature path) alist) (put (quote require) (quote tinypath-load-l ist) alist) (setq filename path))) (tinypath-time-macro (symbol-name feature) (s etq ad-return-value (ad-Orig-require feature filename)))) ad-return-value) # bind (filename feature) require(tinybookmark) eval((require (quote tinybookmark))) l t nil) # (unwind-protect ...) efs-real-require(tinybookmark "/usr/local/lib/xemacs/site-lisp/tiny-tools/lisp /tiny/tinybookmark.el") # bind (parsed fullpath filename feature) ad-Orig-require(tinybookmark "/usr/local/lib/xemacs/site-lisp/tiny-tools/lisp/ tiny/tinybookmark.el") (setq ad-return-value (ad-Orig-require feature filename)) (progn (setq ad-return-value (ad-Orig-require feature filename))) (prog1 (progn (setq ad-return-value (ad-Orig-require feature filename))) (tiny path-time-record (symbol-name feature) start-time)) # bind (start-time) (let* ((start-time (current-time))) (prog1 (progn (setq ad-return-value (ad-Or ig-require feature filename))) (tinypath-time-record (symbol-name feature) start -time))) (tinypath-time-macro (symbol-name feature) (setq ad-return-value (ad-Orig-requ ire feature filename))) # bind (path lib alist opt feature) (let* ((feature feature) (opt filename) (alist (get (quote require) (quote tin ypath-load-list))) lib path) (when (and (not (featurep feature)) (not (assq feat ure alist))) (setq lib (cond ((stringp opt) (if (string-match "/" opt) (tinypath -expand-file-name opt) opt)) (t (symbol-name feature)))) (when (setq path (tinyp ath-cache-p lib)) (tinypath-verbose-macro 5 (message "TinyPath: (advice require) Cache hit %s" lib)) (tinypath-cache-warn-if-not-exist path) (push (cons feature path) alist) (put (quote require) (quote tinypath-load-list) alist) (setq filen ame path))) (tinypath-time-macro (symbol-name feature) (setq ad-return-value (ad -Orig-require feature filename)))) # bind (ad-return-value) (let (ad-return-value) (let* ((feature feature) (opt filename) (alist (get (qu ote require) (quote tinypath-load-list))) lib path) (when (and (not (featurep fe ature)) (not (assq feature alist))) (setq lib (cond ((stringp opt) (if (string-m atch "/" opt) (tinypath-expand-file-name opt) opt)) (t (symbol-name feature)))) (when (setq path (tinypath-cache-p lib)) (tinypath-verbose-macro 5 (message "Tin yPath: (advice require) Cache hit %s" lib)) (tinypath-cache-warn-if-not-exist pa th) (push (cons feature path) alist) (put (quote require) (quote tinypath-load-l ist) alist) (setq filename path))) (tinypath-time-macro (symbol-name feature) (s etq ad-return-value (ad-Orig-require feature filename)))) ad-return-value) # bind (filename feature) require(tinybookmark) eval((require (quote tinybookmark)) # bind (expr) eval-interactive((require (quote tinybookmark))) # bind (standard-output opoint ignore-quotes eval-last-sexp-arg-internal) eval-last-sexp(nil) # bind (command-debug-status) call-interactively(eval-last-sexp) # (condition-case ... . error) # (catch top-level ...) Aborted (core dumped)