   (defsubst looking-at-p (regexp)
     (let ((inhibit-changing-match-data t))
       (looking-at regexp))))
-
- 
 ;;; Utilities:
 

        (v2 (geiser--cut-version v2)))
    (and v1 v2 (version< v1 v2))))


(provide 'geiser-base)

    (and thing (make-symbol thing))))

(defun geiser--cut-version (v)
  (when (string-match "\\([0-9]+\\(?:\\.[0-9]+\\.[0-9]+\\)?\\).*" v)
    (match-string 1 v)))

(defun geiser--version< (v1 v2)
