saving uncommitted changes in /etc prior to emerge run

common-lisp/gentoo-init.lisp

@@ -0,0 +1,12 @@
+(in-package #:cl-user)
+
+#-(or cmu ccl ecl sbcl)
+(let ((*compile-print* nil)
+      (*compile-verbose* nil)
+      #+cmu (ext:*gc-verbose* nil))
+  (handler-bind ((warning #'muffle-warning))
+    (load #p"/usr/share/common-lisp/source/asdf/build/asdf.lisp"
+          :print nil :verbose nil)))
+
+#+(or cmu ccl ecl sbcl)
+(require :asdf)