mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 06:50:23 -08:00
Code Issues Projects Releases Wiki Activity

(byte-compile-find-cl-functions):

Browse source 
Check that (car elt) is a string.
This commit is contained in:
Richard M. Stallman 2002-07-31 22:05:16 +00:00
parent 430190ba6d
commit c43008c44a
2 changed files with 19 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/bytecomp.el
View file

@ -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)))))