diff options
| author |   Matthew Kennedy <mkennedy@gentoo.org> | 2005-04-06 07:24:17 +0000 |
|---|---|---|
| committer | Matthew Kennedy <mkennedy@gentoo.org> | 2005-04-06 07:24:17 +0000 |
| commit | da2d765c4297c23602fee44141ec7d64779b47ab (patch) | |
| tree | 669122064611d24775db19cb307fa51d852582ef /app-emacs/slime-cvs/files | |
| parent | Version 3.0.16 stable for x86. Wiped out older version. (diff) | |
| download | historical-da2d765c4297c23602fee44141ec7d64779b47ab.tar.gz historical-da2d765c4297c23602fee44141ec7d64779b47ab.tar.bz2 historical-da2d765c4297c23602fee44141ec7d64779b47ab.zip | |
Package-Manager: portage-2.0.51.19
Diffstat (limited to 'app-emacs/slime-cvs/files')
| -rw-r--r-- | app-emacs/slime-cvs/files/digest-slime-cvs-0-r4 | 0 | ||||
| -rw-r--r-- | app-emacs/slime-cvs/files/swank.asd | 25 |
2 files changed, 17 insertions, 8 deletions
diff --git a/app-emacs/slime-cvs/files/digest-slime-cvs-0-r4 b/app-emacs/slime-cvs/files/digest-slime-cvs-0-r4 new file mode 100644 index 000000000000..e69de29bb2d1 --- /dev/null +++ b/app-emacs/slime-cvs/files/digest-slime-cvs-0-r4 diff --git a/app-emacs/slime-cvs/files/swank.asd b/app-emacs/slime-cvs/files/swank.asd index 39a42b7e5e65..323407a5bd6f 100644 --- a/app-emacs/slime-cvs/files/swank.asd +++ b/app-emacs/slime-cvs/files/swank.asd @@ -32,18 +32,27 @@ (:file "swank")) :depends-on (#+sbcl sb-bsd-sockets))) -#+sbcl (define-swank-system "swank-sbcl" "swank-source-path-parser" "swank-gray") -#+cmu (define-swank-system "swank-source-path-parser" "swank-cmucl") +#+sbcl (define-swank-system "swank-sbcl" "swank-source-path-parser" + "swank-source-file-cache" "swank-gray") +#+cmu (define-swank-system "swank-source-path-parser" + "swank-source-file-cache" "swank-cmucl") #+clisp (define-swank-system "xref" "metering" "swank-clisp" "swank-gray") (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")))) +(defun load-user-init-file () + "Load the user init file, return NIL if it does not exist." + (load (merge-pathnames (user-homedir-pathname) + (make-pathname :name ".swank" :type "lisp")) + :if-does-not-exist nil)) +(export 'load-user-init-file) -(when (user-init-file) - (load (user-init-file))) +(defun load-site-init-file () + (load (make-pathname :name "site-init" :type "lisp" + :defaults *load-truename*) + :if-does-not-exist nil)) + +(or (load-site-init-file) + (load-user-init-file)) ;; swank.asd ends here |