defclass-star, asteroids.lisp