anchor.diff:        (:key-down-event (:key key)
   		       (when (sdl:key= key :sdl-key-escape)
   			 (sdl:push-quit-event)))
  -        (:mouse-button-down-event (:x x :y y)
  +        (:mouse-button-down-event (:button button :x x :y y)
   				  (let ((newcrood
   					 (make-instance 'crood
   							:pos (make-pos :x x :y y))))
  
positive.code: 				    :col sdl:*red*
  				    :energy *thrant-starting-energy*
  				    :inventory nil)))
        (format t "Created thrant at (~a, ~a)~%"
  	      (pos-x (thrant-pos newthrant))
  	      (pos-y (thrant-pos newthrant)))
        (push newthrant *thrants*))))
  
  ;; TODO(krato): Find a way to represent energy
  
negative.code: 				 *croods*))
  	 (nearest-crood (car (sort crood-distances #'< :key #'cdr))))
      (when (< (cdr nearest-crood) *crood-eat-distance*)
        (log-message :info "Eating crood at ~a~%" (crood-pos (car nearest-crood)))
        (delete (car nearest-crood) *croods*)
        (log-message :debug "Number of croods left = ~a~%" (length *croods*))
        (incf (thrant-energy thrant) *crood-energy*)
        (log-message :debug "Thrant energy is now ~a!~%" (thrant-energy thrant)))))
  
  (defun show-phero (phero)
    (sdl:draw-filled-circle-* (pos-x (phero-pos phero))
  