Reorder DEFGENERIC.

shop-planner · Oct 11, 2023 · 3ca2576 · 3ca2576
1 parent 68a300f
commit 3ca2576
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/shop3/decls.lisp b/shop3/decls.lisp
@@ -359,6 +359,10 @@ IF-THEN-ELSE semantics in methods."))
 ;;; PROBLEMS
 ;;;---------------------------------------------------------------------------
 
+(defgeneric problem-name (problem)
+  (:method ((name symbol))
+    (problem-name (find-problem name t))))
+
 (defclass problem ()
      ((state-atoms
        :initarg :state-atoms
@@ -675,11 +679,6 @@ a simple list of atoms."))
 of SHOP extensions to extend or override the normal problem-building.")
   )
 
-(defgeneric problem-name (problem)
-  (:method ((name symbol))
-    (problem-name (find-problem name t))))
-
-
 (defgeneric get-state (problem)
   (:method ((problem problem))
      (state-atoms problem))