[slime-cvs] CVS slime/contrib

[heller]

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv2106

Modified Files:
	swank-mit-scheme.scm 
Log Message:
Macro expansion commands for MIT Scheme.


--- /project/slime/cvsroot/slime/contrib/swank-mit-scheme.scm	2008/03/02 22:41:45	1.1
+++ /project/slime/cvsroot/slime/contrib/swank-mit-scheme.scm	2008/03/04 15:47:06	1.2
@@ -15,7 +15,7 @@
    to access the locat port number of a server socket.  We shell out
    to netcat to get us started.
 
-3. The Emacs side needs a bit configuration.  I have the following in
+3. The Emacs side needs some fiddling.  I have the following in
    my .emacs:
 
 (setq slime-lisp-implementations
@@ -363,6 +363,17 @@
 	       (user-env *buffer-package*))))))
 
 
+;;;; Macroexpansion
+
+(define (swank:swank-macroexpand-all _ string) 
+  (with-output-to-string
+      (lambda ()
+	(pp (syntax (read-from-string string)
+		    (user-env *buffer-package*))))))
+(define swank:swank-macroexpand-1 swank:swank-macroexpand-all)
+(define swank:swank-macroexpand swank:swank-macroexpand-all)
+
+
 ;;; Arglist
 
 (define (swank:operator-arglist socket name pack)