Reorganise directory structure. Sync swank.asd from the lisp overlay.

Package-Manager: portage-2.2_rc3/cvs/Linux 2.6.25-gentoo-r6 i686

8 files changed, 48 insertions, 79 deletions

diff --git a/app-emacs/slime/files/2.0_p20061118/70slime-gentoo.el b/app-emacs/slime/files/2.0_p20061118/70slime-gentoo.el
new file mode 100644
index 000000000000..3859f7d65e01
--- /dev/null
+++ b/app-emacs/slime/files/2.0_p20061118/70slime-gentoo.el
@@ -0,0 +1,14 @@
+
+;;; slime site-lisp configuration
+
+(add-to-list 'load-path "@SITELISP@")
+
+(require 'slime)
+(slime-setup)
+
+;; this allows us not to require dev-lisp/hyperspec
+;; (which is non-free) as a hard dependency
+(setq common-lisp-hyperspec-root
+      (if (file-exists-p "/usr/share/doc/hyperspec/HyperSpec")
+	  "file:///usr/share/doc/hyperspec/HyperSpec/"
+	"http://www.lispworks.com/reference/HyperSpec/"))
diff --git a/app-emacs/slime/files/71slime-gentoo.el b/app-emacs/slime/files/2.0_p20070816/70slime-gentoo.el
index e872b7cb9408..f967021cab07 100644
--- a/app-emacs/slime/files/71slime-gentoo.el
+++ b/app-emacs/slime/files/2.0_p20070816/70slime-gentoo.el
@@ -2,10 +2,11 @@
 ;;; slime site-lisp configuration
 
 (add-to-list 'load-path "@SITELISP@")
+
 (require 'slime-autoloads)
 (slime-setup)
 
-;; this prevents us from requiring the user get dev-lisp/hyperspec
+;; this allows us not to require dev-lisp/hyperspec
 ;; (which is non-free) as a hard dependency
 (setq common-lisp-hyperspec-root
       (if (file-exists-p "/usr/share/doc/hyperspec/HyperSpec")
diff --git a/app-emacs/slime/files/slime-changelog-date.patch b/app-emacs/slime/files/2.0_p20070816/changelog-date.patch
index bf816bc771e2..bf816bc771e2 100644
--- a/app-emacs/slime/files/slime-changelog-date.patch
+++ b/app-emacs/slime/files/2.0_p20070816/changelog-date.patch
diff --git a/app-emacs/slime/files/slime-2.0_p20070816-save-restriction-if-possible.patch b/app-emacs/slime/files/2.0_p20070816/save-restriction-if-possible.patch
index 952b3a79c00d..952b3a79c00d 100644
--- a/app-emacs/slime/files/slime-2.0_p20070816-save-restriction-if-possible.patch
+++ b/app-emacs/slime/files/2.0_p20070816/save-restriction-if-possible.patch
diff --git a/app-emacs/slime/files/slime-set-swank-wire-protocol-version.patch b/app-emacs/slime/files/2.0_p20070816/set-swank-wire-protocol-version.patch
index dd48caeff3b4..dd48caeff3b4 100644
--- a/app-emacs/slime/files/slime-set-swank-wire-protocol-version.patch
+++ b/app-emacs/slime/files/2.0_p20070816/set-swank-wire-protocol-version.patch
diff --git a/app-emacs/slime/files/swank.asd b/app-emacs/slime/files/2.0_p20070816/swank.asd
index e1b6c8fa74d1..35c64b9ee2fb 100644
--- a/app-emacs/slime/files/swank.asd
+++ b/app-emacs/slime/files/2.0_p20070816/swank.asd
@@ -1,8 +1,7 @@
 ;;; -*- mode: lisp; syntax: common-lisp; package: common-lisp -*-
 
 (defpackage #:swank-system
-  (:use #:common-lisp
-        #:asdf))
+  (:use #:common-lisp #:asdf))
 
 (defpackage #:swank-loader
   (:use #:common-lisp)
@@ -10,16 +9,18 @@
 
 (in-package #:swank-system)
 
-;; http://www.caddr.com/macho/archives/sbcl-devel/2004-3/3014.html
-
-(defclass unsafe-file (cl-source-file) ())
+(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))
 
-(defmethod perform :around ((op compile-op) (c unsafe-file))
-  (setf (operation-on-warnings op) :ignore
-        (operation-on-failure op) :warn) ; adjust to taste
-  (call-next-method))
+(defun load-site-init-file ()
+  (load (make-pathname :name "site-init" :type "lisp"
+                       :defaults *load-truename*)
+        :if-does-not-exist nil))
 
-(defmacro define-swank-system (&rest sysdep-components)
+(defmacro define-swank-system (sysdep-files)
   `(defsystem swank
        :name "Swank is the Common Lips back-end to SLIME"
        :serial t
@@ -29,57 +30,34 @@
                                   (if (atom component)
                                       (list :file component)
                                       component))
-                              sysdep-components)
+                              sysdep-files)
                     (:file "swank"))
-       :depends-on (#+sbcl sb-bsd-sockets)))
-
-#+sbcl  (define-swank-system
-	  "swank-sbcl"
-	  "swank-source-path-parser"
-	  "swank-source-file-cache" 
-	  "swank-gray")
-
-#+openmcl (define-swank-system
-	    "metering"
-	    "swank-openmcl"
-	    "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")
-
-#+armedbear (define-swank-system
-		"swank-abcl")
-
-#+ecl (define-swank-system
-	  "swank-ecl" "swank-gray")
+       :depends-on (#+sbcl sb-bsd-sockets)
+       :perform (load-op :after (op swank)
+                  (load-site-init-file)
+                  (load-user-init-file))))
+
+#+(or cmu scl sbcl openmcl lispworks allegro clisp armedbear cormanlisp ecl)
+(define-swank-system
+  #+cmu (swank-source-path-parser swank-source-file-cache swank-cmucl)
+  #+scl (swank-source-path-parser swank-source-file-cache swank-scl)
+  #+sbcl (swank-source-path-parser swank-source-file-cache swank-sbcl swank-gray)
+  #+openmcl (metering swank-openmcl swank-gray)
+  #+lispworks (swank-lispworks swank-gray)
+  #+allegro (swank-allegro swank-gray)
+  #+clisp (xref metering swank-clisp swank-gray)
+  #+armedbear (swank-abcl)
+  #+cormanlisp (swank-corman swank-gray)
+  #+ecl (swank-source-path-parser swank-source-file-cache swank-ecl swank-gray))
+
+#-(or cmu scl sbcl openmcl lispworks allegro clisp armedbear cormanlisp ecl)
+(error "Your CL implementation is not supported !")
 
 (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)
-			 (make-pathname :name ".swank" :type "lisp"))
-	:if-does-not-exist nil))
-
-(defun load-site-init-file ()
-  (load (make-pathname :name "site-init" :type "lisp"
-                       :defaults *load-truename*)
-        :if-does-not-exist nil))
-
 ;; (funcall (intern (string :warn-unimplemented-interfaces) :swank-backend))
 
-(load-site-init-file)
-(load-user-init-file)
-
 ;; swank.asd ends here
diff --git a/app-emacs/slime/files/70slime-gentoo.el b/app-emacs/slime/files/70slime-gentoo.el
deleted file mode 100644
index 2687bb5c4f14..000000000000
--- a/app-emacs/slime/files/70slime-gentoo.el
+++ /dev/null
@@ -1,13 +0,0 @@
-
-;;; site-lisp configuration for slime-cvs
-
-(add-to-list 'load-path "@SITELISP@")
-(require 'slime)
-(slime-setup)
-
-;; this prevents us from requiring the user get dev-lisp/hyperspec
-;; (which is non-free) as a hard dependency
-
-(if (file-exists-p "/usr/share/doc/hyperspec/HyperSpec")
-    (setq common-lisp-hyperspec-root "file:///usr/share/doc/hyperspec/HyperSpec/")
-  (setq common-lisp-hyperspec-root "http://www.lispworks.com/reference/HyperSpec/"))
diff --git a/app-emacs/slime/files/new-slime-ball b/app-emacs/slime/files/new-slime-ball
deleted file mode 100755
index 6b4d51f8cb3f..000000000000
--- a/app-emacs/slime/files/new-slime-ball
+++ /dev/null
@@ -1,11 +0,0 @@
-#!/bin/sh
-TMP=`mktemp -d -t new-slime-ball.XXXXXX`
-trap "rm -r $TMP* 2>/dev/null" 0
-DIR=${PWD}
-THEIR_PV=2.0			# whatever they're calling the current release
-OUR_PV=`date +'%Y%m%d'`
-PV="${THEIR_PV}_p${OUR_PV}"
-cd $TMP
-cvs -z9 -d:pserver:anonymous@common-lisp.net:/project/slime/cvsroot co slime || exit 1
-mv slime slime-${PV}
-tar cvjf ${DIR}/slime-${PV}.tar.bz2 slime-${PV} --exclude CVS --exclude .cvsignore