Frigging SBCL

[cl-protobufs.git] / utilities.lisp

diff --git a/utilities.lisp b/utilities.lisp
index 3857286a0fc0a56163430258c54fe3088aae5612..0fb858b97157e36655d614fba7b57547843f025f 100644 (file)
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -13,12 +13,15 @@
 
 ;;; Optimized fixnum arithmetic
 
-(defconstant $optimize-default     '(optimize (speed 1) (safety 3) (debug 3))
-  "Compiler optimization settings for safe, debuggable code.")
+(eval-when (:compile-toplevel :load-toplevel :execute)
 
-(defconstant $optimize-fast-unsafe '(optimize (speed 3) (safety 0) (debug 0))
+(defparameter $optimize-default     '(optimize (speed 1) (safety 3) (debug 3))
+  "Compiler optimization settings for safe, debuggable code.")
+(defparameter $optimize-fast-unsafe '(optimize (speed 3) (safety 0) (debug 0))
   "Compiler optimization settings for fast, unsafe, hard-to-debug code.")
 
+)       ;eval-when
+
 
 (defmacro i+ (&rest fixnums)
   `(the fixnum (+ ,@(loop for n in fixnums collect `(the fixnum ,n)))))