Embed Notice

@ksaj
Eh, I didn't get it, but I'm on my way to sleep. This just looks normal to me:
(defun fact (n)
(prog
((x n) (result 1))
start
(when (< x 1) (return result))
(setq result (* result x) x (1- x))
(go start)))
I thought you would be doing -modern for something like my redacted snippet, but I don't think so.
@khleedril @amszmidt