diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-07-31 22:05:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-07-31 22:05:16 +0000 |
| commit | c43008c44a48657dbaed05bf5b2744602539bee0 (patch) | |
| tree | a8a44b4f1948bcc22775ae291f7e1999f87b45b6 /lisp/emacs-lisp | |
| parent | 430190ba6d2dfc40944ebf94b6090cc621b8d1f7 (diff) | |
| download | emacs-c43008c44a48657dbaed05bf5b2744602539bee0.tar.gz emacs-c43008c44a48657dbaed05bf5b2744602539bee0.tar.bz2 emacs-c43008c44a48657dbaed05bf5b2744602539bee0.zip | |
(byte-compile-find-cl-functions):
Check that (car elt) is a string.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 936f9fec5cf..b70a79971b3 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property." (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))))) |