put this in your .emacs
(push `(("\\.asd\\'" . "ASDF Skeleton")
"System Name: "
"
(eval-when (:compile-toplevel :load-toplevel :execute)
(unless (find-package :" str ".system)
(defpackage :" str ".system
(:use :common-lisp :asdf))))
(in-package :" str ".system)
(defsystem :" str"
:description " ?\" (read-string "Description: ") ?\""
:author \"" (user-full-name) " <" user-mail-address ">\"
:licence \"" (read-string "License: ") "\"
:version \"" (read-string "Version: ") "\"
:components
(())
:depends-on ())")
auto-insert-alist)
GNU Emacs ASDF