dotfiles/scripts/swank-repl.ros

14 lines
339 B
Common Lisp
Executable file

#!/usr/bin/env -S ros -Q --
#|-*- mode:lisp -*-|#
(progn
(ros:ensure-asdf)
(ql:quickload '(:swank :mondo) :silent t))
(defpackage :swank-mondo-repl
(:use :cl))
(in-package :swank-mondo-repl)
(defun main (&rest argv)
(declare (ignorable argv))
(let ((port (swank:create-server :dont-close t)))
(mondo:main nil :port port)))