eefee58dd493

--- a/flax.asd	Tue Feb 06 19:05:23 2018 -0500
+++ b/flax.asd	Tue Feb 06 19:06:57 2018 -0500
@@ -8,7 +8,6 @@
                :cl-vectors
                :iterate
                :losh
-               :lparallel
                :zpng)
 
   :serial t

--- a/src/base.lisp	Tue Feb 06 19:05:23 2018 -0500
+++ b/src/base.lisp	Tue Feb 06 19:06:57 2018 -0500
@@ -1,7 +1,5 @@
 (in-package :flax.base)
 
-(setf lparallel:*kernel* (lparallel:make-kernel 1))
-
 (defun rand (bound)
   (pcg:pcg-random t bound))
 

--- a/src/drawing.lisp	Tue Feb 06 19:05:23 2018 -0500
+++ b/src/drawing.lisp	Tue Feb 06 19:06:57 2018 -0500
@@ -134,7 +134,7 @@
                  :element-type 'double-float
                  :initial-element 1.0d0)))
     (with-color (color r g b)
-      (lparallel:pdotimes (row height)
+      (dotimes (row height)
         (dotimes (col width)
           (setf (aref image row col 0) r
                 (aref image row col 1) g
@@ -192,7 +192,7 @@
            (type color color)
            (type (double-float 0.0d0 1.0d0) alpha))
   (nest (with-color (color r g b))
-        (lparallel:pdotimes (row (array-dimension image 0)))
+        (dotimes (row (array-dimension image 0)))
         (dotimes (col (array-dimension image 1)))
         (zapf (aref image row col 0) (lerp % r alpha)
               (aref image row col 1) (lerp % g alpha)