(asdf:oos 'asdf:load-op 'reversi)
-#+lispworks
-(deliver 'reversi::clim-reversi "cl-reversi" 2 :multiprocessing t)
+(let ((path (make-pathname :defaults *load-truename*
+ :name "fli-templates")))
+ (compile-file path)
+ (load (compile-file-pathname path)))
+
+(deliver 'reversi::clim-reversi "cl-reversi" 5 :multiprocessing t)