anchor.diff:         (update-lst (cdr *bodies*))
          (draw-bodies *bodies*)
          
  -       (setf *a* (append *a* (list (pos2pos (pos (cadr *bodies*))))))
  -       (draw-trails)
  +;       (setf *a* (append *a* (list (pos2pos (pos (cadr *bodies*))))))
  +;       (draw-trails)
   	
         (sdl:update-display))))
   
   (defun main ()
  -  (sdl:with-init ()
  -    (sdl-init)
  -    (sdl-main-loop)))
  -
  -
  +  (sb-thread:make-thread 
  +   #'(lambda () (progn
  +		  (sdl:with-init ()
  +		    (sdl-init)
  +		    (sdl-main-loop)))))
  +  (loop until (not *run*)
  +       do (progn
  +	    (princ "OrbSim> ")
  +	    (print (eval (read))))))
  
positive.code: 
  (defun draw-body (body)
    "Draws a body to the screen"
    (sdl-gfx:draw-filled-circle
     (pos2pos (pos body)) (size body) :color (colour body)))
  
  (defun draw-bodies (bodies)
  
negative.code: 
  ; Load required libraries
  (ql:quickload "lispbuilder-sdl")
  
  ; Define Classes
  (defclass point () 
  