;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303!\204\304\303\305\306B\"\210\307\303\310\311#\210\312\303\313\314#\210\302\315!\2046\304\315\305\316B\"\210\307\315\310\317#\210\312\315\313\303#\210\320\321!\207" [require subr-x fboundp if-let* defalias macro #[642 "\300\301!\302\303!@\2119\203\211D\262\202$\211A\204$\304\305!@D\262@BBBE\207" [let* internal--build-bindings if last make-symbol "s"] 9 "Process BINDINGS and if all values are non-nil eval THEN, else ELSE.\nArgument BINDINGS is a list of tuples whose car is a symbol to be\nbound and (optionally) used in THEN, and its cadr is a sexp to be\nevalled to set symbol's value.\n\n(fn BINDINGS THEN &rest ELSE)"] function-put lisp-indent-function 2 put edebug-form-spec ([&or (&rest (symbolp form)) (symbolp form)] form body) when-let* #[385 "\300\301!E\207" [if-let* macroexp-progn] 6 "Process BINDINGS and if all values are non-nil eval BODY.\nArgument BINDINGS is a list of tuples whose car is a symbol to be\nbound and (optionally) used in BODY, and its cadr is a sexp to be\nevalled to set symbol's value.\n\n(fn BINDINGS &rest BODY)"] 1 provide cider-compat] 4)