6 lines
187 B
Text
6 lines
187 B
Text
(de rendezvous (Pid . Exe)
|
|
(when
|
|
(catch '(NIL)
|
|
(tell Pid 'setq 'Rendezvous (lit (eval Exe)))
|
|
NIL )
|
|
(tell Pid 'quit @) ) ) # Raise caught error in caller
|