anchor.diff:    "Generates a random town of n people with the given vector of styles."
     (mapcar #'(lambda (a)
                 (declare (ignore a))
  -              (aref styles (random (length styles))))
  +              (make-inhabitant :style (aref styles (random (length styles)))))
             (make-list population)))
                  
   (defun make-town (population &key (hipsterish-tendency 2/3) (styles #(#\# #\.)))
  
positive.code:     (make-instance 'town-snapshot
                     :hipsterish-tendency (hipsterish-tendency town)
                     :styles              (styles town)
                     :population          (copy-seq (population town))
                                          ; This line might have to change as I may replace the characters with actual human objects.
                     :time                (ticks town)))
    (:method ((town delayed-town))
      (make-instance 'delayed-town
                     :hipsterish-tendency (hipsterish-tendency town)
                     :styles              (styles town)
                     :population          (copy-seq (population town)) ; Same here.
                     :time                (ticks town)
                     :period              (period town)
                     :history             (loop with history = (make-array (list (period town)))
  
negative.code: ;;; Classes
  
  (defstruct inhabitant
    (type :hipster)
    (style #\.)
    hipsterish-tendency)
  
  (defclass town-snapshot ()
    ((ticks :initform 0
  