Failed on 4 (0 expected) of 19 tests.

* autodoc.1
** input: ((swank::emacs-connected*HERE* (emacs-connected))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `(swank::emacs-connected' (at 24) is as expected:
expected: ["(emacs-connected)"]
  actual: ["(emacs-connected)"]
OK: Autodoc in `(swank::emacs-connected)' (at 24) is as expected:
expected: ["(emacs-connected)"]
  actual: ["(emacs-connected)"]
** input: ((swank::emacs-connected *HERE* (emacs-connected))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `(swank::emacs-connected ' (at 25) is as expected:
expected: ["(emacs-connected)"]
  actual: ["(emacs-connected)"]
OK: Autodoc in `(swank::emacs-connected )' (at 25) is as expected:
expected: ["(emacs-connected)"]
  actual: ["(emacs-connected)"]
** input: ((swank::create-socket*HERE* (create-socket host port))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `(swank::create-socket' (at 22) is as expected:
expected: ["(create-socket host port)"]
  actual: ["(create-socket host port)"]
OK: Autodoc in `(swank::create-socket)' (at 22) is as expected:
expected: ["(create-socket host port)"]
  actual: ["(create-socket host port)"]
** input: ((swank::create-socket *HERE* (create-socket ===> host <=== port))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `(swank::create-socket ' (at 23) is as expected:
expected: ["(create-socket ===> host <=== port)"]
  actual: ["(create-socket ===> host <=== port)"]
OK: Autodoc in `(swank::create-socket )' (at 23) is as expected:
expected: ["(create-socket ===> host <=== port)"]
  actual: ["(create-socket ===> host <=== port)"]
** input: ((swank::create-socket foo *HERE* (create-socket host ===> port <===))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `(swank::create-socket foo ' (at 27) is as expected:
expected: ["(create-socket host ===> port <===)"]
  actual: ["(create-socket host ===> port <===)"]
OK: Autodoc in `(swank::create-socket foo )' (at 27) is as expected:
expected: ["(create-socket host ===> port <===)"]
  actual: ["(create-socket host ===> port <===)"]
** input: ((swank::create-socket foo bar *HERE* (create-socket host port))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `(swank::create-socket foo bar ' (at 31) is as expected:
expected: ["(create-socket host port)"]
  actual: ["(create-socket host port)"]
OK: Autodoc in `(swank::create-socket foo bar )' (at 31) is as expected:
expected: ["(create-socket host port)"]
  actual: ["(create-socket host port)"]
** input: (#'(lambda () (swank::create-socket*HERE* (create-socket host port))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `#'(lambda () (swank::create-socket' (at 35) is as expected:
expected: ["(create-socket host port)"]
  actual: ["(create-socket host port)"]
OK: Autodoc in `#'(lambda () (swank::create-socket)' (at 35) is as expected:
expected: ["(create-socket host port)"]
  actual: ["(create-socket host port)"]
** input: (`(lambda () ,(swank::create-socket*HERE* (create-socket host port))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in ``(lambda () ,(swank::create-socket' (at 35) is as expected:
expected: ["(create-socket host port)"]
  actual: ["(create-socket host port)"]
OK: Autodoc in ``(lambda () ,(swank::create-socket)' (at 35) is as expected:
expected: ["(create-socket host port)"]
  actual: ["(create-socket host port)"]
** input: ((remove-if #'(lambda () (swank::create-socket*HERE* (create-socket host port))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `(remove-if #'(lambda () (swank::create-socket' (at 46) is as expected:
expected: ["(create-socket host port)"]
  actual: ["(create-socket host port)"]
OK: Autodoc in `(remove-if #'(lambda () (swank::create-socket)' (at 46) is as expected:
expected: ["(create-socket host port)"]
  actual: ["(create-socket host port)"]
** input: (`(remove-if #'(lambda () ,@(swank::create-socket*HERE* (create-socket host port))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in ``(remove-if #'(lambda () ,@(swank::create-socket' (at 49) is as expected:
expected: ["(create-socket host port)"]
  actual: ["(create-socket host port)"]
OK: Autodoc in ``(remove-if #'(lambda () ,@(swank::create-socket)' (at 49) is as expected:
expected: ["(create-socket host port)"]
  actual: ["(create-socket host port)"]
** input: ((swank::symbol-status foo *HERE* (symbol-status symbol &optional ===> (package (symbol-package symbol)) <===))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `(swank::symbol-status foo ' (at 27) is as expected:
expected: ["(symbol-status symbol &optional ===> (package (symbol-package symbol)) <===)"]
  actual: ["(symbol-status symbol &optional ===> (package (symbol-package symbol)) <===)"]
OK: Autodoc in `(swank::symbol-status foo )' (at 27) is as expected:
expected: ["(symbol-status symbol &optional ===> (package (symbol-package symbol)) <===)"]
  actual: ["(symbol-status symbol &optional ===> (package (symbol-package symbol)) <===)"]
** input: ((defmethod swank::arglist-dispatch (*HERE* (defmethod arglist-dispatch (===> operator <=== arguments) &body body))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `(defmethod swank::arglist-dispatch (' (at 37) is as expected:
expected: ["(defmethod arglist-dispatch (===> operator <=== arguments) &body body)"]
  actual: ["(defmethod arglist-dispatch (===> operator <=== arguments) &body body)"]
OK: Autodoc in `(defmethod swank::arglist-dispatch ()' (at 37) is as expected:
expected: ["(defmethod arglist-dispatch (===> operator <=== arguments) &body body)"]
  actual: ["(defmethod arglist-dispatch (===> operator <=== arguments) &body body)"]
** input: ((apply 'swank::eval-for-emacs*HERE* (apply 'eval-for-emacs &optional form buffer-package id &rest args))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `(apply 'swank::eval-for-emacs' (at 30) is as expected:
expected: ["(apply 'eval-for-emacs &optional form buffer-package id &rest args)"]
  actual: ["(apply 'eval-for-emacs &optional form buffer-package id &rest args)"]
OK: Autodoc in `(apply 'swank::eval-for-emacs)' (at 30) is as expected:
expected: ["(apply 'eval-for-emacs &optional form buffer-package id &rest args)"]
  actual: ["(apply 'eval-for-emacs &optional form buffer-package id &rest args)"]
** input: ((apply #'swank::eval-for-emacs*HERE* (apply #'eval-for-emacs &optional form buffer-package id &rest args))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `(apply #'swank::eval-for-emacs' (at 31) is as expected:
expected: ["(apply #'eval-for-emacs &optional form buffer-package id &rest args)"]
  actual: ["(apply #'eval-for-emacs &optional form buffer-package id &rest args)"]
OK: Autodoc in `(apply #'swank::eval-for-emacs)' (at 31) is as expected:
expected: ["(apply #'eval-for-emacs &optional form buffer-package id &rest args)"]
  actual: ["(apply #'eval-for-emacs &optional form buffer-package id &rest args)"]
** input: ((apply 'swank::eval-for-emacs foo *HERE* (apply 'eval-for-emacs &optional form ===> buffer-package <=== id &rest args))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `(apply 'swank::eval-for-emacs foo ' (at 35) is as expected:
expected: ["(apply 'eval-for-emacs &optional form ===> buffer-package <=== id &rest args)"]
  actual: ["(apply 'eval-for-emacs &optional form ===> buffer-package <=== id &rest args)"]
OK: Autodoc in `(apply 'swank::eval-for-emacs foo )' (at 35) is as expected:
expected: ["(apply 'eval-for-emacs &optional form ===> buffer-package <=== id &rest args)"]
  actual: ["(apply 'eval-for-emacs &optional form ===> buffer-package <=== id &rest args)"]
** input: ((apply #'swank::eval-for-emacs foo *HERE* (apply #'eval-for-emacs &optional form ===> buffer-package <=== id &rest args))
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `(apply #'swank::eval-for-emacs foo ' (at 36) is as expected:
expected: ["(apply #'eval-for-emacs &optional form ===> buffer-package <=== id &rest args)"]
  actual: ["(apply #'eval-for-emacs &optional form ===> buffer-package <=== id &rest args)"]
OK: Autodoc in `(apply #'swank::eval-for-emacs foo )' (at 36) is as expected:
expected: ["(apply #'eval-for-emacs &optional form ===> buffer-package <=== id &rest args)"]
  actual: ["(apply #'eval-for-emacs &optional form ===> buffer-package <=== id &rest args)"]
** input: ((swank::with-retry-restart (:msg *HERE* (with-retry-restart (&key ===> (msg "Retry.") <===) &body body))
OK: At the top level (no debugging or pending RPCs)
FAILED: Autodoc in `(swank::with-retry-restart (:msg ' (at 34) is as expected:
expected: ["(with-retry-restart (&key ===> (msg \"Retry.\") <===) &body body)"]
  actual: ["(with-retry-restart (&key ===> (msg |Retry.|) <===) &body body)"]
FAILED: Autodoc in `(swank::with-retry-restart (:msg )' (at 34) is as expected:
expected: ["(with-retry-restart (&key ===> (msg \"Retry.\") <===) &body body)"]
  actual: ["(with-retry-restart (&key ===> (msg |Retry.|) <===) &body body)"]
** input: ((swank::start-server "/tmp/foo" :coding-system *HERE* (start-server port-file &key (style swank:*communication-style*) (dont-close swank:*dont-close*) ===> (coding-system swank::*coding-system*) <===))
OK: At the top level (no debugging or pending RPCs)
FAILED: Autodoc in `(swank::start-server "/tmp/foo" :coding-system ' (at 48) is as expected:
expected: ["(start-server port-file &key (style swank:*communication-style*) (dont-close swank:*dont-close*) ===> (coding-system swank::*coding-system*) <===)"]
  actual: ["(start-server port-file &key (style swank:*communication-style*) (dont-close swank:*dont-close*)
 ===> (coding-system swank::*coding-system*) <===)"]
FAILED: Autodoc in `(swank::start-server "/tmp/foo" :coding-system )' (at 48) is as expected:
expected: ["(start-server port-file &key (style swank:*communication-style*) (dont-close swank:*dont-close*) ===> (coding-system swank::*coding-system*) <===)"]
  actual: ["(start-server port-file &key (style swank:*communication-style*) (dont-close swank:*dont-close*)
 ===> (coding-system swank::*coding-system*) <===)"]
** input: ((swank::with-struct *HERE*(foo. x y) *struct* body1) (with-struct (conc-name &rest names) obj &body body) t)
OK: At the top level (no debugging or pending RPCs)
OK: Autodoc in `(swank::with-struct (foo. x y) *struct* body1)' (at 21) is as expected:
expected: ["(with-struct (conc-name &rest names) obj &body body)"]
  actual: ["(with-struct (conc-name &rest names) obj &body body)"]