Lines Matching +defs:eval +defs:defun
41 ;; byte-compile, compile-defun,
100 ;; within `eval-when-compile')
112 ;; o The form `defsubst' is just like `defun', except that the function
139 ;; o The form `eval-when-compile' is like progn, except that the body
141 ;; is analogous to the Common Lisp idiom (eval-when (compile) ...).
145 ;; o The form `eval-and-compile' is similar to eval-when-compile, but
148 ;; o The command compile-defun is analogous to eval-defun.
183 ;; (defun byte-code-function-p (x) "Emacs 18 doesn't have these." nil))
188 ;; (defun member (elt list)
211 (defun byte-compiler-base-file-name (filename)
221 (defun byte-compile-dest-file (filename)
355 defined only under `eval-when-compile').
369 (defun byte-compile-warnings-safe-p (x)
453 (eval-when-compile . (lambda (&rest body)
455 (byte-compile-eval (byte-compile-top-level
457 (eval-and-compile . (lambda (&rest body)
458 (byte-compile-eval-before-compile (cons 'progn body))
751 (defun byte-compile-lapcode (lap)
820 (defun byte-compile-eval (form)
825 (prog1 (eval form)
866 (defun byte-compile-eval-before-compile (form)
867 "Evaluate FORM for `eval-and-compile'."
869 (prog1 (eval form)
870 ;; (eval-and-compile (require 'cl) turns off warnings for cl functions.
902 (defun byte-compile-log-1 (string)
931 ;; function definition (`defun') we remove `defun' from
947 (defun byte-compile-set-symbol-position (sym &optional allow-previous)
967 (defun byte-compile-warning-prefix (level entry)
1005 (defun byte-compile-warning-series (&rest ignore)
1011 (defun byte-compile-log-file ()
1049 (defun byte-compile-log-warning (string &optional fill level)
1056 (defun byte-compile-warn (format &rest args)
1063 (defun byte-compile-report-error (error-info)
1071 (defun byte-compile-obsolete (form)
1109 ;; (defun byte-compiler-options-handler (&rest args)
1139 ;; (set (nth 1 desc) (eval (nth 3 desc))))
1150 (defun byte-compile-fdefinition (name macro-p)
1175 (defun byte-compile-arglist-signature (arglist)
1194 (defun byte-compile-arglist-signatures-congruent-p (old new)
1203 (defun byte-compile-arglist-signature-string (signature)
1212 (defun byte-compile-callargs-warn (form)
1259 (defun byte-compile-format-warn (form)
1286 (defun byte-compile-nogroup-warn (form)
1304 (defun byte-compile-arglist-warn (form macrop)
1318 (if (eq (car form) 'defun) "function" "macro")
1349 (defun byte-compile-find-cl-functions ()
1364 (defun byte-compile-cl-warn (form)
1396 (defun byte-compile-print-syms (str1 strn syms)
1422 (defun byte-compile-warn-about-unresolved-functions ()
1526 (defun byte-force-recompile (directory)
1533 (defun byte-recompile-directory (directory &optional arg force)
1628 (defun byte-compile-file (filename &optional load)
1691 (enable-local-eval nil))
1695 ;; Set the default directory, in case an eval-when-compile uses it.
1759 ;;(defun byte-compile-and-load-file (&optional filename)
1769 ;;(defun byte-compile-buffer (&optional buffer)
1783 (defun compile-defun (&optional arg)
1789 (end-of-defun)
1790 (beginning-of-defun)
1796 (value (eval
1808 (defun byte-compile-from-buffer (inbuffer &optional filename)
1885 (defun byte-compile-fix-header (filename inbuffer outbuffer)
1921 (defun byte-compile-insert-header (filename inbuffer outbuffer)
2005 (defun byte-compile-output-file-form (form)
2007 ;; in defun, defmacro, defvar, defconst, autoload and
2012 (if (and (memq (car-safe form) '(defun defmacro defvar defconst autoload
2031 (defun byte-compile-output-docform (preface name info form specindex quoted)
2126 (defun byte-compile-keep-pending (form &optional handler)
2142 (defun byte-compile-flush-pending ()
2155 (defun byte-compile-file-form (form)
2176 (defun byte-compile-file-form-defsubst (form)
2187 (defun byte-compile-file-form-autoload (form)
2191 (eval (nth 5 form)) ;Macro
2192 (eval form)) ;Define the autoload.
2208 (defun byte-compile-file-form-defvar (form)
2225 (defun byte-compile-file-form-custom-declare-variable (form)
2246 (defun byte-compile-file-form-require (form)
2248 (args (mapcar 'eval (cdr form))))
2259 (defun byte-compile-file-form-progn (form)
2266 (put 'eval 'byte-hunk-handler 'byte-compile-file-form-eval)
2267 (defun byte-compile-file-form-eval (form)
2272 (put 'defun 'byte-hunk-handler 'byte-compile-file-form-defun)
2273 (defun byte-compile-file-form-defun (form)
2277 (defun byte-compile-file-form-defmacro (form)
2280 (defun byte-compile-file-form-defmumble (form macrop)
2408 (defun byte-compile-output-as-comment (exp quoted)
2449 (defun byte-compile (form)
2468 (defun byte-compile-sexp (sexp)
2475 (defun byte-compile-byte-code-maker (fun)
2512 (defun byte-compile-byte-code-unmake (function)
2526 (defun byte-compile-check-lambda-list (list)
2558 (defun byte-compile-lambda (fun &optional add-lambda)
2630 (defun byte-compile-constants-vector ()
2662 (defun byte-compile-top-level (form &optional for-effect output-type)
2664 ;; 'eval or nil -> a single form,
2686 (defun byte-compile-out-toplevel (&optional for-effect output-type)
2719 ;; eval -> atom, quote or (function atom atom atom)
2720 ;; progn -> as <<same-as-eval>> or (progn <<same-as-eval>> atom)
2772 (defun byte-compile-top-level-body (body &optional for-effect)
2791 (defun byte-compile-form (form &optional for-effect)
2841 (defun byte-compile-normal-call (form)
2848 (defun byte-compile-variable-ref (base-op var)
2902 (defun byte-compile-constant (const)
2911 (defun byte-compile-push-constant (const)
3084 (defun byte-compile-subr-wrong-args (form n)
3092 (defun byte-compile-no-args (form)
3097 (defun byte-compile-one-arg (form)
3103 (defun byte-compile-two-args (form)
3110 (defun byte-compile-three-args (form)
3118 (defun byte-compile-zero-or-one-arg (form)
3124 (defun byte-compile-one-or-two-args (form)
3130 (defun byte-compile-two-or-three-args (form)
3136 (defun byte-compile-noop (form)
3139 (defun byte-compile-discard ()
3148 (defun byte-compile-associative (form)
3159 (byte-compile-constant (eval form))))
3179 (defun byte-compile-char-before (form)
3189 (defun byte-compile-backward-char (form)
3198 (defun byte-compile-backward-word (form)
3207 (defun byte-compile-list (form)
3221 (defun byte-compile-concat (form)
3237 (defun byte-compile-minus (form)
3247 (defun byte-compile-quo (form)
3257 (defun byte-compile-nconc (form)
3270 (defun byte-compile-fset (form)
3289 (defun byte-compile-funarg (form)
3301 (defun byte-compile-funarg-2 (form)
3318 (defun byte-compile-function-form (form)
3330 (defun byte-compile-indent-to (form)
3341 (defun byte-compile-insert (form)
3368 (defun byte-compile-setq (form)
3381 (defun byte-compile-setq-default (form)
3391 (defun byte-compile-quote (form)
3394 (defun byte-compile-quote-form (form)
3401 (defun byte-compile-body (body &optional for-effect)
3436 (defun byte-compile-progn (form)
3439 (defun byte-compile-prog1 (form)
3443 (defun byte-compile-prog2 (form)
3496 (defun byte-compile-if (form)
3520 (defun byte-compile-cond (clauses)
3552 (defun byte-compile-and (form)
3561 (defun byte-compile-and-recursion (rest failtag)
3571 (defun byte-compile-or (form)
3580 (defun byte-compile-or-recursion (rest wintag)
3590 (defun byte-compile-while (form)
3601 (defun byte-compile-funcall (form)
3606 (defun byte-compile-let (form)
3620 (defun byte-compile-let* (form)
3641 (defun byte-compile-negated (form)
3645 (defun byte-compile-negation-optimizer (form)
3668 (defun byte-compile-catch (form)
3674 (defun byte-compile-unwind-protect (form)
3681 (defun byte-compile-track-mouse (form)
3686 (defun byte-compile-condition-case (form)
3731 (defun byte-compile-save-excursion (form)
3736 (defun byte-compile-save-restriction (form)
3741 (defun byte-compile-save-current-buffer (form)
3746 (defun byte-compile-save-window-excursion (form)
3751 (defun byte-compile-with-output-to-temp-buffer (form)
3760 (byte-defop-compiler-1 defun)
3767 (defun byte-compile-defun (form)
3771 (byte-compile-set-symbol-position 'defun)
3772 (error "defun name must be a symbol, not %s" (car form)))
3782 ;; definition just like interpreting a defun.
3791 (defun byte-compile-defmacro (form)
3799 (list 'quote (cons 'macro (eval code))))))
3802 (defun byte-compile-defvar (form)
3844 `(eval ',form)))
3847 (defun byte-compile-autoload (form)
3851 (eval (nth 5 form)) ; macro-p
3852 (not (fboundp (eval (nth 1 form))))
3856 (eval (nth 1 form))))
3861 (defun byte-compile-lambda-form (form)
3867 (defun byte-compile-file-form-defalias (form)
3895 (defun byte-compile-defalias-warn (new)
3902 (defun byte-compile-no-warnings (form)
3908 (defun byte-compile-make-variable-buffer-local (form)
3915 (defun byte-compile-form-make-variable-buffer-local (form)
3925 (defun byte-compile-make-tag ()
3929 (defun byte-compile-out-tag (tag)
3940 (defun byte-compile-goto (opcode tag)
3948 (defun byte-compile-out (opcode offset)
3970 (defun byte-compile-annotate-call-tree (form)
3993 (defun display-call-tree (&optional filename)
4124 (defun batch-byte-compile-if-not-done ()
4133 (defun batch-byte-compile (&optional noforce)
4172 (defun batch-byte-compile-file (file)
4198 (defun batch-byte-recompile-directory (&optional arg)
4225 (defun byte-compile-report-ops ()
4251 ;; To avoid "lisp nesting exceeds max-lisp-eval-depth" when bytecomp compiles
4254 (eval-when-compile