>>>> "Art" == Art Medlar
<art(a)brightlight.com> writes:
Art> Xeamcs 21.4.8 crashes while doing M-x eval-print-last-sexp
Art> on a form in the *scratch* buffer. This is repeatable in
Art> a fresh emacs.
Art> To repeat:
Art> 1. Enter the following form in the *scratch* buffer:
Art> (let (n 3) (print n))
Hi Art,
above lisp is incorrect, but this should never crash XEmacs!
(let (n 3) tries to bind n to nil, which is OK, but it also tries to
bind 3 to nil!
In order to bind n to 3, you would have to write it this way:
(let ((n 3)) (print n))
Please eval
(Info-goto-node "(lispref)Local Variables")
for details.
(emacs-version)
"XEmacs 21.5 (beta7) \"broccoflower\" [Lucid] (i586-pc-win32, Mule) of Sat
Jul 06 2002 on D5DC120J"
does not crash, instead I get this:
Wrong type argument: consp, 3
# bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error
debug-on-error)
# (unwind-protect ...)
(let (n 3) (print n))
eval((let (n 3) (print n)))
# bind (expr)
eval-interactive((let (n 3) (print n)))
# bind (standard-output opoint ignore-quotes eval-last-sexp-arg-internal)
eval-last-sexp(t)
# bind (standard-output)
#<compiled-function nil "...(13)" [standard-output terpri eval-last-sexp t]
2 446892 nil>()
call-interactively(eval-print-last-sexp)
command-execute(eval-print-last-sexp 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 ...)
Best regards,
Adrian
Art> 2. Place cursor after the final close-paren
Art> 3. Type M-x eval-print-last-sexp
Art> The output of M-x describe-distribution, the lisp backtrace, and
Art> the C backtrace from the core file follow.
Art> eval-print-last-sexp has not been modified from the standard distribution:
Art> `eval-print-last-sexp' is an interactive compiled Lisp function
Art> -- loaded from
"/sandbox/mgleeson/xemacs-21.4.8/lisp/lisp-mode.elc"
Art> (eval-print-last-sexp)
Art> Documentation:
Art> Evaluate sexp before point; print value into current buffer.
Art> uname -a: SunOS dev26 5.6 Generic_105181-29 sun4u sparc
Art> ./configure '--prefix=/home/mgleeson'
'--site-prefixes=/home/mgleeson' '--with-dialogs=no'
'--with-widgets=no'
Art> XEmacs 21.4.8 "Honest Recruiter" configured for
`sparc-sun-solaris2.6'.
Art> Compilation / Installation:
Art> Source code location: /sandbox/mgleeson/xemacs-21.4.8
Art> Installation prefix: /home/mgleeson
Art> Additional prefixes: /home/mgleeson
Art> Runtime library search path:
/home/mgleeson/lib:/usr/dt/lib:/usr/openwin/lib:/usr/local/lib/gcc-lib/sparc-sun-solaris2.6/2.95.2
Art> Operating system description file: `s/sol2.h'
Art> Machine description file: `m/sparc.h'
Art> Compiler: gcc -g -O3 -Wall -Wno-switch -Winline
-Wmissing-prototypes -Wsign-compare -Wshadow -Wpointer-arith
Art> Relocating allocator for buffers: yes
Art> GNU version of malloc: yes
Art> Window System:
Art> Compiling in support for the X window system:
Art> - X Windows headers location: /usr/dt/include
/usr/openwin/include
Art> - X Windows libraries location: /usr/dt/lib
/usr/openwin/lib
Art> - Handling WM_COMMAND properly.
Art> Using Lucid menubars.
Art> Using Lucid scrollbars.
Art> TTY:
Art> Images:
Art> Compiling in support for GIF images (builtin).
Art> Compiling in support for XPM images.
Art> Compiling in support for PNG images.
Art> Compiling in support for JPEG images.
Art> Compiling in support for X-Face message headers.
Art> Sound:
Art> Compiling in support for sound (native).
Art> Compiling in support for NAS (network audio system).
Art> Databases:
Art> Compiling in support for GNU DBM.
Art> Internationalization:
Art> Mail:
Art> Compiling in support for "dot-locking" mail spool file locking
method.
Art> Other Features:
Art> Inhibiting IPv6 canonicalization at startup.
Art> Compiling in support for ToolTalk.
Art> Compiling in support for dynamic shared object modules.
Art> [art@dev26 art]$
Art> Fatal error (11).
Art> Your files have been auto-saved.
Art> Use `M-x recover-session' to recover them.
Art> If you have access to the PROBLEMS file that came with your
Art> version of XEmacs, please check to see if your crash is described
Art> there, as there may be a workaround available.
Art> Otherwise, please report this bug by running the send-pr
Art> script included with XEmacs, or selecting `Send Bug Report'
Art> from the help menu.
Art> As a last resort send ordinary email to `crashes(a)xemacs.org'.
Art> *MAKE SURE* to include the information in the command
Art> M-x describe-installation.
Art> If at all possible, *please* try to obtain a C stack backtrace;
Art> it will help us immensely in determining what went wrong.
Art> To do this, locate the core file that was produced as a result
Art> of this crash (it's usually called `core' and is located in the
Art> directory in which you started the editor, or maybe in your home
Art> directory), and type
Art> gdb /home/mgleeson/bin/xemacs core
Art> then type `where' when the debugger prompt comes up.
Art> (If you don't have GDB on your system, you might have DBX,
Art> or XDB, or SDB. A similar procedure should work for all of
Art> these. Ask your system administrator if you need more help.)
Art> Lisp backtrace follows:
Art> (let (n 3) (print n))
Art> eval((let (n 3) (print n)))
Art> # bind (expr)
Art> eval-interactive((let (n 3) (print n)))
Art> # bind (standard-output opoint ignore-quotes eval-last-sexp-arg-internal)
Art> eval-last-sexp(t)
Art> # bind (standard-output)
Art> #<compiled-function nil "...(13)" [standard-output terpri
eval-last-sexp t] 2 984488 nil>()
Art> call-interactively(eval-print-last-sexp)
Art> command-execute(eval-print-last-sexp t)
Art> # bind (_execute_command_keys_ _execute_command_name_ prefix-arg)
Art> execute-extended-command(nil)
Art> # bind (command-debug-status)
Art> call-interactively(execute-extended-command)
Art> # (condition-case ... . error)
Art> # (catch top-level ...)
Art> Current directory is /home/mgleeson/bin/
Art> GNU gdb 4.17
Art> Copyright 1998 Free Software Foundation, Inc.
Art> GDB is free software, covered by the GNU General Public License, and you are
Art> welcome to change it and/or distribute copies of it under certain conditions.
Art> Type "show copying" to see the conditions.
Art> There is absolutely no warranty for GDB. Type "show warranty" for
details.
Art> This GDB was configured as "sparc-sun-solaris2.6"...
Art> (gdb) core /home/art/core
Art> Core was generated by `/home/mgleeson/bin/xemacs'.
Art> Program terminated with signal 11, Segmentation Fault.
Art> Reading symbols from /home/mgleeson/lib/libaudio.so.1.4...done.
Art> Reading symbols from /usr/dt/lib/libtt.so.2...done.
Art> Reading symbols from /usr/openwin/lib/libXmu.so.4...done.
Art> Reading symbols from /usr/openwin/lib/libXt.so.4...done.
Art> Reading symbols from /usr/openwin/lib/libXext.so.0...done.
Art> Reading symbols from /usr/openwin/lib/libX11.so.4...done.
Art> Reading symbols from /usr/lib/libkstat.so.1...done.
Art> Reading symbols from /usr/lib/libm.so.1...done.
Art> Reading symbols from /usr/lib/libsocket.so.1...done.
Art> Reading symbols from /usr/lib/libnsl.so.1...done.
Art> Reading symbols from /usr/lib/libdl.so.1...done.
Art> Reading symbols from /usr/lib/libc.so.1...done.
Art> Reading symbols from /usr/openwin/lib/libSM.so.6...done.
Art> Reading symbols from /usr/openwin/lib/libICE.so.6...done.
Art> Reading symbols from /usr/lib/libmp.so.2...done.
Art> Reading symbols from /usr/platform/SUNW,Ultra-80/lib/libc_psr.so.1...done.
Art> #0 0xef38a5f0 in _kill ()
Art> (gdb) where
Art> #0 0xef38a5f0 in _kill ()
Art> #1 0x7aaf0 in fatal_error_signal (sig=11) at emacs.c:539
Art> #2 <signal handler called>
Art> #3 Flet (args=20745156) at eval.c:911
Art> #4 0x82e0c in Feval (form=20745120) at eval.c:3304
Art> #5 0x835d8 in Ffuncall (nargs=1, args=0xefffe30c) at eval.c:3528
Art> #6 0x585c8 in execute_optimized_program (program=0x146236e
"\207map",
Art> stack_depth=1, constants_data=0x3f0390) at bytecode.c:746
Art> #7 0x58220 in funcall_compiled_function (fun=2665460, nargs=1,
Art> args=0xefffe4e4) at bytecode.c:515
Art> #8 0x837b8 in Ffuncall (nargs=1, args=0xefffe4e0) at eval.c:3563
Art> #9 0x585c8 in execute_optimized_program (
Art> program=0x1462462 "!+\207relsymlink-regexp", stack_depth=1,
Art> constants_data=0x3f0310) at bytecode.c:746
Art> #10 0x58220 in funcall_compiled_function (fun=2665488, nargs=1,
Art> args=0xefffe6c0) at bytecode.c:515
Art> #11 0x837b8 in Ffuncall (nargs=1, args=0xefffe6bc) at eval.c:3563
Art> #12 0x585c8 in execute_optimized_program (program=0x1414738 "\210Á
)\207",
Art> stack_depth=1, constants_data=0x3ef130) at bytecode.c:746
Art> #13 0x58220 in funcall_compiled_function (fun=2665432, nargs=0,
Art> args=0xefffe8f0) at bytecode.c:515
Art> #14 0x837b8 in Ffuncall (nargs=0, args=0xefffe8ec) at eval.c:3563
Art> #15 0x86d44 in apply1 (fn=2665432, arg=2394116) at eval.c:4152
Art> #16 0x5c0f8 in Fcall_interactively (function=4213796, record_flag=2394140,
Art> keys=2394116) at callint.c:397
Art> #17 0x82550 in Fcommand_execute (cmd=4213796, record_flag=2394140,
Art> keys=2394116) at eval.c:2970
Art> #18 0x83604 in Ffuncall (nargs=-1, args=0xefffec04) at eval.c:3528
Art> #19 0x585c8 in execute_optimized_program (
Art> program=0x6eba51 "\210\0138\b¬\023Ñ Ò a«\aÓ pa«\006Ô \210ª\004Õ
\210Ö×!\eØÙË\013A«\004Úª\002Û\nÜ\013!#\"\210Ö\016\036!\210ÝÙ!*\207Ï\fÐ\"\2075",
Art> stack_depth=2, constants_data=0x308810) at bytecode.c:746
Art> #20 0x58220 in funcall_compiled_function (fun=3188540, nargs=1,
Art> args=0xefffeddc) at bytecode.c:515
Art> #21 0x837b8 in Ffuncall (nargs=1, args=0xefffedd8) at eval.c:3563
Art> #22 0x5d40c in Fcall_interactively (function=3230156, record_flag=2394116,
Art> keys=2394116) at callint.c:940
Art> #23 0x82550 in Fcommand_execute (cmd=3230156, record_flag=2394116,
Art> keys=2394116) at eval.c:2970
Art> #24 0xaf30c in execute_command_event (command_builder=0x4dee80,
event=15432728)
Art> at event-stream.c:3915
Art> #25 0xaf950 in Fdispatch_event (event=20346884) at event-stream.c:4199
Art> #26 0x620e8 in Fcommand_loop_1 () at cmdloop.c:583
Art> #27 0x62350 in command_loop_1 (dummy=2394116) at cmdloop.c:494
Art> #28 0x7f7ec in condition_case_1 (handlers=2394212,
Art> bfun=0x62334 <command_loop_1>, barg=2394116, hfun=0x623b0
<cmd_error>,
Art> harg=2394116) at eval.c:1651
Art> #29 0x624c0 in command_loop_2 (dummy=2394116) at cmdloop.c:256
Art> #30 0x8760c in internal_catch (tag=2474156, func=0x62474
<command_loop_2>,
Art> arg=2394116, threw=0x0) at eval.c:1317
Art> #31 0x61c94 in initial_command_loop (load_me=2394116) at cmdloop.c:305
Art> #32 0x7c43c in sort_args (argc=2184192, argv=0xeffff60c) at emacs.c:2353
Art> #33 0x7e070 in voodoo_free_hook (mem=0x1) at emacs.c:2782
Art> (gdb)
--
Adrian Aichner
mailto:adrian@xemacs.org
http://www.xemacs.org/