Clarify comment, reorder priorities

NOTES.org

@@ -6,6 +6,9 @@ http://www.utf8-chartable.de/unicode-utf8-table.pl?utf8=0x
 ** DONE Get bearlibterminal autowrapped and basic window working.
 CLOSED: [2016-01-01 Fri 22:52]
 ** High Priority
+*** TODO Randomly place enemies
+*** TODO Randomly place ally tombs
+- [ ] Player can wake up allies by entering room
 *** TODO Create enemy AI
 - [ ] Detect whether player can be seen
 - [ ] Move to player
@@ -15,9 +18,6 @@ CLOSED: [2016-01-01 Fri 22:52]
 - [ ] Detect whether enemies can be seen
 - [ ] If enemies, move to them and attack.
 - [ ] If not enemies, move toward player.
-*** TODO Randomly place enemies
-*** TODO Randomly place ally tombs
-- [ ] Player can wake up allies by entering room
 *** DONE Create player character
 CLOSED: [2016-01-10 Sun 21:00]
 - [X] Health (no regeneration)

src/crypts-and-corpses.lisp

@@ -471,7 +471,7 @@
     ;; Set all walkable tiles to nil
     (mapc #'set-slot-nil (remove-if-not #'walkablep (alexandria:hash-table-values tiles)))
     (let ((pending (make-instance 'cl-heap:priority-queue)))
-      ;; Insert all source tiles in queue with priority and slot value zero
+      ;; Insert all source floor tiles in queue with priority and slot value zero
       (mapc (lambda (item)
               (with-slots (location) item
                 (setf (get-slot (gethash location tiles)) 0)