(let*
((name (subseq project-definition 0 pos))
(src (subseq project-definition (1+ pos))))
+ (communication:query `(candle:add-project ,name ,src))
(format t "Added project ~A at src definition ~A~%" name src))))))
(defmethod execute-command ((command (eql :project)) args)
((eql error :required-argument-missing) (format *error-output* "Missing argument for ~A. See 'candle run --help'.~%" (car remaining-args)))
(remaining-args (format *error-output* "Unknown option: ~A. See 'candle run --help'.~%" (car remaining-args)))
((opera:option-present :help options) (format t "~A" (opera:usage "candle run" (run-options))))
- (t (candle:run)))))
+ ((not (candle:run)) (sb-ext:exit :code 1)))))
(defun run ()
(multiple-value-bind (options remaining-args error) (opera:process-arguments (main-options) (cdr sb-ext:*posix-argv*))