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)