(defun is-full-uri (uri)
  "Check if the URI is actually a URI."
  ; If the length of the part of a string before : is not equal to the lenth of the string, then it is a URI.
  (if (multiple-value-bind (list len) (split-sequence:split-sequence #\: uri)
	(equal (length (first list)) len)) nil t))