/[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.14 by pfdietz, Tue Sep 30 11:43:36 2003 UTC revision 1.15 by pfdietz, Sun Oct 5 11:31:25 2003 UTC
# Line 39  Line 39 
39    
40  (defvar *maximum-random-int-bits* 45)  (defvar *maximum-random-int-bits* 45)
41    
42    (defvar *compile-unoptimized-form* #-clisp t #+clisp nil)
43    
44  (declaim (special *vars*))  (declaim (special *vars*))
45    
46  (defstruct var-desc  (defstruct var-desc
# Line 471  Line 473 
473                 #+:ecl (si:gc t)                 #+:ecl (si:gc t)
474                 ))))                 ))))
475        (let ((optimized-compiled-fn   (%compile optimized-fn-src))        (let ((optimized-compiled-fn   (%compile optimized-fn-src))
476              (unoptimized-compiled-fn (%compile unoptimized-fn-src)))              (unoptimized-compiled-fn
477                 (if *compile-unoptimized-form*
478                     (%compile unoptimized-fn-src)
479                   (eval `(function ,unoptimized-fn-src)))))
480          (declare (type function optimized-compiled-fn unoptimized-compiled-fn))          (declare (type function optimized-compiled-fn unoptimized-compiled-fn))
481          (dolist (vals vals-list)          (dolist (vals vals-list)
482            (setq *int-form-vals* vals)            (setq *int-form-vals* vals)

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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