Define once with define-train.

ruricolist · Mar 27, 2020 · 6aba6d5 · 6aba6d5
1 parent b84ae62
commit 6aba6d5
Showing 1 changed file with 3 additions and 9 deletions.
diff --git a/functions.lisp b/functions.lisp
@@ -239,7 +239,9 @@ between calls."
             (throttle/memoized fn)
             (throttle/simple fn)))))
 
-(defmacro _once (fn)
+(define-train once (fn)
+  "Return a function that runs FN only once, caching the results
+forever."
   (with-unique-names (gfn)
     `(let ((,gfn (ensure-function ,fn))
            (cache '())
@@ -255,14 +257,6 @@ between calls."
             :not-first-run
               (return (values-list cache))))))))
 
-(defun once (fn)
-  "Return a function that runs FN only once, caching the results
-forever."
-  (_once fn))
-
-(define-compiler-macro once (fn)
-  `(_once ,fn))
-
 (defun juxt (&rest fns)
   "Clojure's `juxt'.