

(in-package :user)

(load (compile-file-if-needed "t-local"))
(load "jl-config")


(defun begin (&optional (timeout 15))
  (mp:start-scheduler)
  (format t "~3%;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;~%")
  (format t "~%")
  (format t "(enable-applets) to run Applet demo~%")
  (format t "~%")
  (format t " In 15 seconds, we will call (enable-applets) by default.~%")
  (format t ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;~%")
  (format t "~%")
  (format t "~%")
  (let ((*jlinker-verbose* t))
    (eval
     (mp:with-timeout 
      (timeout '(enable-applets))
      (if (y-or-n-p "Say Y to run applet demo: ")
	  '(enable-applets)
	nil)))))

(setf excl:*restart-init-function* #'begin)
