Frigging SBCL

git-svn-id: http://svn.internal.itasoftware.com/svn/ita/trunk/qres/lisp/quux/protobufs@547057 f8382938-511b-0410-9cdd-bb47b084005c

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)))))

diff --git a/wire-format.lisp b/wire-format.lisp
index 5c8050697714ad2c00f3fe5eca15e241a0de29d6..e94a9ea4d9103a39dfc6c149fc4872c701474dbd 100644 (file)
--- a/wire-format.lisp
+++ b/wire-format.lisp
@@ -20,7 +20,7 @@
 ;; If you need to debug the (de)serializer, (pushnew :debug-serialization *features*)
 ;; Otherwise, we try to make (de)serialization as fast as possible,
 ;; risking life and limb to do so
-(defconstant $optimize-serialization
+(defparameter $optimize-serialization
   #+debug-serialization $optimize-default
   #-debug-serialization $optimize-fast-unsafe)