Re: [slime-devel] Autodoc-arglist display (extract-cursor-marker), Lispworks.

-- Johannes Grødem 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)"]