               {:keys [type name field method args
                       primitive body temporal-constraints]} f
               ;; DEBUG
-              ;; _ (println "MAKE-HTN-METHODS" i "TYPE" type
-              ;;     "NAME" name "METHOD" method
-              ;;     "PCLASS" pclass "MNAME" mname
-              ;;     "PRIMITIVE" primitive
-              ;;     "\nMARGS" margs "ARGS" args
-              ;;     "BODY" body
-              ;;     "TC" temporal-constraints)
+              _ (println "MAKE-HTN-METHODS" i "TYPE" type
+                  "NAME" name "FIELD" field "METHOD" method
+                  "\nPCLASS" pclass "MNAME" mname
+                  "PRIMITIVE" primitive
+                  "\nMARGS" margs "ARGS" args
+                  "BODY" body
+                  "TC" temporal-constraints)
               subtask
               (cond
                 (#{:plant-fn-symbol :plant-fn-field} type)

                     (irks->bounds ir irks))
            m-task-expansions (count task-expansions)
            ;; DEBUG
            _ (println "ST#" i "of" n-subtasks "IRKS" irks)
            ;; resolve pclass if (= type :htn-nonprimitive-task)
            ;; to determine if this was really an unresolved primitive task
            ;; DEBUG plant-class (if (htn-isa? type :htn-nonprimitive-task)

                ;; has true or false)
                (let [plant-class (if (= :plant-fn-symbol type)
                                    (if (= name 'this) pclass name)
                                    (get-in ir [pclass :fields field :initial :pclass]))
                      plant-fn-primitive?
                      (get-in ir [plant-class :methods method :primitive])
                      _ (println "plant-class" plant-class "plant-fn-primitive?" plant-fn-primitive?)
                      [plant-class non-primitive?]
                      (if (nil? plant-fn-primitive?)  ;;TODO - Should error here
                        [::unknown false]
