Make bootstrapping `quicklisp' safer

* Diminish the number of "Error in post-command-hook
(yas--post-command-handler):
(wrong-number-of-arguments #<subr signal> 1)"
messages.

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
+  ;; (with-eval-after-load 'slime
-    (setopt org-babel-lisp-eval-fn #'slime-eval))
+  ;;   (setopt org-babel-lisp-eval-fn #'slime-eval))
-  ;; (with-eval-after-load 'sly
+  (with-eval-after-load 'sly
-  ;;   (setopt org-babel-lisp-eval-fn #'sly-eval))
+    (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 :tangle no
+#+begin_src emacs-lisp -n :results silent
 (when (ensure-package-installation 'sly 'sly-named-readtables)
   (with-eval-after-load 'sly
     ;; Set `sly-default-lisp' instead of `inferior-lisp-program',
@@ -4135,7 +4135,8 @@ 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-default-lisp 'sbcl
+    (setopt sly-db-initial-restart-limit 10
+            sly-default-lisp 'sbcl
             sly-lisp-implementations
             `((sbcl (,(executable-find "sbcl")
                      "--core"
@@ -4548,23 +4549,24 @@ 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
-(ql:register-local-projects)
+(defun probe--local-project-directory (name)
-(ql:quickload "cs325")
+  (some #'identity (mapcar (lambda (x)
-(ql:quickload "meta")
+                             (let ((*default-pathname-defaults* x))
-(ql:quickload "named-readtables")
+                               (probe-file name)))
-(ql:quickload "nodgui") ;; requires https://www.tcl.tk/software/tklib/
+                           ql:*local-project-directories*)))
-(ql:quickload "rutils")
+
-(ql:quickload "rutilsx")
+(when (probe--local-project-directory "cs325")
-(ql:quickload "try") ;; "try" is a "named-readtables/test" requirement.
+  (ql:register-local-projects)
-(ql:quickload "ucons")
+  (ql:quickload "cs325")
-(when (some #'identity (mapcar (lambda (x)
+  (ql:quickload "meta")
-                                 (let ((*default-pathname-defaults* x))
+  (ql:quickload '("named-readtables" "try")) ;; testing requires "try".
-                                   (probe-file "cl-state-machine")))
+  (ql:quickload "nodgui") ;; requires https://www.tcl.tk/software/tklib/
-                               ql:*local-project-directories*))
+  (ql:quickload '("rutils" "rutilsx"))
-  (ql:quickload "cl-state-machine")
+  (ql:quickload "ucons"))
-  (ql:quickload "cl-state-machine-examples")
+
-  (ql:quickload "cl-state-machine-graphing")
+(when (probe--local-project-directory "cl-state-machine")
-  (ql:quickload "cl-state-machine-test"))
+  (ql:quickload '("cl-state-machine" "cl-state-machine-examples"
+                  "cl-state-machine-graphing" "cl-state-machine-test")))
 #+end_src
 
 #+caption: A =quicklisp= sbclrc file.
@@ -5748,6 +5750,7 @@ 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))
 
@@ -5796,8 +5799,11 @@ 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)
-  (when (require 'yasnippet nil 'noerror)
+  (dolist (hook '(LaTeX-mode-hook
-    (yas-global-mode +1)))
+                  org-mode-hook
+                  python-mode-hook
+                  python-ts-mode-hook))
+    (add-hook hook #'yas-minor-mode)))
 #+end_src
 
 ** [[info:autotype#Tempo][Tempo (info)]]