[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-allegro.lisp 
Log Message:
* swank-allegro.lisp (macroexpand-all): USe walk-form, not walk
on >= 8.2.
Patch by Utz-Uwe Haus.


--- /project/slime/cvsroot/slime/ChangeLog	2012/11/23 17:51:15	1.2371
+++ /project/slime/cvsroot/slime/ChangeLog	2012/12/03 03:35:09	1.2372
@@ -1,3 +1,9 @@
+2012-12-03  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-allegro.lisp (macroexpand-all): USe walk-form, not walk
+	on >= 8.2.
+	Patch by Utz-Uwe Haus.
+
 2012-11-23  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-edit-definition): Don't ask the user for a name
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2012/11/11 09:30:53	1.156
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2012/12/03 03:35:09	1.157
@@ -108,6 +108,9 @@
     (simple-error () :not-available)))
 
 (defimplementation macroexpand-all (form)
+  #+(version>= 8 0)
+  (excl::walk-form form)
+  #-(version>= 8 0)
   (excl::walk form))
 
 (defimplementation describe-symbol-for-emacs (symbol)