Common Lispのdefpackageとin-packageを入力するskeleton

とりあえず作成。

(defmacro defun-abbrev (funcname table abbrev &rest body)
  "Defun a function and define an abbrev.
Note that `table' is abbrev table to use."
  `(progn
     (defun ,funcname ,@body)
     (define-abbrev-function ,table ,abbrev ',funcname)))
(defun-abbrev cl-skeleton-defpackage lisp-mode-abbrev-table "pkgx" (pkgname uses)
  "Insert defpackage and in-package."
  (interactive "sdefpackage package: \nsUse packages: ")
  (skeleton-insert '("" nil
"(defpackage " pkgname > \n
"  (:use common-lisp " uses "))" > \n
"(in-package :" pkgname ")" > \n
)))