Parent Directory | Revision Log | Patch
revision 1.48 by pfdietz, Wed Sep 15 13:00:10 2004 UTC | revision 1.49 by pfdietz, Thu Oct 7 13:08:48 2004 UTC | |
---|---|---|
# | Line 208 | Line 208 |
208 | (defun make-random-optimize-settings () | (defun make-random-optimize-settings () |
209 | (loop for settings = (list* | (loop for settings = (list* |
210 | (list 'speed (random 4)) | (list 'speed (random 4)) |
211 | #+sbcl '(sb-c:insert-step-conditions 0) | ; #+sbcl '(sb-c:insert-step-conditions 0) |
212 | (loop for s in '(space safety debug compilation-speed) | (loop for s in '(space safety debug compilation-speed) |
213 | for n = (random 4) | for n = (random 4) |
214 | collect (list s n))) | collect (list s n))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |