Common Lisp | 15:22 |
(defmacro named-let (name binds &body body) `(labels ((,name ,(mapcar #'car binds) ,@body)) (,name ,@(mapcar #'cadr binds))))
