Lines Matching +defs:cl +defs:base
101 ;; `cl-warnings' (calls to CL functions)
211 (defun byte-compiler-base-file-name (filename)
213 'byte-compiler-base-file-name)))
215 (funcall handler 'byte-compiler-base-file-name filename)
225 (setq filename (byte-compiler-base-file-name filename))
341 obsolete noruntime cl-functions interactive-only)
356 cl-functions calls to runtime functions from the CL package (as
366 (const cl-functions) (const interactive-only))))
377 cl-functions interactive-only))
836 (equal (car xs) "cl"))
854 (when (memq 'cl-functions byte-compile-warnings)
863 (when (and (equal (car xs) "cl") (not (assoc (car xs) hist-orig)))
864 (byte-compile-find-cl-functions)))))))))
870 ;; (eval-and-compile (require 'cl) turns off warnings for cl functions.
873 (when (equal (car tem) '(require . cl))
875 (remq 'cl-functions byte-compile-warnings)))
1346 (defvar byte-compile-cl-functions nil
1349 (defun byte-compile-find-cl-functions ()
1350 (unless byte-compile-cl-functions
1353 (string-match "^cl\\>" (car elt)))
1354 (setq byte-compile-cl-functions
1355 (append byte-compile-cl-functions
1357 (let ((tail byte-compile-cl-functions))
1364 (defun byte-compile-cl-warn (form)
1367 (if (and byte-compile-cl-functions
1368 (memq func byte-compile-cl-functions)
1373 '(cl-block-wrapper cl-block-throw
1375 copy-seq first second rest endp cl-member
1378 ;; or unless cl is loaded anyway.
1379 cl-defsubst-expand cl-struct-setf-expander
1383 macroexpand cl-macroexpand-all
1384 cl-compiling-file)))
1390 'cl-byte-compile-compiler-macro)
1392 (byte-compile-warn "Function `%s' from cl package called at runtime"
1499 (byte-compile-find-cl-functions)
2250 ;; Detect (require 'cl) in a way that works even if cl is already loaded.
2251 (if (member (car args) '("cl" cl))
2253 (remq 'cl-functions byte-compile-warnings))))
2815 ;; `cl-byte-compile-compiler-macro' but if CL isn't
2817 (or (not (memq handler '(cl-byte-compile-compiler-macro)))
2828 (if (memq 'cl-functions byte-compile-warnings)
2829 (byte-compile-cl-warn form))))
2848 (defun byte-compile-variable-ref (base-op var)
2852 (byte-compile-const-symbol-p var (not (eq base-op 'byte-varref))))
2854 (cond ((eq base-op 'byte-varbind) "attempt to let-bind %s `%s'")
2855 ((eq base-op 'byte-varset) "variable assignment to %s `%s'")
2870 (if (eq base-op 'byte-varbind)
2874 (if (eq base-op 'byte-varset)
2887 (byte-compile-out base-op tmp)))