1206 |
(defun byte-compile-find-cl-functions () |
(defun byte-compile-find-cl-functions () |
1207 |
(unless byte-compile-cl-functions |
(unless byte-compile-cl-functions |
1208 |
(dolist (elt load-history) |
(dolist (elt load-history) |
1209 |
(when (string-match "^cl\\>" (car elt)) |
(when (and (stringp (car elt)) |
1210 |
|
(string-match "^cl\\>" (car elt))) |
1211 |
(setq byte-compile-cl-functions |
(setq byte-compile-cl-functions |
1212 |
(append byte-compile-cl-functions |
(append byte-compile-cl-functions |
1213 |
(cdr elt))))) |
(cdr elt))))) |