Function: async--receive-sexp

async--receive-sexp is a natively compiled function defined in async.el.

Signature

(async--receive-sexp &optional STREAM)

Source Code

;; Defined in /nix/store/jhxqyr2zk061dl3wd3vm38lw3zin47b9-emacs-packages-deps/share/emacs/site-lisp/elpa/async-20260729.1431/async.el
(defun async--receive-sexp (&optional stream)
  ;; We use `utf-8-emacs-unix' for the communication channel between
  ;; parent and child Emacs processes. This encoding can represent any
  ;; character that Emacs is capable of processing and gives us full
  ;; control over the EOL format. (See bug#165)
  (let ((sexp (decode-coding-string (base64-decode-string (read stream))
                                    'utf-8-emacs-unix))
        ;; Parent expects utf-8-emacs-unix encoded text.
        (coding-system-for-write 'utf-8-emacs-unix))
    (if async-debug
        (message "Received sexp {{{%s}}}" (pp-to-string sexp)))
    (setq sexp (read sexp))
    (if async-debug
        (message "Read sexp {{{%s}}}" (pp-to-string sexp)))
    (eval sexp t)))