diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/main.lisp | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/src/main.lisp b/src/main.lisp index 6076da7..a611532 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -6,10 +6,7 @@ ;; Send email to program containing message with issue metadata ;; Continue to next page - ;; TODO: Add SIGINT and error handling - ;; Disable interactive debugger. - ; (defparameter uiop:*lisp-interaction* nil) (setf *debugger-hook* #'debug-ignore) (handler-case @@ -17,16 +14,11 @@ (handler-bind ((error #'(lambda (e) (exit-with-error e sysexits:+unavailable+)))) - ; (let ((config (parse-options))) - ; (run config)) - - (format t "l-i: ~S~%" uiop:*lisp-interaction*) - (format t "main ran~%") - (sleep 5))) + (let ((config (parse-options))) + (run config)))) ;; Control-c (interrupt:user-abort () - (format t "siginted~%") (opts:exit 130)))) (defun debug-ignore (condition hook) |