[cl-plus-ssl-cvs] CVS cl+ssl

[hhubner]

Update of /project/cl-plus-ssl/cvsroot/cl+ssl
In directory clnet:/tmp/cvs-serv30388

Modified Files:
	ffi.lisp streams.lisp 
Log Message:
Put optimization declarations into (eval-when (:compile-toplevel)

Suggested by Gary Byers to prevent these optimization settings from
leaking outside of CL+SSL.


--- /project/cl-plus-ssl/cvsroot/cl+ssl/ffi.lisp	2008/03/07 21:26:48	1.7
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/ffi.lisp	2008/04/17 20:58:29	1.8
@@ -4,8 +4,9 @@
 ;;;
 ;;; See LICENSE for details.
 
-(declaim
- (optimize (speed 3) (space 1) (safety 1) (debug 0) (compilation-speed 0)))
+(eval-when (:compile-toplevel)
+  (declaim
+   (optimize (speed 3) (space 1) (safety 1) (debug 0) (compilation-speed 0))))
 
 (in-package :cl+ssl)
 
--- /project/cl-plus-ssl/cvsroot/cl+ssl/streams.lisp	2008/04/17 19:41:08	1.11
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/streams.lisp	2008/04/17 20:58:29	1.12
@@ -5,8 +5,9 @@
 ;;;
 ;;; See LICENSE for details.
 
-(declaim
- (optimize (speed 3) (space 1) (safety 1) (debug 0) (compilation-speed 0)))
+(eval-when (:compile-toplevel)
+  (declaim
+   (optimize (speed 3) (space 1) (safety 1) (debug 0) (compilation-speed 0))))
 
 (in-package :cl+ssl)