diff options
author | Robin Templeton <[email protected]> | 2014-08-18 01:18:13 -0400 |
---|---|---|
committer | Robin Templeton <[email protected]> | 2015-04-20 00:29:03 -0400 |
commit | 54a32e8885ca3cc5d929894befbc824d7daaea0f (patch) | |
tree | a786a2b2775d08d381f700177929126ddfd1aec3 /lisp | |
parent | 989973023dd4592c3713b67d786e7353f4981221 (diff) |
remove eval-when-compile and eval-and-compile
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/emacs-lisp/byte-run.el | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 6e6cfc7948..25e1d900e4 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -407,33 +407,6 @@ If you think you need this, you're probably making a mistake somewhere." (list 'eval (list 'quote (if (cdr body) (cons 'progn body) (car body))))) -;; interface to evaluating things at compile time and/or load time -;; these macro must come after any uses of them in this file, as their -;; definition in the file overrides the magic definitions on the -;; byte-compile-macro-environment. - -(defmacro eval-when-compile (&rest body) - "Like `progn', but evaluates the body at compile time if you're compiling. -Thus, the result of the body appears to the compiler as a quoted -constant. In interpreted code, this is entirely equivalent to -`progn', except that the value of the expression may be (but is -not necessarily) computed at load time if eager macro expansion -is enabled." - (declare (debug (&rest def-form)) (indent 0)) - (list 'quote (eval (cons 'progn body) lexical-binding))) - -(defmacro eval-and-compile (&rest body) - "Like `progn', but evaluates the body at compile time and at -load time. In interpreted code, this is entirely equivalent to -`progn', except that the value of the expression may be (but is -not necessarily) computed at load time if eager macro expansion -is enabled." - (declare (debug t) (indent 0)) - ;; When the byte-compiler expands code, this macro is not used, so we're - ;; either about to run `body' (plain interpretation) or we're doing eager - ;; macroexpansion. - (list 'quote (eval (cons 'progn body) lexical-binding))) - (defun with-no-warnings (&rest body) "Like `progn', but prevents compiler warnings in the body." (declare (indent 0)) |