bug#284: Trunk CVS emacs: Stack overflow in equal

[Christoph Conrad]

Debugger entered--Lisp error: (error "Stack overflow in equal")
  internal-set-lisp-face-attribute(default :font 
"-*-fixed-medium-r-normal-*-20-*-*-*-*-iso10646-*" 0)
  set-face-attribute(default nil :font 
"-*-fixed-medium-r-normal-*-20-*-*-*-*-iso10646-*")
  set-face-font(default "-*-fixed-medium-r-normal-*-20-*-*-*-*-iso10646-*")
  (progn (set-face-font (quote default) 
"-*-fixed-medium-r-normal-*-20-*-*-*-*-iso10646-*") (set-face-font (quote bold) 
"-*-fixed-bold-*-*-*-*-*-*-*-*-iso10646-*") (set-default-font 
"-*-fixed-*-*-*-*-20-*-*-*-*-iso10646-*" t))
  (if t (progn (set-face-font ... 
"-*-fixed-medium-r-normal-*-20-*-*-*-*-iso10646-*") (set-face-font ... 
"-*-fixed-bold-*-*-*-*-*-*-*-*-iso10646-*") (set-default-font 
"-*-fixed-*-*-*-*-20-*-*-*-*-iso10646-*" t)))
  (when t (set-face-font (quote default) 
"-*-fixed-medium-r-normal-*-20-*-*-*-*-iso10646-*") (set-face-font (quote bold) 
"-*-fixed-bold-*-*-*-*-*-*-*-*-iso10646-*") (set-default-font 
"-*-fixed-*-*-*-*-20-*-*-*-*-iso10646-*" t))
  eval-buffer(#<buffer  *load*> nil "/home/cc/.emacs" nil t)  ; Reading at 
buffer position 1170
  load-with-code-conversion("/home/cc/.emacs" "/home/cc/.emacs" t t)
  load("~/.emacs" t t)
  #[nil "��   �=���Q�A    �=�3����#�#͂A����#�/ςA͂A  
�=�=тA��Q��\nӉ#��=�i�����Q!\"�\fӉ#��=�h\n)���!ښ���
!��P$�$!��$���!����ˉ���\"����#���!�*%?���&��Ӊ#))�" 
[init-file-user system-type user-init-file-1 user-init-file otherfile source 
ms-dos "~" "/_emacs" windows-nt directory-files nil "^\\.emacs\\(\\.elc?\\)?$" 
"~/.emacs" "^_emacs\\(\\.elc?\\)?$" "~/_emacs" vax-vms "sys$login:.emacs" 
"/.emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" 
file-name-extension "elc" file-name-sans-extension ".el" file-exists-p 
file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 
"default" alt inhibit-default-init inhibit-startup-screen] 7]()
  command-line()
  normal-top-level()