add keybind for company completion with counsel in slime and cl

init.el

@@ -596,6 +596,11 @@
   :defer t
   :init
   (setq slime-contribs '(slime-fancy slime-company))
+  :bind
+  (:map lisp-mode-map
+        ("M-<tab>" . counsel-company))
+  (:map slime-mode-map
+        ("M-<tab>" . counsel-company))
   :config
   (setq inferior-lisp-program "sbcl"))