[slime-cvs] CVS slime

[heller]

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

Modified Files:
	swank-allegro.lisp 
Log Message:
* swank-allegro.lisp (emacs-inspect): Actually remove the
unused method for functions.  Even the remaining one could be removed.

--- /project/slime/cvsroot/slime/swank-allegro.lisp	2008/09/11 11:12:46	1.111
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2008/09/11 12:27:38	1.112
@@ -572,17 +572,6 @@
 
 ;;;; Inspecting
 
-#+no
-;; use the one below that calls allegro-inspect instead
-;;?? remove
-(defmethod emacs-inspect ((f function))
-          (append
-           (label-value-line "Name" (function-name f))
-           `("Formals" ,(princ-to-string (arglist f)) (:newline))
-           (let ((doc (documentation (excl::external-fn_symdef f) 'function)))
-             (when doc
-               `("Documentation:" (:newline) ,doc)))))
-
 (excl:without-redefinition-warnings
 (defmethod emacs-inspect ((o t))
   (allegro-inspect o)))