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."