From a09331daa1abf52f7c67d7311c330f65da50707a Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sat, 21 May 2022 18:57:44 +0200
Subject: main: Clean up Control-c test code

Re-enable the main run code.
---
 src/main.lisp | 12 ++----------
 1 file 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)
-- 
cgit v1.2.3