(defmacro named-let (name bindings &body body)
  `(labels ((,name ,(mapcar (lambda (x) (if (listp x) (first x) x)) bindings)
              ,@body))
     (,name ,@(mapcar (lambda (x) (if (listp x) (second x) nil)) bindings))))

;; (named-let fact ((n 10))
;;    (if (< n 1) 1 (* n (fact (1- n)))))
;; --> 3628800