1272 |
;; here than caaar and friends. |
;; here than caaar and friends. |
1273 |
(not (and (eq (get func 'byte-compile) |
(not (and (eq (get func 'byte-compile) |
1274 |
'cl-byte-compile-compiler-macro) |
'cl-byte-compile-compiler-macro) |
1275 |
(match-string "\\`c[ad]+r\\'" (symbol-name func))))) |
(string-match "\\`c[ad]+r\\'" (symbol-name func))))) |
1276 |
(byte-compile-warn "Function `%s' from cl package called at runtime" |
(byte-compile-warn "Function `%s' from cl package called at runtime" |
1277 |
func))) |
func))) |
1278 |
form) |
form) |