ros command return 1 when script file does not found.

This commit is contained in:
snmsts 2025-07-24 04:18:14 +09:00
parent 029e979374
commit feb5647990

View file

@ -445,7 +445,8 @@ As a hacky side effect, files with the same name as PROVIDE is not loaded.
(with-open-file (in arg)
(body in)))
(*latest-system* (apply 'hook (cons arg *argv*)))
(t (format t "script ~S does not exist~%" arg)))))
(t (format t "script ~S does not exist~%" arg)
(quit 1)))))
(defun stdin (arg &rest rest)
(declare (ignorable arg rest))