diff --git a/src/green-threads.lisp b/src/green-threads.lisp index 0cb1227..3331c6c 100644 --- a/src/green-threads.lisp +++ b/src/green-threads.lisp @@ -242,15 +242,6 @@ ;; Futures -;; TODO: remove once cl-async-future gets version bump to 0.4.2 in Quicklisp -(eval-when (:load-toplevel :compile-toplevel) - (unless (asdf:version-satisfies (asdf:find-system :cl-async-future) "0.4.2") - (defun lookup-forwarded-future (future) - (cl-async-future::lookup-actual-future future)) - - (defun future-finished-p (future) - (cl-async-future::future-finished future)))) - (defun queue-future (future action &optional thread) "Queues an action on current (or specified) thread to take place when provided future is completed."