###--------------------------------------------------------------------------
### Common Lisp.
+CLEANFILES += *.core
+
LANGS += cl
cl-fringe: cl-fringe.lisp
- cl-launch -R -o $@ -f `pwd`/$^
+## cl-launch -R -o $@ -f `pwd`/$^ -- slow to start
+ cl-launch -o $@ -f `pwd`/$^ +I -r launch -d $@.core
###--------------------------------------------------------------------------
### F#.
(iterate-fringe (parse-tree b))))))))
#+cl-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))))
+(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)))))
;;;----- That's all, folks --------------------------------------------------