run-test-model.ros

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
  (ros:ensure-asdf)
  (load "cl-waffe.asd")
  #+quicklisp(ql:quickload '(cl-waffe cl-waffe/examples) :silent t))

(defpackage :ros.script.cl-waffe-test.3881993727
  (:use :cl))
(in-package :ros.script.cl-waffe-test.3881993727)

(defun main (&rest argv)
  (declare (ignorable argv))
  (cond
    ((equal (car argv) "mnist") (mnist-example:demo))
    ((equal (car argv) "rnn") (rnn-example:demo))
    ((equal (car argv) "fnn") (fnn-example:demo))
;    ((equal (car argv) "cifar-10") (cifar-10-example:demo))
    (T (format t "No such example: ~a." (car argv)))))
;;; vim: set ft=lisp lisp: