noflet based on cl-letf

gistfile1.txt

(defmacro noflet (bindings &rest body)
  `(dflet ,(mapcar
            (lambda (x)
              (list (car x) (cadr x)
                    `(let ((this-fn ,(symbol-function (car x))))
                       ,@(cddr x))))
            bindings)
          ,@body))

noflet.el

(defmacro noflet (bindings &rest body)
  `(dflet ,(mapcar
            (lambda (x)
              (list (car x) (cadr x)
                    `(let ((this-fn ,(symbol-function (car x))))
                       ,@(cddr x))))
            bindings)
          ,@body))

noflet.elc34822n8q

;ELC
;;; Compiled
;;; in Emacs version 24.3.50.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defalias 'noflet '(macro . #[(bindings &rest body) "\302\303\304\"	BB\207" [bindings body dflet mapcar #[(x) "@\211A@\262
\301\302@KDC\211AA\262
BBE\207" [x let this-fn] 6]] 4]))