Mercurial > emacs
changeset 46763:4dff8f2c0a4e
(byte-compile-find-cl-functions):
Check that (car elt) is a string.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 31 Jul 2002 22:04:33 +0000 |
| parents | 85cd02534241 |
| children | cd0e9463ce83 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Wed Jul 31 22:01:54 2002 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Wed Jul 31 22:04:33 2002 +0000 @@ -10,7 +10,7 @@ ;;; This version incorporates changes up to version 2.10 of the ;;; Zawinski-Furuseth compiler. -(defconst byte-compile-version "$Revision: 2.107 $") +(defconst byte-compile-version "$Revision: 2.108 $") ;; This file is part of GNU Emacs. @@ -1206,7 +1206,8 @@ (defun byte-compile-find-cl-functions () (unless byte-compile-cl-functions (dolist (elt load-history) - (when (string-match "^cl\\>" (car elt)) + (when (and (stringp (car elt)) + (string-match "^cl\\>" (car elt))) (setq byte-compile-cl-functions (append byte-compile-cl-functions (cdr elt)))))