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