
(in-package :user)


(require :jlinker)
(use-package :net.jlinker)
(require :jlinkent)

(gen-output-lang :java)
;;(compile-file "test-gen.cl")
(load (compile-file "bean1gen.cl"))
(compile-file "bean1.cl")

(defun run ()
  (exit 1))

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

