anchor.diff:  				    :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)))
  +      (log-cat :debug "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
  
positive.code: (defpackage :ant-sim
    (:use :common-lisp
  	:lispbuilder-sdl)
    (:export :start))
  
  
negative.code: (defparameter *pheros* nil
    "pheros either emitted by croods or dropped by thrants")
  
  (defparameter *width* 800)
  (defparameter *height* 600)
  (defparameter *initial-croods* 10)
  (defparameter *initial-thrants* 1)
  
  (defparameter *crood-draw-radius* 2)
  (defparameter *crood-color* sdl:*white*
  