Merge pull request #7 from DarwinAwardWinner/master

Enable cl style arglists in noflet

1 files 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