Add template for initialize-instance

templates

@@ -16,7 +16,7 @@ lisp-mode emacs-lisp-mode inferior-emacs-lisp-mode slime-repl-mode
 ;; (l "(lambda (" (s "arguments") ") " (s "forms") ")")
 (dv "(defvar " (p "symbol" symbol) " " (p "value")
     n> "\"" (p "doc") "\"" ")")
-(dm "(defmethod " (p "name") " (" (p "arguments") ")" n> ")")
+(dm "(defmethod " (p "name") " (" (p "arguments") ")" n> q ")")
 (df "(defun " (p "name") " (" (s "arguments") ")" n> r> ")")
 (l  "(let (" p ")" n> r> q ")")
 (ls "(let* (" p ")" n> r> q ")")
@@ -42,6 +42,9 @@ slime-repl-mode lisp-mode
 (pd "(format *debug-io* \"" q "~%\")")
 (im "(:import-from :" (s "package") " #:" (s "symbol") ")")
 (di "(:default-initargs " (s "initarg") ")")
+(ii "(defmethod initialize-instance :after" n>
+    " ((" p ") &rest initargs &key &allow-other-keys)"
+    n> q ")")
 (qu "(ql:update-all-dists)" n> "(ql:update-client)")
 (dpmp
  "(define-presentation-method present "