diff options
| author |   Ulrich Müller <ulm@gentoo.org> | 2007-10-22 07:53:20 +0000 |
|---|---|---|
| committer | Ulrich Müller <ulm@gentoo.org> | 2007-10-22 07:53:20 +0000 |
| commit | e351ef44621e5bc2f89597b41fb6424b05d7b80c (patch) | |
| tree | ccd957ed2a892509c0e701999c1114f1fc7c8bc7 /app-emacs/slime | |
| parent | version bump (bug #195270) (diff) | |
| download | gentoo-2-e351ef44621e5bc2f89597b41fb6424b05d7b80c.tar.gz gentoo-2-e351ef44621e5bc2f89597b41fb6424b05d7b80c.tar.bz2 gentoo-2-e351ef44621e5bc2f89597b41fb6424b05d7b80c.zip | |
Sync swank.asd from Gentoo Lisp overlay.
(Portage version: 2.1.3.15)
Diffstat (limited to 'app-emacs/slime')
| -rw-r--r-- | app-emacs/slime/ChangeLog | 5 | ||||
| -rw-r--r-- | app-emacs/slime/files/swank.asd | 9 |
2 files changed, 9 insertions, 5 deletions
diff --git a/app-emacs/slime/ChangeLog b/app-emacs/slime/ChangeLog index 64001d89547c..47004ded58af 100644 --- a/app-emacs/slime/ChangeLog +++ b/app-emacs/slime/ChangeLog @@ -1,6 +1,9 @@ # ChangeLog for app-emacs/slime # Copyright 2000-2007 Gentoo Foundation; Distributed under the GPL v2 -# $Header: /var/cvsroot/gentoo-x86/app-emacs/slime/ChangeLog,v 1.49 2007/10/21 22:13:21 ulm Exp $ +# $Header: /var/cvsroot/gentoo-x86/app-emacs/slime/ChangeLog,v 1.50 2007/10/22 07:53:19 ulm Exp $ + + 22 Oct 2007; Ulrich Mueller <ulm@gentoo.org> files/swank.asd: + Sync swank.asd from Gentoo Lisp overlay. *slime-2.0_p20070816-r1 (21 Oct 2007) diff --git a/app-emacs/slime/files/swank.asd b/app-emacs/slime/files/swank.asd index 3288ae8b0227..e1b6c8fa74d1 100644 --- a/app-emacs/slime/files/swank.asd +++ b/app-emacs/slime/files/swank.asd @@ -5,7 +5,8 @@ #:asdf)) (defpackage #:swank-loader - (:use #:common-lisp)) + (:use #:common-lisp) + (:export #:*source-directory*)) (in-package #:swank-system) @@ -60,11 +61,11 @@ #+ecl (define-swank-system "swank-ecl" "swank-gray") -(defparameter swank-loader::*source-directory* - (asdf:component-pathname (asdf:find-system :swank))) - (in-package #:swank-loader) +(defparameter *source-directory* + (asdf:component-pathname (asdf:find-system :swank))) + (defun load-user-init-file () "Load the user init file, return NIL if it does not exist." (load (merge-pathnames (user-homedir-pathname) |