     mini-ship
     ))
 
-(defn create-enemy-body!
+(defn- create-enemy-body!
   [screen]
   (let [body (add-body! screen (body-def :dynamic :bullet true))
         enemy-shape (polygon-shape :set-as-box (c/screen-to-world 3) (c/screen-to-world 3) (vector-2 0 0) 0)]

                    (spark-enemy enemy other-entity screen entities))
                  (= :returning m-s)
                  (do
                    (if (not (:boss? enemy))
                      (create-minis screen (:ship-texture enemy) x (:y enemy)))
                    (if (= hp 0)
                      (explode-enemy enemy other-entity screen entities)

    (update! screen :p1-level-score (+ (:p1-level-score screen) (* (:score enemy) (:p1-bonus screen))))
    (if (some? spark-emitter-id)
      (spark/remove-spark-emitter spark-emitter-id))
    (cond (= (:movement-state enemy) :beaming)
          (let [ship (first (filter #(:ship? %) entities))
                all-others (filter #(nil? (:ship? %)) entities)
