[elephant-cvs] CVS elephant/tests

[ieslick]

Update of /project/elephant/cvsroot/elephant/tests
In directory clnet:/tmp/cvs-serv5278/tests

Modified Files:
	testsorter.lisp 
Log Message:
Promoted diff's provided by the community (Pierre and Gabor) as well as a checkpoint of ongoing work to get the 0.6.1 development tree on HEAD working again.

--- /project/elephant/cvsroot/elephant/tests/testsorter.lisp	2006/11/11 18:41:11	1.3
+++ /project/elephant/cvsroot/elephant/tests/testsorter.lisp	2007/01/20 22:12:18	1.4
@@ -55,14 +55,15 @@
   :returning :double)
 
 (defun read-num (num)
-  (declare (optimize (speed 3))
+  (declare #-elephant-without-optimizations (optimize (speed 3))
 	   (type integer num))
   (with-buffer-streams (nb)
     (serialize num nb)
     (%read-num (buffer-stream-buffer nb))))
 
 (defun num-test (num) 
-  (declare (optimize (speed 3)) (type integer num))
+  (declare #-elephant-without-optimizations (optimize (speed 3))
+	   (type integer num))
   (loop with i of-type double-float = 0.0d0
 	for j fixnum from 0 below (ceiling (/ (integer-length num) 32))
 	for bs = (byte 32 (* j 32))
@@ -73,7 +74,7 @@
 
 
 (defun find-bad-num (bot top)
-  (declare (optimize (speed 3))
+  (declare #-elephant-without-optimizations (optimize (speed 3))
 	   (type integer bot top))
   (cond ((= bot top) bot)
 	((= bot (- top 1))
@@ -85,7 +86,7 @@
 	       (find-bad-num bot middle))))))
 	
 (defun rfind-bad-num (bot top)
-  (declare (optimize (speed 3))
+  (declare #-elephant-without-optimizations (optimize (speed 3))
 	   (type integer bot top))
   (cond ((= bot top) bot)
 	((= bot (- top 1))