@@ -88,11 +88,12 @@

                    (helm-comp-read "system:" systems)

                  (car systems)))))

-(cl-defmethod fwoar/find-system (&context (major-mode (derived-mode clojure-mode)))

+(defvar projectile-project-type nil)

+(cl-defmethod fwoar--find-system (&context (major-mode (derived-mode clojure-mode)))

   (find-clojure-project-file))

-(cl-defmethod fwoar/find-system (&context (projectile-project-type (eql clojure-mode)))

+(cl-defmethod fwoar--find-system (&context (projectile-project-type (eql clojure-mode)))

   (find-clojure-project-file))

-(cl-defmethod fwoar/find-system (&context (major-mode (derived-mode cider-repl-mode)))

+(cl-defmethod fwoar--find-system (&context (major-mode (derived-mode cider-repl-mode)))

   (find-clojure-project-file))

 (cl-defmethod fwoar--pl-selector (&context (major-mode clojure-mode))

@@ -182,9 +182,12 @@

   (add-hook 'after-save-hook 'fwoar/test-on-save))

 (cl-macrolet ((def-js-like-find-system (mode)

-		            `(cl-defmethod fwoar/find-system (&context (major-mode ,mode))

+		            `(cl-defmethod fwoar--find-system (&context (major-mode ,mode))

 		               (find-package-json default-directory))))

   (def-js-like-find-system js-mode)

   (def-js-like-find-system typescript-mode))

-(cl-defmethod fwoar/find-system (&context ((projectile-project-type) (eql 'npm)))

+

+(unless (fboundp 'projectile-project-type)

+  (defun projectile-project-type ()))

+(cl-defmethod fwoar--find-system (&context ((projectile-project-type) (eql 'npm)))

 	(find-package-json default-directory))

@@ -46,7 +46,7 @@

       (directory-files dir-of-asd

                        t "^[^.#][^#]*[.]asd$"))))

-(cl-defmethod fwoar/find-system (&context (major-mode lisp-mode))

+(cl-defmethod fwoar--find-system (&context (major-mode lisp-mode))

   (let ((systems (fwoar--get-asds)))

     (find-file (if (not (null (cdr systems)))

                    (helm-comp-read "system:" systems)

@@ -219,7 +219,7 @@ Examples:

            slime-selector-methods

            :key #'car)

-  (pushnew (list ?S "Goto System" #'fwoar/find-system)

+  (pushnew (list ?S "Goto System" #'fwoar--find-system)

            slime-selector-methods

            :key #'car)