Version bump: new CVS snapshot, everything contributed by Stelian Ionescu.

Package-Manager: portage-2.1.3.7

6 files changed, 110 insertions, 3 deletions

diff --git a/app-emacs/slime/files/digest-slime-2.0_p20061118 b/app-emacs/slime/files/digest-slime-2.0_p20061118
new file mode 100644
index 000000000000..66b469dfc55c
--- /dev/null
+++ b/app-emacs/slime/files/digest-slime-2.0_p20061118
@@ -0,0 +1,3 @@
+MD5 bc0801bf62ac96c3efad09af87d6622c slime-2.0_p20061118.tar.bz2 379335
+RMD160 550687c358fa65ca27fdcdc0136b586e58186581 slime-2.0_p20061118.tar.bz2 379335
+SHA256 2de5858fbde7a67d6557419fb3d7b17c9a1dd47a5fe5bbfdecbc1ae0c1fe7839 slime-2.0_p20061118.tar.bz2 379335
diff --git a/app-emacs/slime/files/digest-slime-2.0_p20070822 b/app-emacs/slime/files/digest-slime-2.0_p20070822
new file mode 100644
index 000000000000..a19118002a0b
--- /dev/null
+++ b/app-emacs/slime/files/digest-slime-2.0_p20070822
@@ -0,0 +1,3 @@
+MD5 c293ac883b4ae9a2e31dce1eab5e9552 slime-2.0_p20070822.tar.bz2 504132
+RMD160 f8fe92a0419ea0a4ff8ebbd38a0db342dbf1e85c slime-2.0_p20070822.tar.bz2 504132
+SHA256 040762efc619302d61817ffb990ea444c4a53ce16faecffee58444fb9fc06c7a slime-2.0_p20070822.tar.bz2 504132
diff --git a/app-emacs/slime/files/new-slime-ball b/app-emacs/slime/files/new-slime-ball
index 479c891cab36..6b4d51f8cb3f 100755
--- a/app-emacs/slime/files/new-slime-ball
+++ b/app-emacs/slime/files/new-slime-ball
@@ -2,10 +2,10 @@
 TMP=`mktemp -d -t new-slime-ball.XXXXXX`
 trap "rm -r $TMP* 2>/dev/null" 0
 DIR=${PWD}
-THEIR_PV=2.0.0			# whatever they're calling the current release
+THEIR_PV=2.0			# whatever they're calling the current release
 OUR_PV=`date +'%Y%m%d'`
-PV="${THEIR_PV}.${OUR_PV}"
+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 cvfz ${DIR}/slime-${PV}.tar.gz slime-${PV} --exclude CVS --exclude .cvsignore
+tar cvjf ${DIR}/slime-${PV}.tar.bz2 slime-${PV} --exclude CVS --exclude .cvsignore
diff --git a/app-emacs/slime/files/slime-set-swank-wire-protocol-version.patch b/app-emacs/slime/files/slime-set-swank-wire-protocol-version.patch
new file mode 100644
index 000000000000..dd48caeff3b4
--- /dev/null
+++ b/app-emacs/slime/files/slime-set-swank-wire-protocol-version.patch
@@ -0,0 +1,13 @@
+diff -Naur slime.old/swank.lisp slime/swank.lisp
+--- slime.old/swank.lisp	2007-06-06 08:46:20.000000000 +0200
++++ slime/swank.lisp	2007-06-28 18:06:14.000000000 +0200
+@@ -1282,7 +1282,8 @@
+          value-or-values))
+   (values))
+ 
+-(defvar *swank-wire-protocol-version* nil
++(defvar *swank-wire-protocol-version*
++  "@SWANK-WIRE-PROTOCOL-VERSION@"
+   "The version of the swank/slime communication protocol.")
+ 
+ (defslimefun connection-info ()
diff --git a/app-emacs/slime/files/swank-loader.lisp b/app-emacs/slime/files/swank-loader.lisp
new file mode 100644
index 000000000000..4d9b157312e6
--- /dev/null
+++ b/app-emacs/slime/files/swank-loader.lisp
@@ -0,0 +1,4 @@
+
+;; This file is NOT part of SLIME
+
+(asdf:oos 'asdf:load-op :swank)
diff --git a/app-emacs/slime/files/swank.asd b/app-emacs/slime/files/swank.asd
new file mode 100644
index 000000000000..3288ae8b0227
--- /dev/null
+++ b/app-emacs/slime/files/swank.asd
@@ -0,0 +1,84 @@
+;;; -*- mode: lisp; syntax: common-lisp; package: common-lisp -*-
+
+(defpackage #:swank-system
+  (:use #:common-lisp
+        #:asdf))
+
+(defpackage #:swank-loader
+  (:use #:common-lisp))
+
+(in-package #:swank-system)
+
+;; http://www.caddr.com/macho/archives/sbcl-devel/2004-3/3014.html
+
+(defclass unsafe-file (cl-source-file) ())
+
+(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))
+
+(defmacro define-swank-system (&rest sysdep-components)
+  `(defsystem swank
+       :name "Swank is the Common Lips back-end to SLIME"
+       :serial t
+       :components ((:file "swank-backend")
+                    (:file "nregex")
+                    ,@(mapcar #'(lambda (component)
+                                  (if (atom component)
+                                      (list :file component)
+                                      component))
+                              sysdep-components)
+                    (: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")
+
+(defparameter swank-loader::*source-directory*
+  (asdf:component-pathname (asdf:find-system :swank)))
+
+(in-package #:swank-loader)
+
+(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