Move the optimize declaim to be the first form evaluated when compiling
This commit is contained in:
parent
ad0f6a0eb8
commit
61f963cb3d
3 changed files with 4 additions and 4 deletions
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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))
|
||||
|
|
|
|||
4
stoe.asd
4
stoe.asd
|
|
@ -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")
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue