Added the force-safely function.

dsorokin · Jun 20, 2015 · b5f75bd · b5f75bd
1 parent acdf044
commit b5f75bd
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/trivial-lazy.lisp b/trivial-lazy.lisp
@@ -9,7 +9,8 @@
   (:export #:memo
            #:*memo-thread-safe*
            #:delay
-           #:force))
+           #:force
+           #:force-safely))
 
 (in-package :trivial-lazy)
 
@@ -49,3 +50,9 @@
 (defun force (delayed-exp)
   "Force to return the value of the delayed expression."
   (funcall delayed-exp))
+
+(defun force-safely (delayed-exp?)
+  "Force safely to return the value of the delayed expression."
+  (if (functionp delayed-exp?)
+      (funcall delayed-exp?)
+      delayed-exp?))