Progress on initializing population in sbcl

.gitignore

@@ -11,4 +11,6 @@ Cargo.lock
 
 settings.json
 
-.DS_Store
+.DS_Store
+
+.vscode/alive

carp_spike/.gitignore

@@ -0,0 +1 @@
+out/

carp_spike/main.carp

@@ -0,0 +1,10 @@
+(use Random)
+(Project.config "title" "gemla")
+
+(deftype SimulationNode [population-size Int, population-cutoff Int])
+
+;; (let [test (SimulationNode.init 10 3)]
+;;     (do 
+;;         (SimulationNode.set-population-size test 20)
+;;         (SimulationNode.population-size &test)
+;;         ))

sbcl_spike/main.lisp

@@ -0,0 +1,12 @@
+;; Define a type that contains a population size and a population cutoff
+(defclass simulation-node () ((population-size :initarg :population-size :accessor population-size)
+                              (population-cutoff :initarg :population-cutoff :accessor population-cutoff)
+                              (population :initform () :accessor population)))
+
+;; Define a method that initializes population-size number of children in a population each with a random value
+(defmethod initialize-instance :after ((node simulation-node) &key)
+  (setf (population node) (make-list (population-size node) :initial-element (random 100))))
+
+(let ((node (make-instance 'simulation-node :population-size 100 :population-cutoff 10)))
+  (print (population-size node))
+  (population node))