(defun show-arglist ()
  "Shows the argument list of the nearest enclosing operator that
has a function definition in the echo arrea.  Shows the doc
string as well unless *SHOW-DOC-STRING-WHEN-SHOWING-ARGLIST* is
NIL."
  (handler-case
      (show-info
       (swank::decoded-arglist-to-string
        (nth-value  1
                    (swank::find-subform-with-arglist `(,@(form-at-point) ,swank::+cursor-marker+)))))
    (type-error (c))))