From 3ca2576b1bf521c8e4b46ad1d6ed78698f84e87f Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" Date: Wed, 11 Oct 2023 14:26:28 -0500 Subject: [PATCH] Reorder DEFGENERIC. --- shop3/decls.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/shop3/decls.lisp b/shop3/decls.lisp index ae37cdcf..27082055 100644 --- 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))