;ELC   
;;; Compiled
;;; in Emacs version 29.3
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\207" [require cl-lib compat] 2)
(defvar gsexp-one-variable-per-line nil)#@17 

(fn DOCUMENT)
(defalias 'gsexp-encode #[257 "\300\301!!\207" [gsexp--pp gsexp--encode-field] 4 (#$ . 191)])#@14 

(fn FIELD)
(defalias 'gsexp--encode-field #[257 "\211;\203 \207\2119\203 \301!\207\211@<\203& \302\303@@\"\304@A@AB!P\207\211A\262\242\305!\203_ \211G\211\306\267\202Y \307\202Z \310H\301!\262\202Z \310H\311H\302\312#\266\202\202Z \313\262\202g \2119\205g \301!\262\305@!\205\222 \302\314\203z \315\202{ \307\316\317\320\211A\262	\242\313\"\203\217 \321\202\220 \322##\205\237 \302\323\316\304\315#\"Q\207" [gsexp-one-variable-per-line symbol-name format "%s: " gsexp--encode-field vectorp #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 58 1 62 2 73)) "" 0 1 "%s %s" nil " (%s%s)" "\n" mapconcat gsexp--encode-argument append ",\n" "," " {\n%s\n}"] 10 (#$ . 307)])#@25 

(fn (ARGUMENT VALUE))
(defalias 'gsexp--encode-argument #[128 "\211G\300U\203\f \211\242\202 \301\302\303GD\"\211G\304U\203# \211A\262\242\202* \301\302\303GD\"\242\305\306\307!#\207" [1 signal wrong-number-of-arguments gsexp--encode-argument 2 format "%s: %s" gsexp--encode-value] 9 (#$ . 1047)])#@14 

(fn VALUE)
(defalias 'gsexp--encode-value #[257 "\211\247\203	 \300!\207\2119\203 \301!\207\211;\203 \302!\207\303!\203* \304\305\306\307\310#\"\207\211<\2038 \304\311\306\312\313#\"\207\314\315\"\207" [number-to-string symbol-name prin1-to-string vectorp format "(%s)" mapconcat gsexp--encode-value "" "{%s}" #[257 "\211\242\243\211\242\243\300\301\302!#\207" [format "%s: %s" gsexp--encode-value] 10 "\n\n(fn ARG0)"] ", " error "Invalid field value: %S"] 7 (#$ . 1360)])#@15 

(fn STRING)
(defalias 'gsexp--pp #[257 "\300\301\302\"r\211q\210\303\304\"\216\212c)\210`dW\203> n\203  l\2048 \212\305\306 !@\307\310!\2030 \211S\262\311\312_!)\266\313y\210\202 \314 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] syntax-ppss line-beginning-position looking-at "\\s-*\\s)" indent-line-to 2 1 buffer-string] 6 (#$ . 1853)])
(provide 'gsexp)