Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • benchmarks/cl-bench/files/math.lisp
    1 1
     ;;; math.lisp -- various numerical operations
    
    2 2
     ;;
    
    3
    -;; Time-stamp: <2004-01-05 emarsden>
    
    3
    +;; Time-stamp: <2023-08-12 07:34:28 toy>
    
    4 4
     ;;
    
    5 5
     ;; some basic mathematical benchmarks
    
    6 6
     
    
    ... ... @@ -56,7 +56,7 @@
    56 56
     ;; calculate the "level" of a point in the Mandebrot Set, which is the
    
    57 57
     ;; number of iterations taken to escape to "infinity" (points that
    
    58 58
     ;; don't escape are included in the Mandelbrot Set). This version is
    
    59
    -;; intended to test performance when programming in nave math-style. 
    
    59
    +;; intended to test performance when programming in naive math-style. 
    
    60 60
     (defun mset-level/complex (c)
    
    61 61
       (declare (type complex c))
    
    62 62
       (loop :for z = #c(0 0) :then (+ (* z z) c)