Lines Matching defs:compiler
40 ;; if the compiler or interpreter is used---this file is not
471 The result of the body appears to the compiler as a quoted constant."
584 (if (fboundp 'byte-compile-form-do-effect) ; Check for optimizing compiler
1860 (get-setf-method (compiler-macroexpand place)))
2429 (defun typep (object type) ; See compiler macro below.
2477 (defmacro define-compiler-macro (func args &rest body)
2478 "Define a compiler-only macro.
2484 compiler macros are expanded repeatedly until no further expansions are
2493 func 'cl-compiler-macro
2498 '(quote cl-byte-compile-compiler-macro)))))
2500 (defun compiler-macroexpand (form)
2504 (not (setq handler (get func 'cl-compiler-macro)))
2513 (defun cl-byte-compile-compiler-macro (form)
2514 (if (eq form (setq form (compiler-macroexpand form)))
2531 (list 'define-compiler-macro name
2560 (define-compiler-macro eql (&whole form a b)
2582 (define-compiler-macro member* (&whole form a list &rest keys)
2590 (define-compiler-macro assoc* (&whole form a list &rest keys)
2600 (define-compiler-macro adjoin (&whole form a list &rest keys)
2606 (define-compiler-macro list* (arg &rest others)
2613 (define-compiler-macro get* (sym prop &optional def)
2618 (define-compiler-macro typep (&whole form val type)
2630 (put (car y) 'byte-compile 'cl-byte-compile-compiler-macro)
2631 (put (car y) 'cl-compiler-macro