Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/thunk.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'cl-lib)
#@48 Delay the evaluation of BODY.
(fn &rest BODY)
(defalias 'thunk-delay '(macro . #[128 "\204 \301\300!\210\302\303\304\305\306BBDD\307BB\207" [lexical-binding cl--assertion-failed let forced val lambda nil ((lambda (&optional check) (if check forced (unless forced (setf val (funcall val)) (setf forced t)) val)))] 7 (#$ . 426)]))
(put 'thunk-delay 'edebug-form-spec t)
#@142 Force the evaluation of DELAYED.
The result is cached and will be returned on subsequent calls
with the same DELAYED argument.
(fn DELAYED)
(defalias 'thunk-force #[257 "\211 \207" [] 2 (#$ . 805)])
#@61 Return non-nil if DELAYED has been evaluated.
(fn DELAYED)
(defalias 'thunk-evaluated-p #[257 "\211\300!\207" [t] 3 (#$ . 1011)])
#@384 Like `let' but create lazy bindings.
BINDINGS is a list of elements of the form (SYMBOL EXPRESSION).
Any binding EXPRESSION is not evaluated before the variable
SYMBOL is used for the first time when evaluating the BODY.
It is not allowed to set `thunk-let' or `thunk-let*' bound
variables.
Using `thunk-let' and `thunk-let*' requires `lexical-binding'.
(fn BINDINGS &rest BODY)
(defalias 'thunk-let '(macro . #[385 "\300\301\"\262\210\302\301\"\262\210\303\301\304\"\305\301\306\"BBE\207" [#[257 "\300:\203; @\2119\2033 A\211:\203+ \211A\211\204 \202& \301\302\303CB\"\262\202. !\262\2026 !\262\202> \211!\207" [#[257 "\300\301\302CB\"\207" [signal error #1="Bad binding in thunk-let"] 5 "\n\n(fn BINDING)"] signal error #1#] 9 "\n\n(fn BINDING)"] mapcar #[257 "\211@A\211@A\300\301!\302P!E\266\202\207" [make-symbol symbol-name "-thunk"] 10 "\n\n(fn ARG0)"] let #[257 "\211@A\211@A\211@A\211\300DD\266\203\207" [thunk-delay] 13 "\n\n(fn ARG0)"] cl-symbol-macrolet #[257 "\211@A\211@A\211@A\300DD\266\203\207" [thunk-force] 13 "\n\n(fn ARG0)"]] 8 (#$ . 1149)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put thunk-let lisp-indent-function 1 put edebug-form-spec let] 5)
#@385 Like `let*' but create lazy bindings.
BINDINGS is a list of elements of the form (SYMBOL EXPRESSION).
Any binding EXPRESSION is not evaluated before the variable
SYMBOL is used for the first time when evaluating the BODY.
It is not allowed to set `thunk-let' or `thunk-let*' bound
variables.
Using `thunk-let' and `thunk-let*' requires `lexical-binding'.
(fn BINDINGS &rest BODY)
(defalias 'thunk-let* '(macro . #[385 "\300\301\237\302\303!$\207" [cl-reduce #[514 "\300CE\207" [thunk-let] 5 "\n\n(fn EXPR BINDING)"] :initial-value macroexp-progn] 8 (#$ . 2401)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310!\207" [function-put thunk-let* lisp-indent-function 1 put edebug-form-spec let provide thunk] 5)
Mini Shell