add dump subcommand

src/lisp/dump.ros

@@ -0,0 +1,15 @@
+#!/bin/env ros
+"dump image for faster startup"
+
+(defun main (&rest r)
+  (let ((cmds (let((*read-eval*))
+                (read-from-string
+          (format nil "(~A)"(second(assoc "restart" (read-from-string (uiop/os:getenv "ROS_OPTS"))
+                                          :test #'equal)))))))
+    #+sbcl
+    (apply #'sb-ext:save-lisp-and-die
+           (first r)
+           `(,@(when cmds '(:toplevel))
+             ,@(when cmds #'(lambda ()
+                              (setf ros:*argv* (rest *posix-argv*))
+                              (ros:run cmds)))))))

src/lisp/output.ros

@@ -1,5 +1,5 @@
 #!/bin/env ros
-"output executables"
+"create executables"
 
 (defun main (&rest r)
   (let ((cmds (let((*read-eval*))