diff --git a/src/stoe.lisp b/src/stoe.lisp index e9d764b..cbbb53d 100644 --- a/src/stoe.lisp +++ b/src/stoe.lisp @@ -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 diff --git a/src/utils.lisp b/src/utils.lisp index 87724af..74c80ca 100644 --- a/src/utils.lisp +++ b/src/utils.lisp @@ -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)) diff --git a/stoe.asd b/stoe.asd index 76bb30b..49db159 100644 --- a/stoe.asd +++ b/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")