README.org

@@ -2101,10 +2101,10 @@ list detailing and motivating each listing:
                              "\\end{document}\n")))
 
 (with-eval-after-load 'ob-lisp
-  ;; (with-eval-after-load 'slime
-  ;;   (setopt org-babel-lisp-eval-fn #'slime-eval))
-  (with-eval-after-load 'sly
-    (setopt org-babel-lisp-eval-fn #'sly-eval))
+  (with-eval-after-load 'slime
+    (setopt org-babel-lisp-eval-fn #'slime-eval))
+  ;; (with-eval-after-load 'sly
+  ;;   (setopt org-babel-lisp-eval-fn #'sly-eval))
   )
 
 (with-eval-after-load 'emacs
@@ -4127,7 +4127,7 @@ Listing [[lst:sbcl-core-for-sly]] tangles to a script to dump such a [[http://ww
 #+caption[Configure =sly=]:
 #+caption: Configure =sly=.
 #+name: lst:configure-sly
-#+begin_src emacs-lisp -n :results silent
+#+begin_src emacs-lisp -n :results silent :tangle no
 (when (ensure-package-installation 'sly 'sly-named-readtables)
   (with-eval-after-load 'sly
     ;; Set `sly-default-lisp' instead of `inferior-lisp-program',
@@ -4135,8 +4135,7 @@ Listing [[lst:sbcl-core-for-sly]] tangles to a script to dump such a [[http://ww
     ;; compatibility fallback option.
     ;; The warning "Value ‘sbcl’ does not match type function" is due to
     ;; the buggy `defcustom' type of `sbcl-default-lisp' in `sly.el'.
-    (setopt sly-db-initial-restart-limit 10
-            sly-default-lisp 'sbcl
+    (setopt sly-default-lisp 'sbcl
             sly-lisp-implementations
             `((sbcl (,(executable-find "sbcl")
                      "--core"
@@ -4549,24 +4548,23 @@ git clone git@github.com:ageldama/cl-state-machine.git
 ;; https://lisp-journey.gitlab.io/blog/gui-programming-in-common-lisp-part-3-of-5-gtk3/
 ;; https://www.crategus.com/books/cl-cffi-gtk/
 ;; https://www.crategus.com/books/cl-gtk/gtk-tutorial.html
-(defun probe--local-project-directory (name)
-  (some #'identity (mapcar (lambda (x)
-                             (let ((*default-pathname-defaults* x))
-                               (probe-file name)))
-                           ql:*local-project-directories*)))
-
-(when (probe--local-project-directory "cs325")
-  (ql:register-local-projects)
-  (ql:quickload "cs325")
-  (ql:quickload "meta")
-  (ql:quickload '("named-readtables" "try")) ;; testing requires "try".
-  (ql:quickload "nodgui") ;; requires https://www.tcl.tk/software/tklib/
-  (ql:quickload '("rutils" "rutilsx"))
-  (ql:quickload "ucons"))
-
-(when (probe--local-project-directory "cl-state-machine")
-  (ql:quickload '("cl-state-machine" "cl-state-machine-examples"
-                  "cl-state-machine-graphing" "cl-state-machine-test")))
+(ql:register-local-projects)
+(ql:quickload "cs325")
+(ql:quickload "meta")
+(ql:quickload "named-readtables")
+(ql:quickload "nodgui") ;; requires https://www.tcl.tk/software/tklib/
+(ql:quickload "rutils")
+(ql:quickload "rutilsx")
+(ql:quickload "try") ;; "try" is a "named-readtables/test" requirement.
+(ql:quickload "ucons")
+(when (some #'identity (mapcar (lambda (x)
+                                 (let ((*default-pathname-defaults* x))
+                                   (probe-file "cl-state-machine")))
+                               ql:*local-project-directories*))
+  (ql:quickload "cl-state-machine")
+  (ql:quickload "cl-state-machine-examples")
+  (ql:quickload "cl-state-machine-graphing")
+  (ql:quickload "cl-state-machine-test"))
 #+end_src
 
 #+caption: A =quicklisp= sbclrc file.
@@ -5750,7 +5748,6 @@ contrary to for instance [[https://github.com/Fanael/rainbow-delimiters#readme][
                   lisp-data-mode-hook
                   lisp-mode-hook
                   python-mode-hook
-                  slime-repl-mode-hook
                   sly-mrepl-mode-hook))
     (add-hook hook #'smartparens-strict-mode))
 
@@ -5799,11 +5796,8 @@ formatter for Python]].
 (when (ensure-package-installation 'yasnippet)
   ;; Set `yas-alias-to-yas/prefix-p' before loading `yasnippet'.
   (setopt yas-alias-to-yas/prefix-p nil)
-  (dolist (hook '(LaTeX-mode-hook
-                  org-mode-hook
-                  python-mode-hook
-                  python-ts-mode-hook))
-    (add-hook hook #'yas-minor-mode)))
+  (when (require 'yasnippet nil 'noerror)
+    (yas-global-mode +1)))
 #+end_src
 
 ** [[info:autotype#Tempo][Tempo (info)]]