;;; Tests of iteration forms

(in-package #:cl-test)

(let ((*default-pathname-defaults*
       (make-pathname
        :directory (pathname-directory *load-pathname*))))
  (load "do.lsp")
  (load "dostar.lsp")
  (load "dolist.lsp")
  (load "dotimes.lsp")
  (load "loop.lsp")
  (load "loop1.lsp")
  (load "loop2.lsp")
  (load "loop3.lsp")
  (load "loop4.lsp")
  (load "loop5.lsp")
  (load "loop6.lsp")
  (load "loop7.lsp")
  (load "loop8.lsp")
  (load "loop9.lsp")
  (load "loop10.lsp")
  (load "loop11.lsp")
  (load "loop12.lsp")
  (load "loop13.lsp")
  (load "loop14.lsp")
  (load "loop15.lsp")
  (load "loop16.lsp")
  (load "loop17.lsp")
)