;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302\303\"\210\300\304!\207" [require sly-autodoc sly-tests "lib/sly-tests" cl-lib] 3) #@48 Retrieve and return autodoc for form at point. (defalias 'sly-autodoc-to-string #[0 "\300\301\302\303 D\304\305\306 !F!@\211\307=\203\307\207\211\310\311\312#\207" [sly-eval slynk:autodoc quote sly-autodoc--parse-context :print-right-margin window-width minibuffer-window :not-available replace-regexp-in-string "[ \n ]+" " "] 6 (#$ . 203)]) #@16 (fn ARGLIST) (defalias 'sly-check-autodoc-at-point #[257 "\300\301\302\303 `#\304 #\207" [sly-test-expect format "Autodoc in `%s' (at %d) is as expected" buffer-string sly-autodoc-to-string] 6 (#$ . 554)]) #@20 (fn &rest SPECS) (defalias 'define-autodoc-tests '(macro . #[128 "\300\301\211\211\211\211\302\301\211:\203\246@\262\211A\262 \242\262\211A\262 \242\262\303\304\"\262\303\305\"\262\306\307!\203\227\310\311\312\313\"!\301\312\314 \"\315 \205f\316\317\320\321\322\323\324\325\326\327\317DE\330BBEEDDD\331\332\333\334\335\336D\337\340\341\342\343BBD\344\345\346\341\342\347BBD\257\257\350BBB\"BBBBB\262A\262 T\262\301\262\202\n\237\266\211B\207" [progn nil 1 plist-get :fails-for :skip-trailing-test-p featurep ert define-sly-ert-test intern format "autodoc-tests-%d" "Check autodoc works ok for %s" append :expected-result quote satisfies lambda (result) ert-test-result-type-p result if member (sly-lisp-implementation-name) (:failed :passed) (sly-sync-to-top-level 0.3) (sly-check-top-level) with-temp-buffer (setq sly-buffer-package "COMMON-LISP-USER") (lisp-mode) insert (search-backward "*HERE*") (delete-region (match-beginning 0) (match-end 0)) should equal ((sly-autodoc-to-string)) unless (insert ")") (backward-char) ((sly-autodoc-to-string)) ((sly-sync-to-top-level 0.3))] 34 (#$ . 769)])) (byte-code "\300\301\302\303\301\304\305\306\307\310&\"\210\300\311\302\303\311\312\313\306\307\314&\"\210\300\315\302\303\315\316\317\306\307\320&\"\210\300\321\302\303\321\322\323\306\307\324&\"\210\300\325\302\303\325\326\327\306\307\330&\"\210\300\331\302\303\331\332\333\306\307\334&\"\210\300\335\302\303\335\336\337\306\307\340&\"\210\300\341\302\303\341\342\343\306\307\344&\"\210\300\345\302\303\345\346\347\306\307\350&\"\210\300\351\302\303\351\352\353\306\307\354&\"\210\300\355\302\303\355\356\357\306\307\360&\"\210\300\361\302\303\361\362\363\306\307\364&\"\210\300\365\302\303\365\366\367\306\307\370&\"\210\300\371\302\303\371\372\373\306\307\374&\"\210\300\375\302\303\375\376\377\306\307\201@&\"\210\300\201A\302\303\201A\201B\201C\306\201D\201E&\"\210\300\201F\302\303\201F\201G\201H\306\307\201I&\"\210\300\201J\302\303\201J\201K\201L\306\307\201M&\"\210\300\201N\302\303\201N\201O\201P\306\307\201Q&\"\210\300\201R\302\303\201R\201S\201T\306\201U\201V&\"\210\300\201W\302\303\201W\201X\201Y\306\307\201Z&\"\210\300\201[\302\303\201[\201\\\201]\306\201^\201_&\"\210\300\201`\302\303\201`\201a\201b\306\201c\201d&\"\210\300\201e\302\303\201e\201f\201g\306\201h\201i&\"\210\300\201j\302\303\201j\201k\201l\306\201m\201n&\"\210\300\201o\302\303\201o\201p\201q\306\201r\201s&\"\210\300\201t\302\303\201t\201u\201v\306\201w\201x&\"\210\300\201y\302\303\201y\201z\201{\306\201|\201}&\"\210\300\201~\302\303\201~\201\201\200\306\307\201\201&\"\210\300\201\202\302\303\201\202\201\203\201\204\306\307\201\205&\"\210\300\201\206\302\303\201\206\201\207\201\210\306\307\201\211&\"\210\300\201\212\302\303\201\212\201\213\201\214\306\307\201\215&\"\210\300\201\216\302\303\201\216\201\217\201\220\306\307\201\221&\"\210\300\201\222\302\303\201\222\201\223\201\224\306\201\225\201\226&\"\207" [ert-set-test autodoc-tests-1 record ert-test "Check autodoc works ok for (slynk::emacs-connected*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4=" *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5="COMMON-LISP-USER" lisp-mode "(slynk::emacs-connected*HERE*" search-backward #6="*HERE*" 0 equal (error) ert--should-signal-hook #1="(emacs-connected)" sly-autodoc-to-string signal #2=#:ert-form-evaluation-aborted-7736 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #1# . #8=((sly-autodoc-to-string)))) :form #2# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10=")" -1 (error) #3=#:ert-form-evaluation-aborted-7741 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #1# . #11=((sly-autodoc-to-string)))) :form #3# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] nil :passed (sly contrib autodoc-tests) autodoc-tests-2 "Check autodoc works ok for (slynk::emacs-connected *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(slynk::emacs-connected *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #7="(emacs-connected)" sly-autodoc-to-string signal #9=#:ert-form-evaluation-aborted-7746 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #7# . #8#)) :form #9# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #12=#:ert-form-evaluation-aborted-7751 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #7# . #11#)) :form #12# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-3 "Check autodoc works ok for (slynk::create-socket*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(slynk::create-socket*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #13="(create-socket host port &key backlog)" sly-autodoc-to-string signal #14=#:ert-form-evaluation-aborted-7756 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #13# . #8#)) :form #14# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #15=#:ert-form-evaluation-aborted-7761 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #13# . #11#)) :form #15# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-4 "Check autodoc works ok for (slynk::create-socket *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(slynk::create-socket *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #16="(create-socket ===> host <=== port &key backlog)" sly-autodoc-to-string signal #17=#:ert-form-evaluation-aborted-7766 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #16# . #8#)) :form #17# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #18=#:ert-form-evaluation-aborted-7771 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #16# . #11#)) :form #18# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-5 "Check autodoc works ok for (slynk::create-socket foo *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(slynk::create-socket foo *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #19="(create-socket host ===> port <=== &key backlog)" sly-autodoc-to-string signal #20=#:ert-form-evaluation-aborted-7776 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #19# . #8#)) :form #20# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #21=#:ert-form-evaluation-aborted-7781 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #19# . #11#)) :form #21# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-6 "Check autodoc works ok for (slynk:create-socket*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(slynk:create-socket*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook :not-available sly-autodoc-to-string signal #22=#:ert-form-evaluation-aborted-7786 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal :not-available . #8#)) :form #22# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #23=#:ert-form-evaluation-aborted-7791 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal :not-available . #11#)) :form #23# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-7 "Check autodoc works ok for (slynk::create-socket foo bar *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(slynk::create-socket foo bar *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #24="(create-socket host port &key backlog)" sly-autodoc-to-string signal #25=#:ert-form-evaluation-aborted-7796 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #24# . #8#)) :form #25# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #26=#:ert-form-evaluation-aborted-7801 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #24# . #11#)) :form #26# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-8 "Check autodoc works ok for (slynk::with-struct *HERE*(foo. x y) *struct* body1)" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(slynk::with-struct *HERE*(foo. x y) *struct* body1)" search-backward #6# 0 equal (error) ert--should-signal-hook #27="(with-struct (conc-name &rest names) obj &body body)" sly-autodoc-to-string signal #28=#:ert-form-evaluation-aborted-7806 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #27# . #8#)) :form #28# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail] 11] (sly contrib autodoc-tests) autodoc-tests-9 "Check autodoc works ok for (progn slynk::default-server-port*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(progn slynk::default-server-port*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #29="DEFAULT-SERVER-PORT => 4005" sly-autodoc-to-string signal #30=#:ert-form-evaluation-aborted-7816 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #29# . #8#)) :form #30# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #31=#:ert-form-evaluation-aborted-7821 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #29# . #11#)) :form #31# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-10 "Check autodoc works ok for (slynk::create-socket t*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(slynk::create-socket t*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #32="(create-socket ===> host <=== port &key backlog)" sly-autodoc-to-string signal #33=#:ert-form-evaluation-aborted-7826 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #32# . #8#)) :form #33# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #34=#:ert-form-evaluation-aborted-7831 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #32# . #11#)) :form #34# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-11 "Check autodoc works ok for (slynk::create-socket :foo*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(slynk::create-socket :foo*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #35="(create-socket ===> host <=== port &key backlog)" sly-autodoc-to-string signal #36=#:ert-form-evaluation-aborted-7836 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #35# . #8#)) :form #36# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #37=#:ert-form-evaluation-aborted-7841 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #35# . #11#)) :form #37# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-12 "Check autodoc works ok for #'(lambda () (slynk::create-socket*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "#'(lambda () (slynk::create-socket*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #38="(create-socket host port &key backlog)" sly-autodoc-to-string signal #39=#:ert-form-evaluation-aborted-7846 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #38# . #8#)) :form #39# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #40=#:ert-form-evaluation-aborted-7851 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #38# . #11#)) :form #40# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-13 "Check autodoc works ok for `(lambda () ,(slynk::create-socket*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "`(lambda () ,(slynk::create-socket*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #41="(create-socket host port &key backlog)" sly-autodoc-to-string signal #42=#:ert-form-evaluation-aborted-7856 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #41# . #8#)) :form #42# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #43=#:ert-form-evaluation-aborted-7861 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #41# . #11#)) :form #43# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-14 "Check autodoc works ok for (remove-if #'(lambda () (slynk::create-socket*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(remove-if #'(lambda () (slynk::create-socket*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #44="(create-socket host port &key backlog)" sly-autodoc-to-string signal #45=#:ert-form-evaluation-aborted-7866 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #44# . #8#)) :form #45# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #46=#:ert-form-evaluation-aborted-7871 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #44# . #11#)) :form #46# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-15 "Check autodoc works ok for `(remove-if #'(lambda () ,@(slynk::create-socket*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "`(remove-if #'(lambda () ,@(slynk::create-socket*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #47="(create-socket host port &key backlog)" sly-autodoc-to-string signal #48=#:ert-form-evaluation-aborted-7876 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #47# . #8#)) :form #48# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #49=#:ert-form-evaluation-aborted-7881 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #47# . #11#)) :form #49# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-16 "Check autodoc works ok for (slynk::symbol-status foo *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(slynk::symbol-status foo *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #50="(symbol-status symbol &optional ===> (package (symbol-package symbol)) <===)" sly-autodoc-to-string signal #51=#:ert-form-evaluation-aborted-7886 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #50# . #8#)) :form #51# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #52=#:ert-form-evaluation-aborted-7891 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #50# . #11#)) :form #52# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (satisfies (lambda #65=(result) (ert-test-result-type-p result (if (member #66=(sly-lisp-implementation-name) '("allegro" "ccl")) . #67=(:failed :passed))))) (sly contrib autodoc-tests) autodoc-tests-17 "Check autodoc works ok for (defmethod slynk::arglist-dispatch (*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(defmethod slynk::arglist-dispatch (*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #53="(defmethod arglist-dispatch (===> operator <=== arguments) &body body)" sly-autodoc-to-string signal #54=#:ert-form-evaluation-aborted-7896 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #53# . #8#)) :form #54# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #55=#:ert-form-evaluation-aborted-7901 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #53# . #11#)) :form #55# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-18 "Check autodoc works ok for (defmethod slynk::arglist-dispatch :before (*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(defmethod slynk::arglist-dispatch :before (*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #56="(defmethod arglist-dispatch :before (===> operator <=== arguments) &body body)" sly-autodoc-to-string signal #57=#:ert-form-evaluation-aborted-7906 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #56# . #8#)) :form #57# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #58=#:ert-form-evaluation-aborted-7911 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #56# . #11#)) :form #58# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-19 "Check autodoc works ok for (apply 'slynk::eval-for-emacs*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(apply 'slynk::eval-for-emacs*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #59="(apply 'eval-for-emacs &optional form buffer-package id &rest args)" sly-autodoc-to-string signal #60=#:ert-form-evaluation-aborted-7916 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #59# . #8#)) :form #60# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #61=#:ert-form-evaluation-aborted-7921 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #59# . #11#)) :form #61# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-20 "Check autodoc works ok for (apply #'slynk::eval-for-emacs*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(apply #'slynk::eval-for-emacs*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #62="(apply #'eval-for-emacs &optional form buffer-package id &rest args)" sly-autodoc-to-string signal #63=#:ert-form-evaluation-aborted-7926 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #62# . #8#)) :form #63# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #64=#:ert-form-evaluation-aborted-7931 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #62# . #11#)) :form #64# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (satisfies (lambda #65# (ert-test-result-type-p result (if (member #66# '("ccl")) . #67#)))) (sly contrib autodoc-tests) autodoc-tests-21 "Check autodoc works ok for (apply 'slynk::eval-for-emacs foo *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(apply 'slynk::eval-for-emacs foo *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #68="(apply 'eval-for-emacs &optional form ===> buffer-package <=== id &rest args)" sly-autodoc-to-string signal #69=#:ert-form-evaluation-aborted-7936 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #68# . #8#)) :form #69# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #70=#:ert-form-evaluation-aborted-7941 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #68# . #11#)) :form #70# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-22 "Check autodoc works ok for (apply #'slynk::eval-for-emacs foo *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(apply #'slynk::eval-for-emacs foo *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #71="(apply #'eval-for-emacs &optional form ===> buffer-package <=== id &rest args)" sly-autodoc-to-string signal #72=#:ert-form-evaluation-aborted-7946 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #71# . #8#)) :form #72# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #73=#:ert-form-evaluation-aborted-7951 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #71# . #11#)) :form #73# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (satisfies (lambda #65# (ert-test-result-type-p result (if (member #66# '("ccl")) . #67#)))) (sly contrib autodoc-tests) autodoc-tests-23 "Check autodoc works ok for (error 'simple-condition*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(error 'simple-condition*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #74="(error 'simple-condition &rest arguments &key format-arguments format-control)" sly-autodoc-to-string signal #75=#:ert-form-evaluation-aborted-7956 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #74# . #8#)) :form #75# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #76=#:ert-form-evaluation-aborted-7961 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #74# . #11#)) :form #76# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (satisfies (lambda #65# (ert-test-result-type-p result (if (member #66# '("ccl")) . #67#)))) (sly contrib autodoc-tests) autodoc-tests-24 "Check autodoc works ok for (cerror \"Foo\" 'simple-condition*HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(cerror \"Foo\" 'simple-condition*HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #77="(cerror \"Foo\" 'simple-condition &rest arguments &key format-arguments format-control)" sly-autodoc-to-string signal #78=#:ert-form-evaluation-aborted-7966 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #77# . #8#)) :form #78# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #79=#:ert-form-evaluation-aborted-7971 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #77# . #11#)) :form #79# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (satisfies (lambda #65# (ert-test-result-type-p result (if (member #66# '("ccl")) . #67#)))) (sly contrib autodoc-tests) autodoc-tests-25 "Check autodoc works ok for (slynk::with-retry-restart (:msg *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(slynk::with-retry-restart (:msg *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #80="(with-retry-restart (&key ===> (msg \"Retry.\") <===) &body body)" sly-autodoc-to-string signal #81=#:ert-form-evaluation-aborted-7976 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #80# . #8#)) :form #81# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #82=#:ert-form-evaluation-aborted-7981 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #80# . #11#)) :form #82# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (satisfies (lambda #65# (ert-test-result-type-p result (if (member #66# '("allegro")) . #67#)))) (sly contrib autodoc-tests) autodoc-tests-26 "Check autodoc works ok for (slynk::with-retry-restart (:msg *HERE*(foo" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(slynk::with-retry-restart (:msg *HERE*(foo" search-backward #6# 0 equal (error) ert--should-signal-hook #83="(with-retry-restart (&key ===> (msg \"Retry.\") <===) &body body)" sly-autodoc-to-string signal #84=#:ert-form-evaluation-aborted-7986 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #83# . #8#)) :form #84# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail] 11] (satisfies (lambda #65# (ert-test-result-type-p result (if (member #66# '("allegro")) . #67#)))) (sly contrib autodoc-tests) autodoc-tests-27 "Check autodoc works ok for (slynk::start-server \"/tmp/foo\" :dont-close *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(slynk::start-server \"/tmp/foo\" :dont-close *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #85="(start-server port-file &key (style slynk:*communication-style*) ===> (dont-close slynk:*dont-close*) <===)" sly-autodoc-to-string signal #86=#:ert-form-evaluation-aborted-7996 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #85# . #8#)) :form #86# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #87=#:ert-form-evaluation-aborted-8001 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #85# . #11#)) :form #87# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (satisfies (lambda #65# (ert-test-result-type-p result (if (member #66# '("allegro" "ccl")) . #67#)))) (sly contrib autodoc-tests) autodoc-tests-28 "Check autodoc works ok for (declare (string *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(declare (string *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #88="(declare (string &rest ===> variables <===))" sly-autodoc-to-string signal #89=#:ert-form-evaluation-aborted-8006 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #88# . #8#)) :form #89# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #90=#:ert-form-evaluation-aborted-8011 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #88# . #11#)) :form #90# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (satisfies (lambda #65# (ert-test-result-type-p result (if (member #66# '("allegro")) . #67#)))) (sly contrib autodoc-tests) autodoc-tests-29 "Check autodoc works ok for (declare ((string *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(declare ((string *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #91="(declare ((string &optional ===> size <===) &rest variables))" sly-autodoc-to-string signal #92=#:ert-form-evaluation-aborted-8016 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #91# . #8#)) :form #92# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #93=#:ert-form-evaluation-aborted-8021 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #91# . #11#)) :form #93# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-30 "Check autodoc works ok for (declare (type (string *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(declare (type (string *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #94="(declare (type (string &optional ===> size <===) &rest variables))" sly-autodoc-to-string signal #95=#:ert-form-evaluation-aborted-8026 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #94# . #8#)) :form #95# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #96=#:ert-form-evaluation-aborted-8031 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #94# . #11#)) :form #96# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-31 "Check autodoc works ok for (flet ((foo (x y) (+ x y))) (foo *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(flet ((foo (x y) (+ x y))) (foo *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #97="(foo ===> x <=== y)" sly-autodoc-to-string signal #98=#:ert-form-evaluation-aborted-8036 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #97# . #8#)) :form #98# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #99=#:ert-form-evaluation-aborted-8041 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #97# . #11#)) :form #99# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-32 "Check autodoc works ok for (macrolet ((foo (x y) `(+ ,x ,y))) (foo *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(macrolet ((foo (x y) `(+ ,x ,y))) (foo *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #100="(foo ===> x <=== y)" sly-autodoc-to-string signal #101=#:ert-form-evaluation-aborted-8046 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #100# . #8#)) :form #101# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #102=#:ert-form-evaluation-aborted-8051 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #100# . #11#)) :form #102# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-33 "Check autodoc works ok for (labels ((foo (x y) (+ x y))) (foo *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(labels ((foo (x y) (+ x y))) (foo *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #103="(foo ===> x <=== y)" sly-autodoc-to-string signal #104=#:ert-form-evaluation-aborted-8056 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #103# . #8#)) :form #104# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #105=#:ert-form-evaluation-aborted-8061 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #103# . #11#)) :form #105# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (sly contrib autodoc-tests) autodoc-tests-34 "Check autodoc works ok for (labels ((foo (x y) (+ x y))\n (bar (y) (foo *HERE*" #[0 "\302\303!\210\304 \210\305\306\307\"r\211q\210\310\311\"\216\312\313 \210\314c\210\315\316!\210\317\224\317\225|\210\320C\32117\322\323\324 )D0\202B\325\240\210\211@AD\262\326C\327C\310\330%\216\331\242\"\240)\204^\332\242!\210\266\333c\210\334u\210\320C\3351w\322\323\324 )D0\202\202\325\240\210\211@AD\262\336C\327C\310\337%\216\331\242\"\240)\204\236\332\242!\210\266*\210\302\303!\207" [sly-buffer-package signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer #4# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #5# lisp-mode "(labels ((foo (x y) (+ x y))\n (bar (y) (foo *HERE*" search-backward #6# 0 equal (error) ert--should-signal-hook #106="(foo ===> x <=== y)" sly-autodoc-to-string signal #107=#:ert-form-evaluation-aborted-8066 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #106# . #8#)) :form #107# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail #10# -1 (error) #108=#:ert-form-evaluation-aborted-8071 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal #106# . #11#)) :form #108# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 11] (satisfies (lambda #65# (ert-test-result-type-p result (if (member #66# '("cmucl" "sbcl" "allegro" "ccl")) . #67#)))) (sly contrib autodoc-tests)] 10) #@36 (fn INPUT-KEYS EXPECTED-MESSAGE) (defalias 'sly-test-autodoc-space #[514 "\303\304!\210\203\f\305\306!\210\307\310D!\311C\312\313\314\311$\315\316\317\"r\211q\210\320\321\"\216\322 \210\320\323\"\2162H\324\311!\210\325\326p\317\"!\210\327!\330 \210\331 0\210)\332\333\334 #\210\330\311\n\335_\"\210\332\336\334 #\210*\266\303\304!\207" [noninteractive unread-command-events eldoc-idle-delay sly-sync-to-top-level 0.3 sly-skip-test "Can't use unread-command-events in batch mode" eval kbd nil #[257 "\300\301\"\207" [throw nil] 4 "\n\n(fn TAG)"] run-with-timer 1 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] lisp-mode #[0 "\302\303\300!\207" [V0 unread-command-events nil cancel-timer] 2] message select-window display-buffer listify-key-sequence accept-process-output recursive-edit sly-test-expect "Message after SPC" current-message 2 "Message after edloc delay"] 11 (#$ . 59986)]) (byte-code "\300\301\302\303\301\304\305\306\307\310&\"\210\311\312!\207" [ert-set-test autodoc-space-1 record ert-test "For input (( s l y n k :…, emulate the inserting something followed by the space key\nevent and verify that the right thing appears in the echo\narea (after a short delay)." #[0 "\300\301\302\"\207" [sly-test-autodoc-space "( s l y n k : : o p e r a t o r - a r g l i s t SPC" "(operator-arglist name package)"] 3] nil :passed (sly contrib autodoc-tests) provide sly-autodoc-tests] 10)