;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\"\210\300\303\304\"\207" [require sly-parse "lib/sly-parse" sly-tests "lib/sly-tests"] 3) #@64 (fn BUFFER-SEXPR RESULT-FORM &optional SKIP-TRAILING-TEST-P) (defalias 'sly-test-form-up-to-point\.1 #[770 "\301\302!\210\303 \210\304\305\306\"r\211q\210\307\310\"\216\311 \210c\210\312\313!\210\314\224\314\225|\210\315C\31616\317\320\321!)D0\202A\322\240\210\211@AD\262\323C\324C\307\325%\216\326\242\"\240)\204]\327\242!\210\266\204\244\330c\210\331u\210\315C\3321{\317\320\321!)D0\202\206\322\240\210\211@AD\262\333C\324C\307\334%\216\326\242\"\240)\204\242\327\242!\210\266*\210\301\302!\207" [signal-hook-function sly-sync-to-top-level 0.3 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 search-backward "*HERE*" 0 equal (error) ert--should-signal-hook sly-parse-form-upto-point 10 signal #1=#:ert-form-evaluation-aborted-8108 nil #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (equal result-form (sly-parse-form-upto-point 10))) :form #1# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail ")" -1 (error) #2=#:ert-form-evaluation-aborted-8113 #[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 result-form (sly-parse-form-upto-point 10))) :form #2# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7]] 14 (#$ . 202)]) (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\336\342\306\307\343&\"\210\300\344\302\303\344\345\346\306\307\347&\"\210\300\350\302\303\350\351\352\306\307\353&\"\210\300\354\302\303\354\355\356\306\307\357&\"\210\300\360\302\303\360\361\362\306\307\363&\"\210\300\364\302\303\364\365\366\306\307\367&\"\210\300\370\302\303\370\371\372\306\307\373&\"\210\300\374\302\303\374\375\376\306\307\377&\"\210\300\201@\302\303\201@\201A\201B\306\307\201C&\"\210\300\201D\302\303\201D\201E\201F\306\307\201G&\"\210\300\201H\302\303\201H\201E\201I\306\307\201J&\"\210\201K\201L!\207" [ert-set-test form-up-to-point\.1-1 record ert-test "For input ((char= #\\(*HE…, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(char= #\\(*HERE*" ("char=" "#\\(" slynk::%cursor-marker%)] 3] nil :passed (sly contrib parse-tests) form-up-to-point\.1-2 "For input ((char= #\\( *H…, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(char= #\\( *HERE*" ("char=" "#\\(" #1="" slynk::%cursor-marker%)] 3] (sly contrib parse-tests) form-up-to-point\.1-3 "For input ((char= #\\) *H…, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(char= #\\) *HERE*" ("char=" "#\\)" #1# slynk::%cursor-marker%)] 3] (sly contrib parse-tests) form-up-to-point\.1-4 "For input ((char= #\\*HER…, " #[0 "\300\301\302\303#\207" [sly-test-form-up-to-point\.1 "(char= #\\*HERE*" ("char=" "#\\" slynk::%cursor-marker%) t] 4] (sly contrib parse-tests) form-up-to-point\.1-5 "For input ((defun*HERE* …, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(defun*HERE*" ("defun" slynk::%cursor-marker%)] 3] (sly contrib parse-tests) form-up-to-point\.1-6 "For input ((defun foo*HE…, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(defun foo*HERE*" ("defun" "foo" slynk::%cursor-marker%)] 3] (sly contrib parse-tests) form-up-to-point\.1-7 "For input ((defun foo (x…, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(defun foo (x y)*HERE*" ("defun" "foo" ("x" "y") slynk::%cursor-marker%)] 3] (sly contrib parse-tests) form-up-to-point\.1-8 #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(defun foo (x y*HERE*" ("defun" "foo" ("x" "y" slynk::%cursor-marker%))] 3] (sly contrib parse-tests) form-up-to-point\.1-9 "For input ((apply 'foo*H…, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(apply 'foo*HERE*" ("apply" "'foo" slynk::%cursor-marker%)] 3] (sly contrib parse-tests) form-up-to-point\.1-10 "For input ((apply #'foo*…, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(apply #'foo*HERE*" ("apply" "#'foo" slynk::%cursor-marker%)] 3] (sly contrib parse-tests) form-up-to-point\.1-11 "For input ((declare ((ve…, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(declare ((vector bit *HERE*" ("declare" (("vector" "bit" #1# slynk::%cursor-marker%)))] 3] (sly contrib parse-tests) form-up-to-point\.1-12 "For input ((with-open-fi…, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(with-open-file (*HERE*" ("with-open-file" (#1# slynk::%cursor-marker%))] 3] (sly contrib parse-tests) form-up-to-point\.1-13 "For input ((((*HERE* (((…, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(((*HERE*" (((#1# slynk::%cursor-marker%)))] 3] (sly contrib parse-tests) form-up-to-point\.1-14 "For input ((defun #| foo…, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(defun #| foo #| *HERE*" ("defun" #1# slynk::%cursor-marker%)] 3] (sly contrib parse-tests) form-up-to-point\.1-15 "For input ((defun #-(and…, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(defun #-(and) (bar) f*HERE*" ("defun" "f" slynk::%cursor-marker%)] 3] (sly contrib parse-tests) form-up-to-point\.1-16 "For input ((remove-if #'…, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "(remove-if #'(lambda (x)*HERE*" ("remove-if" ("lambda" ("x") slynk::%cursor-marker%))] 3] (sly contrib parse-tests) form-up-to-point\.1-17 "For input (`(remove-if ,…, " #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "`(remove-if ,(lambda (x)*HERE*" ("remove-if" ("lambda" ("x") slynk::%cursor-marker%))] 3] (sly contrib parse-tests) form-up-to-point\.1-18 #[0 "\300\301\302\"\207" [sly-test-form-up-to-point\.1 "`(remove-if ,@(lambda (x)*HERE*" ("remove-if" ("lambda" ("x") slynk::%cursor-marker%))] 3] (sly contrib parse-tests) provide sly-parse-tests] 10)