[slime-cvs] CVS slime
CVS User heller
heller at common-lisp.net
Sun Jun 28 19:14:55 UTC 2009
Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv5234
Modified Files:
ChangeLog slime.el
Log Message:
* slime.el (slime-compiler-macroexpand-inplace)
(slime-compiler-macroexpand-1-inplace): New commands.
(slime-macroexpansion-minor-mode-map): Bind them.
Patch by Stelian Ionescu.
--- /project/slime/cvsroot/slime/ChangeLog 2009/06/28 19:14:43 1.1796
+++ /project/slime/cvsroot/slime/ChangeLog 2009/06/28 19:14:54 1.1797
@@ -1,3 +1,9 @@
+2009-06-28 Stelian Ionescu <stelian.ionescu-zeus at poste.it>
+
+ * slime.el (slime-compiler-macroexpand-inplace)
+ (slime-compiler-macroexpand-1-inplace): New commands.
+ (slime-macroexpansion-minor-mode-map): Bind them.
+
2009-06-28 Helmut Eller <heller at common-lisp.net>
* swank-sbcl.lisp (add-fd-handler): Avoid recursive invocation
--- /project/slime/cvsroot/slime/slime.el 2009/06/27 15:10:29 1.1191
+++ /project/slime/cvsroot/slime/slime.el 2009/06/28 19:14:54 1.1192
@@ -5032,6 +5032,8 @@
(define-key slime-macroexpansion-minor-mode-map mapping to))))
(remap 'slime-macroexpand-1 'slime-macroexpand-1-inplace)
(remap 'slime-macroexpand-all 'slime-macroexpand-all-inplace)
+ (remap 'slime-compiler-macroexpand-1 'slime-compiler-macroexpand-1-inplace)
+ (remap 'slime-compiler-macroexpand 'slime-compiler-macroexpand-inplace)
(remap 'advertised-undo 'slime-macroexpand-undo)
(remap 'undo 'slime-macroexpand-undo))
@@ -5160,11 +5162,21 @@
(interactive)
(slime-eval-macroexpand 'swank:swank-compiler-macroexpand))
+(defun slime-compiler-macroexpand-inplace ()
+ "Display the compiler-macro expansion of sexp at point."
+ (interactive)
+ (slime-eval-macroexpand-inplace 'swank:swank-compiler-macroexpand))
+
(defun slime-compiler-macroexpand-1 ()
"Display the compiler-macro expansion of sexp at point."
(interactive)
(slime-eval-macroexpand 'swank:swank-compiler-macroexpand-1))
+(defun slime-compiler-macroexpand-1-inplace ()
+ "Display the compiler-macro expansion of sexp at point."
+ (interactive)
+ (slime-eval-macroexpand-inplace 'swank:swank-compiler-macroexpand-1))
+
(defun slime-format-string-expand ()
"Format the format-string at point, and display its expansion."
(interactive)
More information about the slime-cvs
mailing list