diff --git a/init.el b/init.el
index 285ec622..d3e3910c 100755
--- a/init.el
+++ b/init.el
@@ -64,7 +64,7 @@ There are two things you can do about this warning:
  '(default-frame-alist
     (quote
      ((fullscreen . maximized)
-      (width . 86)
+      (width . 90)
       (height . 46)
       (font . "Iosevka Term-13.0")
       (vertical-scroll-bars)
@@ -202,13 +202,20 @@ There are two things you can do about this warning:
 
 (when (eq system-type 'windows-nt)
   ;; %USERPROFILE%\AppData\Local\Programs\emacs-26.2-x86_64\bin\emacsclientw.exe -c -n -a runemacs.exe
-  (cd "~/opt")
-  (add-to-list 'load-path (expand-file-name "~/.emacs.d/__evo"))
+  ;; (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"))
+  (setq sbcl-core (expand-file-name "~/AppData/Local/Programs/Steel Bank Common Lisp/1.4.14/sbcl.core"))
+  (setq slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core))))
   (setq python-shell-interpreter "python")
+  (setq inferior-lisp-program "sbcl")
+  (add-to-list 'load-path (expand-file-name "~/AppData/Roaming/__secrets"))
+  (cd "~/opt")
   (when (display-graphic-p)
+    (add-to-list 'default-frame-alist '(undecorated . nil))
+    (add-to-list 'default-frame-alist '(font . "Iosevka Term-11"))
     (when (string= (system-name) "EVG01788WS")
-      (add-to-list 'default-frame-alist '(undecorated . nil))
-      (add-to-list 'default-frame-alist '(font . "Iosevka Term-11")))))
+        (add-to-list 'load-path (expand-file-name "~/.emacs.d/__evo")))
+    (when (string= (system-name) "XPS-8930"))))
 
 (when (eq system-type 'gnu/linux)
   (setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")