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