Add ftype declaration to make-conditional-state-expand

shop-planner · Aug 24, 2023 · d35839d · d35839d
1 parent 6d71270
commit d35839d
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/shop3/looping-tasks/conditional-extensions.lisp b/shop3/looping-tasks/conditional-extensions.lisp
@@ -15,6 +15,9 @@
     ))
    )
 
+(declaim (ftype (function (&rest arglist &key :top-tasks :tasks :unifier)
+                          (values conditional-state-expand &optional)
+                          make-conditional-state-expand))
 (defun make-conditional-state-expand (&rest arglist
                                       &key top-tasks tasks unifier)
   (declare (ignorable top-tasks