allocate desc slot once per class

mck- · May 29, 2014 · 03b4955 · 03b4955
1 parent 39093d7
commit 03b4955
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/class-definitions.lisp b/lib/class-definitions.lisp
@@ -31,7 +31,7 @@
 
 (defclass problem ()
   ((name :reader problem-name :initarg :name :initform "VRP")
-   (desc :reader problem-desc :initarg :desc :initform "Vehicle Routing Problem")
+   (desc :reader problem-desc :initarg :desc :initform "Vehicle Routing Problem" :allocation :class)
    (network :reader problem-network :initarg :network)
    (dist-array :accessor problem-dist-array :initarg :dist-array :initform nil)
    (fleet :reader problem-fleet :initarg :fleet)
@@ -76,10 +76,10 @@
 
 (defclass algo ()
   ((name :reader algo-name :initarg :name)
-   (desc :reader algo-desc :initarg :desc)
+   (desc :reader algo-desc :initarg :desc :allocation :class)
    (best-sol :accessor algo-best-sol :initarg :best-sol :initform nil)
    (best-fitness :accessor algo-best-fitness :initarg :best-fitness :initform nil)
    (best-iteration :accessor algo-best-iteration :initform 0)
    (current-sol :accessor algo-current-sol :initarg :current-sol :initform nil)
    (iterations :accessor algo-iterations :initarg :iterations)
-   (animatep :accessor algo-animatep :initarg :animatep :initform nil)))
+   (animatep :accessor algo-animatep :initarg :animatep :initform nil)))