repair through modified swank.asd plus a bump, as reported in bug #153597 by Anton Kazennikov <kazennikov@gmail.com>

(Portage version: 2.1.1-r1)

5 files changed, 167 insertions, 1 deletions

diff --git a/app-emacs/slime-cvs/ChangeLog b/app-emacs/slime-cvs/ChangeLog
index 9f0e99e896cc..008fc3e04068 100644
--- a/app-emacs/slime-cvs/ChangeLog
+++ b/app-emacs/slime-cvs/ChangeLog
@@ -1,6 +1,13 @@
 # ChangeLog for app-emacs/slime-cvs
 # Copyright 2000-2006 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/app-emacs/slime-cvs/ChangeLog,v 1.19 2006/04/12 16:47:17 mkennedy Exp $
+# $Header: /var/cvsroot/gentoo-x86/app-emacs/slime-cvs/ChangeLog,v 1.20 2006/11/17 10:46:06 opfer Exp $
+
+*slime-cvs-0-r5 (17 Nov 2006)
+
+  17 Nov 2006; Christian Faulhammer <opfer@gentoo.org> +files/swank-r5.asd,
+  +slime-cvs-0-r5.ebuild:
+  repair through modified swank.asd plus a bump, as reported in bug #153597 by
+  Anton Kazennikov <kazennikov@gmail.com>
 
   12 Apr 2006; Matthew Kennedy <mkennedy@gentoo.org>
   files/70slime-gentoo.el, +files/README.Gentoo, files/swank.asd,
diff --git a/app-emacs/slime-cvs/files/digest-slime-cvs-0-r4 b/app-emacs/slime-cvs/files/digest-slime-cvs-0-r4
index e69de29bb2d1..8b137891791f 100644
--- a/app-emacs/slime-cvs/files/digest-slime-cvs-0-r4
+++ b/app-emacs/slime-cvs/files/digest-slime-cvs-0-r4
@@ -0,0 +1 @@
+
diff --git a/app-emacs/slime-cvs/files/digest-slime-cvs-0-r5 b/app-emacs/slime-cvs/files/digest-slime-cvs-0-r5
new file mode 100644
index 000000000000..8b137891791f
--- /dev/null
+++ b/app-emacs/slime-cvs/files/digest-slime-cvs-0-r5
@@ -0,0 +1 @@
+
diff --git a/app-emacs/slime-cvs/files/swank-r5.asd b/app-emacs/slime-cvs/files/swank-r5.asd
new file mode 100644
index 000000000000..ec7c55de2732
--- /dev/null
+++ b/app-emacs/slime-cvs/files/swank-r5.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")
+
+(defparameter swank-loader::*source-directory*
+  (asdf:component-pathname (asdf:find-system :swank)))
+
+#+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")
+
+(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
diff --git a/app-emacs/slime-cvs/slime-cvs-0-r5.ebuild b/app-emacs/slime-cvs/slime-cvs-0-r5.ebuild
new file mode 100644
index 000000000000..4a3c7670e6ca
--- /dev/null
+++ b/app-emacs/slime-cvs/slime-cvs-0-r5.ebuild
@@ -0,0 +1,73 @@
+# Copyright 1999-2006 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/app-emacs/slime-cvs/slime-cvs-0-r5.ebuild,v 1.1 2006/11/17 10:46:06 opfer Exp $
+
+ECVS_SERVER="common-lisp.net:/project/slime/cvsroot"
+if [ -z "${ECVS_BRANCH}" ]; then
+	ECVS_BRANCH="HEAD"
+fi
+ECVS_MODULE="slime"
+ECVS_USER="anonymous"
+ECVS_PASS="anonymous"
+ECVS_CVS_OPTIONS="-dP"
+
+inherit elisp cvs
+
+DESCRIPTION="SLIME, the Superior Lisp Interaction Mode (Extended)"
+HOMEPAGE="http://common-lisp.net/project/slime/"
+SRC_URI=""
+LICENSE="GPL-2"
+SLOT="0"
+KEYWORDS="~x86 ~ppc ~amd64"
+IUSE="doc"
+
+DEPEND="virtual/emacs
+	dev-lisp/common-lisp-controller
+	virtual/commonlisp
+	doc? ( virtual/tetex sys-apps/texinfo )"
+
+S="${WORKDIR}/slime"
+
+CLPACKAGE=swank
+
+src_compile() {
+	echo "(add-to-list 'load-path \".\")" >load-path
+	emacs --batch -q -l load-path -f batch-byte-compile *.el || die
+	use doc && make -C doc all slime.pdf
+}
+
+src_install() {
+	elisp-install ${PN} *.{el,elc} ${FILESDIR}/swank-loader.lisp
+	elisp-site-file-install ${FILESDIR}/70slime-gentoo.el
+	dodoc README* ChangeLog
+	zcat ${D}/usr/share/doc/${PF}/ChangeLog.gz \
+		>${D}/usr/share/emacs/site-lisp/slime-cvs/ChangeLog
+	insinto /usr/share/common-lisp/source/swank
+	doins swank-version.el *.lisp
+	insinto /usr/share/common-lisp/source/swank
+	newins "${FILESDIR}/swank-${PR}.asd" swank.asd
+	dodir /usr/share/common-lisp/systems
+	dosym /usr/share/common-lisp/source/swank/swank.asd \
+		/usr/share/common-lisp/systems
+	if use doc; then
+		dodoc doc/slime.{ps,pdf}
+		doinfo doc/slime.info
+	fi
+}
+
+pkg_preinst() {
+	unregister-common-lisp-source $CLPACKAGE || die
+}
+
+pkg_postrm() {
+	if ! [ -d /usr/share/common-lisp/source/$CLPACKAGE ]; then
+		unregister-common-lisp-source $CLPACKAGE || die
+	fi
+	elisp-site-regen || die
+}
+
+pkg_postinst() {
+	register-common-lisp-source $CLPACKAGE || die
+	elisp-site-regen || die
+	zcat /usr/share/doc/${PF}/README.Gentoo |while read line; do einfo "${line}"; done
+}