[gentoo-commits] gentoo-x86 commit in app-emacs/slime/files: swank.asd

[Ulrich Mueller (ulm)]

ulm         07/10/22 07:53:20

  Modified:             swank.asd
  Log:
  Sync swank.asd from Gentoo Lisp overlay.
  (Portage version: 2.1.3.15)

Revision  Changes    Path
1.4                  app-emacs/slime/files/swank.asd

file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/slime/files/swank.asd?rev=1.4&view=markup
plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/slime/files/swank.asd?rev=1.4&content-type=text/plain
diff : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/slime/files/swank.asd?r1=1.3&r2=1.4

Index: swank.asd
===================================================================
RCS file: /var/cvsroot/gentoo-x86/app-emacs/slime/files/swank.asd,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- swank.asd	27 Aug 2007 21:08:08 -0000	1.3
+++ swank.asd	22 Oct 2007 07:53:20 -0000	1.4
@@ -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)



-- 
gentoo-commits@g.o mailing list