archive/doc/time.test

   1 (progn
   2   (let ((nc 1500) (nf 150))
   3     (allocate 'cons nc t)
   4
   5     (allocate 'fixnum nf t)
   6     (format t "~%Allocate ~a cons pages and  ~a fixnum pages" nc nf)
   7
   8     (in-package 'maxima)
   9     (maxima::set-readtable-for-macsyma)
  10     (values)
  11     ))
  12 (progn (setq p10 #$Expand((x+y+z)^10)$)
  13        (setq p20 #$expand((x+y+z)^20)$)
  14            (setq nt 10)
  15           (and (boundp 'compiler::*cc*)
  16                (format t "~%*cc* is ~a " compiler::*cc*))
  17        (format t "~%For ~a times factor p10:" nt)
  18        (time (sloop for i below nt do ($factor p10)))
  19        (format t "~%For ~a times factor p20:" nt)
  20        (time (sloop for i below nt do ($factor p20)))
  21        )