/[gcl]/gcl/ansi-tests/random-int-form.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/random-int-form.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)))

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26