;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\306\311\312\311\313\311&\"\210\305\314\307\310\314\311\315\311\313\311&\"\210\305\316\307\310\316\311\317\311\313\311&\"\210\305\320\307\310\320\311\321\311\313\311&\"\210\305\322\307\310\322\311\323\311\313\311&\"\210\305\324\307\310\324\311\325\311\313\311&\"\210\305\326\307\310\326\311\327\311\313\311&\"\210\305\330\307\310\330\311\331\311\313\311&\"\210\305\332\307\310\332\311\333\311\313\311&\"\210\305\334\307\310\334\311\335\311\313\311&\"\210\305\336\307\310\336\311\337\311\313\311&\"\210\305\340\307\310\340\311\341\311\313\311&\"\210\305\342\307\310\342\311\343\311\313\311&\"\210\305\344\307\310\344\311\345\311\313\311&\"\210\305\346\307\310\346\311\347\311\313\311&\"\210\305\350\307\310\350\311\351\311\313\311&\"\210\305\352\307\310\352\311\353\311\313\311&\"\210\305\354\307\310\354\311\355\311\313\311&\"\210\305\356\307\310\356\311\357\311\313\311&\"\210\305\360\307\310\360\311\361\311\313\311&\"\210\305\362\307\310\362\311\363\311\313\311&\"\210\305\364\307\310\364\311\365\311\313\311&\"\210\305\366\307\310\366\311\367\311\313\311&\"\210\305\370\307\310\370\311\371\311\313\311&\"\210\305\372\307\310\372\311\373\311\313\311&\"\210\305\374\307\310\374\311\375\311\313\311&\"\210\305\342\307\310\342\311\376\311\313\311&\"\210\305\377\307\310\377\311\201@\311\313\311&\"\210\305\201A\307\310\201A\311\201B\311\313\311&\"\210\305\201C\307\310\201C\311\201D\311\313\311&\"\210\305\201E\307\310\201E\311\201F\311\313\311&\"\210\305\201G\307\310\201G\311\201H\311\313\311&\"\207" [require ert stream generator cl-lib ert-set-test stream-empty-test record ert-test nil #[0 "\301C\3021\303\304 )C0\202\305\240\210\211@AD\262\306C\307C\310\311\312\313\314$\315\"\316$\216\317\242\"\240)\204B\320\242!\210\266\321C\3221T\303\304 )C0\202_\305\240\210\211@AD\262\323C\307C\310\311\312\313\314$\324\"\316$\216\317\242\"\240)\204\206\320\242!\210\210\211\242\262\207" [signal-hook-function streamp (error) ert--should-signal-hook stream-empty signal #1=#:ert-form-evaluation-aborted-3758 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (streamp (stream-empty))) :form eql #1# :value streamp ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail stream-empty-p (error) #2=#:ert-form-evaluation-aborted-3763 [(should (stream-empty-p (stream-empty))) :form eql #2# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution]] 13] :passed stream-seq-empty-test #[0 "\301C\3021\303\304 )C0\202\305\240\210\211@AD\262\306C\307C\310\311\312\313\314$\315\"\316$\216\317\242\"\240)\204B\320\242!\210\266\301C\3211T\303\322 )C0\202_\305\240\210\211@AD\262\323C\307C\310\311\312\313\314$\324\"\316$\216\317\242\"\240)\203\206\320\242!\210\210\211\242\262\207" [signal-hook-function seq-empty-p (error) ert--should-signal-hook stream-empty signal #3=#:ert-form-evaluation-aborted-3768 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (seq-empty-p (stream-empty))) :form eql #3# :value seq-empty-p ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) stream-range #4=#:ert-form-evaluation-aborted-3773 [(should-not (seq-empty-p (stream-range))) :form eql #4# :value seq-empty-p ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-make-test #[0 "\301C\3021\303\304 )C0\202\305\240\210\211@AD\262\306C\307C\310\311\312\313\314$\315\"\316$\216\317\242\"\240)\204B\320\242!\210\266\321C\3221V\303\323\304 !)C0\202a\305\240\210\211@AD\262\324C\307C\310\311\312\313\314$\325\"\316$\216\317\242\"\240)\204\210\320\242!\210\210\211\242\262\207" [signal-hook-function streamp (error) ert--should-signal-hook stream-range signal #5=#:ert-form-evaluation-aborted-3778 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (streamp (stream-range))) :form eql #5# :value streamp ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail not (error) stream-empty-p #6=#:ert-form-evaluation-aborted-3783 [(should (not (stream-empty-p (stream-range)))) :form eql #6# :value not ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-first-test #[0 "\301C\3021\303\304\305\306\304!!)D0\202\307\240\210\211@AD\262\310C\311C\312\313\314\315\316$\317\"\320$\216\321\242\"\240)\204F\322\242!\210\266\323C\3241Z\303\305\325 !)C0\202e\307\240\210\211@AD\262\326C\311C\312\313\314\315\316$\327\"\320$\216\321\242\"\240)\204\214\322\242!\210\210\211\242\262\207" [signal-hook-function = (error) ert--should-signal-hook 3 stream-first stream-range signal #7=#:ert-form-evaluation-aborted-3788 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (= 3 (stream-first (stream-range 3)))) :form eql #7# :value = ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail null (error) stream-empty #8=#:ert-form-evaluation-aborted-3793 [(should (null (stream-first (stream-empty)))) :form eql #8# :value null ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-rest-test #[0 "\301C\3021\303\304\305\306\307\310!!!)D0\202!\311\240\210\211@AD\262\312C\313C\314\315\316\317\320$\321\"\322$\216\323\242\"\240)\204H\324\242!\210\266\301C\3251b\303\326\305\306\211\307\310!!!!)D0\202m\311\240\210\211@AD\262\327C\313C\314\315\316\317\320$\330\"\322$\216\323\242\"\240)\204\224\324\242!\210\210\211\242\262\207" [signal-hook-function = (error) ert--should-signal-hook 4 stream-first stream-rest stream-range 3 signal #9=#:ert-form-evaluation-aborted-3798 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (= 4 (stream-first (stream-rest (stream-range 3))))) :form eql #9# :value = ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) 5 #10=#:ert-form-evaluation-aborted-3803 [(should (= 5 (stream-first (stream-rest (stream-rest (stream-range 3)))))) :form eql #10# :value = ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-from-iterator-test #[0 "\301C\3021\303\304\305\306E)0\202\307\240\210\211@AD\262\310C\305C\3111C\312\313\314\315\316$\317\"\320$\216\321\242\"\240)0\202E\210\305\204M\322\242!\210\266\323C\3241\344\303\325\326\327\305C\305C\305C\305C\305C\305C\305\312\313\330\315\316 !\331\"\332$\240\210\312\313\333\315\316\f\f\f#\334\"\332$\240\210\312\313\335\315\316\f\f #\336\"\337$\240\210\312\313\333\315\316\f\f\n#\340\"\332$\240\210\312\313\335\315\316  #\341\"\337$\262\240\210\312\342\343\315\316   #\344\"\345\346%\211\262\266\207!!)D0\202\357\307\240\210\211@AD\262\347C\305C\312\313\314\315\316$\350\"\320$\216\321\242\"\240)\204\351\242!\210\210\211\242\262\207" [signal-hook-function require (error) ert--should-signal-hook generator nil t signal #11=#:ert-form-evaluation-aborted-3808 (error) make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(skip-unless (require 'generator nil t)) :form eql #11# :value require ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-skip equal (error) #12=(1 2) seq-into-sequence stream-from-iterator "\301\302\300\242\"\207" [signal iter-end-of-sequence] 3 "\300\302\242\240\210\303\304\301\242\"\207" [throw cps--yield] "\301\303\300\302\242\240\210\240\207" [2] 4 [throw cps--yield] [1] 514 "\303=\203\300\302\242\240\210\301\304\240\207\305=\203<\301\240\210\304C\306\307\310\311\312\300\301\302$\313\"\314$\216\31526\300\242 \210\202/\316\240\210)\207\317\320\"\207" [:close nil :next make-byte-code 0 "\303\242?\205\300\302\242\240\210\301\304\240\207" vconcat vector [nil] 2 cps--yield t error "unknown iterator operation %S"] 12 "\n\n(fn OP VALUE)" #13=#:ert-form-evaluation-aborted-3820 [(should (equal '#12# (seq-into-sequence (stream-from-iterator (funcall (iter-lambda nil (iter-yield 1) (iter-yield 2))))))) :form eql #13# :value equal ert-explainer :explanation apply ert--signal-should-execution] ert-fail] 20] stream-append-test #[0 "\301C\3021\303\304 )C0\202\305\240\210\211@AD\262\306C\307C\310\311\312\313\314$\315\"\316$\216\317\242\"\240)\204B\320\242!\210\266\321\322!C\307C\310\311\323\313\314\"\324\"\325$\216\326\211\327\304\330!!!\232\262\240)\204p\320\242!\210\266\331C\3321\216\303\333\304\330\311\334D!\335\336!\"\337\")\337D0\202\231\305\240\210\211@AD\262\340C\307C\310\311\312\313\314$\341\"\316$\216\317\242\"\240)\204\300\320\242!\210\266\321\322!C\307C\310\311\323\313\314\"\342\"\325$\216\330\311C!\333\304\335\334!\"\343\"\343U\205\357\301\344!!\262\240)\204\373\320\242!\210\266\345C\3461\303\327\304\330\347!\330\307!\330\350!#!)\351D0\202$\305\240\210\211@AD\262\352C\307C\310\311\312\313\314$\353\"\316$\216\317\242\"\240)\204K\320\242!\210\210\211\242\262\207" [signal-hook-function stream-empty-p (error) ert--should-signal-hook stream-append signal #14=#:ert-form-evaluation-aborted-3825 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (stream-empty-p (stream-append))) :form eql #14# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail gensym #88="ert-form-evaluation-aborted-" "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" [(should #15=(let ((list '#16=(1 2))) (equal list (seq-into-sequence (stream-append (stream list)))))) :form #15# :value ert--signal-should-execution] 6 #16# seq-into-sequence stream = (error) seq-elt 1 stream-range 2 4 #17=#:ert-form-evaluation-aborted-3832 [(should (= (seq-elt (stream-append (stream (list 0 1)) (stream-range 2)) 4) 4)) :form eql #17# :value = ert-explainer :explanation apply ert--signal-should-execution] [(should #18=(let ((stream (stream (list 0)))) (and (= (seq-elt (stream-append stream (stream-range 1)) 10) 10) (stream-empty-p (stream-rest stream))))) :form #18# :value ert--signal-should-execution] 10 stream-rest equal (error) #19=(1) #20=(2 3) #21=(1 2 3) #22=#:ert-form-evaluation-aborted-3839 [(should (equal (seq-into-sequence (stream-append (stream '#19#) (stream 'nil) (stream '#20#))) '#21#)) :form eql #22# :value equal ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-seqp-test #[0 "\301C\3021\303\304 )C0\202\305\240\210\211@AD\262\306C\307C\310\311\312\313\314$\315\"\316$\216\317\242\"\240)\204B\320\242!\210\210\211\242\262\207" [signal-hook-function seqp (error) ert--should-signal-hook stream-range signal #23=#:ert-form-evaluation-aborted-3844 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (seqp (stream-range))) :form eql #23# :value seqp ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail] 13] stream-seq-elt-test #[0 "\301C\3021\303\304\305 \306\")C0\202\307\240\210\211@AD\262\310C\311C\312\306\313\314\315$\316\"\317$\216\320\242\"\240)\204E\321\242!\210\266\322C\3231[\303\306\304\324 \306\")D0\202f\307\240\210\211@AD\262\325C\311C\312\306\313\314\315$\326\"\317$\216\320\242\"\240)\204\215\321\242!\210\266\322C\3271\243\303\330\304\324 \330\")D0\202\256\307\240\210\211@AD\262\331C\311C\312\306\313\314\315$\332\"\317$\216\320\242\"\240)\204\325\321\242!\210\266\322C\3331\353\303\334\304\324 \334\")D0\202\366\307\240\210\211@AD\262\335C\311C\312\306\313\314\315$\336\"\317$\216\320\242\"\240)\204\321\242!\210\210\211\242\262\207" [signal-hook-function null (error) ert--should-signal-hook seq-elt stream-empty 0 signal #24=#:ert-form-evaluation-aborted-3849 nil make-byte-code "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (null (seq-elt (stream-empty) 0))) :form eql #24# :value null ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail = (error) stream-range #25=#:ert-form-evaluation-aborted-3854 [(should (= 0 (seq-elt (stream-range) 0))) :form eql #25# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) 1 #26=#:ert-form-evaluation-aborted-3859 [(should (= 1 (seq-elt (stream-range) 1))) :form eql #26# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) 10 #27=#:ert-form-evaluation-aborted-3864 [(should (= 10 (seq-elt (stream-range) 10))) :form eql #27# :value = ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-seq-length-test #[0 "\301C\3021\303\304\305\306 !)D0\202\307\240\210\211@AD\262\310C\311C\312\304\313\314\315$\316\"\317$\216\320\242\"\240)\204E\321\242!\210\266\301C\3221\\\303\323\305\324\304\323\"!)D0\202g\307\240\210\211@AD\262\325C\311C\312\304\313\314\315$\326\"\317$\216\320\242\"\240)\204\216\321\242!\210\210\211\242\262\207" [signal-hook-function = (error) ert--should-signal-hook 0 seq-length stream-empty signal #28=#:ert-form-evaluation-aborted-3869 nil make-byte-code "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (zerop (seq-length (stream-empty)))) :form eql #28# :value = ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) 10 stream-range #29=#:ert-form-evaluation-aborted-3874 [(should (= 10 (seq-length (stream-range 0 10)))) :form eql #29# :value = ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-seq-doseq-test #[0 "\301\302!\303C\304\305\306\307\310\311!\312\"\313\314%\"\210\315C\3161'\317\320\242)D0\2022\321\240\210\211@AD\262\322C\303C\305\323\324\310\311$\325\"\326$\216\327\242\"\240)\204Y\330\242!\210\210\211\242\262\266\202\207" [signal-hook-function stream (a b c d) nil seq-do make-byte-code 257 "\300\300\242B\240\207" vconcat vector #41=[] 4 "\n\n(fn ELT)" equal (error) ert--should-signal-hook #30=(d c b a) signal #31=#:ert-form-evaluation-aborted-3879 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" [(should (equal '#30# lst)) :form eql #31# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail] 15] stream-seq-let-test #[0 "\301\302\303\"\304\305\"\306\302\"\306\307\"\211\310C\3111#\312)\302D0\202.\313\240\210\211@AD\262\314C\315C\316\307\317\320\321$\322\"\303$\216\323\242\"\240)\204U\324\242!\210\266\310C\3251g\312)\326D0\202r\313\240\210\211@AD\262\327C\315C\316\307\317\320\321$\330\"\303$\216\323\242\"\240)\204\231\324\242!\210\266\331C\3321\252\312)C0\202\265\313\240\210\211@AD\262\333C\315C\316\307\317\320\321$\334\"\303$\216\323\242\"\240)\204\334\324\242!\210\266\310C\3351\360\312\336\337!)D0\202\373\313\240\210\211@AD\262\340C\315C\316\307\317\320\321$\341\"\303$\216\323\242\"\240)\204\"\324\242!\210\266\310C\34218\312\343\337\344!!)D0\202C\313\240\210\211@AD\262\345C\315C\316\307\317\320\321$\346\"\303$\216\323\242\"\240)\204j\324\242!\210\266\347C\3501\312\344\211!!)C0\202\212\313\240\210\211@AD\262\351C\315C\316\307\317\320\321$\352\"\303$\216\323\242\"\240)\204\261\324\242!\210\210\211\242\262\266\202\266\203\207" [signal-hook-function stream-range 2 7 seq-drop 3 seq--elt-safe 0 = (error) ert--should-signal-hook signal #32=#:ert-form-evaluation-aborted-3888 nil make-byte-code "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (= first 2)) :form eql #32# :value = ert-explainer :explanation apply ert--signal-should-execution] apply ert-fail (error) 4 #33=#:ert-form-evaluation-aborted-3893 [(should (= third 4)) :form eql #33# :value = ert-explainer :explanation apply ert--signal-should-execution] streamp (error) #34=#:ert-form-evaluation-aborted-3898 [(should (streamp rest)) :form eql #34# :value streamp ert-explainer :explanation apply ert--signal-should-execution] (error) 5 stream-first #35=#:ert-form-evaluation-aborted-3903 [(should (= 5 (stream-first rest))) :form eql #35# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) 6 stream-rest #36=#:ert-form-evaluation-aborted-3908 [(should (= 6 (stream-first (stream-rest rest)))) :form eql #36# :value = ert-explainer :explanation apply ert--signal-should-execution] stream-empty-p (error) #37=#:ert-form-evaluation-aborted-3913 [(should (stream-empty-p (stream-rest (stream-rest rest)))) :form eql #37# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution]] 20] stream-seq-subseq-test #[0 "\301C\3021)\303\304\305\306\307\310\311\312\313\257!\310\312#\314\"\305\307\310\311\312\313\257\310\312#)D0\2024\315\240\210\211@AD\262\316C\317C\320\307\321\322\323$\324\"\325$\216\326\242\"\240)\204[\327\242!\210\266\330C\3311t\303\332\305\333\307!\334\"!)\334D0\202\315\240\210\211@AD\262\335C\317C\320\307\321\322\323$\336\"\325$\216\326\242\"\240)\204\246\327\242!\210\266\330C\3371\302\303\332\305\211\333\307!\334\"\334\"!)\340D0\202\315\315\240\210\211@AD\262\341C\317C\320\307\321\322\323$\342\"\325$\216\326\242\"\240)\204\364\327\242!\210\266\305C\3431\303\333\307!)\344D0\202\315\240\210\211@AD\262\345C\317C\317\320\307\346\322\323!\347\"\310$\3501I\320\307\321\322\323\n\n\n\n$\351\"\325$\216\326\242\"\240)0\202X\352\262\353\354\317$\210\240\262\210\204g\327\355 \356\357D\"!\210\266\211\242\262\207" [signal-hook-function equal (error) ert--should-signal-hook seq-into seq-subseq stream 0 1 2 3 4 list signal #38=#:ert-form-evaluation-aborted-3918 nil make-byte-code "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (equal (seq-into (seq-subseq (stream (list 0 1 2 3 4)) 1 3) 'list) (seq-subseq (list 0 1 2 3 4) 1 3))) :form eql #38# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail = (error) stream-first stream-range 5 #39=#:ert-form-evaluation-aborted-3923 [(should (= (stream-first (seq-subseq (stream-range 0) 5)) 5)) :form eql #39# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) 10 #40=#:ert-form-evaluation-aborted-3928 [(should (= (stream-first (seq-subseq (seq-subseq (stream-range 0) 5) 5)) 10)) :form eql #40# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) -1 #42=#:ert-form-evaluation-aborted-3933 "\300\242\207" #41# (error) [(should-error (seq-subseq (stream-range 0) -1)) :form eql #42# :value seq-subseq ert-explainer :explanation apply ert--signal-should-execution] t ert--should-error-handle-error error append :fail-reason "did not signal an error"] 15] stream-seq-into-test #[0 "\301C\3021\303\304\305 \306\")C0\202\307\240\210\211@AD\262\310C\311C\312\313\314\315\316$\317\"\320$\216\321\242\"\240)\204E\322\242!\210\266\301C\3231Y\303\304\324\306\")C0\202d\307\240\210\211@AD\262\325C\311C\312\313\314\315\316$\326\"\320$\216\321\242\"\240)\204\213\322\242!\210\266\327C\3301\242\303\331\332\304\333\306\"!)D0\202\255\307\240\210\211@AD\262\334C\311C\312\313\314\315\316$\335\"\320$\216\321\242\"\240)\204\324\322\242!\210\266\336C\3371\351\303\304\305 \340\")C0\202\364\307\240\210\211@AD\262\341C\311C\312\313\314\315\316$\342\"\320$\216\321\242\"\240)\204\322\242!\210\266\343C\34413\303\345\304\346\313\347\"\340\")D0\202>\307\240\210\211@AD\262\350C\311C\312\313\314\315\316$\351\"\320$\216\321\242\"\240)\204e\322\242!\210\210\211\242\262\207" [signal-hook-function streamp (error) ert--should-signal-hook seq-into stream-empty stream signal #43=#:ert-form-evaluation-aborted-3940 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (streamp (seq-into (stream-empty) 'stream))) :form eql #43# :value streamp ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) #44=(2 4 5) #45=#:ert-form-evaluation-aborted-3945 [(should (streamp (seq-into '#44# 'stream))) :form eql #45# :value streamp ert-explainer :explanation apply ert--signal-should-execution] = (error) 2 stream-first #46=(2 4 5) #47=#:ert-form-evaluation-aborted-3950 [(should (= 2 (stream-first (seq-into '#46# 'stream)))) :form eql #47# :value = ert-explainer :explanation apply ert--signal-should-execution] null (error) list #48=#:ert-form-evaluation-aborted-3955 [(should (null (seq-into (stream-empty) 'list))) :form eql #48# :value null ert-explainer :explanation apply ert--signal-should-execution] equal (error) #49=(0 1 2 3 4 5 6 7 8 9) stream-range 10 #50=#:ert-form-evaluation-aborted-3960 [(should (equal '#49# (seq-into (stream-range 0 10) 'list))) :form eql #50# :value equal ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-seq-take-test #[0 "\301C\3021\303\304\305 \306\")C0\202\307\240\210\211@AD\262\310C\311C\312\313\314\315\316$\317\"\320$\216\321\242\"\240)\204E\322\242!\210\266\323C\3241]\303\313\325\304\305 \306\"!)D0\202h\307\240\210\211@AD\262\326C\311C\312\313\314\315\316$\327\"\320$\216\321\242\"\240)\204\217\322\242!\210\266\323C\3301\251\303\331\325\332\304\305 \306\"!!)D0\202\264\307\240\210\211@AD\262\333C\311C\312\313\314\315\316$\334\"\320$\216\321\242\"\240)\204\333\322\242!\210\266\335C\3361\366\303\325\332\211\304\305 \306\"!!!)C0\202\307\240\210\211@AD\262\337C\311C\312\313\314\315\316$\340\"\320$\216\321\242\"\240)\204(\322\242!\210\266\341C\3421A\303\332\211\304\305 \306\"!!)C0\202L\307\240\210\211@AD\262\343C\311C\312\313\314\315\316$\344\"\320$\216\321\242\"\240)\204s\322\242!\210\210\211\242\262\207" [signal-hook-function streamp (error) ert--should-signal-hook seq-take stream-range 2 signal #51=#:ert-form-evaluation-aborted-3965 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (streamp (seq-take (stream-range) 2))) :form eql #51# :value streamp ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail = (error) stream-first #52=#:ert-form-evaluation-aborted-3970 [(should (= 0 (stream-first (seq-take (stream-range) 2)))) :form eql #52# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) 1 stream-rest #53=#:ert-form-evaluation-aborted-3975 [(should (= 1 (stream-first (stream-rest (seq-take (stream-range) 2))))) :form eql #53# :value = ert-explainer :explanation apply ert--signal-should-execution] null (error) #54=#:ert-form-evaluation-aborted-3980 [(should (null (stream-first (stream-rest (stream-rest (seq-take (stream-range) 2)))))) :form eql #54# :value null ert-explainer :explanation apply ert--signal-should-execution] stream-empty-p (error) #55=#:ert-form-evaluation-aborted-3985 [(should (stream-empty-p (stream-rest (stream-rest (seq-take (stream-range) 2))))) :form eql #55# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-seq-drop-test #[0 "\301C\3021\303\304\305 \306\")C0\202\307\240\210\211@AD\262\310C\311C\312\313\314\315\316$\317\"\320$\216\321\242\"\240)\204E\322\242!\210\266\323C\3241]\303\306\325\304\305 \306\"!)D0\202h\307\240\210\211@AD\262\326C\311C\312\313\314\315\316$\327\"\320$\216\321\242\"\240)\204\217\322\242!\210\266\323C\3301\251\303\331\325\332\304\305 \306\"!!)D0\202\264\307\240\210\211@AD\262\333C\311C\312\313\314\315\316$\334\"\320$\216\321\242\"\240)\204\333\322\242!\210\266\335C\3361\360\303\304\337 \306\")C0\202\373\307\240\210\211@AD\262\340C\311C\312\313\314\315\316$\341\"\320$\216\321\242\"\240)\204\"\322\242!\210\210\211\242\262\207" [signal-hook-function streamp (error) ert--should-signal-hook seq-drop stream-range 2 signal #56=#:ert-form-evaluation-aborted-3990 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (streamp (seq-drop (stream-range) 2))) :form eql #56# :value streamp ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail = (error) stream-first #57=#:ert-form-evaluation-aborted-3995 [(should (= 2 (stream-first (seq-drop (stream-range) 2)))) :form eql #57# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) 3 stream-rest #58=#:ert-form-evaluation-aborted-4000 [(should (= 3 (stream-first (stream-rest (seq-drop (stream-range) 2))))) :form eql #58# :value = ert-explainer :explanation apply ert--signal-should-execution] stream-empty-p (error) stream-empty #59=#:ert-form-evaluation-aborted-4005 [(should (stream-empty-p (seq-drop (stream-empty) 2))) :form eql #59# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-seq-take-while-test #[0 "\301\302!\303C\3041\305\306\307\310 \")C0\202!\311\240\210\211@AD\262\312C\313C\314\315\316\317\320$\321\"\322$\216\323\242\"\240)\204H\324\242!\210\266\325C\3261\\\305\306\327\")C0\202g\311\240\210\211@AD\262\330C\313C\314\315\316\317\320$\331\"\322$\216\323\242\"\240)\204\216\324\242!\210\266\332C\3331\245\305\334\335\306\327\"!)D0\202\260\311\240\210\211@AD\262\336C\313C\314\315\316\317\320$\337\"\322$\216\323\242\"\240)\204\327\324\242!\210\266\332C\3401\361\305\341\335\342\306\327\"!!)D0\202\374\311\240\210\211@AD\262\343C\313C\314\315\316\317\320$\344\"\322$\216\323\242\"\240)\204#\324\242!\210\266\303C\3451;\305\342\211\306\327\"!!)C0\202F\311\240\210\211@AD\262\346C\313C\314\315\316\317\320$\347\"\322$\216\323\242\"\240)\204m\324\242!\210\210\211\242\262\266\202\207" [signal-hook-function stream (1 3 2 5) stream-empty-p (error) ert--should-signal-hook seq-take-while identity stream-empty signal #60=#:ert-form-evaluation-aborted-4010 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (stream-empty-p (seq-take-while #'identity (stream-empty)))) :form eql #60# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail streamp (error) cl-oddp #61=#:ert-form-evaluation-aborted-4015 [(should (streamp (seq-take-while #'cl-oddp stream))) :form eql #61# :value streamp ert-explainer :explanation apply ert--signal-should-execution] = (error) 1 stream-first #62=#:ert-form-evaluation-aborted-4020 [(should (= 1 (stream-first (seq-take-while #'cl-oddp stream)))) :form eql #62# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) 3 stream-rest #63=#:ert-form-evaluation-aborted-4025 [(should (= 3 (stream-first (stream-rest (seq-take-while #'cl-oddp stream))))) :form eql #63# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) #64=#:ert-form-evaluation-aborted-4030 [(should (stream-empty-p (stream-rest (stream-rest (seq-take-while #'cl-oddp stream))))) :form eql #64# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution]] 14] stream-seq-drop-while-test #[0 "\301\302!\303C\3041\305\306\307\")C0\202 \310\240\210\211@AD\262\311C\312C\313\314\315\316\317$\320\"\321$\216\322\242\"\240)\204G\323\242!\210\266\324C\3251\\\305\306\326\327 \")C0\202g\310\240\210\211@AD\262\330C\312C\313\314\315\316\317$\331\"\321$\216\322\242\"\240)\204\216\323\242!\210\266\332C\3331\245\305\334\335\306\307\"!)D0\202\260\310\240\210\211@AD\262\336C\312C\313\314\315\316\317$\337\"\321$\216\322\242\"\240)\204\327\323\242!\210\266\332C\3401\361\305\341\335\342\306\307\"!!)D0\202\374\310\240\210\211@AD\262\343C\312C\313\314\315\316\317$\344\"\321$\216\322\242\"\240)\204#\323\242!\210\266\324C\3451;\305\342\211\306\307\"!!)C0\202F\310\240\210\211@AD\262\346C\312C\313\314\315\316\317$\347\"\321$\216\322\242\"\240)\204m\323\242!\210\210\211\242\262\266\202\207" [signal-hook-function stream (1 3 2 5) streamp (error) ert--should-signal-hook seq-drop-while cl-evenp signal #65=#:ert-form-evaluation-aborted-4035 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (streamp (seq-drop-while #'cl-evenp stream))) :form eql #65# :value streamp ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail stream-empty-p (error) identity stream-empty #66=#:ert-form-evaluation-aborted-4040 [(should (stream-empty-p (seq-drop-while #'identity (stream-empty)))) :form eql #66# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution] = (error) 2 stream-first #67=#:ert-form-evaluation-aborted-4045 [(should (= 2 (stream-first (seq-drop-while #'cl-evenp stream)))) :form eql #67# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) 5 stream-rest #68=#:ert-form-evaluation-aborted-4050 [(should (= 5 (stream-first (stream-rest (seq-drop-while #'cl-evenp stream))))) :form eql #68# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) #69=#:ert-form-evaluation-aborted-4055 [(should (stream-empty-p (stream-rest (stream-rest (seq-drop-while #'cl-evenp stream))))) :form eql #69# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution]] 14] stream-seq-map-test #[0 "\301C\3021\303\304\305\306 \")C0\202\307\240\210\211@AD\262\310C\311C\312\313\314\315\316$\317\"\320$\216\321\242\"\240)\204E\322\242!\210\266\323C\3241^\303\325\326\304\305\327\330!\"!)D0\202i\307\240\210\211@AD\262\331C\311C\312\313\314\315\316$\332\"\320$\216\321\242\"\240)\204\220\322\242!\210\266\323C\3331\253\303\334\326\335\304\305\327\330!\"!!)D0\202\266\307\240\210\211@AD\262\336C\311C\312\313\314\315\316$\337\"\320$\216\321\242\"\240)\204\335\322\242!\210\210\211\242\262\207" [signal-hook-function stream-empty-p (error) ert--should-signal-hook seq-map - stream-empty signal #70=#:ert-form-evaluation-aborted-4060 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (stream-empty-p (seq-map #'- (stream-empty)))) :form eql #70# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail = (error) -1 stream-first stream-range 1 #71=#:ert-form-evaluation-aborted-4065 [(should (= -1 (stream-first (seq-map #'- (stream-range 1))))) :form eql #71# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) -2 stream-rest #72=#:ert-form-evaluation-aborted-4070 [(should (= -2 (stream-first (stream-rest (seq-map #'- (stream-range 1)))))) :form eql #72# :value = ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-seq-mapn-test #[0 "\301C\3021\303\304\305\306\307\310\311E!\306\312\313\314E!#)C0\202(\315\240\210\211@AD\262\316C\317C\320\321\322\323\324$\325\"\326$\216\327\242\"\240)\204O\330\242!\210\266\331C\3321t\303\301\304\305\306\307\310\311E!\306\312\313\314E!\326\333\334E$!)C0\202\315\240\210\211@AD\262\335C\317C\320\321\322\323\324$\336\"\326$\216\327\242\"\240)\204\246\330\242!\210\266\337C\3401\307\303\310\341\304\305\306\307\310\311E!\306\312\313D!#!)D0\202\322\315\240\210\211@AD\262\342C\317C\320\321\322\323\324$\343\"\326$\216\327\242\"\240)\204\371\330\242!\210\266\344C\3451'\303\317C\211\346\320\321\347\323\324!\350\"\333$B\240\210\351\352\242\353\"\354\"\262)\355D0\2022\315\240\210\211@AD\262\356C\317C\320\321\322\323\324$\357\"\326$\216\327\242\"\240)\204Y\330\242!\210\210\211\242\262\207" [signal-hook-function streamp (error) ert--should-signal-hook seq-mapn + stream 1 2 3 4 5 6 signal #73=#:ert-form-evaluation-aborted-4075 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (streamp (seq-mapn #'+ (stream (list 1 2 3)) (stream (list 4 5 6))))) :form eql #73# :value streamp ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail not (error) 8 9 #74=#:ert-form-evaluation-aborted-4080 [(should (not (streamp (seq-mapn #'+ (stream (list 1 2 3)) (stream (list 4 5 6)) (list 7 8 9))))) :form eql #74# :value not ert-explainer :explanation apply ert--signal-should-execution] = (error) seq-length #75=#:ert-form-evaluation-aborted-4085 [(should (= 2 (seq-length (seq-mapn #'+ (stream (list 1 2 3)) (stream (list 4 5)))))) :form eql #75# :value = ert-explainer :explanation apply ert--signal-should-execution] equal (error) --stream-fresh-- "\301\302\303\304\305\306\307\300!\310\"\311$BB\207" [1 --stream-fresh-- make-byte-code 0 "\301\302\303\300\242\304\300\242!#B\207" vconcat vector [1 seq-mapn + stream-rest] 6] seq-into seq-take 10 list #76=(1 1 2 3 5 8 13 21 34 55) #77=#:ert-form-evaluation-aborted-4090 [(should (equal (letrec ((fibs (stream-cons 1 (stream-cons 1 (seq-mapn #'+ fibs (stream-rest fibs)))))) (seq-into (seq-take fibs 10) 'list)) '#76#)) :form eql #77# :value equal ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-seq-do-test #[0 "\301C\302\303\304\305\306\307!\310\"\311\312%\313\314\315\"\"\210\316C\3171'\320\242)\321D0\2022\322\240\210\211@AD\262\323C\301C\303\314\324\306\307$\325\"\326$\216\327\242\"\240)\204Y\330\242!\210\210\211\242\262\266\202\207" [signal-hook-function nil seq-do make-byte-code 257 "\300\300\242B\240\207" vconcat vector #41# 4 "\n\n(fn ELT)" stream-range 0 5 equal (error) ert--should-signal-hook #78=(4 3 2 1 0) signal #79=#:ert-form-evaluation-aborted-4095 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" [(should (equal result '#78#)) :form eql #79# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail] 14] stream-seq-filter-test #[0 "\301C\3021\303\304\305\306 \")C0\202\307\240\210\211@AD\262\310C\311C\312\313\314\315\316$\317\"\320$\216\321\242\"\240)\204E\322\242!\210\266\301C\3231]\303\304\305\324\313\325\326#\")C0\202h\307\240\210\211@AD\262\327C\311C\312\313\314\315\316$\330\"\320$\216\321\242\"\240)\204\217\322\242!\210\266\331C\3321\251\303\333\334\304\305\324\313\325\"\"!)D0\202\264\307\240\210\211@AD\262\335C\311C\312\313\314\315\316$\336\"\320$\216\321\242\"\240)\204\333\322\242!\210\266\331C\3371\367\303\340\334\341\304\305\324\313\325\"\"!!)D0\202\307\240\210\211@AD\262\342C\311C\312\313\314\315\316$\343\"\320$\216\321\242\"\240)\204)\322\242!\210\266\301C\3441D\303\341\211\304\305\324\313\325\"\"!!)C0\202O\307\240\210\211@AD\262\345C\311C\312\313\314\315\316$\346\"\320$\216\321\242\"\240)\204v\322\242!\210\210\211\242\262\207" [signal-hook-function stream-empty-p (error) ert--should-signal-hook seq-filter cl-oddp stream-empty signal #80=#:ert-form-evaluation-aborted-4100 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (stream-empty-p (seq-filter #'cl-oddp (stream-empty)))) :form eql #80# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) stream-range 4 2 #81=#:ert-form-evaluation-aborted-4105 [(should (stream-empty-p (seq-filter #'cl-oddp (stream-range 0 4 2)))) :form eql #81# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution] = (error) 1 stream-first #82=#:ert-form-evaluation-aborted-4110 [(should (= 1 (stream-first (seq-filter #'cl-oddp (stream-range 0 4))))) :form eql #82# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) 3 stream-rest #83=#:ert-form-evaluation-aborted-4115 [(should (= 3 (stream-first (stream-rest (seq-filter #'cl-oddp (stream-range 0 4)))))) :form eql #83# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) #84=#:ert-form-evaluation-aborted-4120 [(should (stream-empty-p (stream-rest (stream-rest (seq-filter #'cl-oddp (stream-range 0 4)))))) :form eql #84# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-delay-test #[0 "\301C\3021\303\304BC0\202\305\240\210\211@AD\262\306C\307C\310\311\312\313\314$\315\"\316$\216\317\242\"\240)\204@\320\242!\210\266\321C\3221V\323\311\324\303\325B!)D0\202a\305\240\210\211@AD\262\326C\307C\310\311\312\313\314$\327\"\316$\216\317\242\"\240)\204\210\320\242!\210\266\321C\3301\240\323\331\324\332\303\333B!!)D0\202\253\305\240\210\211@AD\262\334C\307C\310\311\312\313\314$\335\"\316$\216\317\242\"\240)\204\322\320\242!\210\266\336\337!C\307C\310\311\340\313\314\"\341\"\342$\216\343\344\316\"\345\303\310\311\346\313\314!\347\"\350$B\351\"\345\351\"\232\262\240)\204\320\242!\210\266\352C\3531&\323\345\303\354B\351\")C0\2021\305\240\210\211@AD\262\355C\307C\310\311\312\313\314$\356\"\316$\216\317\242\"\240)\204X\320\242!\210\266\336\337!C\307C\310\311\340\313\314\"\357\"\342$\216\307C\310\360\361\313\314!\362\"\344\363%\364\365\366!\"\242\324!\242E\367\232\266\203\240)\204\232\320\242!\210\266\336\337!C\307C\310\311\340\313\314\"\370\"\342$\216\311C\371\303\310\311\372\313\314!\373\"\350$B\307\211\374\"\210\324!\262\375\"\210\324!\262\374\232\205\342\211\374\232\266\205\240)\204\356\320\242!\210\210\211\242\207" [signal-hook-function streamp (error) --stream-fresh-- #[0 "\300 \301!?\205\302!\303!B\207" [stream-range stream-empty-p stream-first stream-rest] 4] signal #85=#:ert-form-evaluation-aborted-4125 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (streamp (stream-delay (stream-range)))) :form eql #85# :value streamp ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail = (error) ert--should-signal-hook stream-first #[0 "\300 \301!?\205\302!\303!B\207" [stream-range stream-empty-p stream-first stream-rest] 4] #86=#:ert-form-evaluation-aborted-4130 [(should (= 0 (stream-first (stream-delay (stream-range))))) :form eql #86# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) 1 stream-rest #[0 "\300 \301!?\205\302!\303!B\207" [stream-range stream-empty-p stream-first stream-rest] 4] #87=#:ert-form-evaluation-aborted-4135 [(should (= 1 (stream-first (stream-rest (stream-delay (stream-range)))))) :form eql #87# :value = ert-explainer :explanation apply ert--signal-should-execution] gensym #88# "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" [(should (let #89=((stream (stream-range 3 7))) (equal (seq-into (stream-delay stream) . #91=('list)) . #92=((seq-into stream 'list))))) :form (let #89# (equal (seq-into (cons '--stream-fresh-- #'(lambda nil (let ((#90=#:stream stream)) (if (stream-empty-p #90#) nil (cons (stream-first #90#) (stream-rest #90#)))))) . #91#) . #92#)) :value ert--signal-should-execution] 6 stream-range 3 seq-into "\300\301!?\205\302!\303!B\207" [stream-empty-p stream-first stream-rest] 4 list null (error) #[0 "\300 \301!?\205\302!\303!B\207" [stream-empty stream-empty-p stream-first stream-rest] 4] #93=#:ert-form-evaluation-aborted-4142 [(should (null (seq-into (stream-delay (stream-empty)) 'list))) :form eql #93# :value null ert-explainer :explanation apply ert--signal-should-execution] [(should (let* (#94=(evaluated nil) (one-plus (lambda #95=(el) #96=(setq evaluated t) #97=(1+ el))) . #98=((stream (seq-map one-plus (stream '#100=(1)))))) . #99=((equal '#101=(nil 2 t) (list evaluated (stream-first stream) evaluated))))) :form (let* (#94# (one-plus #'(lambda #95# #96# #97#)) . #98#) . #99#) :value ert--signal-should-execution] 257 "\300\301\240\210\211T\207" [t] "\n\n(fn EL)" seq-map stream #100# #101# [(should (let* (#102=(a 0) (set-a (lambda #103=(x) #104=(setq a x))) (s (stream-delay #105=(stream (list a)))) . #107=(res1 res2)) . #108=((funcall set-a 5) (setq res1 (stream-first s)) (funcall set-a 11) (setq res2 (stream-first s)) (and (equal res1 5) (equal res2 5))))) :form (let* (#102# (set-a #'(lambda #103# #104#)) (s (cons '--stream-fresh-- #'(lambda nil (let ((#106=#:stream #105#)) (if (stream-empty-p #106#) nil (cons (stream-first #106#) (stream-rest #106#))))))) . #107#) . #108#) :value ert--signal-should-execution] #[514 "\240\207" #41# 4 "\n\n(fn A X)"] "\301\300\242C!\302!?\205\303!\304!B\207" [stream stream-empty-p stream-first stream-rest] 5 11] 13] stream-seq-copy-test #[0 "\301C\3021\303\304\305 !)C0\202\306\240\210\211@AD\262\307C\310C\311\312\313\314\315$\316\"\317$\216\320\242\"\240)\204D\321\242!\210\266\322C\3231[\303\312\324\304\305 !!)D0\202f\306\240\210\211@AD\262\325C\310C\311\312\313\314\315$\326\"\317$\216\320\242\"\240)\204\215\321\242!\210\266\322C\3271\246\303\330\324\331\304\305 !!!)D0\202\261\306\240\210\211@AD\262\332C\310C\311\312\313\314\315$\333\"\317$\216\320\242\"\240)\204\330\321\242!\210\266\334\335!C\310C\311\312\336\314\315\"\337\"\340$\216\305\341\317\"\342\304!\343\"\342\343\"\232\262\240)\204 \321\242!\210\266\344C\3451\"\303\342\304\346 !\343\")C0\202-\306\240\210\211@AD\262\347C\310C\311\312\313\314\315$\350\"\317$\216\320\242\"\240)\204T\321\242!\210\210\211\242\262\207" [signal-hook-function streamp (error) ert--should-signal-hook seq-copy stream-range signal #109=#:ert-form-evaluation-aborted-4151 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (streamp (seq-copy (stream-range)))) :form eql #109# :value streamp ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail = (error) stream-first #110=#:ert-form-evaluation-aborted-4156 [(should (= 0 (stream-first (seq-copy (stream-range))))) :form eql #110# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) 1 stream-rest #111=#:ert-form-evaluation-aborted-4161 [(should (= 1 (stream-first (stream-rest (seq-copy (stream-range)))))) :form eql #111# :value = ert-explainer :explanation apply ert--signal-should-execution] gensym #88# "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" [(should #112=(let ((stream (stream-range 3 7))) (equal (seq-into (seq-copy stream) 'list) (seq-into stream 'list)))) :form #112# :value ert--signal-should-execution] 6 3 seq-into list null (error) stream-empty #113=#:ert-form-evaluation-aborted-4168 [(should (null (seq-into (seq-copy (stream-empty)) 'list))) :form eql #113# :value null ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-range-test #[0 "\301C\3021\303\304\305\211\")C0\202\306\240\210\211@AD\262\307C\310C\311\305\312\313\314$\315\"\316$\216\317\242\"\240)\204D\320\242!\210\266\301C\3211X\303\304\322\211\")C0\202c\306\240\210\211@AD\262\323C\310C\311\305\312\313\314$\324\"\316$\216\317\242\"\240)\204\212\320\242!\210\266\325C\3261\242\303\305\327\304\305\330\331#!)D0\202\255\306\240\210\211@AD\262\332C\310C\311\305\312\313\314$\333\"\316$\216\317\242\"\240)\204\324\320\242!\210\266\325C\3341\356\303\331\327\335\304\305\330\331#!!)D0\202\371\306\240\210\211@AD\262\336C\310C\311\305\312\313\314$\337\"\316$\216\317\242\"\240)\204 \320\242!\210\266\325C\3401<\303\341\327\335\211\304\305\330\331#!!!)D0\202G\306\240\210\211@AD\262\342C\310C\311\305\312\313\314$\343\"\316$\216\317\242\"\240)\204n\320\242!\210\266\301C\3441\211\303\335\211\211\304\305\330\331#!!!)C0\202\224\306\240\210\211@AD\262\345C\310C\311\305\312\313\314$\346\"\316$\216\317\242\"\240)\204\273\320\242!\210\266\325C\3471\327\303\350\327\335\211\304\305\310\351#!!!)D0\202\342\306\240\210\211@AD\262\352C\310C\311\305\312\313\314$\353\"\316$\216\317\242\"\240)\204 \320\242!\210\210\211\242\262\207" [signal-hook-function stream-empty-p (error) ert--should-signal-hook stream-range 0 signal #114=#:ert-form-evaluation-aborted-4173 nil make-byte-code "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (stream-empty-p (stream-range 0 0))) :form eql #114# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) 3 #115=#:ert-form-evaluation-aborted-4178 [(should (stream-empty-p (stream-range 3 3))) :form eql #115# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution] = (error) stream-first 6 2 #116=#:ert-form-evaluation-aborted-4183 [(should (= 0 (stream-first (stream-range 0 6 2)))) :form eql #116# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) stream-rest #117=#:ert-form-evaluation-aborted-4188 [(should (= 2 (stream-first (stream-rest (stream-range 0 6 2))))) :form eql #117# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) 4 #118=#:ert-form-evaluation-aborted-4193 [(should (= 4 (stream-first (stream-rest (stream-rest (stream-range 0 6 2)))))) :form eql #118# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) #119=#:ert-form-evaluation-aborted-4198 [(should (stream-empty-p (stream-rest (stream-rest (stream-rest (stream-range 0 6 2)))))) :form eql #119# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution] (error) -4 -2 #120=#:ert-form-evaluation-aborted-4203 [(should (= -4 (stream-first (stream-rest (stream-rest (stream-range 0 nil -2)))))) :form eql #120# :value = ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-list-test #[0 "\301\211\205W\211@\302C\3031\304\305\306!\307\")D0\202'\310\240\210\211@AD\262\311C\312C\313\314\315\316\317$\320\"\321$\216\322\242\"\240)\204N\323\242!\210\266A\266\202\202\207" [signal-hook-function (nil '(1 2 3) '(a . b)) equal (error) ert--should-signal-hook seq-into stream list signal #121=#:ert-form-evaluation-aborted-4208 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (equal list (seq-into (stream list) 'list))) :form eql #121# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail] 15] #[0 "\301C\3021\303\304\305\306\307\"\310\211#)C0\202!\311\240\210\211@AD\262\312C\313C\314\310\315\316\317$\320\"\321$\216\322\242\"\240)\204H\323\242!\210\266\324C\3251c\303\326\304\305\306\307\"\310\327#!)\306D0\202n\311\240\210\211@AD\262\330C\313C\314\310\315\316\317$\331\"\321$\216\322\242\"\240)\204\225\323\242!\210\266\324C\3321\260\303\333\304\305\306\307\"\310\327#!)\327D0\202\273\311\240\210\211@AD\262\334C\313C\314\310\315\316\317$\335\"\321$\216\322\242\"\240)\204\342\323\242!\210\266\324C\3361\376\303\337\304\305\306\307\"\310\327#\306\")\340D0\202 \311\240\210\211@AD\262\341C\313C\314\310\315\316\317$\342\"\321$\216\322\242\"\240)\2040\323\242!\210\266\324C\3431K\303\326\304\305\306\307\"\344\327#!)\327D0\202V\311\240\210\211@AD\262\345C\313C\314\310\315\316\317$\346\"\321$\216\322\242\"\240)\204}\323\242!\210\266\324C\3471\230\303\333\304\305\306\307\"\344\327#!)\306D0\202\243\311\240\210\211@AD\262\350C\313C\314\310\315\316\317$\351\"\321$\216\322\242\"\240)\204\312\323\242!\210\266\324C\3521\346\303\337\304\305\306\307\"\344\327#\344\")\340D0\202\361\311\240\210\211@AD\262\353C\313C\314\310\315\316\317$\354\"\321$\216\322\242\"\240)\204\323\242!\210\210\211\242\262\207" [signal-hook-function stream-empty-p (error) ert--should-signal-hook seq-subseq stream-range 2 10 0 signal #122=#:ert-form-evaluation-aborted-4213 nil make-byte-code "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (stream-empty-p (seq-subseq (stream-range 2 10) 0 0))) :form eql #122# :value stream-empty-p ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail = (error) stream-first 3 #123=#:ert-form-evaluation-aborted-4218 [(should (= (stream-first (seq-subseq (stream-range 2 10) 0 3)) 2)) :form eql #123# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) seq-length #124=#:ert-form-evaluation-aborted-4223 [(should (= (seq-length (seq-subseq (stream-range 2 10) 0 3)) 3)) :form eql #124# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) seq-elt 4 #125=#:ert-form-evaluation-aborted-4228 [(should (= (seq-elt (seq-subseq (stream-range 2 10) 0 3) 2) 4)) :form eql #125# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) 1 #126=#:ert-form-evaluation-aborted-4233 [(should (= (stream-first (seq-subseq (stream-range 2 10) 1 3)) 3)) :form eql #126# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) #127=#:ert-form-evaluation-aborted-4238 [(should (= (seq-length (seq-subseq (stream-range 2 10) 1 3)) 2)) :form eql #127# :value = ert-explainer :explanation apply ert--signal-should-execution] (error) #128=#:ert-form-evaluation-aborted-4243 [(should (= (seq-elt (seq-subseq (stream-range 2 10) 1 3) 1) 4)) :form eql #128# :value = ert-explainer :explanation apply ert--signal-should-execution]] 13] stream-pop-test #[0 "\302\303!\304!\305!\262\300 \306C\3071\310\311)D0\202)\312\240\210\211@AD\262\313C\314C\315\316\317\320\321$\322\"\323$\216\324\242\"\240)\204P\325\242!\210\266\306C\3261d\310\327\304!)D0\202o\312\240\210\211@AD\262\330C\314C\315\316\317\320\321$\331\"\323$\216\324\242\"\240)\204\226\325\242!\210\266\332C\3331\255\310\304!\305!)C0\202\270\312\240\210\211@AD\262\334C\314C\315\316\317\320\321$\335\"\323$\216\324\242\"\240)\204\337\325\242!\210\210\211\242\262\266\202)\207" [stream-empty signal-hook-function stream (1 2 3) stream-first stream-rest = (error) ert--should-signal-hook 1 signal #129=#:ert-form-evaluation-aborted-4248 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (= 1 first)) :form eql #129# :value = ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) 2 #130=#:ert-form-evaluation-aborted-4253 [(should (= 2 (stream-first str))) :form eql #130# :value = ert-explainer :explanation apply ert--signal-should-execution] null (error) #131=#:ert-form-evaluation-aborted-4258 [(should (null (stream-pop stream-empty))) :form eql #131# :value null ert-explainer :explanation apply ert--signal-should-execution]] 15] stream-scan-test #[0 "\301C\3021\303\304\305\306\307\310\307!#\311\")\312D0\202$\313\240\210\211@AD\262\314C\315C\316\317\320\321\322$\323\"\324$\216\325\242\"\240)\204K\326\242!\210\210\211\242\262\207" [signal-hook-function eq (error) ert--should-signal-hook seq-elt stream-scan * 1 stream-range 4 24 signal #132=#:ert-form-evaluation-aborted-4263 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (eq (seq-elt (stream-scan #'* 1 (stream-range 1)) 4) 24)) :form eql #132# :value eq ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail] 13] stream-flush-test #[0 "\300\301!C\302C\303\304\305\306\307\"\310\"\311$\216\304C\303\304\312\306\307!\313\"\314$\302C\211\303\304\315\306\307\"\316\"\317$\240\210\320\321\242 \322\"!\210\242\322=\262\266\202\240)\204Q\323\242!\210\210\211\242\207" [gensym #88# nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should (let* (#133=(times 0) (count (lambda nil (cl-incf times)))) (letrec ((make-test-stream (lambda nil (stream-cons #134=(progn (funcall count) nil) #135=(funcall make-test-stream))))) #136=(stream-flush (seq-take (funcall make-test-stream) 5)) #137=(eq times 5)))) :form (let* (#133# (count #'(lambda nil (setq times (1+ times))))) (let (make-test-stream) (setq make-test-stream #'(lambda nil (cons '--stream-fresh-- #'(lambda nil (cons #134# #135#))))) #136# #137#)) :value ert--signal-should-execution] 6 "\300\211\242T\240\207" #41# 2 "\302\303\304\305\306\307\300\301\"\310\"\311$B\207" [--stream-fresh-- make-byte-code 0 "\300 \210\302\301\242 B\207" vconcat vector [nil] 2] 8 stream-flush seq-take 5 ert-fail] 14] stream-iterate-function-test #[0 "\301C\3021\303\304\305\306E\307\310\311\312\304\"\313\"!)D0\202&\314\240\210\211@AD\262\315C\316C\317\304\320\321\322$\323\"\324$\216\325\242\"\240)\204M\326\242!\210\210\211\242\262\207" [signal-hook-function equal (error) ert--should-signal-hook 0 1 2 seq-into-sequence seq-take stream-iterate-function 1+ 3 signal #138=#:ert-form-evaluation-aborted-4270 nil make-byte-code "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (equal (list 0 1 2) (seq-into-sequence (seq-take (stream-iterate-function #'1+ 0) 3)))) :form eql #138# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail] 13] stream-concatenate-test #[0 "\301C\30216\303\304\305\306\211\307\310\311E!\306\312!\306\313C!\306\314\315\316\317\320\257!F!!!\307\310\311\313\314\315\316\317\320\257 )D0\202A\321\240\210\211@AD\262\322C\312C\323\324\325\326\327$\330\"\316$\216\331\242\"\240)\204h\332\242!\210\210\211\242\262\207" [signal-hook-function equal (error) ert--should-signal-hook seq-into-sequence stream-concatenate stream 1 2 3 nil 4 5 6 7 8 9 signal #139=#:ert-form-evaluation-aborted-4275 make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (equal (seq-into-sequence (stream-concatenate (stream (list (stream (list 1 2 3)) (stream (list)) (stream (list 4)) (stream (list 5 6 7 8 9)))))) (list 1 2 3 4 5 6 7 8 9))) :form eql #139# :value equal ert-explainer :explanation apply ert--signal-should-execution] apply ert-fail] 13]] 10) (defvar this-delayed-stream-function nil) (defalias 'make-delayed-test-stream #[0 "\300\301B\207" [--stream-fresh-- #[0 "\301\302\303\"\210\304 B\207" [this-delayed-stream-function 1 error "`%s' not completely delayed" make-delayed-test-stream] 4]] 2]) #@13 (fn CALL) (defalias 'deftest-for-delayed-evaluation '(macro . #[257 "\211@\300\301\302!\303P!\304\305\306\307DDC\310\311\312 EDEF\207" [ert-deftest intern symbol-name "-delayed-test" nil let this-delayed-stream-function quote should prog1 t] 11 (#$ . 57860)])) (byte-code "\300\301\302\303\301\304\305\304\306\304&\"\210\300\307\302\303\307\304\310\304\306\304&\"\210\300\311\302\303\311\304\312\304\306\304&\"\210\300\313\302\303\313\304\314\304\306\304&\"\210\300\315\302\303\315\304\316\304\306\304&\"\210\300\317\302\303\317\304\320\304\306\304&\"\210\300\321\302\303\321\304\322\304\306\304&\"\210\300\323\302\303\323\304\324\304\306\304&\"\210\300\325\302\303\325\304\326\304\306\304&\"\210\300\327\302\303\327\304\330\304\306\304&\"\210\300\331\302\303\331\304\332\304\306\304&\"\210\300\333\302\303\333\304\334\304\306\304&\"\210\300\335\302\303\335\304\336\304\306\304&\"\210\300\337\302\303\337\304\340\304\306\304&\"\210\341\342!\207" [ert-set-test streamp-delayed-test record ert-test nil #[0 "\301\302\303!C\304C\305\306\307\310\311\"\312\"\313$\216\314\301\315 !\210\240)\204(\316\242!\210\210\211\242\262)\207" [this-delayed-stream-function streamp gensym #2="ert-form-evaluation-aborted-" nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should #1=(prog1 t (streamp (make-delayed-test-stream)))) :form #1# :value ert--signal-should-execution] 6 t make-delayed-test-stream ert-fail] 9] :passed seqp-delayed-test #[0 "\301\302\303!C\304C\305\306\307\310\311\"\312\"\313$\216\314\301\315 !\210\240)\204(\316\242!\210\210\211\242\262)\207" [this-delayed-stream-function seqp gensym #2# nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should #3=(prog1 t (seqp (make-delayed-test-stream)))) :form #3# :value ert--signal-should-execution] 6 t make-delayed-test-stream ert-fail] 9] stream-append-delayed-test #[0 "\301\302\303!C\304C\305\306\307\310\311\"\312\"\313$\216\314\301\315 \315 \"\210\240)\204*\316\242!\210\210\211\242\262)\207" [this-delayed-stream-function stream-append gensym #2# nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should #4=(prog1 t (stream-append (make-delayed-test-stream) (make-delayed-test-stream)))) :form #4# :value ert--signal-should-execution] 6 t make-delayed-test-stream ert-fail] 9] seq-take-delayed-test #[0 "\301\302\303!C\304C\305\306\307\310\311\"\312\"\313$\216\314\301\315 \316\"\210\240)\204)\317\242!\210\210\211\242\262)\207" [this-delayed-stream-function seq-take gensym #2# nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should #5=(prog1 t (seq-take (make-delayed-test-stream) 2))) :form #5# :value ert--signal-should-execution] 6 t make-delayed-test-stream 2 ert-fail] 9] seq-drop-delayed-test #[0 "\301\302\303!C\304C\305\306\307\310\311\"\312\"\313$\216\314\301\315 \316\"\210\240)\204)\317\242!\210\210\211\242\262)\207" [this-delayed-stream-function seq-drop gensym #2# nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should #6=(prog1 t (seq-drop (make-delayed-test-stream) 2))) :form #6# :value ert--signal-should-execution] 6 t make-delayed-test-stream 2 ert-fail] 9] seq-take-while-delayed-test #[0 "\301\302\303!C\304C\305\306\307\310\311\"\312\"\313$\216\314\301\315\316 \"\210\240)\204)\317\242!\210\210\211\242\262)\207" [this-delayed-stream-function seq-take-while gensym #2# nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should #7=(prog1 t (seq-take-while #'numberp (make-delayed-test-stream)))) :form #7# :value ert--signal-should-execution] 6 t numberp make-delayed-test-stream ert-fail] 9] seq-map-delayed-test #[0 "\301\302\303!C\304C\305\306\307\310\311\"\312\"\313$\216\314\301\315\316 \"\210\240)\204)\317\242!\210\210\211\242\262)\207" [this-delayed-stream-function seq-map gensym #2# nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should #8=(prog1 t (seq-map #'identity (make-delayed-test-stream)))) :form #8# :value ert--signal-should-execution] 6 t identity make-delayed-test-stream ert-fail] 9] seq-mapn-delayed-test #[0 "\301\302\303!C\304C\305\306\307\310\311\"\312\"\313$\216\314\301\315\316 \316 #\210\240)\204+\317\242!\210\210\211\242\262)\207" [this-delayed-stream-function seq-mapn gensym #2# nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should #9=(prog1 t (seq-mapn #'cons (make-delayed-test-stream) (make-delayed-test-stream)))) :form #9# :value ert--signal-should-execution] 6 t cons make-delayed-test-stream ert-fail] 9] seq-filter-delayed-test #[0 "\301\302\303!C\304C\305\306\307\310\311\"\312\"\313$\216\314\301\315\316 \"\210\240)\204)\317\242!\210\210\211\242\262)\207" [this-delayed-stream-function seq-filter gensym #2# nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should #10=(prog1 t (seq-filter #'cl-evenp (make-delayed-test-stream)))) :form #10# :value ert--signal-should-execution] 6 t cl-evenp make-delayed-test-stream ert-fail] 9] stream-delay-delayed-test #[0 "\301\302\303!C\304C\305\306\307\310\311\"\312\"\313$\216\314\240)\204#\315\242!\210\210\211\242\262)\207" [this-delayed-stream-function stream-delay gensym #2# nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should (prog1 t (stream-delay #11=(make-delayed-test-stream)))) :form (prog1 t (cons '--stream-fresh-- #'(lambda nil (let ((#12=#:stream #11#)) (if (stream-empty-p #12#) nil (cons (stream-first #12#) (stream-rest #12#))))))) :value ert--signal-should-execution] 6 t ert-fail] 9] seq-copy-delayed-test #[0 "\301\302\303!C\304C\305\306\307\310\311\"\312\"\313$\216\314\301\315 !\210\240)\204(\316\242!\210\210\211\242\262)\207" [this-delayed-stream-function seq-copy gensym #2# nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should #13=(prog1 t (seq-copy (make-delayed-test-stream)))) :form #13# :value ert--signal-should-execution] 6 t make-delayed-test-stream ert-fail] 9] seq-subseq-delayed-test #[0 "\301\302\303!C\304C\305\306\307\310\311\"\312\"\313$\216\314\301\315 \316\"\210\240)\204)\317\242!\210\210\211\242\262)\207" [this-delayed-stream-function seq-subseq gensym #2# nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should #14=(prog1 t (seq-subseq (make-delayed-test-stream) 2))) :form #14# :value ert--signal-should-execution] 6 t make-delayed-test-stream 2 ert-fail] 9] stream-scan-delayed-test #[0 "\301\302\303!C\304C\305\306\307\310\311\"\312\"\313$\216\314\301\315\316\317 #\210\240)\204*\320\242!\210\210\211\242\262)\207" [this-delayed-stream-function stream-scan gensym #2# nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should #15=(prog1 t (stream-scan #'* 1 (make-delayed-test-stream)))) :form #15# :value ert--signal-should-execution] 6 t * 1 make-delayed-test-stream ert-fail] 9] stream-concatenate-delayed-test #[0 "\301\302\303!C\304C\305\306\307\310\311\"\312\"\313$\216\314\301\315\316 \316 D!!\210\240)\204-\317\242!\210\210\211\242\262)\207" [this-delayed-stream-function stream-concatenate gensym #2# nil make-byte-code 0 "\301\302\303\304\305\300\242\257\240\210\306\301\242!\207" vconcat vector [(should #16=(prog1 t (stream-concatenate (stream (list (make-delayed-test-stream) (make-delayed-test-stream)))))) :form #16# :value ert--signal-should-execution] 6 t stream make-delayed-test-stream ert-fail] 9] provide stream-tests] 10)