anchor.diff:  
   (defun draw-body (body)
     "Draws a body to the screen"
  -  (sdl-gfx:draw-filled-circle
  +  (sdl:draw-filled-circle
      (pos2pos (pos body)) (size body) :color (colour body)))
   
   (defun draw-bodies (bodies)
  
positive.code: 		       :color sdl:*red*))
  	*a*))
  
  
  (defun sdl-main-loop ()
    ; Define key events
  
negative.code: 
  ; Load required libraries
  (ql:quickload "lispbuilder-sdl")
  
  ; Define Classes
  (defclass point () 
  