anchor.diff:  				 *croods*))
   	 (nearest-crood (car (sort crood-distances #'< :key #'cdr))))
       (when (< (cdr nearest-crood) *crood-eat-distance*)
  -      (format t "Eating crood at ~a~%" (crood-pos (car nearest-crood)))
  +      (log-message :info "Eating crood at ~a~%" (crood-pos (car nearest-crood)))
         (delete (car nearest-crood) *croods*)
  -      (format t "Number of croods left = ~a~%" (length *croods*))
  +      (log-message :debug "Number of croods left = ~a~%" (length *croods*))
         (incf (thrant-energy thrant) *crood-energy*)
  -      (format t "Thrant energy is now ~a!~%" (thrant-energy thrant)))))
  +      (log-message :debug "Thrant energy is now ~a!~%" (thrant-energy thrant)))))
   
   (defun show-phero (phero)
     (sdl:draw-filled-circle-* (pos-x (phero-pos phero))
  
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: (defparameter *phero-emit-radius* 10)
  (defparameter *max-pheros-per-crood* 10)
  
  (defcategory :info)
  (defcategory :debug)
  (defun log-cat (cat formatstr &rest args)
    (let ((message (apply #'format nil formatstr args)))
      (log-message cat message)))
  
  (defstruct pos
    x y)
  
  