[slime-devel] tiny inspector fix for acl62

[Thomas Schilling]

I don't like error messages ...

,------
Index: swank-allegro.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-allegro.lisp,v
retrieving revision 1.60
diff -u -r1.60 swank-allegro.lisp
--- swank-allegro.lisp	1 Oct 2004 12:16:44 -0000	1.60
+++ swank-allegro.lisp	24 Oct 2004 18:55:03 -0000
@@ -419,7 +419,7 @@
            `("Name: " (:value ,(function-name f)) (:newline)
              "Its argument list is: " ,(princ-to-string (arglist f))  
(:newline)
              "Documentation:" (:newline)
-            ,(documentation f 'function))))
+            ,(documentation (excl::external-fn_symdef f) 'function))))

  (defmethod inspect-for-emacs ((class structure-class) (inspector  
acl-inspector))
    (values "A structure class."