#+WIN32
(load "asdf.lisp")

(declaim (optimize (safety 0) (debug 0) (speed 3) (space 0) (compilation-speed 0)))

(asdf:oos 'asdf:load-op 'test)

;;(my-test:start)
;;(null:start)
;;(starfield:start)
;;(multiview:start)
;;(nii:start)
;;(maiden:start)
;;(min-app:start)
;;(rotate-cube:start)
;;
;;
;;(quit)

(defparameter *test-list* '(my-test null starfield
				    multiview nii maiden
				    rotate-cube))

(defun ask-for-test ()
  (format t "What do you want to test ?~%")
  (do ((lst *test-list* (cdr lst))
       (i 1 (1+ i)))
      ((null lst))
    (format t "  ~A : ~A~%" i (car lst)))
  (format t "  q : Quit~%")
  (format t "OpenGL> ")
  (let ((rep (read)))
    (cond ((eql rep 'Q) t)	   
	  ((numberp rep)
	   (let ((start (nth (1- rep) *test-list*)))
	     (format t "Start: ~A~%" start)
	     (funcall (symbol-function (intern "START" start))))
	   nil))))

(defun ask-loop ()
  (do ()
      ((ask-for-test))))

(ask-loop)


(quit)