Index: /trunk/ccl/hemlock/src/edit-defs.lisp
===================================================================
--- /trunk/ccl/hemlock/src/edit-defs.lisp	(revision 700)
+++ /trunk/ccl/hemlock/src/edit-defs.lisp	(revision 701)
@@ -155,4 +155,6 @@
 
 (defun get-def-info-and-go-to-it (fun-name)
+  (format t "~& fun-name = ~s" fun-name)
+  #+no
   (let ((in-editor-p (value editor-definition-info))
 	(info (value current-eval-server)))