diff --git a/core/core-lib.el b/core/core-lib.el
index fc2130496..5adc87878 100644
--- a/core/core-lib.el
+++ b/core/core-lib.el
@@ -305,6 +305,10 @@ This is a variadic `push'."
   "Append LISTS to SYM in place."
   `(setq ,sym (append ,sym ,@lists)))
 
+(defmacro nconcq! (sym &rest lists)
+  "Append LISTS to SYM by altering them in place."
+  `(setq ,sym (nconc ,sym ,@lists)))
+
 (defmacro delq! (elt list &optional fetcher)
   "Delete ELT from LIST in-place."
   `(setq ,list