Move the optimize declaim to be the first form evaluated when compiling

This commit is contained in:
Renaud Casenave-Péré 2014-10-11 17:15:10 +09:00
parent ad0f6a0eb8
commit 61f963cb3d
3 changed files with 4 additions and 4 deletions

View file

@ -10,8 +10,6 @@
(:export :main :quit))
(in-package :stoe)
(declaim (optimize (debug 3) (safety 3) (speed 0)))
(let ((exit-main-loop nil))
(defun main-loop (&optional unprotected)
"Run the protected main-loop. An error will be catched with the possibility to

View file

@ -19,6 +19,8 @@
:get-command-line-option-int))
(in-package :stoe.utils)
(declaim (optimize (debug 3) (safety 3) (speed 0)))
(defmacro aif (test then else)
"Bind the result of evaluating `test' to a variable named `it', as per Paul Graham's On Lisp."
`(let ((it ,test))

View file

@ -23,7 +23,8 @@
:cl-opengl)
:components ((:module "src"
:components
((:module "maths"
((:file "utils")
(:module "maths"
:components
((:file "maths")
(:file "vector")
@ -35,7 +36,6 @@
(:file "float33")
(:file "float44")
(:file "geometry")))
(:file "utils")
(:file "thread"
:depends-on ("utils"))
(:file "containers")