From b236c0e6240d93484ca1cdc261eeb9f8098e5ef1 Mon Sep 17 00:00:00 2001
From: Bert Burgemeister <trebbu@googlemail.com>
Date: Thu, 14 Sep 2017 14:47:57 +0200
Subject: [PATCH] Add a dependency check for Imagemagick

---
 fasttrack.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/fasttrack.lisp b/fasttrack.lisp
index b3e0019..db13e34 100644
--- a/fasttrack.lisp
+++ b/fasttrack.lisp
@@ -486,8 +486,9 @@ the key argument, or the whole dotted string."
                             (proj:degrees-to-radians 52) 0)
                       :destination-cs utm-coordinate-system))
         (phoros-photogrammetry:del-all) ;check photogrammetry
+        (uiop:run-program (format nil "convert -version"))
         (format *error-output* "~&dependencies OK~%"))
-    (error (e) (format *error-output* "~A~&" e))))
+    (error (e) (format *error-output* "while checking dependencies: ~A~&" e))))
 
 (defun main ()
   (handler-case
@@ -779,10 +780,9 @@ the key argument, or the whole dotted string."
     (usocket:ns-condition (c)
       (format *error-output* "DNS error: ~A~%" c)
       (kill-pipeglade))
-    ;; (error (e)
-    ;;   (print e)
-    ;;   (kill-pipeglade))
-    ))
+    (error (e)
+      (print e)
+      (kill-pipeglade))))
 
 (defun kill-pipeglade ()
   (let ((pipeglade-pid
-- 
2.11.4.GIT