;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'cl-lib) #@17 (fn DOCUMENT) (defalias 'gsexp-encode #[257 "\300\301!!\207" [gsexp--pp gsexp--encode-field] 4 (#$ . 105)]) #@14 (fn FIELD) (defalias 'gsexp--encode-field #[257 "\211;\203\207\2119\203\300!\207\211@<\203&\301\302@@\"\303@A@AB!P\207\300\211A\262\242!\304@!\205F\301\305\306\307\310\211A\262\242\311\"\312#\"\205S\301\313\306\303\314#\"Q\207" [symbol-name format "%s: " gsexp--encode-field vectorp " (\n%s)" mapconcat gsexp--encode-argument append nil ",\n" " {\n%s\n}" "\n"] 9 (#$ . 222)]) #@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 (#$ . 626)]) #@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] 12 "\n\n(fn ARG0)"] ", " error "Invalid field value: %S"] 7 (#$ . 939)]) #@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 point-at-bol looking-at "\\s-*\\s)" indent-line-to 2 1 buffer-string] 6 (#$ . 1434)]) (provide 'gsexp)