From 21ccc089ddf78ebe1710a3e10ca70f9627ebd12b Mon Sep 17 00:00:00 2001
From: "Ryan C. Thompson" <rct@thompsonclan.org>
Date: Wed, 20 Aug 2014 17:16:02 -0700
Subject: Enable cl style arglists in noflet

---
 noflet.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/noflet.el b/noflet.el
index 49986d9..26e9399 100644
--- a/noflet.el
+++ b/noflet.el
@@ -65,9 +65,10 @@ name."
                         (intern (format "saved-func-%s"
                                         (symbol-name name)))))
                    `(fset (quote ,name)
-                          (lambda ,args
-                            (let ((this-fn ,saved-func-namev))
-                              ,@body))))))))
+                          (cl-function
+                           (lambda ,args
+                             (let ((this-fn ,saved-func-namev))
+                               ,@body)))))))))
        (fresets
         (cl-loop
              for i in bindings
-- 
cgit v1.2.3