Pārlūkot izejas kodu

Fix optimize setting usage to work

Lily Carpenter 8 gadi atpakaļ
vecāks
revīzija
b9263f86d8
3 mainītis faili ar 17 papildinājumiem un 12 dzēšanām
  1. 13 0
      src/internal.lisp
  2. 2 6
      start-dev.lisp
  3. 2 6
      start-game.lisp

+ 13 - 0
src/internal.lisp

14
 ;;;; You should have received a copy of the GNU Affero General Public License
14
 ;;;; You should have received a copy of the GNU Affero General Public License
15
 ;;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
15
 ;;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
16
 
16
 
17
+#+forever-game-roguelike-debug (progn (declaim (optimize (compilation-speed 0)
18
+                                                         (debug 3)
19
+                                                         (safety 3)
20
+                                                         (space 1)
21
+                                                         (speed 1)))
22
+                                      (format t "DEBUG MODE"))
23
+
24
+#+forever-game-roguelike-optimize (progn (declaim (optimize (compilation-speed 0)
25
+                                                             (debug 0)
26
+                                                             (safety 1)
27
+                                                             (space 2)
28
+                                                             (speed 3)))
29
+                                          (format t "OPTIMIZE MODE"))
17
 
30
 
18
 (in-package #:forever-game-roguelike-internal)
31
 (in-package #:forever-game-roguelike-internal)
19
 
32
 

+ 2 - 6
start-dev.lisp

1
-(declaim (optimize (compilation-speed 0)
2
-                   (debug 3)
3
-                   (safety 3)
4
-                   (space 1)
5
-                   (speed 1)))
6
-(ql:quickload :forever-game-roguelike)
1
+(push :forever-game-roguelike-debug *features*)
2
+(asdf:load-system :forever-game-roguelike :verbose t :force t)
7
 (defvar *game-state* (forever-game-roguelike-internal::make-game-state))
3
 (defvar *game-state* (forever-game-roguelike-internal::make-game-state))
8
 (forever-game-roguelike:start-dev *game-state*)
4
 (forever-game-roguelike:start-dev *game-state*)

+ 2 - 6
start-game.lisp

1
-(declaim (optimize (compilation-speed 0)
2
-                   (debug 0)
3
-                   (safety 1)
4
-                   (space 2)
5
-                   (speed 3)))
6
-(ql:quickload :forever-game-roguelike)
1
+(push :forever-game-roguelike-optimize *features*)
2
+(asdf:load-system :forever-game-roguelike :force t)
7
 (forever-game-roguelike:start)
3
 (forever-game-roguelike:start)