commit/XEmacs: kehoea: Add a byte-compile method for #'ignore, chiefly for generated code

1 new commit in XEmacs: https://bitbucket.org/xemacs/xemacs/commits/8a7f058930de/ Changeset: 8a7f058930de User: kehoea Date: 2018-04-27 21:05:22+00:00 Summary: Add a byte-compile method for #'ignore, chiefly for generated code lisp/ChangeLog addition: 2018-04-27 Aidan Kehoe <kehoea(a)parhasard.net&gt; * bytecomp.el: * bytecomp.el (ignore): * bytecomp.el (byte-compile-ignore): New. Add a byte-compile method for #'ignore, marking all its arguments as for-effect, and returning nil. tests/ChangeLog addition: 2018-04-27 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/lisp-tests.el: * automated/lisp-tests.el (null): Test #'ignore and its newly-added byte-compile method. Affected #: 4 files diff -r fd1fdfb2c336 -r 8a7f058930de lisp/ChangeLog --- a/lisp/ChangeLog +++ b/lisp/ChangeLog ＠＠ -1,3 +1,11 ＠＠ +2018-04-27 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * bytecomp.el: + * bytecomp.el (ignore): + * bytecomp.el (byte-compile-ignore): New. + Add a byte-compile method for #'ignore, marking all its arguments + as for-effect, and returning nil. + 2018-04-25 Aidan Kehoe <kehoea(a)parhasard.net&gt; * subr.el (not): New. diff -r fd1fdfb2c336 -r 8a7f058930de lisp/bytecomp.el --- a/lisp/bytecomp.el +++ b/lisp/bytecomp.el ＠＠ -4661,6 +4661,8 ＠＠ (byte-defop-compiler-1 defalias) (byte-defop-compiler-1 define-function) +(byte-defop-compiler-1 ignore) + (defun byte-compile-defun (form) ;; This is not used for file-level defuns with doc strings. (byte-compile-two-args ; Use this to avoid byte-compile-fset's warning. ＠＠ -4772,6 +4774,10 ＠＠ (if calls (setq byte-compile-unresolved-functions (delete* calls byte-compile-unresolved-functions))))) + +(defun byte-compile-ignore (form) + (mapc #'byte-compile-form (cdr form) '#1=(t . #1#)) + (unless for-effect (byte-compile-push-constant nil)))  ;;; tags diff -r fd1fdfb2c336 -r 8a7f058930de tests/ChangeLog --- a/tests/ChangeLog +++ b/tests/ChangeLog ＠＠ -1,3 +1,9 ＠＠ +2018-04-27 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * automated/lisp-tests.el: + * automated/lisp-tests.el (null): + Test #'ignore and its newly-added byte-compile method. + 2018-04-25 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/lisp-tests.el: diff -r fd1fdfb2c336 -r 8a7f058930de tests/automated/lisp-tests.el --- a/tests/automated/lisp-tests.el +++ b/tests/automated/lisp-tests.el ＠＠ -3265,6 +3265,13 ＠＠ (Assert (not (funcall (intern "eq") #'bookend #'refer-to-bookend)) "checking two mutually recursive functions compiled OK")))) +(Assert (null (ignore)) "checking ignore gives nil, no arguments") +(Assert (null (ignore 40 90.5 pi)) + "checking ignore gives nil, three arguments") +(let (value) + (Assert (eq 'hi (prog2 (ignore (setq value 'hi)) value)) + "checking side-effecting statements not deleted, ignore")) + ;; Test macroexpand's handling of the ENVIRONMENT argument. We augmented it ;; quietly for about four months, and this was incorrect. Repository URL: https://bitbucket.org/xemacs/xemacs/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email.