;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(byte-code "\300\301!\210\300\302\303\304#\210\300\302\305\304#\210\300\306!\210\300\307!\207" [require sly ert nil t "lib/ert" cl-lib bytecomp] 4)
#@13 

(fn LIST)
(defalias 'sly-shuffle-list #[257 "\211G\300\301\"\300\301\"\211\2031 \211@\302!H\206% \303I\210I\210\301\262\204 A\266\202\202 \210\304\301\"\207" [make-vector nil random t append] 10 (#$ . 235)])
#@143 Run the test suite in batch-mode.
Exits Emacs when finished. The exit code is the number of failed tests.

(fn &optional TEST-NAME RANDOMIZE)
(defalias 'sly-batch-test #[512 "\302\303 \210\302C\304\305\302\306\307\"#\210\310 \204) \311\312!\210\211\242\203 	\203 \313\314!\210\202 \210\315\316!\210\211\203A \317\320\321\206: \322\322\"!B\202F \206F \322	\203N \323\202O \324\211!	\205[ \313\325!!\262\266\202)\207" [ert-debug-on-error noninteractive nil sly run-with-timer 30 make-closure #[0 "\300\301\240\207" [V0 t] 2] sly-connected-p sit-for 1 kill-emacs 252 sly-sync-to-top-level 5 member sly-shuffle-list ert-select-tests t ert-run-tests-batch ert ert-stats-completed-unexpected] 9 (#$ . 468) nil])
#@16 

(fn MESSAGE)
(defalias 'sly-skip-test #[257 "\300\301!\203\n \301!\207\302\303P!\210\304 \207" [fboundp ert-skip message "SKIPPING: " ert-pass] 4 (#$ . 1190)])
(defalias 'sly-tests--undefine-all #[0 "\301\302\211\"\211\2055 \211@\303!>\204 \304\305\306D\"\210\211\307H\211\310N=\204( \311\312!\210\313\310\"\266A\266\202\202 \207" [cl-struct-ert-test-tags ert-select-tests t type-of signal wrong-type-argument ert-test 1 ert--test cl--assertion-failed (eq (get sym 'ert--test) test) cl-remprop] 6])
(sly-tests--undefine-all)
(defalias 'sly-tests-auto-tags #[0 "\302\303\206 	\211\203 \304\305\"\203 \306\307\310\311\"!D\202 \312\262\"\207" [load-file-name byte-compile-current-file append (sly) string-match "test/sly-\\(.*\\).elc?$" contrib intern match-string 1 (core)] 8])
#@112 Like `ert-deftest', but set tags automatically.
Also don't error if `ert.el' is missing.

(fn NAME &rest ARGS)
(defalias 'define-sly-ert-test '(macro . #[385 "\211A@;\205\n \211A@\211\203 AA\202 A\300 \301\302\206  \303\304\305DBBBBBB\207" [sly-tests-auto-tags ert-deftest nil "No docstring for this test." :tags quote] 12 (#$ . 1994)]))
(put 'define-sly-ert-test 'edebug-form-spec '(&define name sexp sexp &rest def-form))
#@52 

(fn NAME INPUT I DOC BODY FAILS-FOR STYLE FNAME)
(defalias 'sly-test-ert-test-for #[2056 "\300\301\302\303\n#!\304\302\305\306\302\307\"\310\304\211\311%\312\313\314\315$#\316\205= \317\320\321\322\323\324\325\326\327\330\320DE\331BBEEDDD\205S \332\333\334\335\336\337\320DED\340BBEC\341\342	D\320DEC#BBBB\207" [define-sly-ert-test intern format "%s-%d" nil "For input %s, %s" truncate-string-to-width "%s" 15 ellipsis replace-regexp-in-string "^.??\\(\\w+\\)" #[257 "\211\227\207" [] 2 "\n\n(fn S)"] t append :expected-result quote satisfies lambda (result) ert-test-result-type-p result if cl-find-if (lambda (impl) (unless (listp impl) (setq impl (list impl #'(lambda (&rest _ign) t)))) (and (equal (car impl) (sly-lisp-implementation-name)) (funcall (cadr impl) (replace-regexp-in-string "[-._+ ]?[[:alnum:]]\\{7,9\\}$" "-snapshot" (sly-lisp-implementation-version)) (caddr impl)))) (:failed :passed) let ((style (sly-communication-style))) when not member style ((sly-skip-test (format "test not applicable for style %s" style))) apply function] 25 (#$ . 2434)])
#@387 Define a test case.
NAME    ::= SYMBOL | (SYMBOL OPTION*) is a symbol naming the test.
OPTION  ::= (:fails-for IMPLEMENTATION*) | (:style COMMUNICATION-STYLE*)
ARGS is a lambda-list.
DOC is a docstring.
INPUTS is a list of argument lists, each tested separately.
BODY is the test case. The body can use `sly-check' to test
conditions (assertions).

(fn NAME ARGS DOC INPUTS &rest BODY)
(defalias 'def-sly-test '(macro . #[1156 "\300\301!\204\f \302\303\"\207\304<\203 \202 C\211\203% \211A\262\242\202, \305\306\307GD\"\310\311\312\"!\313	\314\315	\316\"BBBB\317!\320\321\322\236A\323\236A\320:\203| @\262\324	&B\262A\262T\262\202Q \211\237\266\206B\262\266\202B\207" [featurep ert warn "No ert.el found: not defining test %s" progn signal wrong-number-of-arguments (name &rest options) intern format "sly-test-%s" defun (sly-sync-to-top-level 0.3) append ((sly-sync-to-top-level 0.3)) eval nil 1 :fails-for :style sly-test-ert-test-for] 25 (#$ . 3529)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put def-sly-test edebug-form-spec (&define name sexp sexp sexp &rest def-form) function-put lisp-indent-function 4] 4)
#@25 

(fn CHECK &rest BODY)
(defalias 'sly-check '(macro . #[385 "\300\301B\302:\203 \303\304\305BE\202: ;\203! \303\306E\202: 9\2030 \303\306\307!E\202: \310\311\312#\205: \313DE\207" [unless progn ert-fail concat "Ooops, " format "Check failed: " symbol-name error "cl-etypecase failed: %s, %s" (cons string symbol) nil] 9 (#$ . 4717)]))
(byte-code "\300\301\302\303#\300\207" [function-put sly-check lisp-indent-function defun] 4)
(defalias 'sly-check-top-level #[0 "\300\301\302\"\210\303 ?\205 \304\305!\207" [accept-process-output nil 0.001 sly-at-top-level-p ert-fail "Check failed: At the top level (no debugging or pending RPCs)"] 3])
(defalias 'sly-at-top-level-p #[0 "\300\301 !@?\205\f \302 ?\207" [sly-db-buffers sly-current-connection sly-rex-continuations] 2])
#@49 

(fn NAME PREDICATE TIMEOUT &optional CLEANUP)
(defalias 'sly-wait-condition #[1027 "\300\301 \302!\" ?\205= \301 \303\304\305\306\"AA@$\266\307\301 \"\2035 \310\311\"\216\312\313\"\210)\202 \314\315\316\"\210\202 \207" [time-add current-time seconds-to-time sly-message "waiting for condition: %s [%s.%06d]" format-time-string "%H:%M:%S" time-less-p make-closure #[0 "\300 \207" [V0] 1] error "Timeout waiting for condition: %S" accept-process-output nil 0.1] 12 (#$ . 5509)])
#@16 

(fn TIMEOUT)
(defalias 'sly-sync-to-top-level #[257 "\300\301\302\303$\207" [sly-wait-condition "top-level" sly-at-top-level-p #[0 "\300\301 !@\302!\205 r\211q\210\303 )\207" [sly-db-buffers sly-current-connection bufferp sly-db-quit] 3]] 6 (#$ . 6007)])
#@17 

(fn EXPECTED)
(defalias 'sly-check-sly-db-level #[257 "\301\302 !@\211\205 r\211q\210)\262\211\232?\205\" \303\304\305\306#P!)\207" [sly-db-level sly-db-buffers sly-current-connection ert-fail "Ooops, " format "SLY-DB level (%S) is %S"] 7 (#$ . 6273)])
#@44 

(fn NAME EXPECTED ACTUAL &optional TEST)
(defalias 'sly-test-expect #[1027 ";\203\n \301!\262;\203 \301!\262\211\203T \302C\3031) \304E)0\2024 \305\240\210\211@AD\262\306C\307C\310\311%\216\312\242\"\240)\204P \313\242!\210\210\211\242\207\314C\3151d \304)D0\202o \305\240\210\211@AD\262\316C\307C\310\317%\216\312\242\"\240)\204\213 \313\242!\210\210\211\242\207" [signal-hook-function substring-no-properties funcall (error) ert--should-signal-hook signal #1=#:ert-form-evaluation-aborted-7651 nil make-closure #[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 (funcall test expected actual)) :form #1# :value funcall ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail equal (error) #2=#:ert-form-evaluation-aborted-7656 #[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 expected actual)) :form #2# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 14 (#$ . 6541)])
(defalias 'sly-db-level #[0 "\301\302 !@\211\205 r\211q\210)\207" [sly-db-level sly-db-buffers sly-current-connection] 2])
#@14 

(fn LEVEL)
(defalias 'sly-sly-db-level= #[257 "\211\300 \232\207" [sly-db-level] 3 (#$ . 7915)])
#@29 

(fn PREFIX SYMBOL SUFFIX)
(defalias 'sly-check-symbol-at-point #[771 "\300\301\302\"r\211q\210\303\304\"\216\305 \210c\210`\261\210G\306\211W\205> \211\\b\210\307\310\311\312 `#\313 \314$\266\211T\262\202 \266\202\262*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] lisp-mode 0 sly-test-expect format "Check `%s' (at %d)..." buffer-string sly-symbol-at-point equal] 13 (#$ . 8020)])
#@12 

(fn SYM)
(defalias 'sly-test-symbol-at-point\.2 #[257 "\300\301!\210\302\303\304#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-symbol-at-point "(foo " " bar)"] 5 (#$ . 8497)])
(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&\"\207" [ert-set-test symbol-at-point\.2-1 record ert-test "For input (foobar), fancy symbol-name _not_ at BOB/EOB" #[0 "\300\301!\207" [sly-test-symbol-at-point\.2 "foobar"] 2] nil :passed (sly . #1=(core)) symbol-at-point\.2-2 "For input (foo@bar), fancy symbol-name _not_ at BOB/EOB" #[0 "\300\301!\207" [sly-test-symbol-at-point\.2 "foo@bar"] 2] (sly . #1#) symbol-at-point\.2-3 "For input (@foobar), fancy symbol-name _not_ at BOB/EOB" #[0 "\300\301!\207" [sly-test-symbol-at-point\.2 "@foobar"] 2] (sly . #1#) symbol-at-point\.2-4 "For input (foobar@), fancy symbol-name _not_ at BOB/EOB" #[0 "\300\301!\207" [sly-test-symbol-at-point\.2 "foobar@"] 2] (sly . #1#) symbol-at-point\.2-5 "For input (\\@foobar), fancy symbol-name _not_ at BOB/EOB" #[0 "\300\301!\207" [sly-test-symbol-at-point\.2 "\\@foobar"] 2] (sly . #1#) symbol-at-point\.2-6 "For input (|asdf||foo||b…, fancy symbol-name _not_ at BOB/EOB" #[0 "\300\301!\207" [sly-test-symbol-at-point\.2 "|asdf||foo||bar|"] 2] (sly . #1#) symbol-at-point\.2-7 "For input (\\#<Foo@Bar>), fancy symbol-name _not_ at BOB/EOB" #[0 "\300\301!\207" [sly-test-symbol-at-point\.2 "\\#<Foo@Bar>"] 2] (sly . #1#) symbol-at-point\.2-8 "For input (\\(setf\\ car\\)), fancy symbol-name _not_ at BOB/EOB" #[0 "\300\301!\207" [sly-test-symbol-at-point\.2 "\\(setf\\ car\\)"] 2] (sly . #1#)] 10)
#@12 

(fn SYM)
(defalias 'sly-test-symbol-at-point\.3 #[257 "\300\301!\210\302\303\304#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-symbol-at-point "," ""] 5 (#$ . 10422)])
(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&\"\207" [ert-set-test symbol-at-point\.3-1 record ert-test "For input (foobar), fancy symbol-name with leading ," #[0 "\300\301!\207" [sly-test-symbol-at-point\.3 "foobar"] 2] nil :passed (sly . #1=(core)) symbol-at-point\.3-2 "For input (foo@bar), fancy symbol-name with leading ," #[0 "\300\301!\207" [sly-test-symbol-at-point\.3 "foo@bar"] 2] (sly . #1#) symbol-at-point\.3-3 "For input (foobar@), fancy symbol-name with leading ," #[0 "\300\301!\207" [sly-test-symbol-at-point\.3 "foobar@"] 2] (sly . #1#) symbol-at-point\.3-4 "For input (\\@foobar), fancy symbol-name with leading ," #[0 "\300\301!\207" [sly-test-symbol-at-point\.3 "\\@foobar"] 2] (sly . #1#) symbol-at-point\.3-5 "For input (|asdf||foo||b…, fancy symbol-name with leading ," #[0 "\300\301!\207" [sly-test-symbol-at-point\.3 "|asdf||foo||bar|"] 2] (sly . #1#) symbol-at-point\.3-6 "For input (\\#<Foo@Bar>), fancy symbol-name with leading ," #[0 "\300\301!\207" [sly-test-symbol-at-point\.3 "\\#<Foo@Bar>"] 2] (sly . #1#) symbol-at-point\.3-7 "For input (\\(setf\\ car\\)), fancy symbol-name with leading ," #[0 "\300\301!\207" [sly-test-symbol-at-point\.3 "\\(setf\\ car\\)"] 2] (sly . #1#)] 10)
#@12 

(fn SYM)
(defalias 'sly-test-symbol-at-point\.4 #[257 "\300\301!\210\302\303\304#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-symbol-at-point ",@" ""] 5 (#$ . 12123)])
(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&\"\207" [ert-set-test symbol-at-point\.4-1 record ert-test "For input (foobar), fancy symbol-name with leading ,@" #[0 "\300\301!\207" [sly-test-symbol-at-point\.4 "foobar"] 2] nil :passed (sly . #1=(core)) symbol-at-point\.4-2 "For input (foo@bar), fancy symbol-name with leading ,@" #[0 "\300\301!\207" [sly-test-symbol-at-point\.4 "foo@bar"] 2] (sly . #1#) symbol-at-point\.4-3 "For input (@foobar), fancy symbol-name with leading ,@" #[0 "\300\301!\207" [sly-test-symbol-at-point\.4 "@foobar"] 2] (sly . #1#) symbol-at-point\.4-4 "For input (foobar@), fancy symbol-name with leading ,@" #[0 "\300\301!\207" [sly-test-symbol-at-point\.4 "foobar@"] 2] (sly . #1#) symbol-at-point\.4-5 "For input (\\@foobar), fancy symbol-name with leading ,@" #[0 "\300\301!\207" [sly-test-symbol-at-point\.4 "\\@foobar"] 2] (sly . #1#) symbol-at-point\.4-6 "For input (|asdf||foo||b…, fancy symbol-name with leading ,@" #[0 "\300\301!\207" [sly-test-symbol-at-point\.4 "|asdf||foo||bar|"] 2] (sly . #1#) symbol-at-point\.4-7 "For input (\\#<Foo@Bar>), fancy symbol-name with leading ,@" #[0 "\300\301!\207" [sly-test-symbol-at-point\.4 "\\#<Foo@Bar>"] 2] (sly . #1#) symbol-at-point\.4-8 "For input (\\(setf\\ car\\)), fancy symbol-name with leading ,@" #[0 "\300\301!\207" [sly-test-symbol-at-point\.4 "\\(setf\\ car\\)"] 2] (sly . #1#)] 10)
#@12 

(fn SYM)
(defalias 'sly-test-symbol-at-point\.5 #[257 "\300\301!\210\302\303\304#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-symbol-at-point "`" ""] 5 (#$ . 14033)])
(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&\"\207" [ert-set-test symbol-at-point\.5-1 record ert-test "For input (foobar), fancy symbol-name with leading `" #[0 "\300\301!\207" [sly-test-symbol-at-point\.5 "foobar"] 2] nil :passed (sly . #1=(core)) symbol-at-point\.5-2 "For input (foo@bar), fancy symbol-name with leading `" #[0 "\300\301!\207" [sly-test-symbol-at-point\.5 "foo@bar"] 2] (sly . #1#) symbol-at-point\.5-3 "For input (@foobar), fancy symbol-name with leading `" #[0 "\300\301!\207" [sly-test-symbol-at-point\.5 "@foobar"] 2] (sly . #1#) symbol-at-point\.5-4 "For input (foobar@), fancy symbol-name with leading `" #[0 "\300\301!\207" [sly-test-symbol-at-point\.5 "foobar@"] 2] (sly . #1#) symbol-at-point\.5-5 "For input (\\@foobar), fancy symbol-name with leading `" #[0 "\300\301!\207" [sly-test-symbol-at-point\.5 "\\@foobar"] 2] (sly . #1#) symbol-at-point\.5-6 "For input (|asdf||foo||b…, fancy symbol-name with leading `" #[0 "\300\301!\207" [sly-test-symbol-at-point\.5 "|asdf||foo||bar|"] 2] (sly . #1#) symbol-at-point\.5-7 "For input (\\#<Foo@Bar>), fancy symbol-name with leading `" #[0 "\300\301!\207" [sly-test-symbol-at-point\.5 "\\#<Foo@Bar>"] 2] (sly . #1#) symbol-at-point\.5-8 "For input (\\(setf\\ car\\)), fancy symbol-name with leading `" #[0 "\300\301!\207" [sly-test-symbol-at-point\.5 "\\(setf\\ car\\)"] 2] (sly . #1#)] 10)
#@12 

(fn SYM)
(defalias 'sly-test-symbol-at-point\.6 #[257 "\300\301!\210\302\303\304#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-symbol-at-point "(" ")"] 5 (#$ . 15934)])
(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&\"\207" [ert-set-test symbol-at-point\.6-1 record ert-test "For input (foobar), fancy symbol-name wrapped in ()" #[0 "\300\301!\207" [sly-test-symbol-at-point\.6 "foobar"] 2] nil :passed (sly . #1=(core)) symbol-at-point\.6-2 "For input (foo@bar), fancy symbol-name wrapped in ()" #[0 "\300\301!\207" [sly-test-symbol-at-point\.6 "foo@bar"] 2] (sly . #1#) symbol-at-point\.6-3 "For input (@foobar), fancy symbol-name wrapped in ()" #[0 "\300\301!\207" [sly-test-symbol-at-point\.6 "@foobar"] 2] (sly . #1#) symbol-at-point\.6-4 "For input (foobar@), fancy symbol-name wrapped in ()" #[0 "\300\301!\207" [sly-test-symbol-at-point\.6 "foobar@"] 2] (sly . #1#) symbol-at-point\.6-5 "For input (\\@foobar), fancy symbol-name wrapped in ()" #[0 "\300\301!\207" [sly-test-symbol-at-point\.6 "\\@foobar"] 2] (sly . #1#) symbol-at-point\.6-6 "For input (|asdf||foo||b…, fancy symbol-name wrapped in ()" #[0 "\300\301!\207" [sly-test-symbol-at-point\.6 "|asdf||foo||bar|"] 2] (sly . #1#) symbol-at-point\.6-7 "For input (\\#<Foo@Bar>), fancy symbol-name wrapped in ()" #[0 "\300\301!\207" [sly-test-symbol-at-point\.6 "\\#<Foo@Bar>"] 2] (sly . #1#) symbol-at-point\.6-8 "For input (\\(setf\\ car\\)), fancy symbol-name wrapped in ()" #[0 "\300\301!\207" [sly-test-symbol-at-point\.6 "\\(setf\\ car\\)"] 2] (sly . #1#)] 10)
#@12 

(fn SYM)
(defalias 'sly-test-symbol-at-point\.7 #[257 "\300\301!\210\302\303\304#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-symbol-at-point "#<" " {DEADBEEF}>"] 5 (#$ . 17828)])
(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&\"\207" [ert-set-test symbol-at-point\.7-1 record ert-test "For input (foobar), fancy symbol-name wrapped in #< {DEADBEEF}>" #[0 "\300\301!\207" [sly-test-symbol-at-point\.7 "foobar"] 2] nil :passed (sly . #1=(core)) symbol-at-point\.7-2 "For input (foo@bar), fancy symbol-name wrapped in #< {DEADBEEF}>" #[0 "\300\301!\207" [sly-test-symbol-at-point\.7 "foo@bar"] 2] (sly . #1#) symbol-at-point\.7-3 "For input (@foobar), fancy symbol-name wrapped in #< {DEADBEEF}>" #[0 "\300\301!\207" [sly-test-symbol-at-point\.7 "@foobar"] 2] (sly . #1#) symbol-at-point\.7-4 "For input (foobar@), fancy symbol-name wrapped in #< {DEADBEEF}>" #[0 "\300\301!\207" [sly-test-symbol-at-point\.7 "foobar@"] 2] (sly . #1#) symbol-at-point\.7-5 "For input (\\@foobar), fancy symbol-name wrapped in #< {DEADBEEF}>" #[0 "\300\301!\207" [sly-test-symbol-at-point\.7 "\\@foobar"] 2] (sly . #1#) symbol-at-point\.7-6 "For input (|asdf||foo||b…, fancy symbol-name wrapped in #< {DEADBEEF}>" #[0 "\300\301!\207" [sly-test-symbol-at-point\.7 "|asdf||foo||bar|"] 2] (sly . #1#) symbol-at-point\.7-7 "For input (\\#<Foo@Bar>), fancy symbol-name wrapped in #< {DEADBEEF}>" #[0 "\300\301!\207" [sly-test-symbol-at-point\.7 "\\#<Foo@Bar>"] 2] (sly . #1#) symbol-at-point\.7-8 "For input (\\(setf\\ car\\)), fancy symbol-name wrapped in #< {DEADBEEF}>" #[0 "\300\301!\207" [sly-test-symbol-at-point\.7 "\\(setf\\ car\\)"] 2] (sly . #1#)] 10)
#@12 

(fn SYM)
(defalias 'sly-test-symbol-at-point\.9 #[257 "\300\301!\210\302\303\304#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-symbol-at-point "#|\n" "\n|#"] 5 (#$ . 19830)])
(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&\"\207" [ert-set-test symbol-at-point\.9-1 record ert-test "For input (foobar), fancy symbol-name wrapped in #| ... |#" #[0 "\300\301!\207" [sly-test-symbol-at-point\.9 "foobar"] 2] nil :passed (sly . #1=(core)) symbol-at-point\.9-2 "For input (foo@bar), fancy symbol-name wrapped in #| ... |#" #[0 "\300\301!\207" [sly-test-symbol-at-point\.9 "foo@bar"] 2] (sly . #1#) symbol-at-point\.9-3 "For input (@foobar), fancy symbol-name wrapped in #| ... |#" #[0 "\300\301!\207" [sly-test-symbol-at-point\.9 "@foobar"] 2] (sly . #1#) symbol-at-point\.9-4 "For input (foobar@), fancy symbol-name wrapped in #| ... |#" #[0 "\300\301!\207" [sly-test-symbol-at-point\.9 "foobar@"] 2] (sly . #1#) symbol-at-point\.9-5 "For input (\\@foobar), fancy symbol-name wrapped in #| ... |#" #[0 "\300\301!\207" [sly-test-symbol-at-point\.9 "\\@foobar"] 2] (sly . #1#) symbol-at-point\.9-6 "For input (|asdf||foo||b…, fancy symbol-name wrapped in #| ... |#" #[0 "\300\301!\207" [sly-test-symbol-at-point\.9 "|asdf||foo||bar|"] 2] (sly . #1#) symbol-at-point\.9-7 "For input (\\#<Foo@Bar>), fancy symbol-name wrapped in #| ... |#" #[0 "\300\301!\207" [sly-test-symbol-at-point\.9 "\\#<Foo@Bar>"] 2] (sly . #1#) symbol-at-point\.9-8 "For input (\\(setf\\ car\\)), fancy symbol-name wrapped in #| ... |#" #[0 "\300\301!\207" [sly-test-symbol-at-point\.9 "\\(setf\\ car\\)"] 2] (sly . #1#)] 10)
#@12 

(fn SYM)
(defalias 'sly-test-symbol-at-point\.10 #[257 "\300\301!\210\302\303\304#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-symbol-at-point "#| )))(( #|\n" ""] 5 (#$ . 21786)])
(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&\"\207" [ert-set-test symbol-at-point\.10-1 record ert-test "For input (foobar), fancy symbol-name after #| )))(( |# (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.10 "foobar"] 2] nil :passed (sly . #1=(core)) symbol-at-point\.10-2 "For input (foo@bar), fancy symbol-name after #| )))(( |# (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.10 "foo@bar"] 2] (sly . #1#) symbol-at-point\.10-3 "For input (@foobar), fancy symbol-name after #| )))(( |# (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.10 "@foobar"] 2] (sly . #1#) symbol-at-point\.10-4 "For input (foobar@), fancy symbol-name after #| )))(( |# (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.10 "foobar@"] 2] (sly . #1#) symbol-at-point\.10-5 "For input (\\@foobar), fancy symbol-name after #| )))(( |# (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.10 "\\@foobar"] 2] (sly . #1#) symbol-at-point\.10-6 "For input (|asdf||foo||b…, fancy symbol-name after #| )))(( |# (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.10 "|asdf||foo||bar|"] 2] (sly . #1#) symbol-at-point\.10-7 "For input (\\#<Foo@Bar>), fancy symbol-name after #| )))(( |# (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.10 "\\#<Foo@Bar>"] 2] (sly . #1#) symbol-at-point\.10-8 "For input (\\(setf\\ car\\)), fancy symbol-name after #| )))(( |# (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.10 "\\(setf\\ car\\)"] 2] (sly . #1#)] 10)
#@12 

(fn SYM)
(defalias 'sly-test-symbol-at-point\.11 #[257 "\300\301!\210\302\303\304#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-symbol-at-point "#| )))(( #|" ""] 5 (#$ . 23772)])
(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&\"\207" [ert-set-test symbol-at-point\.11-1 record ert-test "For input (foobar), fancy symbol-name after #| )))(( |# (2)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.11 "foobar"] 2] nil :passed (sly . #1=(core)) symbol-at-point\.11-2 "For input (foo@bar), fancy symbol-name after #| )))(( |# (2)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.11 "foo@bar"] 2] (sly . #1#) symbol-at-point\.11-3 "For input (@foobar), fancy symbol-name after #| )))(( |# (2)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.11 "@foobar"] 2] (sly . #1#) symbol-at-point\.11-4 "For input (foobar@), fancy symbol-name after #| )))(( |# (2)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.11 "foobar@"] 2] (sly . #1#) symbol-at-point\.11-5 "For input (\\@foobar), fancy symbol-name after #| )))(( |# (2)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.11 "\\@foobar"] 2] (sly . #1#) symbol-at-point\.11-6 "For input (|asdf||foo||b…, fancy symbol-name after #| )))(( |# (2)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.11 "|asdf||foo||bar|"] 2] (sly . #1#) symbol-at-point\.11-7 "For input (\\#<Foo@Bar>), fancy symbol-name after #| )))(( |# (2)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.11 "\\#<Foo@Bar>"] 2] (sly . #1#) symbol-at-point\.11-8 "For input (\\(setf\\ car\\)), fancy symbol-name after #| )))(( |# (2)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.11 "\\(setf\\ car\\)"] 2] (sly . #1#)] 10)
#@12 

(fn SYM)
(defalias 'sly-test-symbol-at-point\.12 #[257 "\300\301!\210\302\303\303#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-symbol-at-point "\"\n"] 5 (#$ . 25756)])
(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&\"\207" [ert-set-test symbol-at-point\.12-1 record ert-test "For input (foobar), fancy symbol-name wrapped in \"...\"" #[0 "\300\301!\207" [sly-test-symbol-at-point\.12 "foobar"] 2] nil :passed (sly . #1=(core)) symbol-at-point\.12-2 "For input (foo@bar), fancy symbol-name wrapped in \"...\"" #[0 "\300\301!\207" [sly-test-symbol-at-point\.12 "foo@bar"] 2] (sly . #1#) symbol-at-point\.12-3 "For input (@foobar), fancy symbol-name wrapped in \"...\"" #[0 "\300\301!\207" [sly-test-symbol-at-point\.12 "@foobar"] 2] (sly . #1#) symbol-at-point\.12-4 "For input (foobar@), fancy symbol-name wrapped in \"...\"" #[0 "\300\301!\207" [sly-test-symbol-at-point\.12 "foobar@"] 2] (sly . #1#) symbol-at-point\.12-5 "For input (\\@foobar), fancy symbol-name wrapped in \"...\"" #[0 "\300\301!\207" [sly-test-symbol-at-point\.12 "\\@foobar"] 2] (sly . #1#) symbol-at-point\.12-6 "For input (|asdf||foo||b…, fancy symbol-name wrapped in \"...\"" #[0 "\300\301!\207" [sly-test-symbol-at-point\.12 "|asdf||foo||bar|"] 2] (sly . #1#) symbol-at-point\.12-7 "For input (\\#<Foo@Bar>), fancy symbol-name wrapped in \"...\"" #[0 "\300\301!\207" [sly-test-symbol-at-point\.12 "\\#<Foo@Bar>"] 2] (sly . #1#) symbol-at-point\.12-8 "For input (\\(setf\\ car\\)), fancy symbol-name wrapped in \"...\"" #[0 "\300\301!\207" [sly-test-symbol-at-point\.12 "\\(setf\\ car\\)"] 2] (sly . #1#)] 10)
#@12 

(fn SYM)
(defalias 'sly-test-symbol-at-point\.13 #[257 "\300\301!\210\302\303\304#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-symbol-at-point "\" )))(( \"\n" ""] 5 (#$ . 27706)])
(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&\"\207" [ert-set-test symbol-at-point\.13-1 record ert-test "For input (foobar), fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.13 "foobar"] 2] nil :passed (sly . #1=(core)) symbol-at-point\.13-2 "For input (foo@bar), fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.13 "foo@bar"] 2] (sly . #1#) symbol-at-point\.13-3 "For input (@foobar), fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.13 "@foobar"] 2] (sly . #1#) symbol-at-point\.13-4 "For input (foobar@), fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.13 "foobar@"] 2] (sly . #1#) symbol-at-point\.13-5 "For input (\\@foobar), fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.13 "\\@foobar"] 2] (sly . #1#) symbol-at-point\.13-6 "For input (|asdf||foo||b…, fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.13 "|asdf||foo||bar|"] 2] (sly . #1#) symbol-at-point\.13-7 "For input (\\#<Foo@Bar>), fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.13 "\\#<Foo@Bar>"] 2] (sly . #1#) symbol-at-point\.13-8 "For input (\\(setf\\ car\\)), fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.13 "\\(setf\\ car\\)"] 2] (sly . #1#)] 10)
#@12 

(fn SYM)
(defalias 'sly-test-symbol-at-point\.14 #[257 "\300\301!\210\302\303\304#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-symbol-at-point "\" )))(( \"" ""] 5 (#$ . 29732)])
(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&\"\207" [ert-set-test symbol-at-point\.14-1 record ert-test "For input (foobar), fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.14 "foobar"] 2] nil :passed (sly . #1=(core)) symbol-at-point\.14-2 "For input (foo@bar), fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.14 "foo@bar"] 2] (sly . #1#) symbol-at-point\.14-3 "For input (@foobar), fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.14 "@foobar"] 2] (sly . #1#) symbol-at-point\.14-4 "For input (foobar@), fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.14 "foobar@"] 2] (sly . #1#) symbol-at-point\.14-5 "For input (\\@foobar), fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.14 "\\@foobar"] 2] (sly . #1#) symbol-at-point\.14-6 "For input (|asdf||foo||b…, fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.14 "|asdf||foo||bar|"] 2] (sly . #1#) symbol-at-point\.14-7 "For input (\\#<Foo@Bar>), fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.14 "\\#<Foo@Bar>"] 2] (sly . #1#) symbol-at-point\.14-8 "For input (\\(setf\\ car\\)), fancy symbol-name wrapped in \" )))(( \" (1)" #[0 "\300\301!\207" [sly-test-symbol-at-point\.14 "\\(setf\\ car\\)"] 2] (sly . #1#)] 10)
#@12 

(fn SYM)
(defalias 'sly-test-symbol-at-point\.15 #[257 "\300\301!\210\302\303\304#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-symbol-at-point "#." ""] 5 (#$ . 31756)])
(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&\"\207" [ert-set-test symbol-at-point\.15-1 record ert-test "For input (foobar), symbol-at-point after #." #[0 "\300\301!\207" [sly-test-symbol-at-point\.15 "foobar"] 2] nil :passed (sly . #1=(core)) symbol-at-point\.15-2 "For input (foo@bar), symbol-at-point after #." #[0 "\300\301!\207" [sly-test-symbol-at-point\.15 "foo@bar"] 2] (sly . #1#) symbol-at-point\.15-3 "For input (@foobar), symbol-at-point after #." #[0 "\300\301!\207" [sly-test-symbol-at-point\.15 "@foobar"] 2] (sly . #1#) symbol-at-point\.15-4 "For input (foobar@), symbol-at-point after #." #[0 "\300\301!\207" [sly-test-symbol-at-point\.15 "foobar@"] 2] (sly . #1#) symbol-at-point\.15-5 "For input (\\@foobar), symbol-at-point after #." #[0 "\300\301!\207" [sly-test-symbol-at-point\.15 "\\@foobar"] 2] (sly . #1#) symbol-at-point\.15-6 "For input (|asdf||foo||b…, symbol-at-point after #." #[0 "\300\301!\207" [sly-test-symbol-at-point\.15 "|asdf||foo||bar|"] 2] (sly . #1#) symbol-at-point\.15-7 "For input (\\#<Foo@Bar>), symbol-at-point after #." #[0 "\300\301!\207" [sly-test-symbol-at-point\.15 "\\#<Foo@Bar>"] 2] (sly . #1#) symbol-at-point\.15-8 "For input (\\(setf\\ car\\)), symbol-at-point after #." #[0 "\300\301!\207" [sly-test-symbol-at-point\.15 "\\(setf\\ car\\)"] 2] (sly . #1#)] 10)
#@12 

(fn SYM)
(defalias 'sly-test-symbol-at-point\.16 #[257 "\300\301!\210\302\303\304#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-symbol-at-point "#+" ""] 5 (#$ . 33611)])
(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&\"\207" [ert-set-test symbol-at-point\.16-1 record ert-test "For input (foobar), symbol-at-point after #+" #[0 "\300\301!\207" [sly-test-symbol-at-point\.16 "foobar"] 2] nil :passed (sly . #1=(core)) symbol-at-point\.16-2 "For input (foo@bar), symbol-at-point after #+" #[0 "\300\301!\207" [sly-test-symbol-at-point\.16 "foo@bar"] 2] (sly . #1#) symbol-at-point\.16-3 "For input (@foobar), symbol-at-point after #+" #[0 "\300\301!\207" [sly-test-symbol-at-point\.16 "@foobar"] 2] (sly . #1#) symbol-at-point\.16-4 "For input (foobar@), symbol-at-point after #+" #[0 "\300\301!\207" [sly-test-symbol-at-point\.16 "foobar@"] 2] (sly . #1#) symbol-at-point\.16-5 "For input (\\@foobar), symbol-at-point after #+" #[0 "\300\301!\207" [sly-test-symbol-at-point\.16 "\\@foobar"] 2] (sly . #1#) symbol-at-point\.16-6 "For input (|asdf||foo||b…, symbol-at-point after #+" #[0 "\300\301!\207" [sly-test-symbol-at-point\.16 "|asdf||foo||bar|"] 2] (sly . #1#) symbol-at-point\.16-7 "For input (\\#<Foo@Bar>), symbol-at-point after #+" #[0 "\300\301!\207" [sly-test-symbol-at-point\.16 "\\#<Foo@Bar>"] 2] (sly . #1#) symbol-at-point\.16-8 "For input (\\(setf\\ car\\)), symbol-at-point after #+" #[0 "\300\301!\207" [sly-test-symbol-at-point\.16 "\\(setf\\ car\\)"] 2] (sly . #1#)] 10)
#@15 

(fn STRING)
(defalias 'sly-test-sexp-at-point\.1 #[257 "\300\301!\210\302\303\304\"r\211q\210\305\306\"\216\307 \210c\210eb\210\310\311\312\313 `#\314 \315$\210*\210\300\301!\207" [sly-sync-to-top-level 0.3 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] lisp-mode sly-test-expect format "Check sexp `%s' (at %d)..." buffer-string sly-sexp-at-point equal] 7 (#$ . 35466)])
(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&\"\207" [ert-set-test sexp-at-point\.1-1 record ert-test "For input (foo), symbol-at-point after #'" #[0 "\300\301!\207" [sly-test-sexp-at-point\.1 "foo"] 2] nil :passed (sly . #1=(core)) sexp-at-point\.1-2 "For input (#:foo), symbol-at-point after #'" #[0 "\300\301!\207" [sly-test-sexp-at-point\.1 "#:foo"] 2] (sly . #1#) sexp-at-point\.1-3 "For input (#'foo), symbol-at-point after #'" #[0 "\300\301!\207" [sly-test-sexp-at-point\.1 "#'foo"] 2] (sly . #1#) sexp-at-point\.1-4 "For input (#'(lambda (x)…, symbol-at-point after #'" #[0 "\300\301!\207" [sly-test-sexp-at-point\.1 "#'(lambda (x) x)"] 2] (sly . #1#) sexp-at-point\.1-5 "For input (()), symbol-at-point after #'" #[0 "\300\301!\207" [sly-test-sexp-at-point\.1 "()"] 2] (sly . #1#)] 10)
(defalias 'sly-test-narrowing #[0 "\306\307!\210\310 \210\311\312 !\313\211\314\315\316\"r\211q\210\317\320\"\216\321\322\211W\2031 \211\323\324\"c\266\211T\262\202 \266p\262`\262\325c\210\321\322\211W\203U \211\323\324\321\\\"c\266\211T\262\202> \266deZ\326 U\204d \327\330!\210b\210\331 \210deZ\326 U\203w \327\332!\210\313\210\313r\333!q\210\316p\334 \210\335\336!\210\313\211\3372!\210\340p!\232\204\250 \327\341\323\342\"P!\210\343p\316\"\210,\210rq\210\344\316!\210)p=\203\304 `U\204\316 \327\341\323\345\"P!\210deZ\326 U\203\333 \327\346!\210\347\350\351!\210\352\353 !\354\230\204\363 \327\341\323\355\356\"P!\210\357 \210p=\203`U\204\n\327\341\323\360!P!\210deZ\326 U\203\327\361!\210+\266\310 \210\306\307!\207" [major-mode view-read-only standard-output inhibit-read-only sly-buffer-package sly-buffer-connection sly-sync-to-top-level 0.3 sly-check-top-level symbol-name cl-gensym nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] 100 0 format ";;; %d. line\n" "(defun __foo__ (x y)\n  'nothing)\n" buffer-size ert-fail "Check failed: Checking that newly created buffer is not narrowed." narrow-to-defun "Check failed: Checking that narrowing succeeded." get-buffer-create erase-buffer sly-popup-buffer-mode 1 set-syntax-table buffer-name "Ooops, " "Checking that we're in Sly's temp buffer `%s'" display-buffer quit-window "Checking that we've got back from `%s'" "Check failed: Checking that narrowing sustained after quitting Sly's temp buffer." "SLYNK" sly-edit-definition "*buffer-package*" file-name-nondirectory buffer-file-name "slynk.lisp" "Checking that we've got M-. into slynk.lisp. %S" *buffer-package* sly-pop-find-definition-stack "Checking that we've got back." "Check failed: Checking that narrowing sustained after M-," lisp-mode-syntax-table] 12])
#@13 

(fn LINE)
(defalias 'sly-test--pos-at-line #[257 "\212eb\210\211Sy\210\300 )\207" [line-beginning-position] 2 (#$ . 38796)])
#@46 

(fn POS-LINE TARGET EXPECTED-WINDOW-START)
(defalias 'sly-test-recenter #[771 "\302\303!\210\203\f \304\305!\210\306\307\310\"r\211q\210\311\312\"\216\313\211\314X\203- \315\316\"c\210\211T\262\202 \210\317p!\320\321!r\311\322\"\216\323@\324\"\210\325	\"!b\210\326\325	\"!!\210\327 \210\330C\3311n \332\"\333\334 !)D0\202y \335\240\210\211@AD\262\336C\337C\311\340%\216\341\242\"\240)\204\225 \342\242!\210\266*\266*\210\302\303!\207" [noninteractive signal-hook-function sly-sync-to-top-level 0.3 sly-skip-test "Can't test sly-recenter in batch mode" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] 1 1000 format "%09d\n" display-buffer #[514 "\300\301\302\303!DCE!\207" [eval let wh window-text-height] 7 "\n\n(fn WIN FORM)"] internal--before-with-selected-window #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord sly-test--pos-at-line sly-recenter redisplay = (error) ert--should-signal-hook line-number-at-pos window-start signal #1=#:ert-form-evaluation-aborted-7661 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 (= (eval-with-wh expected-window-start) (line-number-at-pos (window-start)))) :form #1# :value = ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail] 17 (#$ . 38929)])
(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&\"\207" [ert-set-test recenter-1 record ert-test "For input (2 4 1), test `sly-recenter'." #[0 "\300\301\302\303#\207" [sly-test-recenter 2 4 1] 4] nil :passed (sly . #1=(core)) recenter-2 "For input (2 (+ wh 2) 2), test `sly-recenter'." #[0 "\300\301\302\301#\207" [sly-test-recenter 2 (+ wh 2)] 4] (sly . #1#) recenter-3 "For input ((+ wh 2) (+ w…, test `sly-recenter'." #[0 "\300\301\302\303#\207" [sly-test-recenter (+ wh 2) (+ wh 500) (+ wh 2)] 4] (sly . #1#)] 10)
#@36 

(fn NAME BUFFER-PACKAGE SNIPPET)
(defalias 'sly-test-find-definition #[771 "\302\303!\210\304\305!\210\306 \210p`\307\310!\210\311\312 !\313\230\204( \314\315\316\317\"P!\210\320!\2048 \314\315\316\321\"P!\210\322 \210p=\203G \211`U\204K \314\323!\210*\266\306 \210\302\303!\207" [sly-buffer-package enable-local-variables sly-sync-to-top-level 0.3 switch-to-buffer "*scratch*" sly-check-top-level nil sly-edit-definition file-name-nondirectory buffer-file-name "slynk.lisp" ert-fail "Ooops, " format "Definition of `%S' is in slynk.lisp." looking-at "Looking at '%s'." sly-pop-find-definition-stack "Check failed: Returning from definition restores original buffer/position."] 10 (#$ . 41053)])
(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&\"\207" [ert-set-test find-definition-1 record ert-test "For input (start-server …, find the definition of a function or macro in slynk.lisp." #[0 "\300\301\302\303#\207" [sly-test-find-definition "start-server" "SLYNK" "(defun start-server "] 4] nil :passed (sly . #1=(core)) find-definition-2 "For input (slynk::start-…, find the definition of a function or macro in slynk.lisp." #[0 "\300\301\302\303#\207" [sly-test-find-definition "slynk::start-server" "CL-USER" "(defun start-server "] 4] (sly . #1#) find-definition-3 "For input (slynk:start-s…, find the definition of a function or macro in slynk.lisp." #[0 "\300\301\302\303#\207" [sly-test-find-definition "slynk:start-server" "CL-USER" "(defun start-server "] 4] (sly . #1#) find-definition-4 "For input (slynk::connec…, find the definition of a function or macro in slynk.lisp." #[0 "\300\301\302\303#\207" [sly-test-find-definition "slynk::connection" "CL-USER" "(defstruct (connection"] 4] (sly . #1#) find-definition-5 "For input (slynk::*emacs…, find the definition of a function or macro in slynk.lisp." #[0 "\300\301\302\303#\207" [sly-test-find-definition "slynk::*emacs-connection*" "CL-USER" "(defvar \\*emacs-connection\\*"] 4] (sly . #1#)] 10)
#@46 

(fn BUFFER-CONTENT BUFFER-PACKAGE SNIPPET)
(defalias 'sly-test-find-definition\.2 #[771 "\301\302!\210\303\304\305\"r\211q\210\306\307\"\216c\210\310 \210\311\312\313 \314\315\211\257!\210\313 \316\317!\210\313 \230\204; \320\321\322\323\"P!\210\324!\204E \320\325!\210\210*\210)\301\302!\207" [sly-buffer-package sly-sync-to-top-level 0.3 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] sly-check-top-level sly-eval slynk:compile-string-for-emacs buffer-name '((:position 0) (:line 1 1)) nil sly-edit-definition ".foo." ert-fail "Ooops, " format "Definition of `.foo.' is in buffer `%s'." looking-at "Check failed: Definition now at point."] 11 (#$ . 43241)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\210\300\311\302\303\311\304\312\306\313\314&\"\210\300\315\302\303\315\316\317\306\320\321&\"\207" [ert-set-test find-definition\.2-1 record ert-test "For input (#.(prog1 nil …, check that we're able to find definitions even when\nconfronted with nasty #.-fu." #[0 "\300\301\302\303#\207" [sly-test-find-definition\.2 "#.(prog1 nil (defvar *foobar* 42))\n\n       (defun .foo. (x)\n         (+ x #.*foobar*))\n\n       #.(prog1 nil (makunbound '*foobar*))\n       " "SLYNK" "[ 	]*(defun .foo. "] 4] nil (satisfies (lambda #1=(result) (ert-test-result-type-p result (if (cl-find-if #2=(lambda (impl) (unless (listp impl) (setq impl (list impl #'(lambda (&rest _ign) t)))) (and (equal (car impl) (sly-lisp-implementation-name)) (funcall (cadr impl) (replace-regexp-in-string "[-._+ ]?[[:alnum:]]\\{7,9\\}$" "-snapshot" (sly-lisp-implementation-version)) (caddr impl)))) '#3=("allegro" "lispworks")) . #4=(:failed :passed))))) (sly . #5=(core)) find-definition\.2-2 #[0 "\300\301\302\303#\207" [sly-test-find-definition\.2 "#.(prog1 nil (defvar *foobar* 42))\n\n       ;; some comment\n       (defun .foo. (x)\n         (+ x #.*foobar*))\n\n       #.(prog1 nil (makunbound '*foobar*))\n       " "SLYNK" "[ 	]*(defun .foo. "] 4] (satisfies (lambda #1# (ert-test-result-type-p result (if (cl-find-if #2# '#3#) . #4#)))) (sly . #5#) find-definition\.2-3 "For input ((in-package s…, check that we're able to find definitions even when\nconfronted with nasty #.-fu." #[0 "\300\301\302\303#\207" [sly-test-find-definition\.2 "(in-package slynk)\n(eval-when (:compile-toplevel) (defparameter *bar* 456))\n(eval-when (:load-toplevel :execute) (makunbound '*bar*))\n(defun bar () #.*bar*)\n(defun .foo. () 123)" "SLYNK" "[ 	]*(defun .foo. () 123)"] 4] (satisfies (lambda #1# (ert-test-result-type-p result (if (cl-find-if #2# '#3#) . #4#)))) (sly . #5#)] 10)
#@27 

(fn NAME SOURCE REGEXP)
(defalias 'sly-test-find-definition\.3 #[771 "\301\302!\210\303\304!\210\305\306\307\"r\211q\210\310\311\"\216c\210\312\313\314\315 \316\317\211\257!\210)pr\304q\210\320!\210p=\204A \321\322\323\324#P!\210\325!\204K \321\326!\210)\210*\210\301\302!\207" [sly-buffer-package sly-sync-to-top-level 0.3 switch-to-buffer "*scratch*" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] "SLYNK" sly-eval slynk:compile-string-for-emacs buffer-name '((:position 0) (:line 1 1)) nil sly-edit-definition ert-fail "Ooops, " format "Definition of %S is in buffer `%s'." looking-at "Check failed: Definition now at point."] 11 (#$ . 45893)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test find-definition\.3-1 record ert-test "For input (slynk::foo-st…, extra tests for defstruct." #[0 "\300\301\302\303#\207" [sly-test-find-definition\.3 "slynk::foo-struct" "(progn\n  (defun foo-fun ())\n  (defstruct (foo-struct (:constructor nil) (:predicate nil)))\n)" "(defstruct (foo-struct"] 4] nil (satisfies (lambda (result) (ert-test-result-type-p result (if (cl-find-if (lambda (impl) (unless (listp impl) (setq impl (list impl #'(lambda (&rest _ign) t)))) (and (equal (car impl) (sly-lisp-implementation-name)) (funcall (cadr impl) (replace-regexp-in-string "[-._+ ]?[[:alnum:]]\\{7,9\\}$" "-snapshot" (sly-lisp-implementation-version)) (caddr impl)))) '("abcl" "allegro" "clisp" "lispworks" ("sbcl" version< "1.3.0") "ecl")) :failed :passed)))) (sly core)] 10)
#@36 

(fn PREFIX EXPECTED-COMPLETIONS)
(defalias 'sly-test-complete-symbol #[514 "\300\301!\210\302!\303\304#\266\300\301!\207" [sly-sync-to-top-level 0.3 sly-simple-completions sly-test-expect "Completion set"] 7 (#$ . 47472)])
(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&\"\207" [ert-set-test complete-symbol-1 record ert-test "For input (cl:compile ((…, find the completions of a symbol-name prefix." #[0 "\300\301\302\"\207" [sly-test-complete-symbol "cl:compile" (("cl:compile" "cl:compile-file" "cl:compile-file-pathname" "cl:compiled-function" "cl:compiled-function-p" "cl:compiler-macro" "cl:compiler-macro-function") "cl:compile")] 3] nil :passed (sly . #1=(core)) complete-symbol-2 "For input (cl:foobar (ni…, find the completions of a symbol-name prefix." #[0 "\300\301\302\"\207" [sly-test-complete-symbol "cl:foobar" (nil #2="")] 3] (sly . #1#) complete-symbol-3 "For input (slynk::compil…, find the completions of a symbol-name prefix." #[0 "\300\301\302\"\207" [sly-test-complete-symbol "slynk::compile-file" (("slynk::compile-file" "slynk::compile-file-for-emacs" "slynk::compile-file-if-needed" "slynk::compile-file-output" "slynk::compile-file-pathname") "slynk::compile-file")] 3] (sly . #1#) complete-symbol-4 "For input (cl:m-v-l (nil…, find the completions of a symbol-name prefix." #[0 "\300\301\302\"\207" [sly-test-complete-symbol "cl:m-v-l" (nil #2#)] 3] (sly . #1#)] 10)
#@28 

(fn PREFIX EXPECTATIONS)
(defalias 'sly-test-flex-complete-symbol #[514 "\301\302!\210\303\304!@\305\211\211\211\211:\203d @\262\211A\262\242\262@\262\306\307\310$\262\204< \311\312\313\f#!\210W\204Z \311\312\314T\315\316T#&!\210A\262\305\262\202 \266)\210\301\302!\207" [sly-buffer-package sly-sync-to-top-level 0.3 "COMMON-LISP" sly-flex-completions nil cl-position :test string= ert-fail format "Didn't find %s in the completions for %s" "Expected to find %s in the first %s completions for %s, but it came in %s\n=> %s" cl-subseq 0] 20 (#$ . 49038)])
(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&\"\207" [ert-set-test flex-complete-symbol-1 record ert-test "For input (m-v-b ((multi…, find the flex completions of a symbol-name prefix." #[0 "\300\301\302\"\207" [sly-test-flex-complete-symbol "m-v-b" (("multiple-value-bind" 1))] 3] nil :passed (sly . #1=(core)) flex-complete-symbol-2 "For input (mvbind ((mult…, find the flex completions of a symbol-name prefix." #[0 "\300\301\302\"\207" [sly-test-flex-complete-symbol "mvbind" (("multiple-value-bind" 1))] 3] (sly . #1#) flex-complete-symbol-3 "For input (mvcall ((mult…, find the flex completions of a symbol-name prefix." #[0 "\300\301\302\"\207" [sly-test-flex-complete-symbol "mvcall" (("multiple-value-call" 1))] 3] (sly . #1#) flex-complete-symbol-4 "For input (mvlist ((mult…, find the flex completions of a symbol-name prefix." #[0 "\300\301\302\"\207" [sly-test-flex-complete-symbol "mvlist" (("multiple-value-list" 3))] 3] (sly . #1#) flex-complete-symbol-5 "For input (echonumberlis…, find the flex completions of a symbol-name prefix." #[0 "\300\301\302\"\207" [sly-test-flex-complete-symbol "echonumberlist" (("slynk:*echo-number-alist*" 1))] 3] (sly . #1#)] 10)
#@35 

(fn INPUT-KEYS EXPECTED-RESULT)
(defalias 'sly-test-basic-completion #[514 "\302\303!\210\203\f \304\305!\210\306\307!!\310\311!\312\313#\266\302\303!\207" [noninteractive unread-command-events sly-sync-to-top-level 0.3 sly-skip-test "Can't use unread-command-events in batch mode" listify-key-sequence kbd sly-read-from-minibuffer "Test: " sly-test-expect "Completed string"] 7 (#$ . 51030)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\210\300\311\302\303\311\312\313\306\307\314&\"\207" [ert-set-test basic-completion-1 record ert-test "For input (( r e v e TAB…, test `sly-read-from-minibuffer' with INPUT-KEYS as events." #[0 "\300\301\302\"\207" [sly-test-basic-completion "( r e v e TAB TAB SPC ' ( 1 SPC 2 SPC 3 ) ) RET" "(reverse '(1 2 3))"] 3] nil :passed (sly . #1=(core)) basic-completion-2 "For input (( c l : c o n…, test `sly-read-from-minibuffer' with INPUT-KEYS as events." #[0 "\300\301\302\"\207" [sly-test-basic-completion "( c l : c o n TAB s t a n t l TAB TAB SPC 4 2 ) RET" "(cl:constantly 42)"] 3] (sly . #1#)] 10)
#@39 

(fn FUNCTION-NAME EXPECTED-ARGLIST)
(defalias 'sly-test-arglist #[514 "\300\301!\210\302\303\304BB!\305\306\205 \227\307$\266\300\301!\207" [sly-sync-to-top-level 0.3 sly-eval slynk:operator-arglist ("slynk") sly-test-expect "Argument list is as expected" #[514 "\211\205 \300\"\207" [string-match] 5 "\n\n(fn PATTERN ARGLIST)"]] 8 (#$ . 52101)])
(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&\"\207" [ert-set-test arglist-1 record ert-test "For input (slynk::operat…, lookup the argument list for FUNCTION-NAME.\nconfirm that EXPECTED-ARGLIST is displayed." #[0 "\300\301\302\"\207" [sly-test-arglist "slynk::operator-arglist" "(slynk::operator-arglist name package)"] 3] nil :passed (sly . #1=(core)) arglist-2 "For input (slynk::comput…, lookup the argument list for FUNCTION-NAME.\nconfirm that EXPECTED-ARGLIST is displayed." #[0 "\300\301\302\"\207" [sly-test-arglist "slynk::compute-backtrace" "(slynk::compute-backtrace start end)"] 3] (sly . #1#) arglist-3 "For input (slynk::emacs-…, lookup the argument list for FUNCTION-NAME.\nconfirm that EXPECTED-ARGLIST is displayed." #[0 "\300\301\302\"\207" [sly-test-arglist "slynk::emacs-connected" "(slynk::emacs-connected)"] 3] (sly . #1#) arglist-4 "For input (slynk::compil…, lookup the argument list for FUNCTION-NAME.\nconfirm that EXPECTED-ARGLIST is displayed." #[0 "\300\301\302\"\207" [sly-test-arglist "slynk::compile-string-for-emacs" "(slynk::compile-string-for-emacs string buffer position filename policy)"] 3] (sly . #1#) arglist-5 "For input (slynk::connec…, lookup the argument list for FUNCTION-NAME.\nconfirm that EXPECTED-ARGLIST is displayed." #[0 "\300\301\302\"\207" [sly-test-arglist "slynk::connection-socket-io" "(slynk::connection-socket-io \\(struct\\(ure\\)?\\|object\\|instance\\|x\\|connection\\))"] 3] (sly . #1#) arglist-6 "For input (cl:lisp-imple…, lookup the argument list for FUNCTION-NAME.\nconfirm that EXPECTED-ARGLIST is displayed." #[0 "\300\301\302\"\207" [sly-test-arglist "cl:lisp-implementation-type" "(cl:lisp-implementation-type)"] 3] (sly . #1#) arglist-7 "For input (cl:class-name…, lookup the argument list for FUNCTION-NAME.\nconfirm that EXPECTED-ARGLIST is displayed." #[0 "\300\301\302\"\207" [sly-test-arglist "cl:class-name" "(cl:class-name \\(class\\|object\\|instance\\|structure\\))"] 3] (sly . #1#)] 10)
#@24 

(fn PROGRAM SUBFORM)
(defalias 'sly-test--compile-defun #[514 "\302 \210\303\304\305\"r\211q\210\306\307\"\216\310 \210c\210\311\312\313\314 \315\"\210\316\317\320!\210db\210\321\322!\210\323p!\232\2049 \324\325!\210+\210\302 \207" [font-lock-verbose sly-buffer-package sly-check-top-level generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] lisp-mode nil ":slynk" sly-compile-string buffer-string 1 ":cl-user" sly-sync-to-top-level 5 call-interactively sly-previous-note read ert-fail "Check failed: error-location-correct"] 6 (#$ . 54747)])
#@24 

(fn PROGRAM SUBFORM)
(defalias 'sly-test-compile-defun #[514 "\300\301!\210\302\"\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-test--compile-defun] 5 (#$ . 55364)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\210\300\311\302\303\311\304\312\306\313\314&\"\210\300\315\302\303\315\304\316\306\317\320&\"\210\300\321\302\303\321\304\322\306\323\324&\"\210\300\325\302\303\325\304\326\306\327\330&\"\210\300\331\302\303\331\332\333\306\334\335&\"\207" [ert-set-test compile-defun-1 record ert-test "For input ((defun cl-use…, compile PROGRAM containing errors.\nconfirm that the EXPECTED subform is correctly located." #[0 "\300\301\302\"\207" [sly-test-compile-defun "(defun cl-user::foo () (cl-user::bar))" (cl-user::bar)] 3] nil (satisfies (lambda #1=(result) (ert-test-result-type-p result (if (cl-find-if #2=(lambda (impl) (unless (listp impl) (setq impl (list impl #'(lambda (&rest _ign) t)))) (and (equal (car impl) (sly-lisp-implementation-name)) (funcall (cadr impl) (replace-regexp-in-string "[-._+ ]?[[:alnum:]]\\{7,9\\}$" "-snapshot" (sly-lisp-implementation-version)) (caddr impl)))) '#3=("allegro" "lispworks" "clisp")) . #4=(:failed :passed))))) (sly . #5=(core)) compile-defun-2 #[0 "\300\301\302\"\207" [sly-test-compile-defun "(defun cl-user::foo ()\n          #\\space\n          ;;Sdf\n          (cl-user::bar))" (cl-user::bar)] 3] (satisfies (lambda #1# (ert-test-result-type-p result (if (cl-find-if #2# '#3#) . #4#)))) (sly . #5#) compile-defun-3 #[0 "\300\301\302\"\207" [sly-test-compile-defun "(defun cl-user::foo ()\n             #+(or)skipped\n             #| #||#\n                #||# |#\n             (cl-user::bar))" (cl-user::bar)] 3] (satisfies (lambda #1# (ert-test-result-type-p result (if (cl-find-if #2# '#3#) . #4#)))) (sly . #5#) compile-defun-4 #[0 "\300\301\302\"\207" [sly-test-compile-defun "(defun cl-user::foo ()\n          \"\\\" bla bla \\\"\"\n          (cl-user::bar))" (cl-user::bar)] 3] (satisfies (lambda #1# (ert-test-result-type-p result (if (cl-find-if #2# '#3#) . #4#)))) (sly . #5#) compile-defun-5 #[0 "\300\301\302\"\207" [sly-test-compile-defun "(defun cl-user::foo ()\n          #.*log-events*\n          (cl-user::bar))" (cl-user::bar)] 3] (satisfies (lambda #1# (ert-test-result-type-p result (if (cl-find-if #2# '#3#) . #4#)))) (sly . #5#) compile-defun-6 "For input (#.'(defun x (…, compile PROGRAM containing errors.\nconfirm that the EXPECTED subform is correctly located." #[0 "\300\301\302\"\207" [sly-test-compile-defun "#.'(defun x () (/ 1 0))\n        (defun foo ()\n           (cl-user::bar))\n\n        " (cl-user::bar)] 3] (satisfies (lambda #1# (ert-test-result-type-p result (if (cl-find-if #2# '#3#) . #4#)))) (sly . #5#)] 10)
#@25 

(fn PROGRAM EXPECTED)
(defalias 'sly-test-compile-defun-with-reader-conditionals #[514 "\300\301!\210\302\"\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-test--compile-defun] 5 (#$ . 58103)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test compile-defun-with-reader-conditionals-1 record ert-test "For input ((defun foo ()…, compile PROGRAM containing errors.\nconfirm that the EXPECTED subform is correctly located." #[0 "\300\301\302\"\207" [sly-test-compile-defun-with-reader-conditionals "(defun foo ()\n          #+#.'(:and) (/ 1 0))" (/ 1 0)] 3] nil (satisfies (lambda (result) (ert-test-result-type-p result (if (cl-find-if (lambda (impl) (unless (listp impl) (setq impl (list impl #'(lambda (&rest _ign) t)))) (and (equal (car impl) (sly-lisp-implementation-name)) (funcall (cadr impl) (replace-regexp-in-string "[-._+ ]?[[:alnum:]]\\{7,9\\}$" "-snapshot" (sly-lisp-implementation-version)) (caddr impl)))) '("allegro" "lispworks" "clisp" "ccl")) :failed :passed)))) (sly core)] 10)
#@24 

(fn PROGRAM SUBFORM)
(defalias 'sly-test-compile-defun-with-backquote #[514 "\300\301!\210\302\"\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-test--compile-defun] 5 (#$ . 59137)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test compile-defun-with-backquote-1 record ert-test "For input ((defun cl-use…, compile PROGRAM containing errors.\nconfirm that SUBFORM is correctly located." #[0 "\300\301\302\"\207" [sly-test-compile-defun-with-backquote "(defun cl-user::foo ()\n           (list `(1 ,(random 10) 2 ,@(make-list (random 10)) 3\n                     ,(cl-user::bar))))" (cl-user::bar)] 3] nil (satisfies (lambda (result) (ert-test-result-type-p result (if (cl-find-if (lambda (impl) (unless (listp impl) (setq impl (list impl #'(lambda (&rest _ign) t)))) (and (equal (car impl) (sly-lisp-implementation-name)) (funcall (cadr impl) (replace-regexp-in-string "[-._+ ]?[[:alnum:]]\\{7,9\\}$" "-snapshot" (sly-lisp-implementation-version)) (caddr impl)))) '("sbcl" "allegro" "lispworks" "clisp")) :failed :passed)))) (sly core)] 10)
#@15 

(fn STRING)
(defalias 'sly-test-compile-file #[257 "\300\301!\210\302\303\304\"\305\306\"\216r\211q\210c\210)r\211q\210\307\310\211\311\310\312%\210*\210\310C\313\314\311\315BB\316\317\"\"\210\320\321\305\322\"\323#\210\211A\3248\304=\204H \325\326!\210\266\300\301!\207" [sly-sync-to-top-level 0.3 generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] write-region nil "/tmp/sly-tmp-file.lisp" 0 sly-eval-async slynk:compile-file-for-emacs (nil) sly-rcurry #[514 "\211\300\240\210\211\241\207" [t] 4 "\n\n(fn RESULT CELL)"] sly-wait-condition "Compilation finished" #[0 "\300@\207" [V0] 1] 0.5 2 ert-fail "Check failed: Compilation successfull"] 8 (#$ . 60218)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test compile-file-1 record ert-test "For input ((defun foo ni…, insert STRING in a file, and compile it." #[0 "\300\301!\207" [sly-test-compile-file "(defun foo nil nil)\n"] 2] nil (satisfies (lambda (result) (ert-test-result-type-p result (if (cl-find-if (lambda (impl) (unless (listp impl) (setq impl (list impl #'(lambda (&rest _ign) t)))) (and (equal (car impl) (sly-lisp-implementation-name)) (funcall (cadr impl) (replace-regexp-in-string "[-._+ ]?[[:alnum:]]\\{7,9\\}$" "-snapshot" (sly-lisp-implementation-version)) (caddr impl)))) '("allegro" "lispworks" "clisp")) :failed :passed)))) (sly core)] 10)
#@21 

(fn INPUT OUTPUT)
(defalias 'sly-test-utf-8-source #[514 "\304\305!\210\306\307\310DD!\210\311\312\306\313!#\210\314C\315\316\"\317\320\"\210\321\322\"\216\323\324\"\210\325\326\321\327\"\330#\210\311\331\306\332!#\210)\333\314\240\210\317\320\"\210\321\334#\216\335\336\337\"r\211q\210\321\340\"\216\341\342!\203b \342\337!\210\343\333\344c\210c\210\343\345\314\211\333\314\337%\210)\346\347 \210\325\326\321\350\"\330#\210)\311\351\306\352!#\210*\210)\266\304\305!\207" [buffer-file-coding-system buffer-file-name coding-system-for-write sly-load-failed-fasl sly-sync-to-top-level 0.3 sly-eval cl:eval cl:read-from-string sly-test-expect "Eval result correct" (cl-user::foo) nil sly-curry #[385 "\300\240\207" [t] 4 "\n\n(fn CELL &rest _)"] add-hook sly-compilation-finished-hook make-closure #[0 "\301\302\300\"\207" [V0 remove-hook sly-compilation-finished-hook] 3] sly-compile-string 0 sly-wait-condition "Compilation finished" #[0 "\300@\207" [V0] 1] 0.5 "Compile-string result correct" (cl-user::foo) "/tmp/sly-tmp-file.lisp" #[0 "\302\303\300\"\210\3041 \305\301!0\207\210\306\207" [V0 V1 remove-hook sly-compilation-finished-hook (error) delete-file nil] 3] generate-new-buffer " *temp*" t #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] fboundp set-buffer-multibyte utf-8-unix ";; -*- coding: utf-8-unix -*- \n" write-region always sly-compile-and-load-file #[0 "\300@\207" [V0] 1] "Compile-file result correct" (cl-user::foo)] 12 (#$ . 61643)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test utf-8-source-1 record ert-test "For input ((defun cl-use…, source code containing utf-8 should work" #[0 "\300\301\302\"\207" [sly-test-utf-8-source "(defun cl-user::foo () \"おはよう\")" "おはよう"] 3] nil :passed (sly core)] 10)
#@14 

(fn DEPTH)
(defalias 'sly-test-async-eval-debugging #[257 "\301\302!\210\211\303C\304\305#\211B\306\307!\210\301\310!\210\242U\204+ \311\312\313\314\242#P!\210)\266\301\302!\207" [sly-db-hook sly-sync-to-top-level 0.3 0 make-closure #[0 "r\303\304 !@q\210\n\301\242V\205! \301\n\240\210\n\300U\203 \305 \202! \306\307!)\207" [V0 V1 sly-db-level sly-db-buffers sly-current-connection sly-db-quit sly-eval-async (error)] 2] sly-eval-async (error) 5 ert-fail "Ooops, " format "Maximum depth reached (%S) is %S."] 10 (#$ . 63468)])
(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&\"\207" [ert-set-test async-eval-debugging-1 record ert-test "For input (1), test recursive debugging of asynchronous evaluation requests." #[0 "\300\301!\207" [sly-test-async-eval-debugging 1] 2] nil :passed (sly . #1=(core)) async-eval-debugging-2 "For input (2), test recursive debugging of asynchronous evaluation requests." #[0 "\300\301!\207" [sly-test-async-eval-debugging 2] 2] (sly . #1#) async-eval-debugging-3 "For input (3), test recursive debugging of asynchronous evaluation requests." #[0 "\300\301!\207" [sly-test-async-eval-debugging 3] 2] (sly . #1#)] 10)
#@22 

(fn LEVEL2 LEVEL1)
(defalias 'sly-test-unwind-to-previous-sly-db-level #[514 "\301\302!\210\303 \210\304C\305C\306\307%\211B\310\311!\210\301\312!\210\303 \210\242U\2046 \313\314\315\316\242	#P!\210\242\317=\204E \313\314\315\320!P!\210)\266\301\302!\207" [sly-db-hook sly-sync-to-top-level 0.3 sly-check-top-level enter 0 make-closure #[0 "r\305\306 !@q\210\303\f\303\242]\240\210\302\242\307=\2030 \f\300U\203' \302\310\240\210\311\312 !\202W \313\314\315\fE!\202W \302\242\310=\203M \f\301U\203F \302\316\240\210\317 \202W \311\312 !\202W \320\321\302\242\322#\205W \323)\207" [V0 V1 V2 V3 sly-db-level sly-db-buffers sly-current-connection enter leave sly-db-invoke-restart sly-db-first-abort-restart sly-eval-async cl:aref cl:nil ok sly-db-quit error "cl-ecase failed: %s, %s" (enter leave) nil] 4] sly-eval-async (cl:aref cl:nil 0) 15 ert-fail "Ooops, " format "Maximum depth reached (%S) is %S." ok "Final state reached."] 13 (#$ . 64739)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\210\300\311\302\303\311\312\313\306\307\314&\"\207" [ert-set-test unwind-to-previous-sly-db-level-1 record ert-test "For input (2 1), test recursive debugging and returning to lower SLY-DB levels." #[0 "\300\301\302\"\207" [sly-test-unwind-to-previous-sly-db-level 2 1] 3] nil :passed (sly . #1=(core)) unwind-to-previous-sly-db-level-2 "For input (4 2), test recursive debugging and returning to lower SLY-DB levels." #[0 "\300\301\302\"\207" [sly-test-unwind-to-previous-sly-db-level 4 2] 3] (sly . #1#)] 10)
(defalias 'sly-db-first-abort-restart #[0 "\302\303\304	\")\207" [case-fold-search sly-db-restarts t cl-position-if #[257 "\300\301@\"\207" [string-match "abort"] 4 "\n\n(fn X)"]] 3])
(defalias 'sly-test-loop-interrupt-quit #[0 "\300\301!\210\302 \210\303\304\305\306#\210\307\310\311\"\210\312 \204 \313\314!\210\315 \210\316\317\320\321#\210r\322\323 !@q\210\324 \210)\300\321!\210\302 \210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-top-level sly-eval-async (cl:loop) #[257 "\300\207" [nil] 2 "\n\n(fn _)"] "CL-USER" accept-process-output nil 1 sly-busy-p ert-fail "Check failed: In eval state." sly-interrupt sly-wait-condition "First interrupt" #[0 "\300\301!\207" [sly-sly-db-level= 1] 2] 5 sly-db-buffers sly-current-connection sly-db-quit] 4])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test loop-interrupt-quit-1 record ert-test "For input nil, test interrupting a loop." #[0 "\300 \207" [sly-test-loop-interrupt-quit] 1] nil :passed (sly core)] 10)
(defalias 'sly-test-loop-interrupt-continue-interrupt-quit #[0 "\300\301!\210\302 \210\303\304\305\306#\210\307\310!\210\311\312\313\314#\210\315 \210\311\316\317\314#\210r\320\321 !@q\210\322 \210)\311\312\323\314#\210\315 \210\311\324\325\314#\210r\320\321 !@q\210\326 \210)\300\314!\210\302 \210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-top-level sly-eval-async (cl:loop) #[257 "\300\207" [nil] 2 "\n\n(fn _)"] "CL-USER" sleep-for 1 sly-wait-condition "running" sly-busy-p 5 sly-interrupt "First interrupt" #[0 "\300\301!\207" [sly-sly-db-level= 1] 2] sly-db-buffers sly-current-connection sly-db-continue #[0 "\300 \205 \301\302 !@?\207" [sly-busy-p sly-db-buffers sly-current-connection] 2] "Second interrupt" #[0 "\300\301!\207" [sly-sly-db-level= 1] 2] sly-db-quit] 4])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test loop-interrupt-continue-interrupt-quit-1 record ert-test "For input nil, test interrupting a previously interrupted but continued loop." #[0 "\300 \207" [sly-test-loop-interrupt-continue-interrupt-quit] 1] nil :passed (sly core)] 10)
(defalias 'sly-test-interactive-eval #[0 "\303\304!\210\305 \210\306\307\310!\210\303\311!\210\312 \210)	\204S \313C\3141* \315\316\312 )D0\2025 \317\240\210\211@AD\262\320C\321C\322\323%\216\324\242\"\240)\204Q \325\242!\210\266\303\304!\207" [sly-db-hook noninteractive signal-hook-function sly-sync-to-top-level 0.3 sly-check-top-level #[0 "\300 \207" [sly-db-continue] 1] sly-interactive-eval "(progn (cerror \"foo\" \"restart\") (cerror \"bar\" \"restart\") (+ 1 2))" 5 current-message equal (error) ert--should-signal-hook #2="=> 3 (2 bits, #x3, #o3, #b11)" signal #1=#:ert-form-evaluation-aborted-7666 nil make-closure #[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 #2# (current-message))) :form #1# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail] 10])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test interactive-eval-1 record ert-test "For input nil, test interactive eval and continuing from the debugger." #[0 "\300 \207" [sly-test-interactive-eval] 1] nil :passed (sly core)] 10)
#@39 

(fn FORMAT-CONTROL FORMAT-ARGUMENT)
(defalias 'sly-test-report-condition-with-circular-list #[514 "\302\303!\210\304 \210\305C\306\307\"\310\311\312#!\210\211\242\204! \313 \210\202 \302\314!\210\304 \210	\2049 \315 \211\316\232\2048 \317\320!\210\210)\210\302\303!\207" [sly-db-hook noninteractive sly-sync-to-top-level 0.3 sly-check-top-level nil make-closure #[0 "\301 \210\300\302\240\207" [V0 sly-db-continue t] 2] sly-interactive-eval format "(with-standard-io-syntax (cerror \"foo\" \"%s\" %s) (+ 1 2))" accept-process-output 5 current-message "=> 3 (2 bits, #x3, #o3, #b11)" ert-fail "Check failed: Minibuffer contains: \"3\""] 8 (#$ . 69599)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\210\300\311\302\303\311\304\312\306\307\313&\"\210\300\314\302\303\314\304\315\306\307\316&\"\207" [ert-set-test report-condition-with-circular-list-1 record ert-test "For input (~a (let ((x (…, test conditions involving circular lists." #[0 "\300\301\302\"\207" [sly-test-report-condition-with-circular-list "~a" "(let ((x (cons nil nil))) (setf (cdr x) x))"] 3] nil :passed (sly . #1=(core)) report-condition-with-circular-list-2 #[0 "\300\301\302\"\207" [sly-test-report-condition-with-circular-list "~a" "(let ((x (cons nil nil))) (setf (car x) x))"] 3] (sly . #1#) report-condition-with-circular-list-3 #[0 "\300\301\302\"\207" [sly-test-report-condition-with-circular-list "~a" "(let ((x (cons (make-string 100000 :initial-element #\\X) nil)))                (setf (cdr x) x))"] 3] (sly . #1#)] 10)
(defalias 'sly-test-interrupt-bubbling-idiot #[0 "\300\301!\210\302\303\304\"\210\305 \210\306\307\310\311#\210\312\304!\210\313 \210\314\315\316\317#\210r\320\321 !@q\210\322 \210)\300\323!\210\300\301!\207" [sly-sync-to-top-level 0.3 accept-process-output nil 1 sly-check-top-level sly-eval-async (cl:loop :for i :from 0 :do (cl:progn (cl:print i) (cl:finish-output))) #[257 "\300\207" [nil] 2 "\n\n(fn _)"] "CL-USER" sleep-for sly-interrupt sly-wait-condition "Debugger visible" #[0 "\300\301!\205 \302\303\304 !@!\207" [sly-sly-db-level= 1 get-buffer-window sly-db-buffers sly-current-connection] 3] 30 sly-db-buffers sly-current-connection sly-db-quit 5] 4])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test interrupt-bubbling-idiot-1 record ert-test "For input nil, test interrupting a loop that sends a lot of output to Emacs." #[0 "\300 \207" [sly-test-interrupt-bubbling-idiot] 1] nil :passed (sly core)] 10)
(defalias 'sly-test-interrupt-encode-message #[0 "\300\301!\210\302\303!\210\304\305!\210\302\306!\210\307\310\311\312#\210r\313\314 !@q\210\315 \210)\300\316!\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-eval-async (cl:loop :for i :from 0 :do (slynk::background-message "foo ~d" i)) sleep-for 1 (cl:/ 1 0) sly-wait-condition "Debugger visible" #[0 "\300\301!\205 \302\303\304 !@!\207" [sly-sly-db-level= 1 get-buffer-window sly-db-buffers sly-current-connection] 3] 30 sly-db-buffers sly-current-connection sly-db-quit 5] 4])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test interrupt-encode-message-1 record ert-test "For input nil, test interrupt processing during slynk::encode-message" #[0 "\300 \211\301=\203\f \210\202 \302\303\304\"!\266\305 \207" [sly-communication-style :sigio sly-skip-test format "test not applicable for style %s" sly-test-interrupt-encode-message] 5] nil :passed (sly core)] 10)
#@12 

(fn EXP)
(defalias 'sly-test-inspector #[257 "\300\301!\210\302\303!!\210\304 \203 \305\306!\210\307\310\304\311#\210r\312\313 !q\210\314 \210)\307\315\316\311#\210\300\317!\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-inspect prin1-to-string sly-inspector-visible-p cl--assertion-failed (not (sly-inspector-visible-p)) sly-wait-condition "Inspector visible" 5 window-buffer selected-window sly-inspector-quit "Inspector closed" #[0 "\300 ?\207" [sly-inspector-visible-p] 1] 1] 5 (#$ . 73022)])
(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&\"\207" [ert-set-test inspector-1 record ert-test "For input ((let ((h (mak…, test basic inspector workingness." #[0 "\300\301!\207" [sly-test-inspector (let ((h (make-hash-table))) (loop for i below 10 do (setf (gethash i h) i)) h)] 2] nil :passed (sly . #1=(core)) inspector-2 "For input ((make-array 1…, test basic inspector workingness." #[0 "\300\301!\207" [sly-test-inspector (make-array 10)] 2] (sly . #1#) inspector-3 "For input ((make-list 10…, test basic inspector workingness." #[0 "\300\301!\207" [sly-test-inspector (make-list 10)] 2] (sly . #1#) inspector-4 "For input ('cons), test basic inspector workingness." #[0 "\300\301!\207" [sly-test-inspector 'cons] 2] (sly . #1#) inspector-5 "For input (#'cons), test basic inspector workingness." #[0 "\300\301!\207" [sly-test-inspector #'cons] 2] (sly . #1#)] 10)
#@13 

(fn NAME)
(defalias 'sly-buffer-visible-p #[257 "\300\301 !\302\303!\"\207" [window-buffer selected-window string-match buffer-name] 6 (#$ . 74608)])
(defalias 'sly-inspector-visible-p #[0 "\300\301\302\303\304#!\207" [sly-buffer-visible-p sly-buffer-name :inspector :connection t] 5])
#@159 Execute `name' as if it was done by the user through the
Command Loop. Similiar to `call-interactively' but also pushes on
the buffer's undo-list.

(fn NAME)
(defalias 'sly-execute-as-command #[257 "\300 \210\301!\207" [undo-boundary call-interactively] 3 (#$ . 74905)])
#@63 

(fn MACRO-DEFS BUFCONTENT EXPANSION1 SEARCH-STR EXPANSION2)
(defalias 'sly-test-macroexpand #[1285 "\301\302!\210\303 \210\304\305\306\307\"r\211q\210\310\311\"\216\312 \210\211\2030 \211@\313\314\"\210\301\315!\210A\266\202\202 \210c\210eb\210\316\317!\210\320\321\322\315#\210r\323\324\325!!q\210\326\327\330 \227\331$\210\332!\210\333 \210\316\334!\210\301\335!\210\326\336\330 \227\331$\210\316\337!\210\326\340\330 \227\331$\210+\210\341\301\302!\207" [sly-buffer-package sly-sync-to-top-level 0.3 sly-check-top-level ":slynk" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] lisp-mode sly-compile-string 0 5 sly-execute-as-command sly-macroexpand-1 sly-wait-condition "Macroexpansion buffer visible" #[0 "\300\301\302!!\207" [sly-buffer-visible-p sly-buffer-name :macroexpansion] 3] get-buffer sly-buffer-name :macroexpansion sly-test-expect "Initial macroexpansion is correct" buffer-string sly-test-macroexpansion= search-forward backward-up-list sly-macroexpand-1-inplace 3 "In-place macroexpansion is correct" sly-macroexpand-undo "Expansion after undo is correct" ":cl-user"] 11 (#$ . 75183)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test macroexpand-1 record ert-test "For input (((defmacro qw…, foo" #[0 "\300\301\302\303\304\305%\207" [sly-test-macroexpand ("(defmacro qwertz (&body body) `(list :qwertz ',body))" "(defmacro yxcv (&body body) `(list :yxcv (qwertz ,@body)))") "(yxcv :A :B :C)" "(list :yxcv (qwertz :a :b :c))" "(qwertz" "(list :yxcv (list :qwertz '(:a :b :c)))"] 6] nil :passed (sly core)] 10)
#@46 

(fn STRING1 STRING2 &optional IGNORE-CASE)
(defalias 'sly-test-macroexpansion= #[770 "\300\301\302#\300\301\302#\303\304\211\304\211	&\207" [replace-regexp-in-string " *\n *" " " compare-strings nil] 13 (#$ . 76824)])
#@37 

(fn BUFFER-CONTENT POINT-MARKERS)
(defalias 'sly-test-indentation #[514 "\300\301!\210\302\303\304\"r\211q\210\305\306\"\216\307 \210\310\311!\210c\210\312ed\"\210\300\313!\210\314 \210\300\313!\210\211\203H \211@\315!\210\316 \210\317`\320 \210`\"\210A\266\202\202, \210\321\322\323\324 !#\210*\210\300\301!\207" [sly-sync-to-top-level 0.3 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] lisp-mode sly-editing-mode 1 sly-compile-region 3 sly-update-indentation search-backward beginning-of-defun indent-region end-of-defun sly-test-expect "Correct buffer content" substring-no-properties buffer-string] 8 (#$ . 77056)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test indentation-1 record ert-test "For input (\n(in-package :…, check indentation update to work correctly." #[0 "\300\301\302\"\207" [sly-test-indentation "\n(in-package :slynk)\n\n(defmacro with-lolipop (&body body)\n  `(progn ,@body))\n\n(defmacro lolipop (&body body)\n  `(progn ,@body))\n\n(with-lolipop\n  1\n  2\n  42)\n\n(lolipop\n  1\n  2\n  23)\n" ("23" "42")] 3] nil :passed (sly core)] 10)
#@18 

(fn TIMES EXP)
(defalias 'sly-test-break #[514 "\300\301!\210\302\303\304\"\210\305 \210\306\307\310\311\312\313D\314F!DD!\210\315\211W\203G \303\316\317\320\321#\210r\322\323 !@q\210\324 \210)\316\325\326\327#\266\211T\262\202  \266\300\330!\210\300\301!\207" [sly-sync-to-top-level 0.3 accept-process-output nil 0.2 sly-check-top-level sly-eval-async cl:eval cl:read-from-string prin1-to-string dotimes i (unless (= i 0) (slynk::sleep-for 1)) 0 sly-wait-condition "Debugger visible" #[0 "\300\301!\205 \302\303\304 !@!\207" [sly-sly-db-level= 1 get-buffer-window sly-db-buffers sly-current-connection] 3] 3 sly-db-buffers sly-current-connection sly-db-continue "sly-db closed" #[0 "\300\301 !@?\207" [sly-db-buffers sly-current-connection] 2] 0.5 1] 10 (#$ . 78231)])
(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&\"\207" [ert-set-test break-1 record ert-test "For input (1 (break)), test whether BREAK invokes SLY-DB." #[0 "\300\301\302\"\207" [sly-test-break 1 #1=(break)] 3] nil :passed (sly . #2=(core)) break-2 "For input (2 (break)), test whether BREAK invokes SLY-DB." #[0 "\300\301\302\"\207" [sly-test-break 2 #1#] 3] (sly . #2#) break-3 "For input (3 (break)), test whether BREAK invokes SLY-DB." #[0 "\300\301\302\"\207" [sly-test-break 3 #1#] 3] (sly . #2#)] 10)
#@18 

(fn TIMES EXP)
(defalias 'sly-test-break2 #[514 "\300\301!\210\302\"\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-test-break] 5 (#$ . 79630)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\210\300\311\302\303\311\312\313\306\314\315&\"\210\300\316\302\303\316\317\320\306\321\322&\"\207" [ert-set-test break2-1 record ert-test "For input (1 (block outt…, backends should arguably make sure that BREAK does not depend\non *DEBUGGER-HOOK*." #[0 "\300\301\302\"\207" [sly-test-break2 1 #1=(block outta (let ((*debugger-hook* (lambda (c h) (return-from outta 42)))) (break)))] 3] nil (satisfies (lambda #2=(result) (ert-test-result-type-p result (if (cl-find-if #3=(lambda (impl) (unless (listp impl) (setq impl (list impl #'(lambda (&rest _ign) t)))) (and (equal (car impl) (sly-lisp-implementation-name)) (funcall (cadr impl) (replace-regexp-in-string "[-._+ ]?[[:alnum:]]\\{7,9\\}$" "-snapshot" (sly-lisp-implementation-version)) (caddr impl)))) '#4=("cmucl" "allegro")) . #5=(:failed :passed))))) (sly . #6=(core)) break2-2 "For input (2 (block outt…, backends should arguably make sure that BREAK does not depend\non *DEBUGGER-HOOK*." #[0 "\300\301\302\"\207" [sly-test-break2 2 #1#] 3] (satisfies (lambda #2# (ert-test-result-type-p result (if (cl-find-if #3# '#4#) . #5#)))) (sly . #6#) break2-3 "For input (3 (block outt…, backends should arguably make sure that BREAK does not depend\non *DEBUGGER-HOOK*." #[0 "\300\301\302\"\207" [sly-test-break2 3 #1#] 3] (satisfies (lambda #2# (ert-test-result-type-p result (if (cl-find-if #3# '#4#) . #5#)))) (sly . #6#)] 10)
(defalias 'sly-test-locally-bound-debugger-hook #[0 "\300\301!\210\302\303\304\"\210\305 \210\306\307\310!\311\"\210\300\312!\210\313\314!\210\315\316\317\320#\210\300\321!\210\300\301!\207" [sly-sync-to-top-level 0.3 accept-process-output nil 1 sly-check-top-level sly-compile-string prin1-to-string (defun cl-user::quux nil (block outta (let ((*debugger-hook* (lambda (c hook) (declare (ignore c hook)) (return-from outta 42)))) (error "FOO")))) 0 2 sly-eval-async (cl-user::quux) sly-wait-condition "Checking that Debugger does not popup" #[0 "\300\301 !@?\207" [sly-db-buffers sly-current-connection] 2] 3 5] 4])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test locally-bound-debugger-hook-1 record ert-test "For input nil, test that binding *DEBUGGER-HOOK* locally works properly." #[0 "\300 \207" [sly-test-locally-bound-debugger-hook] 1] nil :passed (sly core)] 10)
#@13 

(fn EXPR)
(defalias 'sly-test-end-of-file #[257 "\300\301!\210\302\303\304\305\306\303\307EE\310BBB!\311\312\313#\266\300\301!\207" [sly-sync-to-top-level 0.3 sly-eval cl:let ((condition nil)) cl:with-simple-restart (cl:continue "continue") ((cl:*debugger-hook* (cl:lambda (c h) (cl:setq condition c) (cl:continue)))) ((cl:and (cl:typep condition 'cl:end-of-file))) sly-test-expect "Debugger invoked" t] 9 (#$ . 82133)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\210\300\311\302\303\311\312\313\306\307\314&\"\207" [ert-set-test end-of-file-1 record ert-test "For input ((cl:read-from…, signalling END-OF-FILE should invoke the debugger." #[0 "\300\301!\207" [sly-test-end-of-file (cl:read-from-string "")] 2] nil :passed (sly . #1=(core)) end-of-file-2 "For input ((cl:error 'cl…, signalling END-OF-FILE should invoke the debugger." #[0 "\300\301!\207" [sly-test-end-of-file (cl:error 'cl:end-of-file)] 2] (sly . #1#)] 10)
(defalias 'sly-test-interrupt-at-toplevel #[0 "\300\301!\210\302 \210\303 \304=\203 \305\306!\203- \307 \210\310\311\312\313#\210r\314\315 !@q\210\316 \210)\300\313!\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-top-level sly-communication-style :spawn featurep sly-repl sly-interrupt sly-wait-condition "Debugger visible" #[0 "\300\301!\205 \302\303\304 !@!\207" [sly-sly-db-level= 1 get-buffer-window sly-db-buffers sly-current-connection] 3] 5 sly-db-buffers sly-current-connection sly-db-quit] 4])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test interrupt-at-toplevel-1 record ert-test "For input nil, let's see what happens if we send a user interrupt at toplevel." #[0 "\300 \207" [sly-test-interrupt-at-toplevel] 1] nil :passed (sly core)] 10)
#@29 

(fn INTERRUPTS CONTINUES)
(defalias 'sly-test-interrupt-in-debugger #[514 "\300\301!\210\302\303 !@\203 \304\305!\210\306 \307=\203% \310\311!\204% \312\313!\210\314\315!\210\316\211W\203G \211\317 \210\211T\320\321\322\"\323\324\"\325#\266\211T\262\202' \266\211\316\211W\203v \211r\302\303 !@q\210\326 \210)TZ\320\321\327\"\323\330\"\325#\266\211T\262\202K \266r\302\303 !@q\210\331 \210)\300\332!\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-db-buffers sly-current-connection ert-fail "Check failed: No debugger" sly-communication-style :spawn featurep sly-repl sly-eval-async (slynk::without-sly-interrupts (slynk::receive)) sit-for 0.2 0 sly-interrupt sly-wait-condition format "Debug level %d reachend" make-closure #[0 "\301 \300\232\207" [V0 sly-db-level] 2] 2 sly-db-continue "Return to debug level %d" #[0 "\301 \300\232\207" [V0 sly-db-level] 2] sly-db-quit 1] 11 (#$ . 83879)])
(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&\"\207" [ert-set-test interrupt-in-debugger-1 record ert-test "For input (1 0), let's see what happens if we interrupt the debugger.\ninterrupts ... number of nested interrupts\ncontinues  ... how often the continue restart should be invoked" #[0 "\300\301\302\"\207" [sly-test-interrupt-in-debugger 1 0] 3] nil :passed (sly . #1=(core)) interrupt-in-debugger-2 "For input (2 1), let's see what happens if we interrupt the debugger.\ninterrupts ... number of nested interrupts\ncontinues  ... how often the continue restart should be invoked" #[0 "\300\301\302\"\207" [sly-test-interrupt-in-debugger 2 1] 3] (sly . #1#) interrupt-in-debugger-3 "For input (4 2), let's see what happens if we interrupt the debugger.\ninterrupts ... number of nested interrupts\ncontinues  ... how often the continue restart should be invoked" #[0 "\300\301\302\"\207" [sly-test-interrupt-in-debugger 4 2] 3] (sly . #1#)] 10)
#@27 

(fn N DELAY INTERRUPTS)
(defalias 'sly-test-flow-control #[771 "\301\302!\210\203\f \303\304!\210\305\306 !@\203 \307\310!\210\311\312E!\210\313\314!\210\211\315\211W\203c \316\317 \210\320\321\322\323#\210\324\325!\204? \307\326!\210r\305\306 !@q\210\327 \210)\320\330\331\332#\210\324\316!\204[ \307\333!\210\210\211T\262\202% \266\301\334!\210\301\302!\207" [noninteractive sly-sync-to-top-level 0.3 sly-skip-test "test is currently unstable" sly-db-buffers sly-current-connection ert-fail "Check failed: No debugger" sly-eval-async slynk:flow-control-test sleep-for 0.2 0 nil sly-interrupt sly-wait-condition "In debugger" #[0 "\300\301!\207" [sly-sly-db-level= 1] 2] 5 sly-sly-db-level= 1 "Check failed: In debugger" sly-db-continue "No debugger" #[0 "\300\301!\207" [sly-sly-db-level= nil] 2] 3 "Check failed: Debugger closed" 10] 10 (#$ . 85854)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test flow-control-1 record ert-test "For input (300 0.03 3), let Lisp produce output faster than Emacs can consume it." #[0 "\300\301\302\303#\207" [sly-test-flow-control 300 0.03 3] 4] nil :passed (sly core)] 10)
#@16 

(fn N DELAY)
(defalias 'sly-test-sbcl-world-lock #[514 "\300\301!\210\302\303\304\305\306\307\310\311\312\n\nE\313BBBDC\314BB!#\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-test-expect "no error" 123 sly-eval cl:let cl:*macroexpand-hook* cl:lambda (fun form env) slynk:flow-control-test ((cl:funcall fun form env)) ((cl:eval '(cl:macrolet ((foo nil 123)) (foo))))] 13 (#$ . 87009)])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test sbcl-world-lock-1 record ert-test "For input (10 0.03), print something from *MACROEXPAND-HOOK*.\nin SBCL, the compiler grabs a lock which can be problematic because\nno method dispatch code can be generated for other threads.\nthis test will fail more likely before dispatch caches are warmed up." #[0 "\300\301\302\"\207" [sly-test-sbcl-world-lock 10 0.03] 3] nil :passed (sly core)] 10)
(defalias 'sly-test-disconnect-one-connection #[0 "\304\305!\210G	\306\307\310\"\216\311\312\313\314!\"\304\315!\210\316 \210\317\320G#\210+\266\304\305!\207" [sly-net-processes sly-default-connection sly-connected-hook sly-dispatching-connection sly-sync-to-top-level 0.3 nil make-closure #[0 "\301\300!\207" [V0 sly-select-connection] 2] sly-connect "localhost" sly-eval (slynk:create-server :port 0 :style :spawn :dont-close nil) 3 sly-disconnect sly-test-expect "Number of connections must remane the same"] 6])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test disconnect-one-connection-1 record ert-test "For input nil, `sly-disconnect' should disconnect only the current connection" #[0 "\300 \211\301=\203\f \210\202 \302\303\304\"!\266\305 \207" [sly-communication-style :spawn sly-skip-test format "test not applicable for style %s" sly-test-disconnect-one-connection] 5] nil :passed (sly core)] 10)
(defalias 'sly-test-disconnect-and-reconnect #[0 "\300\301!\210\302 \210\303 \304!r\305!q\210\306 \210)\307!\210\310!\311=\204) \312\313\314\315\211$\210\316\315\317\"\210\310!\320=\204= \312\321\322\315\211$\210r\305!q\210\323 \324W\204Q \312\325\326\315\211$\210)\327\330!\"\210\315C\331\332#\240\210\333\334\242\"\210\335\336\331\337\"\340#\266\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-top-level sly-connection sly-inferior-process process-buffer erase-buffer delete-process process-status closed cl--assertion-failed (equal (process-status c) 'closed) "Connection not closed" nil accept-process-output 0.1 run (equal (process-status p) 'run) "Subprocess not running" buffer-size 500 (< (buffer-size) 500) "Unusual output" sly-inferior-connect sly-inferior-lisp-args make-closure #[0 "\302\303\301\304 #\210\305\306\300\242\"\207" [V0 V1 sly-test-expect "We are connected again" sly-inferior-process remove-hook sly-connected-hook] 4] add-hook sly-connected-hook sly-wait-condition "Lisp restarted" #[0 "\300\242	\235?\207" [V0 sly-connected-hook] 2] 5] 9])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test disconnect-and-reconnect-1 record ert-test "For input nil, close the connetion.\nconfirm that the subprocess continues gracefully.\nreconnect afterwards." #[0 "\300 \207" [sly-test-disconnect-and-reconnect] 1] nil :passed (sly core)] 10)
(defvar sly-test-check-repl-forms '((unless (and (featurep 'sly-mrepl) (assq 'slynk/mrepl sly-contrib--required-slynk-modules)) (die "`sly-repl' contrib not properly setup")) (let ((mrepl-buffer (sly-mrepl--find-buffer))) (unless mrepl-buffer (die "MREPL buffer not setup!")) (with-current-buffer mrepl-buffer (sit-for 1) (unless (and (string-match "^; +SLY" (buffer-string)) (string-match "CL-USER> *$" (buffer-string))) (die (format "MREPL prompt: %s" (buffer-string))))))))
(defvar sly-test-check-asdf-loader-forms '((when (sly-eval '(cl:and (cl:find-package :slynk-loader) t)) (die "Didn't expect SLY to be loaded with slynk-loader.lisp"))))
#@144 

(fn &key PREFLIGHT (TAKEOFF \=`((call-interactively \='sly))) (LANDING (append sly-test-check-repl-forms sly-test-check-asdf-loader-forms)))
(defalias 'sly-test-recipe-test-for #[128 "\304\305\"A@\304\306\"\206 \307\310DA@\304\311\"\206 \307\312	\"DA@\211\203L \211@\313>\2035 \211AA\262\202\" \314>A@\203C \307\262\202\" \315\316@\"\210\202\" \210\307C\317\320\307\321#\322\323\324\325\326\327\312?\205f \330\331\332\333\334\307\325\326\327\312\335\"B\336BBBED\337BBBD#B\340BBB\341BBBD\342\343#\216\344\345\346\"r\211q\210\342\347\"\216\350\351\352\353\"\"\210\354!\210*\210\344\345\346\"r\211q\210\342\355\"\216\356\nP\307\346\307D\307\357\360\361\n&\211\362U\204\323 \363\364 !\210\210*\210\346\240)\207" [sly-test-check-repl-forms sly-test-check-asdf-loader-forms invocation-directory invocation-name plist-member :preflight :takeoff nil ((call-interactively 'sly)) :landing append (:preflight :takeoff :landing :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:preflight :takeoff :landing)" make-temp-file "sly-recipe-" ".el" (require 'cl) labels ((die (reason &optional more) (princ reason) (terpri) (and more (pp more)) (kill-emacs 254))) condition-case err progn (kill-emacs 0) add-hook 'sly-connected-hook function lambda ((kill-emacs 0)) ((error (die "Unexpected error running landing forms" err))) (t) ((error (die "Unexpected error running preflight/takeoff forms" err))) ((with-timeout (30 (die "Timeout waiting for recipe test to finish.")) (while t (sit-for 1)))) make-closure #[0 "\300\242\203	 \302\301!\207\303\304\301\"\207" [V0 V1 delete-file message "Test failed: keeping %s for inspection"] 3] generate-new-buffer " *temp*" t #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] mapc insert mapcar pp-to-string write-file #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] call-process "-Q" "--batch" "-l" 0 ert-fail buffer-string] 27 (#$ . 90865)])
(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&\"\207" [ert-set-test readme-recipe record ert-test "Test the README.md's autoload recipe." #[0 "\302\303\304\305E\306\301	E\307BB\"\207" [sly-path inferior-lisp-program sly-test-recipe-test-for :preflight add-to-list 'load-path setq ((require 'sly-autoloads))] 6] nil :passed (sly . #1=(core)) traditional-recipe "Test the README.md's traditional recipe." #[0 "\302\303\304\305E\306\301	E\307BB\"\207" [sly-path inferior-lisp-program sly-test-recipe-test-for :preflight add-to-list 'load-path setq ((require 'sly) (sly-setup '(sly-fancy)))] 6] (sly . #1#) slynk-loader-fallback "Test `sly-init-using-slynk-loader'" #[0 "\303\304\305\306E\307\301	E\310BB\311\312\nB$\207" [sly-path inferior-lisp-program sly-test-check-repl-forms sly-test-recipe-test-for :preflight add-to-list 'load-path setq ((require 'sly-autoloads) (setq sly-contribs '(sly-fancy)) (setq sly-init-function 'sly-init-using-slynk-loader) (sly-setup '(sly-fancy))) :landing (unless (sly-eval '(cl:and (cl:find-package :slynk-loader) t)) (die "Expected SLY to be loaded with slynk-loader.lisp"))] 6] (sly . #1#)] 10)
#@15 

(fn STRING)
(defalias 'sly-test--eval-now #[257 "\300\301D!A@\207" [sly-eval slynk:eval-and-grab-output] 4 (#$ . 94068)])
(defalias 'sly-test-sly-recompile-all-xrefs #[0 "\301\302!\210\303C\304\305\"\306\307\303\310#\303C\311\312\"\210\313\314#\216\315\316\317\"\313\320\"\216r\211q\210\321!\210\322\323!\210\324c\210\325 \210\326 \210\327\330\313\331	\"\332#\210\322\333!\210\303\240\210\334\335\336\313\337\n##\210\327\340\313\341	\"\332#\210\303\240\210\342C\3431} \344\322\345!\322\346!)D\347D0\202\210 \350\240\210\211@AD\262\351C\303C\313\352%\216\353\242\"\240)\204\244 \354\242!\210\266r\242q\210\355 \210\327\330\313\356	\"\332#\210)\342C\3571\317 \344\322\345!\322\346!)D\360D0\202\332 \350\240\210\211@AD\262\361C\303C\313\362%\216\353\242\"\240)\204\366 \354\242!\210\266)r\211q\210\363\303\211\303\364%\210*\266)\266\301\302!\207" [signal-hook-function sly-sync-to-top-level 0.3 nil sly-curry #[385 "\300\240\207" [t] 4 "\n\n(fn CELL &rest _)"] make-temp-file "sly-recompile-all-xrefs" ".lisp" add-hook sly-compilation-finished-hook make-closure #[0 "\302\303\300\"\210\301\242\205 \304\301\242!\207" [V0 V1 remove-hook sly-compilation-finished-hook kill-buffer] 3] generate-new-buffer " *temp file*" t #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-visited-file-name sly-test--eval-now "(defparameter slynk::*.var.* nil)" "(in-package :slynk)\n                    (defun .fn1. ())\n                    (defun .fn2. () (.fn1.) #.*.var.*)\n                    (defun .fn3. () (.fn1.) #.*.var.*)" save-buffer sly-compile-and-load-file sly-wait-condition "Compilation finished" #[0 "\300@\207" [V0] 1] 0.5 "(setq *.var.* t)" sly-xref :calls ".fn1." #[128 "\301\302\303\"\240\210\300\304\240\207" [V0 V1 apply sly-xref--show-results t] 5 "\n\n(fn &rest ARGS)"] "Xrefs computed and displayed" #[0 "\300@\207" [V0] 1] cl-equalp (error) ert--should-signal-hook #2="(.fn2.)" #3="(.fn3.)" #4=("nil" "nil") signal #1=#:ert-form-evaluation-aborted-7671 #[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 (cl-equalp (list (sly-test--eval-now #2#) (sly-test--eval-now #3#)) '#4#)) :form #1# :value cl-equalp ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail sly-recompile-all-xrefs #[0 "\300@\207" [V0] 1] (error) #6=("T" "T") #5=#:ert-form-evaluation-aborted-7676 #[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 (cl-equalp (list (sly-test--eval-now "(.fn2.)") (sly-test--eval-now "(.fn3.)")) '#6#)) :form #5# :value cl-equalp ert-explainer :explanation apply ert--signal-should-execution] 7] write-region 0] 16])
(byte-code "\300\301\302\303\301\304\305\306\307\310&\"\207" [ert-set-test sly-recompile-all-xrefs-1 record ert-test "For input nil, test recompilation of all references within an xref buffer." #[0 "\300 \207" [sly-test-sly-recompile-all-xrefs] 1] nil (satisfies (lambda (result) (ert-test-result-type-p result (if (cl-find-if (lambda (impl) (unless (listp impl) (setq impl (list impl #'(lambda (&rest _ign) t)))) (and (equal (car impl) (sly-lisp-implementation-name)) (funcall (cadr impl) (replace-regexp-in-string "[-._+ ]?[[:alnum:]]\\{7,9\\}$" "-snapshot" (sly-lisp-implementation-version)) (caddr impl)))) '("cmucl")) :failed :passed)))) (sly core)] 10)
#@92 

(fn FN (WINDOW-SPLITS TOTAL-WINDOWS STARTING-BUFFER-SYM STARTING-WINDOW-SYM) &rest BODY)
(defalias 'sly-test--with-find-definition-window-checker '(macro . #[385 "\211\203 \211A\262\242\202 \300\301\302GD\"\211G\303U\203$ \211A\262\242\202+ \300\301\302GD\"\211A\262\242\211A\262\242\242\304\305!\306\307\310\311BC\312\306\313\314BB\315\316BB\317	\320BB\321\n\322\323\324\310\325B\326BD\327\330D\331BB\332\333BB\334\335\336\337DDED\340BBBBBBFE\257\341\342\343	\344BBEEEE\207" [signal wrong-number-of-arguments sly-test--with-find-definition-window-checker 4 cl-gensym "temp-frame-" progn (sly-check-top-level) let (nil) unwind-protect setq ((if noninteractive (selected-frame) (make-frame))) set-frame-width (100) set-frame-height (40) with-selected-frame with-temp-buffer (delete-other-windows) (switch-to-buffer (current-buffer)) ((selected-window)) ((current-buffer)) dotimes _i ((split-window)) funcall ("cl:print-object") should = length window-list (with-current-buffer (window-buffer (selected-window)) (should (eq major-mode 'sly-xref-mode)) (forward-line 1) (sly-xref-goto)) unless noninteractive delete-frame (t)] 32 (#$ . 97625)]))
(byte-code "\300\301\302\303#\300\207" [function-put sly-test--with-find-definition-window-checker lisp-indent-function 2] 4)
#@36 

(fn WINDOW-SPLITS TOTAL-WINDOWS)
(defalias 'sly-test-find-definition-same-window #[514 "\303\304!\210\305 \210\306C\307\310\"\216\211\203 \311 \202 \312 \240\210\313\242\314\"\210\315\242\316\"\210\311 p\307\317#\216\320\242\321\"\210\322\323\324\"r\211q\210\307\325\"\216\326 \210\327p!\210\330 p\331\211W\203c \306\332 \266\211T\262\202Q \266\333\334!\210\335C\3361 \337\340\242!G)D0\202\212 \341\240\210\211@AD\262\342C\306C\307\343%\216\344\242\"\240)\204\246 \345\242!\210\266r\346\330 !q\210\347C\3501\277 \337\n)\351D0\202\312 \341\240\210\211@AD\262\352C\306C\307\353%\216\344\242\"\240)\204\346 \345\242!\210\266\354y\210\355 \210)r\346\330 !q\210\347C\3561\337p)D0\202\341\240\210\211@AD\262\357C\306C\307\360%\216\344\242\"\240)\203-\345\242!\210\266\347C\3611@\337\330 )D0\202K\341\240\210\211@AD\262\362C\306C\307\363%\216\344\242\"\240)\204g\345\242!\210\266)\335C\3641\212\337\331U\203}\354\202\340\311 !G)D0\202\225\341\240\210\211@AD\262\365C\306C\307\366%\216\344\242\"\240)\204\261\345\242!\210\266*\210)\266)\210\303\304!\207" [noninteractive signal-hook-function major-mode sly-sync-to-top-level 0.3 sly-check-top-level nil make-closure #[0 "	?\205\n \302\300\242\303\"\207" [V0 noninteractive delete-frame t] 3] selected-frame make-frame set-frame-width 100 set-frame-height 40 #[0 "\302\300!\203 \303\300\304\"\210\305\301!\205 \301q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord generate-new-buffer " *temp*" t #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] delete-other-windows switch-to-buffer selected-window 0 split-window sly-edit-definition "cl:print-object" = (error) ert--should-signal-hook window-list signal #1=#:ert-form-evaluation-aborted-7681 #[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 (= total-windows (length (window-list #2=#:temp-frame-179)))) :form #1# :value = ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail window-buffer eq (error) sly-xref-mode #3=#:ert-form-evaluation-aborted-7686 #[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 (eq major-mode 'sly-xref-mode)) :form #3# :value eq ert-explainer :explanation apply ert--signal-should-execution] 7] 1 sly-xref-goto (error) #4=#:ert-form-evaluation-aborted-7691 #[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-not (eq temp-buffer (current-buffer))) :form #4# :value eq ert-explainer :explanation apply ert--signal-should-execution] 7] (error) #5=#:ert-form-evaluation-aborted-7696 #[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 (eq (selected-window) original-window)) :form #5# :value eq ert-explainer :explanation apply ert--signal-should-execution] 7] (error) #6=#:ert-form-evaluation-aborted-7701 #[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 (= (if (zerop window-splits) 1 total-windows) (length (window-list (selected-frame))))) :form #6# :value = ert-explainer :explanation apply ert--signal-should-execution] 7]] 18 (#$ . 98938)])
(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&\"\207" [ert-set-test find-definition-same-window-1 record ert-test "For input (0 2), test `sly-edit-definition' windows" #[0 "\300\301\302\"\207" [sly-test-find-definition-same-window 0 2] 3] nil :passed (sly . #1=(core)) find-definition-same-window-2 "For input (1 2), test `sly-edit-definition' windows" #[0 "\300\301\302\"\207" [sly-test-find-definition-same-window 1 2] 3] (sly . #1#) find-definition-same-window-3 "For input (2 3), test `sly-edit-definition' windows" #[0 "\300\301\302\"\207" [sly-test-find-definition-same-window 2 3] 3] (sly . #1#)] 10)
#@36 

(fn WINDOW-SPLITS TOTAL-WINDOWS)
(defalias 'sly-test-find-definition-other-window #[514 "\303\304!\210\305 \210\306C\307\310\"\216\211\203 \311 \202 \312 \240\210\313\242\314\"\210\315\242\316\"\210\311 p\307\317#\216\320\242\321\"\210\322\323\324\"r\211q\210\307\325\"\216\326 \210\327p!\210\330 p\331\211W\203c \306\332 \266\211T\262\202Q \266\333\334!\210\335C\3361 \337\340\242!G)D0\202\212 \341\240\210\211@AD\262\342C\306C\307\343%\216\344\242\"\240)\204\246 \345\242!\210\266r\346\330 !q\210\347C\3501\277 \337\n)\351D0\202\312 \341\240\210\211@AD\262\352C\306C\307\353%\216\344\242\"\240)\204\346 \345\242!\210\266\354y\210\355 \210)r\346\330 !q\210\356C\3571\337)C0\202\341\240\210\211@AD\262\360C\306C\307\361%\216\344\242\"\240)\204,\345\242!\210\266\347C\3621@\337\346!)D0\202K\341\240\210\211@AD\262\363C\306C\307\364%\216\344\242\"\240)\204g\345\242!\210\266\347C\3651z\337\330 )D0\202\205\341\240\210\211@AD\262\366C\306C\307\367%\216\344\242\"\240)\203\241\345\242!\210\266)\335C\3701\271\337\340\311 !G)D0\202\304\341\240\210\211@AD\262\371C\306C\307\372%\216\344\242\"\240)\204\340\345\242!\210\266*\210)\266)\210\303\304!\207" [noninteractive signal-hook-function major-mode sly-sync-to-top-level 0.3 sly-check-top-level nil make-closure #[0 "	?\205\n \302\300\242\303\"\207" [V0 noninteractive delete-frame t] 3] selected-frame make-frame set-frame-width 100 set-frame-height 40 #[0 "\302\300!\203 \303\300\304\"\210\305\301!\205 \301q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord generate-new-buffer " *temp*" t #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] delete-other-windows switch-to-buffer selected-window 0 split-window sly-edit-definition-other-window "cl:print-object" = (error) ert--should-signal-hook window-list signal #1=#:ert-form-evaluation-aborted-7706 #[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 (= total-windows (length (window-list #2=#:temp-frame-180)))) :form #1# :value = ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail window-buffer eq (error) sly-xref-mode #3=#:ert-form-evaluation-aborted-7711 #[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 (eq major-mode 'sly-xref-mode)) :form #3# :value eq ert-explainer :explanation apply ert--signal-should-execution] 7] 1 sly-xref-goto window-live-p (error) #4=#:ert-form-evaluation-aborted-7716 #[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 (window-live-p original-window)) :form #4# :value window-live-p ert-explainer :explanation apply ert--signal-should-execution] 7] (error) #5=#:ert-form-evaluation-aborted-7721 #[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 (eq temp-buffer (window-buffer original-window))) :form #5# :value eq ert-explainer :explanation apply ert--signal-should-execution] 7] (error) #6=#:ert-form-evaluation-aborted-7726 #[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-not (eq (selected-window) original-window)) :form #6# :value eq ert-explainer :explanation apply ert--signal-should-execution] 7] (error) #7=#:ert-form-evaluation-aborted-7731 #[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 (= total-windows (length (window-list (selected-frame))))) :form #7# :value = ert-explainer :explanation apply ert--signal-should-execution] 7]] 18 (#$ . 103387)])
(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\321\322!\207" [ert-set-test find-definition-other-window-1 record ert-test "For input (0 2), test `sly-edit-definition-other-window' windows" #[0 "\300\301\302\"\207" [sly-test-find-definition-other-window 0 2] 3] nil :passed (sly . #1=(core)) find-definition-other-window-2 "For input (1 2), test `sly-edit-definition-other-window' windows" #[0 "\300\301\302\"\207" [sly-test-find-definition-other-window 1 2] 3] (sly . #1#) find-definition-other-window-3 "For input (2 3), test `sly-edit-definition-other-window' windows" #[0 "\300\301\302\"\207" [sly-test-find-definition-other-window 2 3] 3] (sly . #1#) provide sly-tests] 10)