[slime-cvs] CVS update: slime/swank-sbcl.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv19726

Modified Files:
	swank-sbcl.lisp 
Log Message:
(swank-macroexpand-all): Implemented.
Date: Fri Nov  7 19:40:28 2003
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.20 slime/swank-sbcl.lisp:1.21
--- slime/swank-sbcl.lisp:1.20	Tue Nov  4 03:03:20 2003
+++ slime/swank-sbcl.lisp	Fri Nov  7 19:40:27 2003
@@ -193,9 +193,6 @@
         (setf fill-pointer 0))))
   nil)
 
-(defun make-slime-output-stream ()
-  (make-instance 'slime-output-stream))
-
 (defclass slime-input-stream (sb-gray:fundamental-character-input-stream)
   ((buffer :initform "") (index :initform 0)))
 
@@ -463,7 +460,12 @@
 
 ;;; macroexpansion
 
-(defslimefun-unimplemented swank-macroexpand-all (string))
+(defun sbcl-macroexpand-all (form)
+  (let ((sb-walker:*walk-form-expand-macros-p* t))
+    (sb-walker:walk-form form)))
+
+(defslimefun swank-macroexpand-all (string)
+  (apply-macro-expander #'sbcl-macroexpand-all string))
 
 
 ;;;