Less logging of debug messages by default

These are configurable so we can still debug at will.

Co-author: @erikap

Author: madnificent

Diff for: cache/types.lisp

@@ -147,22 +147,27 @@ Hence graph -> uri -> types in which every URI is expressed as a string and the
 
 (defparameter *uri-graph-user-type-providers* nil
   "A list of functions that can calculate the types for a list of combined graph and uri.")
+(defparameter *debug-prefix-functions* nil
+  "Set to non-nil to emit debugging information for prefix functions.")
 
 (defun derive-type-from-prefix-function (prefix types &optional complete-p)
   "Constructs a function that derives the types of uris starting with PREFIX.
 
 If COMPLETE-P is non-nil processing may be short-circuited but no
 guarantees are given for this to be used."
   (let ((prefix-length (length prefix)))
-    (format t "~&Types is now: ~A~%" types)
+    (when *debug-prefix-functions*
+      (format t "~&Types is now: ~A~%" types))
     (lambda (uri graph)
       (declare (ignore graph))
-      (format t "~&Types is now: ~A~%" types)
+      (when *debug-prefix-functions*
+        (format t "~&Types is now: ~A~%" types))
       (let ((uri-length (length uri)))
         (if (and (>= uri-length prefix-length)
                  (string= prefix (subseq uri 0 prefix-length)))
-            (progn (format t "~&Returning types ~A for uri ~A~%"
-                           types uri)
+            (progn (when *debug-prefix-functions*
+                     (format t "~&Returning types ~A for uri ~A~%"
+                             types uri))
                    (values types complete-p))
             (values nil nil))))))
 

Diff for: connection/client.lisp

@@ -93,6 +93,9 @@ comparison."
         (expand-bindings bindings)
         bindings)))
 
+(defparameter *log-batch-mapping* nil
+  "Set to t to warn on processes which want to execute batch mapping.  Batch mapping is not implemented yet and will process as one big query.")
+
 (defun batch-map-solutions-for-select-query* (query &key (for :read) batch-size usage)
   (declare (ignore for batch-size))
   (sparql-parser:with-sparql-ast query
@@ -101,7 +104,8 @@ comparison."
                               query))
            (query-string (sparql-generator:write-valid altered-query)))
       ;; (break "Batch mapping ~A" query-string)
-      (format t "~&Batch mapping ~A~%" query-string)
+      (when *log-batch-mapping*
+        (format t "~&Batch mapping ~A~%" query-string))
       (client:bindings (client:query query-string)))))
 
 (defun batch-create-full-solution-for-select-query (query &key (for :read) batch-size usage)