gienah 14/12/19 07:02:16
Added: dont-load-sbcl-pprint.patch
gentoo-changelog-date.patch
Log:
Bump slime to 2.11, as requested in Bug 530148
(Portage version: 2.2.15/cvs/Linux x86_64, signed Manifest commit with key
618E971F)
Revision Changes Path
1.1 app-emacs/slime/files/2.11/dont-load-sbcl-pprint.patch
file :
http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-emacs/slime/files/2.11/dont-load-sbcl-pprint.patch?rev=1.1&view=markup
plain:
http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-emacs/slime/files/2.11/dont-load-sbcl-pprint.patch?rev=1.1&content-type=text/plain
Index: dont-load-sbcl-pprint.patch
===================================================================
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)
1.1 app-emacs/slime/files/2.11/gentoo-changelog-date.patch
file :
http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-emacs/slime/files/2.11/gentoo-changelog-date.patch?rev=1.1&view=markup
plain:
http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-emacs/slime/files/2.11/gentoo-changelog-date.patch?rev=1.1&content-type=text/plain
Index: gentoo-changelog-date.patch
===================================================================
--- 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
