[slime-cvs] CVS slime/contrib

[CVS User heller]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv17656/contrib

Modified Files:
	ChangeLog swank-kawa.scm 
Log Message:
* swank-kawa.scm (disassemble-form): Update for change from 2010-05-18.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/05/28 07:10:56	1.385
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/05/28 10:49:35	1.386
@@ -2,6 +2,7 @@
 
 	* swank-kawa.scm (wrap-compilation): Set Compilation.explict flag.
 	(list-file): Add cast to resolve overloaded parse method.
+	(disassemble-form): Update for change from 2010-05-18.
 
 2010-05-19  Stas Boukarev  <stassats at gmail.com>
 
--- /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2010/05/28 07:10:56	1.21
+++ /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2010/05/28 10:49:35	1.22
@@ -969,11 +969,13 @@
 
 ;;;; Disassemble 
 
-(defslimefun disassemble-symbol (env name)
-  (let ((f (eval (read-from-string name) env)))
-    (typecase f
-      (<gnu.expr.ModuleMethod> 
-       (disassemble (module-method>meth-ref f))))))
+(defslimefun disassemble-form (env form)
+  (mcase (read-from-string form)
+    (('quote name)
+     (let ((f (eval name env)))
+       (typecase f
+         (<gnu.expr.ModuleMethod> 
+          (disassemble (module-method>meth-ref f))))))))
 
 (df disassemble ((mr <meth-ref>) => <str>)
   (with-sink #f (fun (out) (disassemble-meth-ref mr out))))