Split files and get rid of inline cl-heap warning

NOTES.org

@@ -3,59 +3,11 @@ http://foo.wyrd.name/en:bearlibterminal:reference
 http://www.utf8-chartable.de/unicode-utf8-table.pl?utf8=0x
 
 * Tasks
-** DONE Get bearlibterminal autowrapped and basic window working.
-CLOSED: [2016-01-01 Fri 22:52]
 ** High Priority
-*** DONE Tweak health, regen, and damage values.
-CLOSED: [2016-01-12 Tue 22:03]
-*** DONE Fix mana being allowed to go negative.
-CLOSED: [2016-01-12 Tue 19:31]
-*** DONE Add instructions page (auto show after start, h key to show later)
-CLOSED: [2016-01-12 Tue 21:35]
-*** DONE Add status line section for current attack
-CLOSED: [2016-01-12 Tue 18:52]
-*** DONE Create enemy AI
-CLOSED: [2016-01-11 Mon 23:57]
-- [X] Detect whether player can be seen
-- [X] Move to player
-- [X] Attack player
-*** DONE Create ally AI
-CLOSED: [2016-01-11 Mon 23:57]
-- [X] Detect whether enemies can be seen
-- [X] If enemies, move to them and attack.
-- [X] If not enemies, move toward player.
-*** ABORTED Make nearest-open-tile able to use self as the tile
-CLOSED: [2016-01-11 Mon 01:59]
-*** DONE Base random enemy/tomb placement off center of room, not edges
-CLOSED: [2016-01-11 Mon 01:55]
-*** DONE Randomly place ally tombs
-CLOSED: [2016-01-11 Mon 01:28]
-- [X] Player can wake up allies by entering room
-*** DONE Randomly place enemies
-CLOSED: [2016-01-11 Mon 00:32]
-*** DONE Create player character
-CLOSED: [2016-01-10 Sun 21:00]
-- [X] Health (no regeneration)
-- [X] Mana (regenerates per turn)
-- [X] Ranged attack (takes mana)
-- [X] Melee attack (weak, no mana cost)
-*** DONE Create vision
-CLOSED: [2016-01-10 Sun 03:49]
-*** DONE Create enemy characters (human knights?)
-CLOSED: [2016-01-08 Fri 23:37]
-*** DONE Add collision detection between all entities (for now nothing is allowed to collide)
-CLOSED: [2016-01-08 Fri 23:13]
-*** DONE Use axion's crawler for map generation
-CLOSED: [2016-01-08 Fri 20:52]
-*** DONE Fix broken viewport
-CLOSED: [2016-01-06 Wed 22:24]
-*** DONE Merge out-of-bounds logic between viewport and mobiles
-CLOSED: [2016-01-06 Wed 22:24]
-*** DONE Figure out how to get messages in exact center.
-CLOSED: [2016-01-02 Sat 03:33]
-** Medium priority
+*** TODO Split file into logical package files.
 *** TODO Add unit + property tests for all pure functions
 *** TODO Add unit + property tests for all classes
+** Medium priority
 *** TODO Create configuration system that can control display and keybindings.
 *** TODO Create generalized input command dispatch. (consider generalizing this)
 *** TODO Update input handling for attacks to be less surprising
@@ -64,6 +16,3 @@ CLOSED: [2016-01-02 Sat 03:33]
 *** TODO Improve ally AI to never go too far from player
 - Should be simple with the two dijikstra, just have to weight both I think?
 - Right now they just kind of beserk after the nearest enemy
-
-*** DONE Create map -> graphics layer so that isn't manual. (consider generalizing this)
-CLOSED: [2016-01-02 Sat 01:32]

crypts-and-corpses.asd

@@ -12,4 +12,4 @@
   :serial t
   :pathname "src"
   :components ((:file "package")
-               (:file "crypts-and-corpses")))
+               (:file "internal")))

src/crypts-and-corpses.lisp

@@ -15,7 +15,9 @@
 
 ;;;; crypts-and-corpses.lisp
 
-(in-package #:crypts-and-corpses)
+(in-package #:crypts-and-corpses-internal)
+
+(declaim (notinline cl-heap:dequeue cl-heap:enqueue))
 
 (defstruct game-map
   (width  99 :type fixnum :read-only t)

src/package.lisp

@@ -1,7 +1,11 @@
 ;;;; package.lisp
 
 (defpackage #:crypts-and-corpses
+  (:use)
+  (:export #:start))
+
+(defpackage #:crypts-and-corpses-internal
   (:use #:cl
         #:bearlibterminal
-        #:split-sequence)
-  (:export #:start))
+        #:split-sequence
+        #:crypts-and-corpses))