diff options
author | Christian Faulhammer <opfer@gentoo.org> | 2007-04-18 19:26:08 +0000 |
---|---|---|
committer | Christian Faulhammer <opfer@gentoo.org> | 2007-04-18 19:26:08 +0000 |
commit | 06aa6e2eac5208365e06f27c05ee202cfdf5baf9 (patch) | |
tree | 611f86ec855eebd2cb940bddda4e811c9821fe2e /app-emacs/slime | |
parent | version bump (diff) | |
download | gentoo-2-06aa6e2eac5208365e06f27c05ee202cfdf5baf9.tar.gz gentoo-2-06aa6e2eac5208365e06f27c05ee202cfdf5baf9.tar.bz2 gentoo-2-06aa6e2eac5208365e06f27c05ee202cfdf5baf9.zip |
more clean up
(Portage version: 2.1.2.2)
Diffstat (limited to 'app-emacs/slime')
21 files changed, 19 insertions, 577 deletions
diff --git a/app-emacs/slime/ChangeLog b/app-emacs/slime/ChangeLog index b73ce0bbc0b5..a2e6385dd84c 100644 --- a/app-emacs/slime/ChangeLog +++ b/app-emacs/slime/ChangeLog @@ -1,6 +1,24 @@ # 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.36 2007/04/18 19:15:38 opfer Exp $ +# $Header: /var/cvsroot/gentoo-x86/app-emacs/slime/ChangeLog,v 1.37 2007/04/18 19:26:08 opfer Exp $ + + 18 Apr 2007; Christian Faulhammer <opfer@gentoo.org> + -files/1.2.1.20050804/70slime-gentoo.el, + -files/1.2.1.20050804/README.Gentoo, -files/1.2.1.20050804/swank.asd, + -files/1.2.1.20050804/swank-loader.lisp, + -files/1.2.1.20051211/70slime-gentoo.el, + -files/1.2.1.20051211/README.Gentoo, -files/1.2.1.20051211/swank.asd, + -files/1.2.1.20051211/swank-loader.lisp, + -files/1.2.1.20060205/70slime-gentoo.el, + -files/1.2.1.20060205/README.Gentoo, -files/1.2.1.20060205/swank.asd, + -files/1.2.1.20060205/swank-loader.lisp, + -files/2.0.0.20060617/70slime-gentoo.el, + -files/2.0.0.20060617/README.Gentoo, -files/2.0.0.20060617/swank.asd, + -files/2.0.0.20060617/swank-loader.lisp, + -files/2.0.0.20060805/70slime-gentoo.el, + -files/2.0.0.20060805/README.Gentoo, -files/2.0.0.20060805/swank.asd, + -files/2.0.0.20060805/swank-loader.lisp: + more clean up 18 Apr 2007; Christian Faulhammer <opfer@gentoo.org> -slime-1.2.1.20050804.ebuild, -slime-1.2.1.20051211.ebuild, diff --git a/app-emacs/slime/files/1.2.1.20050804/70slime-gentoo.el b/app-emacs/slime/files/1.2.1.20050804/70slime-gentoo.el deleted file mode 100644 index 105a1c76e689..000000000000 --- a/app-emacs/slime/files/1.2.1.20050804/70slime-gentoo.el +++ /dev/null @@ -1,16 +0,0 @@ - -;;; site-lisp configuration for slime-cvs - -(add-to-list 'load-path "@SITELISP@") -(require 'slime) -(add-hook 'lisp-mode-hook - (lambda () (slime-mode t))) -(add-hook 'inferior-lisp-mode-hook - (lambda () (inferior-slime-mode t))) - -;; 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/1.2.1.20050804/README.Gentoo b/app-emacs/slime/files/1.2.1.20050804/README.Gentoo deleted file mode 100644 index 168f91cd98db..000000000000 --- a/app-emacs/slime/files/1.2.1.20050804/README.Gentoo +++ /dev/null @@ -1,12 +0,0 @@ -SLIME notes for Gentoo ----------------------- - -If you're interested in hacking this ebuild, slime-cvs uses its own -swank.asd system definition file and swank-loader.lisp. - -As always with CVS ebuilds, DO NOT report problems to upstream. -Always report problems to the Gentoo Bugzilla at -http://bugs.gentoo.org. - -Matthew Kennedy <mkennedy@gentoo.org> - diff --git a/app-emacs/slime/files/1.2.1.20050804/swank-loader.lisp b/app-emacs/slime/files/1.2.1.20050804/swank-loader.lisp deleted file mode 100644 index 4d9b157312e6..000000000000 --- a/app-emacs/slime/files/1.2.1.20050804/swank-loader.lisp +++ /dev/null @@ -1,4 +0,0 @@ - -;; This file is NOT part of SLIME - -(asdf:oos 'asdf:load-op :swank) diff --git a/app-emacs/slime/files/1.2.1.20050804/swank.asd b/app-emacs/slime/files/1.2.1.20050804/swank.asd deleted file mode 100644 index 452f02fc0d89..000000000000 --- a/app-emacs/slime/files/1.2.1.20050804/swank.asd +++ /dev/null @@ -1,79 +0,0 @@ -;;; -*- 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") - -(in-package #:swank-loader) - -(defun user-init-file () - "Return the name of the user init file or NIL if it does not exist." - (probe-file (merge-pathnames (user-homedir-pathname) - (make-pathname :name ".swank" :type "lisp")))) - -(defun site-init-file () - "Return the name of the site init file or NIL if it does not exist." - (probe-file (make-pathname :name "site-init" :type "lisp" :defaults *load-truename*))) - -(or (when (site-init-file) - (load (site-init-file))) - (when (user-init-file) - (load (user-init-file)))) - -;; swank.asd ends here diff --git a/app-emacs/slime/files/1.2.1.20051211/70slime-gentoo.el b/app-emacs/slime/files/1.2.1.20051211/70slime-gentoo.el deleted file mode 100644 index 105a1c76e689..000000000000 --- a/app-emacs/slime/files/1.2.1.20051211/70slime-gentoo.el +++ /dev/null @@ -1,16 +0,0 @@ - -;;; site-lisp configuration for slime-cvs - -(add-to-list 'load-path "@SITELISP@") -(require 'slime) -(add-hook 'lisp-mode-hook - (lambda () (slime-mode t))) -(add-hook 'inferior-lisp-mode-hook - (lambda () (inferior-slime-mode t))) - -;; 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/1.2.1.20051211/README.Gentoo b/app-emacs/slime/files/1.2.1.20051211/README.Gentoo deleted file mode 100644 index 99353ee7aa29..000000000000 --- a/app-emacs/slime/files/1.2.1.20051211/README.Gentoo +++ /dev/null @@ -1,12 +0,0 @@ -SLIME notes for Gentoo ----------------------- - -If you're interested in hacking this ebuild, Gentoo uses its own -swank.asd system definition file and swank-loader.lisp. - -As always with CVS ebuilds, DO NOT report problems to upstream. -Always report problems to the Gentoo Bugzilla at -http://bugs.gentoo.org/. - -Matthew Kennedy <mkennedy@gentoo.org> - diff --git a/app-emacs/slime/files/1.2.1.20051211/swank-loader.lisp b/app-emacs/slime/files/1.2.1.20051211/swank-loader.lisp deleted file mode 100644 index 4d9b157312e6..000000000000 --- a/app-emacs/slime/files/1.2.1.20051211/swank-loader.lisp +++ /dev/null @@ -1,4 +0,0 @@ - -;; This file is NOT part of SLIME - -(asdf:oos 'asdf:load-op :swank) diff --git a/app-emacs/slime/files/1.2.1.20051211/swank.asd b/app-emacs/slime/files/1.2.1.20051211/swank.asd deleted file mode 100644 index ddcd9f0c97ed..000000000000 --- a/app-emacs/slime/files/1.2.1.20051211/swank.asd +++ /dev/null @@ -1,81 +0,0 @@ -;;; -*- 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") - -(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/files/1.2.1.20060205/70slime-gentoo.el b/app-emacs/slime/files/1.2.1.20060205/70slime-gentoo.el deleted file mode 100644 index 2687bb5c4f14..000000000000 --- a/app-emacs/slime/files/1.2.1.20060205/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/1.2.1.20060205/README.Gentoo b/app-emacs/slime/files/1.2.1.20060205/README.Gentoo deleted file mode 100644 index 99353ee7aa29..000000000000 --- a/app-emacs/slime/files/1.2.1.20060205/README.Gentoo +++ /dev/null @@ -1,12 +0,0 @@ -SLIME notes for Gentoo ----------------------- - -If you're interested in hacking this ebuild, Gentoo uses its own -swank.asd system definition file and swank-loader.lisp. - -As always with CVS ebuilds, DO NOT report problems to upstream. -Always report problems to the Gentoo Bugzilla at -http://bugs.gentoo.org/. - -Matthew Kennedy <mkennedy@gentoo.org> - diff --git a/app-emacs/slime/files/1.2.1.20060205/swank-loader.lisp b/app-emacs/slime/files/1.2.1.20060205/swank-loader.lisp deleted file mode 100644 index 4d9b157312e6..000000000000 --- a/app-emacs/slime/files/1.2.1.20060205/swank-loader.lisp +++ /dev/null @@ -1,4 +0,0 @@ - -;; This file is NOT part of SLIME - -(asdf:oos 'asdf:load-op :swank) diff --git a/app-emacs/slime/files/1.2.1.20060205/swank.asd b/app-emacs/slime/files/1.2.1.20060205/swank.asd deleted file mode 100644 index ddcd9f0c97ed..000000000000 --- a/app-emacs/slime/files/1.2.1.20060205/swank.asd +++ /dev/null @@ -1,81 +0,0 @@ -;;; -*- 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") - -(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/files/2.0.0.20060617/70slime-gentoo.el b/app-emacs/slime/files/2.0.0.20060617/70slime-gentoo.el deleted file mode 100644 index 2687bb5c4f14..000000000000 --- a/app-emacs/slime/files/2.0.0.20060617/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/2.0.0.20060617/README.Gentoo b/app-emacs/slime/files/2.0.0.20060617/README.Gentoo deleted file mode 100644 index 99353ee7aa29..000000000000 --- a/app-emacs/slime/files/2.0.0.20060617/README.Gentoo +++ /dev/null @@ -1,12 +0,0 @@ -SLIME notes for Gentoo ----------------------- - -If you're interested in hacking this ebuild, Gentoo uses its own -swank.asd system definition file and swank-loader.lisp. - -As always with CVS ebuilds, DO NOT report problems to upstream. -Always report problems to the Gentoo Bugzilla at -http://bugs.gentoo.org/. - -Matthew Kennedy <mkennedy@gentoo.org> - diff --git a/app-emacs/slime/files/2.0.0.20060617/swank-loader.lisp b/app-emacs/slime/files/2.0.0.20060617/swank-loader.lisp deleted file mode 100644 index 4d9b157312e6..000000000000 --- a/app-emacs/slime/files/2.0.0.20060617/swank-loader.lisp +++ /dev/null @@ -1,4 +0,0 @@ - -;; This file is NOT part of SLIME - -(asdf:oos 'asdf:load-op :swank) diff --git a/app-emacs/slime/files/2.0.0.20060617/swank.asd b/app-emacs/slime/files/2.0.0.20060617/swank.asd deleted file mode 100644 index 48b9335c5679..000000000000 --- a/app-emacs/slime/files/2.0.0.20060617/swank.asd +++ /dev/null @@ -1,92 +0,0 @@ -;;; -*- mode: lisp; syntax: common-lisp; package: common-lisp -*- - -(defpackage #:swank-system - (:use #:common-lisp - #:asdf)) - -(defpackage #:swank-loader - (:use #:common-lisp) - (:export #:*source-directory* - #:load-swank)) - -(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") - -(in-package #:swank-loader) - -(defvar *source-directory* - (make-pathname :name nil :type nil - :defaults (or *load-pathname* *default-pathname-defaults*)) - "The directory where to look for the source.") - - -(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 (directory) - (load (make-pathname :name "site-init" :type "lisp" - :defaults directory) - :if-does-not-exist nil)) - -(defun load-swank (&key (source-directory *source-directory*)) - (asdf:oos 'asdf:load-op :swank) - (funcall (intern (string :warn-unimplemented-interfaces) :swank-backend)) - (load-site-init-file source-directory) - (load-user-init-file)) - -(load-swank) - -;; swank.asd ends here diff --git a/app-emacs/slime/files/2.0.0.20060805/70slime-gentoo.el b/app-emacs/slime/files/2.0.0.20060805/70slime-gentoo.el deleted file mode 100644 index 2687bb5c4f14..000000000000 --- a/app-emacs/slime/files/2.0.0.20060805/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/2.0.0.20060805/README.Gentoo b/app-emacs/slime/files/2.0.0.20060805/README.Gentoo deleted file mode 100644 index 99353ee7aa29..000000000000 --- a/app-emacs/slime/files/2.0.0.20060805/README.Gentoo +++ /dev/null @@ -1,12 +0,0 @@ -SLIME notes for Gentoo ----------------------- - -If you're interested in hacking this ebuild, Gentoo uses its own -swank.asd system definition file and swank-loader.lisp. - -As always with CVS ebuilds, DO NOT report problems to upstream. -Always report problems to the Gentoo Bugzilla at -http://bugs.gentoo.org/. - -Matthew Kennedy <mkennedy@gentoo.org> - diff --git a/app-emacs/slime/files/2.0.0.20060805/swank-loader.lisp b/app-emacs/slime/files/2.0.0.20060805/swank-loader.lisp deleted file mode 100644 index 4d9b157312e6..000000000000 --- a/app-emacs/slime/files/2.0.0.20060805/swank-loader.lisp +++ /dev/null @@ -1,4 +0,0 @@ - -;; This file is NOT part of SLIME - -(asdf:oos 'asdf:load-op :swank) diff --git a/app-emacs/slime/files/2.0.0.20060805/swank.asd b/app-emacs/slime/files/2.0.0.20060805/swank.asd deleted file mode 100644 index 48b9335c5679..000000000000 --- a/app-emacs/slime/files/2.0.0.20060805/swank.asd +++ /dev/null @@ -1,92 +0,0 @@ -;;; -*- mode: lisp; syntax: common-lisp; package: common-lisp -*- - -(defpackage #:swank-system - (:use #:common-lisp - #:asdf)) - -(defpackage #:swank-loader - (:use #:common-lisp) - (:export #:*source-directory* - #:load-swank)) - -(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") - -(in-package #:swank-loader) - -(defvar *source-directory* - (make-pathname :name nil :type nil - :defaults (or *load-pathname* *default-pathname-defaults*)) - "The directory where to look for the source.") - - -(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 (directory) - (load (make-pathname :name "site-init" :type "lisp" - :defaults directory) - :if-does-not-exist nil)) - -(defun load-swank (&key (source-directory *source-directory*)) - (asdf:oos 'asdf:load-op :swank) - (funcall (intern (string :warn-unimplemented-interfaces) :swank-backend)) - (load-site-init-file source-directory) - (load-user-init-file)) - -(load-swank) - -;; swank.asd ends here |