Browse files

Apparently, ECL doesn't like (safety 0). Set it to 1 there.

  • Loading branch information...
1 parent 9c00520 commit 03461658dc17530072a33c79aae87bd7078a5115 @marijnh committed Feb 27, 2012
Showing with 10 additions and 2 deletions.
  1. +5 −1 cl-postgres/package.lisp
  2. +5 −1 cl-postgres/trivial-utf-8.lisp
View
6 cl-postgres/package.lisp
@@ -84,5 +84,9 @@
(eval-when (:compile-toplevel :load-toplevel :execute)
;; Optimization settings (only used by functions that need it).
(defparameter *optimize*
- '(optimize (speed 3) (safety 0) (space 1) (debug 1)
+ '(optimize
+ (speed 3)
+ #-ecl(safety 0) #+ecl(safety 1)
+ (space 1)
+ (debug 1)
(compilation-speed 0))))
View
6 cl-postgres/trivial-utf-8.lisp
@@ -16,7 +16,11 @@
(eval-when (:compile-toplevel :load-toplevel :execute)
(defparameter *optimize*
- '(optimize (speed 3) (safety 0) (space 0) (debug 1)
+ '(optimize
+ (speed 3)
+ #-ecl(safety 0) #+ecl(safety 1)
+ (space 0)
+ (debug 1)
(compilation-speed 0))))
(defun utf-8-byte-length (string)

0 comments on commit 0346165

Please sign in to comment.