diff options
Diffstat (limited to 'app-emacs/slime/files/1.0.20050106/swank-loader-init.lisp')
| -rw-r--r-- | app-emacs/slime/files/1.0.20050106/swank-loader-init.lisp | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/app-emacs/slime/files/1.0.20050106/swank-loader-init.lisp b/app-emacs/slime/files/1.0.20050106/swank-loader-init.lisp new file mode 100644 index 000000000000..c2e58ff4904c --- /dev/null +++ b/app-emacs/slime/files/1.0.20050106/swank-loader-init.lisp @@ -0,0 +1,21 @@ +;; -*- lisp -*- + +;; This file is NOT part of SLIME. + +;; This file is provided by the Gentoo port to implement the +;; user-init-file loader. +;; +;; Matthew Kennedy <mkennedy@gentoo.org> + +(defpackage #:swank-loader + (:use #:common-lisp)) + +(in-package #:swank-loader) + +(defun user-init-file () + "Return the name of the user init file or nil." + (probe-file (merge-pathnames (user-homedir-pathname) + (make-pathname :name ".swank" :type "lisp")))) + +(when (user-init-file) + (load (user-init-file))) |