Re: Change in bytecomp.el breaks Gnus

[Katsumi Yamaoka]

>>>>> In <address@hidden> Katsumi Yamaoka wrote:

> I found that the problem is caused if a Lisp source contains the
> following forms:

> (eval-when-compile
>   (defsubst foo ()))

> (defun bar () (foo))

Although I'm not sure of it, the following patch seems to solve
the problem.

*** bytecomp.el~        Tue Nov  9 21:53:14 2004
--- bytecomp.el Thu Nov 11 11:17:58 2004
***************
*** 3720,3726 ****
    (if (and (consp (cdr form)) (consp (nth 1 form))
           (eq (car (nth 1 form)) 'quote)
           (consp (cdr (nth 1 form)))
!          (symbolp (nth 1 (nth 1 form))))
        (let ((constant
             (and (consp (nthcdr 2 form))
                  (consp (nth 2 form))
--- 3720,3727 ----
    (if (and (consp (cdr form)) (consp (nth 1 form))
           (eq (car (nth 1 form)) 'quote)
           (consp (cdr (nth 1 form)))
!          (symbolp (nth 1 (nth 1 form)))
!          (not (byte-code-function-p (nth 2 form))))
        (let ((constant
             (and (consp (nthcdr 2 form))
                  (consp (nth 2 form))