anchor.diff:      (make-instance 'town-snapshot
                      :hipsterish-tendency (hipsterish-tendency town)
                      :styles              (styles town)
  -                   :population          (copy-seq (population town))
  +                   :population          (mapcar #'copy-inhabitant (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.
  +                   :population          (mapcar #'copy-inhabitant (population town)) ; Same here.
                      :time                (ticks town)
                      :period              (period town)
                      :history             (loop with history = (make-array (list (period town)))
  
positive.code:   (:method ((town town-snapshot) &key (stream t) limit specific-style)
      (with-accessors ((age ticks) (members population)) town
        (if specific-style
            (format stream "~&~3d: ~{~a~}~:[~;…~]" age (mapcar #'(lambda (a) (if (char-equal specific-style a)
                                                                                           specific-style
                                                                                           #\Space))
                                                                         (subseq members 0 limit)) limit)
            (format stream "~&~3d: ~{~a~}~:[~;…~]" age (subseq members 0 limit) limit)))))
  
  (defgeneric print-popularity (town &key stream limit)
    (:documentation "Prints out the styles and its percentage popularity, along with a genreation number, truncated to [limit] styles if provided.")
  
negative.code:   "Generates a random town of n people with the given vector of styles."
    (mapcar #'(lambda (a)
                (declare (ignore a))
                (make-inhabitant :style (aref styles (random (length styles)))))
            (make-list population)))
                 
  (defun make-town (population &key (hipsterish-tendency 2/3) (styles #(#\# #\.)))
  