RosettaCodeData/Task/Anonymous-recursion/Common-Lisp/anonymous-recursion-1.lisp

4 lines
85 B
Common Lisp

(defmacro alambda (parms &body body)
`(labels ((self ,parms ,@body))
#'self))