Add missing command checker

quicklisp · Nov 18, 2016 · 7634052 · 7634052
1 parent 24b7aa8
commit 7634052
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/upstream.lisp b/upstream.lisp
@@ -211,3 +211,20 @@
 
 (defun random-of-type (type)
   (random-element (coerce (all-of-type type) 'vector)))
+
+(defgeneric command (source)
+  (:method (source)
+    nil))
+
+(defun missing-commands ()
+  (let ((missing '())
+	(tried (make-string-table)))
+    (map-sources
+     (lambda (source)
+       (let ((command (command source)))
+	 (when command
+	   (unless (gethash command tried)
+	     (setf (gethash command tried) t)
+	     (unless (ignore-errors (run command "--version"))
+	       (push command missing)))))))
+    missing))