Example of Scheme's named let in action

nlet.lisp

(defmacro nlet (name bindings &body body)
  "This is the LET from RnRS with a name, that creates a local function."
  `(labels ((,name ,(mapcar #'first bindings) ,@body))
    (,name ,@(mapcar #'second bindings))))

(nlet foo ((count 5))
  (unless (= 0 count)
    (print count)
    (foo (1- count))))