浏览代码

Get optimize settings working for sbcl

Lily Carpenter 8 年之前
父节点
当前提交
d95eb1cd07
共有 3 个文件被更改,包括 11 次插入17 次删除
  1. 0 14
      src/internal.lisp
  2. 6 2
      start-dev.lisp
  3. 5 1
      start-game.lisp

+ 0 - 14
src/internal.lisp

@@ -14,20 +14,6 @@
14 14
 ;;;; You should have received a copy of the GNU Affero General Public License
15 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"))
30
-
31 17
 (in-package #:forever-game-roguelike-internal)
32 18
 
33 19
 (defstruct game-state

+ 6 - 2
start-dev.lisp

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

+ 5 - 1
start-game.lisp

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