Eliminate all "text" org-src-mode blocks

README.org

@@ -734,9 +734,9 @@ between Emacs sessions.
 #+caption[Register separator usage example]:
 #+caption: Register separator usage example.
 #+name: lst:register-separator-usage-example
-#+begin_src text -n :exports code
+#+begin_src org -n :exports code
 When I set register ?+ to
-(set-register ?+ "\n*REGISTER SEPARATOR*\n")
+(set-register ?+ "\nREGISTER-SEPARATOR\n")
 to test append-to-register on two regions like
 Mark this line without new-line as region 1
 Mark this line without new-line as region 2
@@ -746,7 +746,7 @@ The correct result of
 "C-x r i T"
 is:
 Mark this line without new-line as region 1
-*REGISTER SEPARATOR*
+REGISTER-SEPARATOR
 Mark this line without new-line as region 2
 #+end_src
 
@@ -3797,7 +3797,7 @@ Links to Common Lisp books and posts are:
 4. [[https://redirect.cs.umbc.edu/courses/331/resources/lisp/onLisp/][On Lisp - Paul Graham]]
 5. [[https://dept-info.labri.fr/~strandh/Teaching/Programmation-Symbolique/Common/Book/HTML/programmation.html][Traité de Programmation en Common Lisp]]
 
-*** [[https://joaotavora.github.io/sly/][Sly]]
+*** [[https://joaotavora.github.io/sly/][Sly: do "M-x sly" to get a connection]]
 :PROPERTIES:
 :CUSTOM_ID: sec:sly
 :END:
@@ -4071,7 +4071,7 @@ post.
 #+caption[Set Sly ~slynk:*string-elision-length*~]:
 #+caption: Set Sly ~slynk:*string-elision-length*~.
 #+name: lst:set-sly-sel
-#+header: :wrap "src text -n"
+#+header: :wrap "src org -n"
 #+begin_src emacs-lisp -n :eval never-export :exports both :tangle no
 (when (and (fboundp 'sly-connected-p) (sly-connected-p))
   (and (fboundp 'slynk-set-sel) (slynk-set-sel (ash 1 14))))
@@ -4081,7 +4081,7 @@ post.
 #+caption: Set Sly ~slynk:*string-elision-length*~ result.
 #+name: lst:set-sly-sel-result
 #+RESULTS: lst:set-sly-sel
-#+begin_src text -n
+#+begin_src org -n
 16384 (15 bits, #x4000)
 #+end_src