-(flet ((bail (format args)
- (format *error-output* "~A: ~?~%"
- (cl-launch:getenv "CL_LAUNCH_FILE") format args)
- (cl-launch:quit 1)))
- (handler-case
- (main cl-launch:*arguments*)
- (simple-error (err)
- (bail (simple-condition-format-control err)
- (simple-condition-format-arguments err)))
- (error (err)
- (bail "~A" err))))
+(defun launch ()
+ (flet ((bail (format args)
+ (format *error-output* "~A: ~?~%"
+ (cl-launch:getenv "CL_LAUNCH_FILE") format args)
+ (cl-launch:quit 1)))
+ (handler-case
+ (main cl-launch:*arguments*)
+ (simple-error (err)
+ (bail (simple-condition-format-control err)
+ (simple-condition-format-arguments err)))
+ (error (err)
+ (bail "~A" err)))))