(defun win-set-sbcl ()
  ;; %USERPROFILE%\AppData\Local\Programs\emacs-26.2-x86_64\bin\emacsclientw.exe -c -n -a runemacs.exe
  ;; (setq inferior-lisp-program (executable-find "sbcl"))
  (setq sbcl-exe (expand-file-name "~/AppData/Local/Programs/Steel Bank Common Lisp/1.4.14/sbcl.exe")
        sbcl-core (expand-file-name "~/AppData/Local/Programs/Steel Bank Common Lisp/1.4.14/sbcl.core")
        inferior-lisp-program "sbcl"
        slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core)))))

(when (eq system-type 'windows-nt)
  (win-set-sbcl))

(provide 'sbcl-settings)