From: Frank <some.frank@gmail.com>
To: Chong Yidong <cyd@stupidchicken.com>
Cc: 7146@debbugs.gnu.org
Subject: bug#7146: (make-symbol "") issues
Date: Sat, 02 Oct 2010 21:44:00 -0600 [thread overview]
Message-ID: <4CA7FC00.5080905@gmail.com> (raw)
In-Reply-To: <87k4m0giy4.fsf@stupidchicken.com>
[-- Attachment #1: Type: text/plain, Size: 1057 bytes --]
Chong Yidong schrieb:
>Frank <some.frank@gmail.com> writes:
>
>
>
>>Well I further found out that you have to actually (byte-compile-file)
>>the above code in order for the bug to show up; compiling via
>>(compile-defun) seems to work OK;
>>
>>
>
>I can't reproduce this. Could you detail the *exact* steps you took,
>starting with `emacs -Q'? Your description is too vague.
>
>
>
1) Start `emacs -Q'
2) Load the file bug.el into a buffer via the menu
3) <M-x> byte-compile-file
4) <M-x> load-file bug.elc
5) <C-x b> *scratch*
6) (foo) *** emacs crashes or foo returns some odd number ***
(disassemble 'foo) looks like this (done between point 5 and 6)
byte code for foo:
args: nil
0 constant (message "Hello World!")
1 constant (out-of-range 2)
2 catch
3 dup
4 varbind :eof
5 constant (message "Hello World!")
6 eq
7 not
8 goto-if-nil-else-pop 1
11 varref :eof
12:1 unbind 1
13 return
I attached the file I used for testing this and also it's byte compilation
[-- Attachment #2: bug.elc --]
[-- Type: application/octet-stream, Size: 775 bytes --]
[-- Attachment #3: bug.el --]
[-- Type: text/plain, Size: 226 bytes --]
(defmacro bar (&rest body)
(let ((v (make-symbol ""))) ; Crashes with "" as name.
`(let ((,v (catch :eof
,@body)))
(when (not (eq ,v :eof))
,v))))
(defun foo ()
(bar (message "Hello World!")))
next prev parent reply other threads:[~2010-10-03 3:44 UTC|newest]
Thread overview: 21+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-10-02 4:19 bug#7146: (make-symbol "") issues Frank
2010-10-03 0:44 ` Frank
2010-10-03 1:32 ` Chong Yidong
2010-10-03 3:44 ` Frank [this message]
2010-10-03 4:05 ` Chong Yidong
2010-10-03 4:14 ` Frank
2010-10-03 4:36 ` Juanma Barranquero
2010-10-03 10:28 ` Johan Bockgård
2010-10-03 14:55 ` Chong Yidong
2010-10-03 23:12 ` Stefan Monnier
2011-07-14 14:25 ` Lars Magne Ingebrigtsen
2011-07-14 16:24 ` Andreas Schwab
2011-07-17 3:16 ` Stefan Monnier
2011-07-17 8:15 ` Andreas Schwab
2011-07-18 15:30 ` Stefan Monnier
2011-07-21 19:25 ` Chong Yidong
2011-07-28 21:11 ` Andreas Schwab
2011-07-17 21:41 ` David De La Harpe Golden
2010-10-03 18:45 ` MON KEY
2010-10-03 18:56 ` Chong Yidong
2010-10-03 23:48 ` MON KEY
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=4CA7FC00.5080905@gmail.com \
--to=some.frank@gmail.com \
--cc=7146@debbugs.gnu.org \
--cc=cyd@stupidchicken.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.