                       (message "%s" (point))
                     (put-text-property (1- (point)) (point) 'syntax-table (string-to-syntax "."))))))))))
 
-(defun go--common-prefix (sequences)
-  (assert sequences)
-  (flet ((common-prefix (s1 s2)
-                        (let ((diff-pos (mismatch s1 s2)))
-                          (if diff-pos (subseq s1 0 diff-pos) s1))))
-    (reduce #'common-prefix sequences)))
+;; ;; Commented until we actually make use of this function
+;; (defun go--common-prefix (sequences)
+;;   ;; mismatch and reduce are cl
+;;   (assert sequences)
+;;   (flet ((common-prefix (s1 s2)
+;;                         (let ((diff-pos (mismatch s1 s2)))
+;;                           (if diff-pos (subseq s1 0 diff-pos) s1))))
+;;     (reduce #'common-prefix sequences)))
 
 (defun go-import-add (arg import)
   "Add a new import to the list of imports.

          (setq line (format "%s \"%s\"" as import))
        (setq line (format "\"%s\"" import)))

      (beginning-of-buffer)
      (if (re-search-forward (concat "^// import " line "$") nil t)
          (uncomment-region (line-beginning-position) (line-end-position))
        (case (go-goto-imports)

          (message "Cannot operate on unsaved buffer")
        (setq lines (go-unused-imports-lines))
        (dolist (import lines)
          (goto-char (point-min))
          (forward-line (1- import))
          (beginning-of-line)
          (if arg
              (comment-region (line-beginning-position) (line-end-position))
