unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* bug#7146: (make-symbol "") issues
@ 2010-10-02  4:19 Frank
  2010-10-03  0:44 ` Frank
  2010-10-03 18:45 ` MON KEY
  0 siblings, 2 replies; 21+ messages in thread
From: Frank @ 2010-10-02  4:19 UTC (permalink / raw)
  To: 7146

;;; "GNU Emacs 23.2.1 (i386-mingw-nt5.1.2600) of 2010-05-08 on G41R2F1"

;; When I byte compile this file and load it and try to evaluate (foo)
;; Emacs will either crash or (foo) returns some odd number on my machine.

(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!")))


;; (disassemble 'foo)
;;
;; 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
;;
;; Looks like there's a problem in line 4 & 11.







^ permalink raw reply	[flat|nested] 21+ messages in thread

end of thread, other threads:[~2011-07-28 21:11 UTC | newest]

Thread overview: 21+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
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
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

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).