|
@@ -23,7 +23,6 @@ end of input."
|
|
|
(declare (indent 1))
|
|
(declare (indent 1))
|
|
|
(let ((temp-cmd (cl-gensym "temp-cmd"))
|
|
(let ((temp-cmd (cl-gensym "temp-cmd"))
|
|
|
(cmd-finished-tag (cl-gensym "cmd-finished"))
|
|
(cmd-finished-tag (cl-gensym "cmd-finished"))
|
|
|
- (temp-var (cl-gensym "temp-var"))
|
|
|
|
|
(canary-sym (cl-gensym "canary")))
|
|
(canary-sym (cl-gensym "canary")))
|
|
|
`(cl-letf*
|
|
`(cl-letf*
|
|
|
(;; Wrap BODY in a command that evaluates BODY and throws the
|
|
(;; Wrap BODY in a command that evaluates BODY and throws the
|
