diff options
Diffstat (limited to 'app-emacs/slime/files')
9 files changed, 0 insertions, 364 deletions
diff --git a/app-emacs/slime/files/2.0_p20110617/70slime-gentoo.el b/app-emacs/slime/files/2.0_p20110617/70slime-gentoo.el deleted file mode 100644 index 358af67d918d..000000000000 --- a/app-emacs/slime/files/2.0_p20110617/70slime-gentoo.el +++ /dev/null @@ -1,15 +0,0 @@ -;;; site-lisp configuration for SLIME - -(add-to-list 'load-path "@SITELISP@") -(add-to-list 'load-path "@SITELISP@/contrib") -(autoload 'slime-highlight-edits-mode "slime-highlight-edits") - -(require 'slime-autoloads) -(slime-setup '(slime-fancy slime-asdf slime-banner)) - -;; 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/2.0_p20110617/gentoo-dont-call-init.patch b/app-emacs/slime/files/2.0_p20110617/gentoo-dont-call-init.patch deleted file mode 100644 index 410c3913a2a1..000000000000 --- a/app-emacs/slime/files/2.0_p20110617/gentoo-dont-call-init.patch +++ /dev/null @@ -1,16 +0,0 @@ -Author: Stelian Ionescu <sionescu@cddr.org> -Date: 2010-05-14 -Status: Gentoo-only -Description: Dont' call SWANK-LOADER:INIT on startup since we don't use - the upstream swank-loader.lisp - ---- a/slime.el -+++ b/slime.el -@@ -1323,7 +1323,6 @@ See `slime-start'." - `(progn - (load ,(slime-to-lisp-filename (expand-file-name loader)) - :verbose t) -- (funcall (read-from-string "swank-loader:init")) - (funcall (read-from-string "swank:start-server") - ,(slime-to-lisp-filename port-filename) - :coding-system ,encoding))))) diff --git a/app-emacs/slime/files/2.0_p20110617/swank.asd b/app-emacs/slime/files/2.0_p20110617/swank.asd deleted file mode 100644 index b33ca6e67cb0..000000000000 --- a/app-emacs/slime/files/2.0_p20110617/swank.asd +++ /dev/null @@ -1,98 +0,0 @@ -;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*- - -(defpackage #:swank-system - (:use #:common-lisp #:asdf)) - -(in-package #:swank-system) - -(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 (truename - (asdf:system-definition-pathname - (asdf:find-system :swank)))) - :if-does-not-exist nil)) - -(defclass no-load-file (cl-source-file) ()) - -(defmethod perform ((op load-op) (c no-load-file)) nil) - -(defmacro define-swank-system (sysdep-files) - `(defsystem :swank - :description "Swank is the Common Lisp back-end to SLIME" - :serial t - :components ((:file "swank-backend") - (:file "nregex") - ,@(mapcar #'(lambda (component) - (if (atom component) - (list :file component) - component)) - sysdep-files) - (:file "swank-match") - (:file "swank-rpc") - (:file "swank") - (:module "contrib" - :components ((:no-load-file "swank-c-p-c") - (:no-load-file "swank-arglists" - :depends-on ("swank-c-p-c")) - (:no-load-file "swank-asdf") - (:no-load-file "swank-clipboard") - (:no-load-file "swank-fancy-inspector") - (:no-load-file "swank-fuzzy" - :depends-on ("swank-c-p-c")) - (:no-load-file "swank-hyperdoc") - (:no-load-file "swank-indentation") - (:no-load-file "swank-listener-hooks") - (:no-load-file "swank-media") - (:no-load-file "swank-motd") - (:no-load-file "swank-package-fu") - (:no-load-file "swank-presentations") - (:no-load-file "swank-presentation-streams" - :depends-on ("swank-presentations")) - (:no-load-file "swank-sbcl-exts" - :depends-on ("swank-arglists")) - (:no-load-file "swank-snapshot") - (:no-load-file "swank-sprof")))) - :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 clozurecl 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) - #+(or openmcl clozurecl) (metering - #.(if (and (find-package "CCL") - (fboundp (intern "COMPUTE-APPLICABLE-METHODS-USING-CLASSES" "CCL"))) - 'swank-ccl - '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 clozurecl lispworks allegro clisp armedbear cormanlisp ecl) -(error "Your CL implementation is not supported !") - -(defpackage #:swank-loader - (:use #:common-lisp) - (:export #:*source-directory*)) - -(in-package #:swank-loader) - -(defparameter *source-directory* - (asdf:component-pathname (asdf:find-system :swank))) - -;; (funcall (intern (string :warn-unimplemented-interfaces) :swank-backend)) - -;; swank.asd ends here diff --git a/app-emacs/slime/files/2.0_p20130214/gentoo-module-load.patch b/app-emacs/slime/files/2.0_p20130214/gentoo-module-load.patch deleted file mode 100644 index c25a248d04ab..000000000000 --- a/app-emacs/slime/files/2.0_p20130214/gentoo-module-load.patch +++ /dev/null @@ -1,84 +0,0 @@ ---- slime-9999-orig/contrib/swank-arglists.lisp 2012-08-14 06:50:34.000000000 +1000 -+++ slime-9999/contrib/swank-arglists.lisp 2013-02-14 21:33:26.879124163 +1100 -@@ -9,8 +9,7 @@ - - (in-package :swank) - --(eval-when (:compile-toplevel :load-toplevel :execute) -- (swank-require :swank-c-p-c)) -+(swank-require :swank-c-p-c) - - ;;;; Utilities - ---- slime-9999-orig/contrib/swank-fuzzy.lisp 2013-02-02 20:48:51.000000000 +1100 -+++ slime-9999/contrib/swank-fuzzy.lisp 2013-02-14 21:35:32.059873714 +1100 -@@ -10,9 +10,8 @@ - - (in-package :swank) - --(eval-when (:compile-toplevel :load-toplevel :execute) -- (swank-require :swank-util) -- (swank-require :swank-c-p-c)) -+(swank-require :swank-util) -+(swank-require :swank-c-p-c) - - ;;; For nomenclature of the fuzzy completion section, please read - ;;; through the following docstring. ---- slime-9999-orig/contrib/swank-sbcl-exts.lisp 2009-09-25 16:43:33.000000000 +1000 -+++ slime-9999/contrib/swank-sbcl-exts.lisp 2013-02-14 21:33:26.880124185 +1100 -@@ -7,8 +7,7 @@ - - (in-package :swank) - --(eval-when (:compile-toplevel :load-toplevel :execute) -- (swank-require :swank-arglists)) -+(swank-require :swank-arglists) - - ;; We need to do this so users can place `slime-sbcl-exts' into their - ;; ~/.emacs, and still use any implementation they want. ---- slime-9999-orig/swank.lisp 2013-01-11 20:00:30.000000000 +1100 -+++ slime-9999/swank.lisp 2013-02-14 22:15:39.624982175 +1100 -@@ -2535,14 +2535,17 @@ - "Load the module MODULE." - (dolist (module (ensure-list modules)) - (unless (member (string module) *modules* :test #'string=) -- (require module (if filename -- (filename-to-pathname filename) -- (module-filename module))) -+ (let ((*load-print* nil) -+ (*load-verbose* nil) -+ #+cmu (ext:*gc-verbose* nil)) -+ (require module (if filename -+ (filename-to-pathname filename) -+ (module-filename module)))) - (assert (member (string module) *modules* :test #'string=) - () "Required module ~s was not provided" module))) - *modules*) - --(defvar *find-module* 'find-module -+(defvar *find-module* 'find-module-gentoo - "Pluggable function to locate modules. - The function receives a module name as argument and should return - the filename of the module (or nil if the file doesn't exist).") -@@ -2572,6 +2575,21 @@ - (some (lambda (dir) (some #'probe-file (module-canditates name dir))) - *load-path*))) - -+(defun swank-fasl-pathname () -+ (make-pathname :name nil :type nil -+ :defaults (car (asdf:output-files -+ (make-instance 'asdf:compile-op) -+ (car (asdf:module-components -+ (asdf:find-system :swank))))))) -+ -+(defun append-dir (pathname dir) -+ (make-pathname :directory (append (pathname-directory pathname) dir))) -+ -+(defun find-module-gentoo (module) -+ (or (let ((*load-path* (list (append-dir (swank-fasl-pathname) '("contrib")) -+ (append-dir swank-loader:*source-directory* '("contrib"))))) -+ (find-module module)) -+ (find-module module))) - - ;;;; Macroexpansion - diff --git a/app-emacs/slime/files/2.11/dont-load-sbcl-pprint.patch b/app-emacs/slime/files/2.11/dont-load-sbcl-pprint.patch deleted file mode 100644 index c7dafb6cb91a..000000000000 --- a/app-emacs/slime/files/2.11/dont-load-sbcl-pprint.patch +++ /dev/null @@ -1,13 +0,0 @@ -diff --git a/contrib/swank-presentation-streams.lisp b/contrib/swank-presentation-streams.lisp -index 0c24bda..bd5a990 100644 ---- a/contrib/swank-presentation-streams.lisp -+++ b/contrib/swank-presentation-streams.lisp -@@ -65,7 +65,7 @@ be sensitive and remember what object it is in the repl if predicate is true" - (funcall ,continue))))) - - ;;; Get pretty printer patches for SBCL at load (not compile) time. --#+sbcl -+#+#:disable-dangerous-patching ; #+sbcl - (eval-when (:load-toplevel) - (handler-bind ((simple-error - (lambda (c) diff --git a/app-emacs/slime/files/2.11/gentoo-changelog-date.patch b/app-emacs/slime/files/2.11/gentoo-changelog-date.patch deleted file mode 100644 index 4d7669a34d29..000000000000 --- a/app-emacs/slime/files/2.11/gentoo-changelog-date.patch +++ /dev/null @@ -1,20 +0,0 @@ ---- slime-2.11-orig/slime.el 2014-12-01 21:05:54.000000000 +1100 -+++ slime-2.11/slime.el 2014-12-19 11:57:45.455393436 +1100 -@@ -134,16 +134,7 @@ - "Return the datestring of the latest entry in the ChangeLog file. - Return nil if the ChangeLog file cannot be found." - (interactive "p") -- (let ((changelog (expand-file-name "ChangeLog" slime-path)) -- (date nil)) -- (when (file-exists-p changelog) -- (with-temp-buffer -- (insert-file-contents-literally changelog nil 0 100) -- (goto-char (point-min)) -- (setq date (symbol-name (read (current-buffer)))))) -- (when interactivep -- (message "Slime ChangeLog dates %s." date)) -- date))) -+ "@SLIME-CHANGELOG-DATE@")) - - (defvar slime-protocol-version nil) - (setq slime-protocol-version diff --git a/app-emacs/slime/files/2.15/gentoo-changelog-date.patch b/app-emacs/slime/files/2.15/gentoo-changelog-date.patch deleted file mode 100644 index c7e815f00fe6..000000000000 --- a/app-emacs/slime/files/2.15/gentoo-changelog-date.patch +++ /dev/null @@ -1,20 +0,0 @@ ---- slime-2.15-orig/slime.el 2015-08-31 07:46:47.000000000 +1000 -+++ slime-2.15/slime.el 2015-09-17 17:05:53.616659817 +1000 -@@ -138,16 +138,7 @@ - "Return the datestring of the latest entry in the ChangeLog file. - Return nil if the ChangeLog file cannot be found." - (interactive "p") -- (let ((changelog (slime--changelog-file-name)) -- (date nil)) -- (when (file-exists-p changelog) -- (with-temp-buffer -- (insert-file-contents-literally changelog nil 0 100) -- (goto-char (point-min)) -- (setq date (symbol-name (read (current-buffer)))))) -- (when interactivep -- (message "Slime ChangeLog dates %s." date)) -- date))) -+ "@SLIME-CHANGELOG-DATE@")) - - (defvar slime-protocol-version nil) - (setq slime-protocol-version diff --git a/app-emacs/slime/files/slime-2.20-fix-doc-build.patch b/app-emacs/slime/files/slime-2.20-fix-doc-build.patch deleted file mode 100644 index c95608c7705a..000000000000 --- a/app-emacs/slime/files/slime-2.20-fix-doc-build.patch +++ /dev/null @@ -1,94 +0,0 @@ -diff -Nuar a/doc/slime.texi b/doc/slime.texi ---- a/doc/slime.texi 2017-08-28 13:51:57.000000000 +0200 -+++ b/doc/slime.texi 2018-04-08 17:21:16.004697168 +0200 -@@ -1219,7 +1219,8 @@ - Describe the slot at point. - - @kbditem{e, slime-inspector-eval} --Evaluate an expression in the context of the inspected object. -+Evaluate an expression in the context of the inspected object. The -+variable @code{*} will be bound to the inspected object. - - @kbditem{v, slime-inspector-toggle-verbose} - Toggle between verbose and terse mode. Default is determined by -@@ -1250,8 +1251,7 @@ - Store the value under point in the variable `*'. This can - then be used to access the object in the REPL. - --@kbditempair{TAB, S-TAB, slime-inspector-next-inspectable-object, --slime-inspector-previous-inspectable-object} -+@kbditempair{TAB, S-TAB, slime-inspector-next-inspectable-object, slime-inspector-previous-inspectable-object} - - Jump to the next and previous inspectable object respectively. - -@@ -2016,7 +2016,7 @@ - On the emacs side you will use something like - @example - (setq slime-net-coding-system 'utf-8-unix) --(slime-connect "127.0.0.1" 4005)) -+(slime-connect "localhost" 4005)) - @end example - to connect to this lisp image from the same machine. - -@@ -2028,7 +2028,7 @@ - remote machine. - - @example --ssh -L4005:127.0.0.1:4005 username@@remote.example.com -+ssh -L4005:localhost:4005 username@@remote.example.com - @end example - - That ssh invocation creates an ssh tunnel between the port 4005 on our -@@ -2044,9 +2044,9 @@ - @end example - - The @kbd{RET RET} sequence just means that we want to use the default --host (@code{127.0.0.1}) and the default port (@code{4005}). Even -+host (@code{localhost}) and the default port (@code{4005}). Even - though we're connecting to a remote machine the ssh tunnel fools Emacs --into thinking it's actually @code{127.0.0.1}. -+into thinking it's actually @code{localhost}. - - @c ----------------------- - @node Setting up pathname translations -@@ -2323,8 +2323,7 @@ - - @table @kbd - --@kbditempair{C-<up>, C-<down>, -- slime-repl-forward-input, slime-repl-backward-input} -+@kbditempair{C-<up>, C-<down>, slime-repl-forward-input, slime-repl-backward-input} - Go to the next/previous history item. - - @kbditempair{M-n, M-p, slime-repl-next-input, slime-repl-previous-input} -@@ -2333,16 +2332,14 @@ - a row, the second invocation uses the same search pattern (even if the - current input has changed). - --@kbditempair{M-s, M-r, --slime-repl-next-matching-input, slime-repl-previous-matching-input} -+@kbditempair{M-s, M-r, slime-repl-next-matching-input, slime-repl-previous-matching-input} - Search forward/reverse through command history with regex - - @c @code{slime-repl-@{next,previous@}-input}@* - @c @code{slime-repl-@{next,previous@}-matching-input}@* - @c @code{comint}-style input history commands. - --@kbditempair{C-c C-n, C-c C-p, --slime-repl-next-prompt, slime-repl-previous-prompt} -+@kbditempair{C-c C-n, C-c C-p, slime-repl-next-prompt, slime-repl-previous-prompt} - Move between the current and previous prompts in the @REPL{} buffer. - Pressing RET on a line with old input copies that line to the newest - prompt. -@@ -2655,6 +2652,11 @@ - If @code{slime-autodoc-use-multiline-p} is set to non-nil, - allow long autodoc messages to resize echo area display. - -+@vindex slime-autodoc-mode-string -+@code{slime-autodoc-mode-string} is a string that will be displayed in -+the mode line when autodoc-mode is enabled, or nil, if you prefer no -+indication. You can customize this variable. -+ - @node ASDF - @section ASDF - diff --git a/app-emacs/slime/files/swank-loader.lisp b/app-emacs/slime/files/swank-loader.lisp deleted file mode 100644 index 4d9b157312e6..000000000000 --- a/app-emacs/slime/files/swank-loader.lisp +++ /dev/null @@ -1,4 +0,0 @@ - -;; This file is NOT part of SLIME - -(asdf:oos 'asdf:load-op :swank) |