Flexible Lisp Blogware. Fork for personal use. Mirrored from https://github.com/kingcons/coleslaw originally.

parallel.lisp 554B

1234567891011121314151617
  1. (eval-when (:compile-toplevel :load-toplevel)
  2. (ql:quickload 'lparallel))
  3. (defpackage :coleslaw-parallel
  4. (:use :cl)
  5. (:export #:enable))
  6. (in-package :coleslaw-parallel)
  7. ;; TODO: The bulk of the speedup here should come from parallelizing discover.
  8. ;; Publish will also benefit. Whether it's better to spin off threads for each
  9. ;; content type/index type or the operations *within* discover/publish is not
  10. ;; known, the higher granularity of doing it at the iterating over types level
  11. ;; is certainly easier to prototype though.
  12. (defun enable ())