diff --git a/.git_meta b/.git_meta
deleted file mode 100644
index 2ff7adbe5..000000000
--- a/.git_meta
+++ /dev/null
@@ -1,1603 +0,0 @@
-chmod 0644 ".git_meta"; touch -c -t "202111241805.17" ".git_meta"
-chmod 0644 ".github/workflows/ccpp.yml"; touch -c -t "202104261237.22" ".github/workflows/ccpp.yml"
-chmod 0644 ".gitignore"; touch -c -t "202109291034.58" ".gitignore"
-chmod 0644 "AUTHORS"; touch -c -t "201804201603.17" "AUTHORS"
-chmod 0777 "COPYING"; touch -c -t "201803222144.24" "COPYING"
-chmod 0644 "ChangeLog"; touch -c -t "202111241604.12" "ChangeLog"
-chmod 0644 "HACKING.md"; touch -c -t "202111241337.58" "HACKING.md"
-chmod 0644 "INSTALL"; touch -c -t "202105031202.46" "INSTALL"
-chmod 0644 "INSTALL-android.md"; touch -c -t "202109291034.58" "INSTALL-android.md"
-chmod 0644 "LICENSE"; touch -c -t "201803221448.42" "LICENSE"
-chmod 0644 "Makefile.am"; touch -c -t "202109291034.58" "Makefile.am"
-chmod 0644 "Makefile.in"; touch -c -t "202111241445.27" "Makefile.in"
-chmod 0777 "NEWS"; touch -c -t "201803261101.07" "NEWS"
-chmod 0644 "NEWS.md"; touch -c -t "202111241740.40" "NEWS.md"
-chmod 0644 "PACKAGES-USED"; touch -c -t "202111241433.31" "PACKAGES-USED"
-chmod 0644 "PORTING-NOTES.md"; touch -c -t "202105031202.46" "PORTING-NOTES.md"
-chmod 0644 "QUICK-INSTALL.md"; touch -c -t "202109291034.58" "QUICK-INSTALL.md"
-chmod 0777 "README"; touch -c -t "201803261101.07" "README"
-chmod 0644 "README.md"; touch -c -t "202111241751.13" "README.md"
-chmod 0644 "SUPPORTED-SRFIS"; touch -c -t "202111182154.13" "SUPPORTED-SRFIS"
-chmod 0644 "aclocal.m4"; touch -c -t "202111241445.26" "aclocal.m4"
-chmod 0755 "compile"; touch -c -t "202104261237.22" "compile"
-chmod 0755 "config.guess"; touch -c -t "202104261237.22" "config.guess"
-chmod 0755 "config.sub"; touch -c -t "202104261237.22" "config.sub"
-chmod 0755 "configure"; touch -c -t "202111241445.28" "configure"
-chmod 0644 "configure.ac"; touch -c -t "202111241445.13" "configure.ac"
-chmod 0755 "depcomp"; touch -c -t "202104261237.22" "depcomp"
-chmod 0644 "doc/Makefile.am"; touch -c -t "202109291034.58" "doc/Makefile.am"
-chmod 0644 "doc/Makefile.in"; touch -c -t "202111241445.27" "doc/Makefile.in"
-chmod 0755 "doc/extract-doc.stk"; touch -c -t "202109291034.58" "doc/extract-doc.stk"
-chmod 0644 "doc/html/doc-style.css"; touch -c -t "202105031202.46" "doc/html/doc-style.css"
-chmod 0644 "doc/html/images/hierarchy.jpg"; touch -c -t "201806041630.47" "doc/html/images/hierarchy.jpg"
-chmod 0777 "doc/html/index.html"; touch -c -t "202111241757.15" "doc/html/index.html"
-chmod 0644 "doc/html/stklos-ref-1.html"; touch -c -t "202111241757.13" "doc/html/stklos-ref-1.html"
-chmod 0644 "doc/html/stklos-ref-10.html"; touch -c -t "202111241757.14" "doc/html/stklos-ref-10.html"
-chmod 0644 "doc/html/stklos-ref-11.html"; touch -c -t "202111241757.14" "doc/html/stklos-ref-11.html"
-chmod 0644 "doc/html/stklos-ref-12.html"; touch -c -t "202111241757.14" "doc/html/stklos-ref-12.html"
-chmod 0644 "doc/html/stklos-ref-13.html"; touch -c -t "202111241757.14" "doc/html/stklos-ref-13.html"
-chmod 0644 "doc/html/stklos-ref-14.html"; touch -c -t "202111241757.15" "doc/html/stklos-ref-14.html"
-chmod 0644 "doc/html/stklos-ref-15.html"; touch -c -t "202111241757.15" "doc/html/stklos-ref-15.html"
-chmod 0644 "doc/html/stklos-ref-16.html"; touch -c -t "202111241757.15" "doc/html/stklos-ref-16.html"
-chmod 0644 "doc/html/stklos-ref-2.html"; touch -c -t "202111241757.13" "doc/html/stklos-ref-2.html"
-chmod 0644 "doc/html/stklos-ref-3.html"; touch -c -t "202111241757.13" "doc/html/stklos-ref-3.html"
-chmod 0644 "doc/html/stklos-ref-4.html"; touch -c -t "202111241757.14" "doc/html/stklos-ref-4.html"
-chmod 0644 "doc/html/stklos-ref-5.html"; touch -c -t "202111241757.14" "doc/html/stklos-ref-5.html"
-chmod 0644 "doc/html/stklos-ref-6.html"; touch -c -t "202111241757.14" "doc/html/stklos-ref-6.html"
-chmod 0644 "doc/html/stklos-ref-7.html"; touch -c -t "202111241757.14" "doc/html/stklos-ref-7.html"
-chmod 0644 "doc/html/stklos-ref-8.html"; touch -c -t "202111241757.14" "doc/html/stklos-ref-8.html"
-chmod 0644 "doc/html/stklos-ref-9.html"; touch -c -t "202111241757.14" "doc/html/stklos-ref-9.html"
-chmod 0644 "doc/html/stklos-ref.html"; touch -c -t "202111241757.15" "doc/html/stklos-ref.html"
-chmod 0644 "doc/pdf/stklos-ref.pdf"; touch -c -t "202111241757.35" "doc/pdf/stklos-ref.pdf"
-chmod 0644 "doc/skb/Makefile"; touch -c -t "202108181917.29" "doc/skb/Makefile"
-chmod 0644 "doc/skb/biblio.skb"; touch -c -t "201806041630.47" "doc/skb/biblio.skb"
-chmod 0644 "doc/skb/biblio.skbib"; touch -c -t "202105031202.46" "doc/skb/biblio.skbib"
-chmod 0644 "doc/skb/cond.skb"; touch -c -t "202104261237.22" "doc/skb/cond.skb"
-chmod 0644 "doc/skb/custom.skb"; touch -c -t "202105031202.46" "doc/skb/custom.skb"
-chmod 0644 "doc/skb/doc-style.css"; touch -c -t "202105031202.46" "doc/skb/doc-style.css"
-chmod 0644 "doc/skb/doc-style.tex"; touch -c -t "201806041630.47" "doc/skb/doc-style.tex"
-chmod 0644 "doc/skb/eg-web-book.ske"; touch -c -t "202104261237.22" "doc/skb/eg-web-book.ske"
-chmod 0644 "doc/skb/expr.skb"; touch -c -t "202109291034.58" "doc/skb/expr.skb"
-chmod 0644 "doc/skb/ffi.skb"; touch -c -t "202109291034.58" "doc/skb/ffi.skb"
-chmod 0644 "doc/skb/images/dice.png"; touch -c -t "201806041630.47" "doc/skb/images/dice.png"
-chmod 0644 "doc/skb/images/hierarchy.jpg"; touch -c -t "201806041630.47" "doc/skb/images/hierarchy.jpg"
-chmod 0644 "doc/skb/images/hierarchy.sxd"; touch -c -t "201806041630.47" "doc/skb/images/hierarchy.sxd"
-chmod 0644 "doc/skb/index.skb"; touch -c -t "202008041457.18" "doc/skb/index.skb"
-chmod 0644 "doc/skb/intro.skb"; touch -c -t "202108181917.29" "doc/skb/intro.skb"
-chmod 0644 "doc/skb/lib.stk"; touch -c -t "202105031202.46" "doc/skb/lib.stk"
-chmod 0644 "doc/skb/match.skb"; touch -c -t "201806041630.47" "doc/skb/match.skb"
-chmod 0644 "doc/skb/missfont.log"; touch -c -t "201806041630.47" "doc/skb/missfont.log"
-chmod 0644 "doc/skb/object.skb"; touch -c -t "202109291034.58" "doc/skb/object.skb"
-chmod 0644 "doc/skb/overview.skb"; touch -c -t "201806041630.47" "doc/skb/overview.skb"
-chmod 0644 "doc/skb/progstruct.skb"; touch -c -t "201806041630.47" "doc/skb/progstruct.skb"
-chmod 0644 "doc/skb/regexp.skb"; touch -c -t "201806041630.47" "doc/skb/regexp.skb"
-chmod 0644 "doc/skb/scmpkg.skb"; touch -c -t "201806041630.47" "doc/skb/scmpkg.skb"
-chmod 0644 "doc/skb/slib.skb"; touch -c -t "201806041630.47" "doc/skb/slib.skb"
-chmod 0644 "doc/skb/srfi.skb"; touch -c -t "202108181917.29" "doc/skb/srfi.skb"
-chmod 0644 "doc/skb/srfi.stk"; touch -c -t "202108181917.29" "doc/skb/srfi.stk"
-chmod 0644 "doc/skb/stdproc.skb"; touch -c -t "202109291034.58" "doc/skb/stdproc.skb"
-chmod 0644 "doc/skb/stklos-version.stk.in"; touch -c -t "201806041630.47" "doc/skb/stklos-version.stk.in"
-chmod 0644 "doc/skb/stklos.skb"; touch -c -t "202111241156.09" "doc/skb/stklos.skb"
-chmod 0644 "doc/skb/threads.skb"; touch -c -t "201806041630.47" "doc/skb/threads.skb"
-chmod 0644 "doc/stklos-compile.1.in"; touch -c -t "202108181917.29" "doc/stklos-compile.1.in"
-chmod 0644 "doc/stklos-config.1.in"; touch -c -t "202105031202.46" "doc/stklos-config.1.in"
-chmod 0644 "doc/stklos-genlex.1.in"; touch -c -t "201108221102.24" "doc/stklos-genlex.1.in"
-chmod 0644 "doc/stklos-pkg.1.in"; touch -c -t "201108221102.25" "doc/stklos-pkg.1.in"
-chmod 0644 "doc/stklos-script.1.in"; touch -c -t "202105031202.46" "doc/stklos-script.1.in"
-chmod 0644 "doc/stklos.1.in"; touch -c -t "202108181917.29" "doc/stklos.1.in"
-chmod 0644 "etc/Docker/Dockerfile.latest"; touch -c -t "202109291034.58" "etc/Docker/Dockerfile.latest"
-chmod 0644 "etc/Docker/Dockerfile.stable"; touch -c -t "202109291034.58" "etc/Docker/Dockerfile.stable"
-chmod 0644 "etc/Docker/README.md"; touch -c -t "202104261237.22" "etc/Docker/README.md"
-chmod 0644 "etc/README"; touch -c -t "202109291034.58" "etc/README"
-chmod 0644 "etc/Unicode/CaseFolding.txt"; touch -c -t "202104261237.22" "etc/Unicode/CaseFolding.txt"
-chmod 0644 "etc/Unicode/README"; touch -c -t "201108221549.17" "etc/Unicode/README"
-chmod 0644 "etc/Unicode/UnicodeData.txt"; touch -c -t "202104261237.22" "etc/Unicode/UnicodeData.txt"
-chmod 0644 "etc/Unicode/make-tables.stk"; touch -c -t "202104261237.22" "etc/Unicode/make-tables.stk"
-chmod 0644 "etc/lion.patch"; touch -c -t "201110160005.12" "etc/lion.patch"
-chmod 0644 "etc/simple-module.c"; touch -c -t "202105031202.46" "etc/simple-module.c"
-chmod 0644 "etc/simple-stklos.c"; touch -c -t "201108221106.50" "etc/simple-stklos.c"
-chmod 0644 "examples/Makefile.am"; touch -c -t "202105031202.46" "examples/Makefile.am"
-chmod 0644 "examples/Makefile.in"; touch -c -t "202111241445.27" "examples/Makefile.in"
-chmod 0644 "examples/README.md"; touch -c -t "202105031202.46" "examples/README.md"
-chmod 0644 "examples/fork-test.stk"; touch -c -t "201108221107.30" "examples/fork-test.stk"
-chmod 0755 "examples/hello.stk"; touch -c -t "202105031202.46" "examples/hello.stk"
-chmod 0644 "examples/secho.stk"; touch -c -t "202105031202.46" "examples/secho.stk"
-chmod 0644 "examples/socket-client.stk"; touch -c -t "202105031202.46" "examples/socket-client.stk"
-chmod 0644 "examples/socket-server-fork.stk"; touch -c -t "202105031202.46" "examples/socket-server-fork.stk"
-chmod 0644 "examples/socket-server-thread.stk"; touch -c -t "202105031202.46" "examples/socket-server-thread.stk"
-chmod 0644 "examples/socket-server.stk"; touch -c -t "202105031202.46" "examples/socket-server.stk"
-chmod 0644 "examples/threads.stk"; touch -c -t "202105031202.46" "examples/threads.stk"
-chmod 0644 "extensions/Makefile.am"; touch -c -t "202109291034.58" "extensions/Makefile.am"
-chmod 0644 "extensions/Makefile.in"; touch -c -t "202111241445.27" "extensions/Makefile.in"
-chmod 0644 "extensions/README.md"; touch -c -t "202111241633.02" "extensions/README.md"
-chmod 0644 "extensions/gtklos/Makefile.am"; touch -c -t "202109291034.58" "extensions/gtklos/Makefile.am"
-chmod 0644 "extensions/gtklos/Makefile.in"; touch -c -t "202111241445.27" "extensions/gtklos/Makefile.in"
-chmod 0644 "extensions/gtklos/README.md"; touch -c -t "202109291034.58" "extensions/gtklos/README.md"
-chmod 0644 "extensions/gtklos/demos/Makefile.am"; touch -c -t "202109291034.58" "extensions/gtklos/demos/Makefile.am"
-chmod 0644 "extensions/gtklos/demos/Makefile.in"; touch -c -t "202111241445.27" "extensions/gtklos/demos/Makefile.in"
-chmod 0644 "extensions/gtklos/demos/button.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/button.stk"
-chmod 0644 "extensions/gtklos/demos/canvas1.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/canvas1.stk"
-chmod 0644 "extensions/gtklos/demos/canvas2.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/canvas2.stk"
-chmod 0644 "extensions/gtklos/demos/canvas3.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/canvas3.stk"
-chmod 0644 "extensions/gtklos/demos/canvas4.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/canvas4.stk"
-chmod 0644 "extensions/gtklos/demos/canvas5.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/canvas5.stk"
-chmod 0644 "extensions/gtklos/demos/checkbutton.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/checkbutton.stk"
-chmod 0644 "extensions/gtklos/demos/colorchooser.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/colorchooser.stk"
-chmod 0644 "extensions/gtklos/demos/combobox.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/combobox.stk"
-chmod 0644 "extensions/gtklos/demos/demos-utils.stk"; touch -c -t "202109291034.58" "extensions/gtklos/demos/demos-utils.stk"
-chmod 0644 "extensions/gtklos/demos/demos.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/demos.stk"
-chmod 0644 "extensions/gtklos/demos/dialog.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/dialog.stk"
-chmod 0644 "extensions/gtklos/demos/entry1.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/entry1.stk"
-chmod 0644 "extensions/gtklos/demos/entry2.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/entry2.stk"
-chmod 0644 "extensions/gtklos/demos/entry3.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/entry3.stk"
-chmod 0644 "extensions/gtklos/demos/event.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/event.stk"
-chmod 0644 "extensions/gtklos/demos/filechooser.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/filechooser.stk"
-chmod 0644 "extensions/gtklos/demos/fontchooser.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/fontchooser.stk"
-chmod 0644 "extensions/gtklos/demos/frame.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/frame.stk"
-chmod 0644 "extensions/gtklos/demos/grid1.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/grid1.stk"
-chmod 0644 "extensions/gtklos/demos/grid2.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/grid2.stk"
-chmod 0644 "extensions/gtklos/demos/header.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/header.stk"
-chmod 0644 "extensions/gtklos/demos/image1.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/image1.stk"
-chmod 0644 "extensions/gtklos/demos/image2.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/image2.stk"
-chmod 0644 "extensions/gtklos/demos/images/anim-0.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/anim-0.png"
-chmod 0644 "extensions/gtklos/demos/images/anim-1.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/anim-1.png"
-chmod 0644 "extensions/gtklos/demos/images/anim-2.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/anim-2.png"
-chmod 0644 "extensions/gtklos/demos/images/anim-3.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/anim-3.png"
-chmod 0644 "extensions/gtklos/demos/images/anim-4.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/anim-4.png"
-chmod 0644 "extensions/gtklos/demos/images/anim-5.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/anim-5.png"
-chmod 0644 "extensions/gtklos/demos/images/anim-6.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/anim-6.png"
-chmod 0644 "extensions/gtklos/demos/images/anim-7.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/anim-7.png"
-chmod 0644 "extensions/gtklos/demos/images/anim-8.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/anim-8.png"
-chmod 0644 "extensions/gtklos/demos/images/anim-9.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/anim-9.png"
-chmod 0644 "extensions/gtklos/demos/images/down.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/down.png"
-chmod 0644 "extensions/gtklos/demos/images/left.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/left.png"
-chmod 0644 "extensions/gtklos/demos/images/linux.xpm"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/linux.xpm"
-chmod 0644 "extensions/gtklos/demos/images/right.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/right.png"
-chmod 0644 "extensions/gtklos/demos/images/stklos-logo.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/stklos-logo.png"
-chmod 0644 "extensions/gtklos/demos/images/up.png"; touch -c -t "202109291034.58" "extensions/gtklos/demos/images/up.png"
-chmod 0644 "extensions/gtklos/demos/label.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/label.stk"
-chmod 0644 "extensions/gtklos/demos/menu1.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/menu1.stk"
-chmod 0644 "extensions/gtklos/demos/menu2.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/menu2.stk"
-chmod 0644 "extensions/gtklos/demos/menu3.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/menu3.stk"
-chmod 0644 "extensions/gtklos/demos/progress.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/progress.stk"
-chmod 0644 "extensions/gtklos/demos/radiobutton.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/radiobutton.stk"
-chmod 0644 "extensions/gtklos/demos/scale.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/scale.stk"
-chmod 0644 "extensions/gtklos/demos/scroll1.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/scroll1.stk"
-chmod 0644 "extensions/gtklos/demos/scroll2.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/scroll2.stk"
-chmod 0644 "extensions/gtklos/demos/sedit.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/sedit.stk"
-chmod 0644 "extensions/gtklos/demos/separator.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/separator.stk"
-chmod 0644 "extensions/gtklos/demos/text.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/text.stk"
-chmod 0644 "extensions/gtklos/demos/toolbar.stk"; touch -c -t "202110162009.20" "extensions/gtklos/demos/toolbar.stk"
-chmod 0644 "extensions/gtklos/doc/README.md"; touch -c -t "202109291034.58" "extensions/gtklos/doc/README.md"
-chmod 0644 "extensions/gtklos/doc/button.md"; touch -c -t "202109291034.58" "extensions/gtklos/doc/button.md"
-chmod 0644 "extensions/gtklos/doc/canvas.md"; touch -c -t "202109291034.58" "extensions/gtklos/doc/canvas.md"
-chmod 0644 "extensions/gtklos/doc/container.md"; touch -c -t "202109291034.58" "extensions/gtklos/doc/container.md"
-chmod 0644 "extensions/gtklos/doc/dialogs.md"; touch -c -t "202109291034.58" "extensions/gtklos/doc/dialogs.md"
-chmod 0644 "extensions/gtklos/doc/display.md"; touch -c -t "202109291034.58" "extensions/gtklos/doc/display.md"
-chmod 0644 "extensions/gtklos/doc/entry.md"; touch -c -t "202109291034.58" "extensions/gtklos/doc/entry.md"
-chmod 0644 "extensions/gtklos/doc/event.md"; touch -c -t "202109291034.58" "extensions/gtklos/doc/event.md"
-chmod 0644 "extensions/gtklos/doc/images/demos-main.png"; touch -c -t "202109291034.58" "extensions/gtklos/doc/images/demos-main.png"
-chmod 0644 "extensions/gtklos/doc/images/simple-button.png"; touch -c -t "202109291034.58" "extensions/gtklos/doc/images/simple-button.png"
-chmod 0644 "extensions/gtklos/doc/introduction.md"; touch -c -t "202109291034.58" "extensions/gtklos/doc/introduction.md"
-chmod 0755 "extensions/gtklos/run-demos"; touch -c -t "202109291034.58" "extensions/gtklos/run-demos"
-chmod 0644 "extensions/gtklos/src/Makefile.am"; touch -c -t "202109291034.58" "extensions/gtklos/src/Makefile.am"
-chmod 0644 "extensions/gtklos/src/Makefile.in"; touch -c -t "202111241445.27" "extensions/gtklos/src/Makefile.in"
-chmod 0644 "extensions/gtklos/src/canvas/canvas.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/canvas/canvas.stk"
-chmod 0644 "extensions/gtklos/src/canvas/canvellipse.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/canvas/canvellipse.stk"
-chmod 0644 "extensions/gtklos/src/canvas/canvimage.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/canvas/canvimage.stk"
-chmod 0644 "extensions/gtklos/src/canvas/canvitem.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/canvas/canvitem.stk"
-chmod 0644 "extensions/gtklos/src/canvas/canvline.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/canvas/canvline.stk"
-chmod 0644 "extensions/gtklos/src/canvas/canvpath.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/canvas/canvpath.stk"
-chmod 0644 "extensions/gtklos/src/canvas/canvrect.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/canvas/canvrect.stk"
-chmod 0644 "extensions/gtklos/src/canvas/canvtext.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/canvas/canvtext.stk"
-chmod 0644 "extensions/gtklos/src/canvas/goo-absent.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/canvas/goo-absent.stk"
-chmod 0644 "extensions/gtklos/src/canvas/goo-present.stk"; touch -c -t "202110162009.20" "extensions/gtklos/src/canvas/goo-present.stk"
-chmod 0644 "extensions/gtklos/src/classes/container.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/classes/container.stk"
-chmod 0644 "extensions/gtklos/src/classes/meta.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/classes/meta.stk"
-chmod 0644 "extensions/gtklos/src/classes/widget.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/classes/widget.stk"
-chmod 0644 "extensions/gtklos/src/gtklos-config.h.in"; touch -c -t "202109291034.58" "extensions/gtklos/src/gtklos-config.h.in"
-chmod 0644 "extensions/gtklos/src/gtklos.c"; touch -c -t "202109291034.58" "extensions/gtklos/src/gtklos.c"
-chmod 0644 "extensions/gtklos/src/gtklos.stk.in"; touch -c -t "202110162009.20" "extensions/gtklos/src/gtklos.stk.in"
-chmod 0644 "extensions/gtklos/src/lib/events.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/lib/events.stk"
-chmod 0644 "extensions/gtklos/src/lib/libs.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/lib/libs.stk"
-chmod 0644 "extensions/gtklos/src/lib/utils.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/lib/utils.stk"
-chmod 0644 "extensions/gtklos/src/widgets/box.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/box.stk"
-chmod 0644 "extensions/gtklos/src/widgets/button.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/button.stk"
-chmod 0644 "extensions/gtklos/src/widgets/checkbutton.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/checkbutton.stk"
-chmod 0644 "extensions/gtklos/src/widgets/color-dialog.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/color-dialog.stk"
-chmod 0644 "extensions/gtklos/src/widgets/combobox.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/combobox.stk"
-chmod 0644 "extensions/gtklos/src/widgets/dialog.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/dialog.stk"
-chmod 0644 "extensions/gtklos/src/widgets/entry.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/entry.stk"
-chmod 0644 "extensions/gtklos/src/widgets/file-dialog.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/file-dialog.stk"
-chmod 0644 "extensions/gtklos/src/widgets/font-dialog.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/font-dialog.stk"
-chmod 0644 "extensions/gtklos/src/widgets/frame.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/frame.stk"
-chmod 0644 "extensions/gtklos/src/widgets/grid.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/grid.stk"
-chmod 0644 "extensions/gtklos/src/widgets/header.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/header.stk"
-chmod 0644 "extensions/gtklos/src/widgets/image.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/image.stk"
-chmod 0644 "extensions/gtklos/src/widgets/label.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/label.stk"
-chmod 0644 "extensions/gtklos/src/widgets/menu.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/menu.stk"
-chmod 0644 "extensions/gtklos/src/widgets/progress.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/progress.stk"
-chmod 0644 "extensions/gtklos/src/widgets/radiobutton.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/radiobutton.stk"
-chmod 0644 "extensions/gtklos/src/widgets/scale.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/scale.stk"
-chmod 0644 "extensions/gtklos/src/widgets/scroll.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/scroll.stk"
-chmod 0644 "extensions/gtklos/src/widgets/separator.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/separator.stk"
-chmod 0644 "extensions/gtklos/src/widgets/text.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/text.stk"
-chmod 0644 "extensions/gtklos/src/widgets/toolbar.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/toolbar.stk"
-chmod 0644 "extensions/gtklos/src/widgets/window.stk"; touch -c -t "202109291034.58" "extensions/gtklos/src/widgets/window.stk"
-chmod 0644 "extensions/stklos-fuse/Makefile.am"; touch -c -t "202109291034.58" "extensions/stklos-fuse/Makefile.am"
-chmod 0644 "extensions/stklos-fuse/Makefile.in"; touch -c -t "202111241445.27" "extensions/stklos-fuse/Makefile.in"
-chmod 0644 "extensions/stklos-fuse/demos/Makefile.am"; touch -c -t "202109291034.58" "extensions/stklos-fuse/demos/Makefile.am"
-chmod 0644 "extensions/stklos-fuse/demos/Makefile.in"; touch -c -t "202111241445.27" "extensions/stklos-fuse/demos/Makefile.in"
-chmod 0644 "extensions/stklos-fuse/demos/README.md"; touch -c -t "202109291034.58" "extensions/stklos-fuse/demos/README.md"
-chmod 0644 "extensions/stklos-fuse/demos/hashfs.stk"; touch -c -t "202109291034.58" "extensions/stklos-fuse/demos/hashfs.stk"
-chmod 0644 "extensions/stklos-fuse/demos/hellofs.stk"; touch -c -t "202109291034.58" "extensions/stklos-fuse/demos/hellofs.stk"
-chmod 0644 "extensions/stklos-fuse/src/Makefile.am"; touch -c -t "202109291034.58" "extensions/stklos-fuse/src/Makefile.am"
-chmod 0644 "extensions/stklos-fuse/src/Makefile.in"; touch -c -t "202111241445.27" "extensions/stklos-fuse/src/Makefile.in"
-chmod 0644 "extensions/stklos-fuse/src/stklos-fuse.c"; touch -c -t "202109291034.58" "extensions/stklos-fuse/src/stklos-fuse.c"
-chmod 0644 "extensions/stklos-fuse/src/stklos-fuse.stk"; touch -c -t "202109291034.58" "extensions/stklos-fuse/src/stklos-fuse.stk"
-chmod 0644 "ffi/ChangeLog"; touch -c -t "202106290310.59" "ffi/ChangeLog"
-chmod 0644 "ffi/ChangeLog.old"; touch -c -t "202106271717.08" "ffi/ChangeLog.old"
-chmod 0644 "ffi/LICENSE"; touch -c -t "202106290147.45" "ffi/LICENSE"
-chmod 0644 "ffi/LICENSE-BUILDTOOLS"; touch -c -t "202106271717.08" "ffi/LICENSE-BUILDTOOLS"
-chmod 0644 "ffi/Makefile.am"; touch -c -t "202106271717.08" "ffi/Makefile.am"
-chmod 0644 "ffi/Makefile.in"; touch -c -t "202106290309.56" "ffi/Makefile.in"
-chmod 0644 "ffi/README.md"; touch -c -t "202106290310.59" "ffi/README.md"
-chmod 0644 "ffi/acinclude.m4"; touch -c -t "202106271717.08" "ffi/acinclude.m4"
-chmod 0644 "ffi/aclocal.m4"; touch -c -t "202106290309.51" "ffi/aclocal.m4"
-chmod 0755 "ffi/compile"; touch -c -t "202106271717.24" "ffi/compile"
-chmod 0644 "ffi/config.guess"; touch -c -t "202106271717.08" "ffi/config.guess"
-chmod 0644 "ffi/config.sub"; touch -c -t "202106271717.08" "ffi/config.sub"
-chmod 0755 "ffi/configure"; touch -c -t "202106290309.55" "ffi/configure"
-chmod 0644 "ffi/configure.ac"; touch -c -t "202106290309.36" "ffi/configure.ac"
-chmod 0644 "ffi/configure.host"; touch -c -t "202106271717.08" "ffi/configure.host"
-chmod 0755 "ffi/depcomp"; touch -c -t "202106271717.24" "ffi/depcomp"
-chmod 0644 "ffi/doc/Makefile.am"; touch -c -t "202106271717.08" "ffi/doc/Makefile.am"
-chmod 0644 "ffi/doc/Makefile.in"; touch -c -t "202106290309.56" "ffi/doc/Makefile.in"
-chmod 0644 "ffi/doc/libffi.info"; touch -c -t "202106290310.26" "ffi/doc/libffi.info"
-chmod 0644 "ffi/doc/libffi.pdf"; touch -c -t "202106290310.59" "ffi/doc/libffi.pdf"
-chmod 0644 "ffi/doc/libffi.texi"; touch -c -t "202106271724.17" "ffi/doc/libffi.texi"
-chmod 0755 "ffi/doc/mdate-sh"; touch -c -t "202106271717.24" "ffi/doc/mdate-sh"
-chmod 0644 "ffi/doc/stamp-vti"; touch -c -t "202106290310.26" "ffi/doc/stamp-vti"
-chmod 0644 "ffi/doc/texinfo.tex"; touch -c -t "202106271717.24" "ffi/doc/texinfo.tex"
-chmod 0644 "ffi/doc/version.texi"; touch -c -t "202106290310.26" "ffi/doc/version.texi"
-chmod 0644 "ffi/fficonfig.h.in"; touch -c -t "202106271717.24" "ffi/fficonfig.h.in"
-chmod 0755 "ffi/generate-darwin-source-and-headers.py"; touch -c -t "202106271717.08" "ffi/generate-darwin-source-and-headers.py"
-chmod 0644 "ffi/include/Makefile.am"; touch -c -t "202106271717.08" "ffi/include/Makefile.am"
-chmod 0644 "ffi/include/Makefile.in"; touch -c -t "202106290309.56" "ffi/include/Makefile.in"
-chmod 0644 "ffi/include/ffi.h.in"; touch -c -t "202106271717.08" "ffi/include/ffi.h.in"
-chmod 0644 "ffi/include/ffi_cfi.h"; touch -c -t "202106271717.08" "ffi/include/ffi_cfi.h"
-chmod 0644 "ffi/include/ffi_common.h"; touch -c -t "202106281411.34" "ffi/include/ffi_common.h"
-chmod 0644 "ffi/include/tramp.h"; touch -c -t "202106271717.08" "ffi/include/tramp.h"
-chmod 0755 "ffi/install-sh"; touch -c -t "202106271717.24" "ffi/install-sh"
-chmod 0644 "ffi/libffi.map.in"; touch -c -t "202106271717.08" "ffi/libffi.map.in"
-chmod 0644 "ffi/libffi.pc.in"; touch -c -t "202106271717.08" "ffi/libffi.pc.in"
-chmod 0644 "ffi/libffi.xcodeproj/project.pbxproj"; touch -c -t "202106271717.08" "ffi/libffi.xcodeproj/project.pbxproj"
-chmod 0755 "ffi/libtool-ldflags"; touch -c -t "202106271717.08" "ffi/libtool-ldflags"
-chmod 0644 "ffi/libtool-version"; touch -c -t "202106271717.08" "ffi/libtool-version"
-chmod 0644 "ffi/ltmain.sh"; touch -c -t "202106271717.20" "ffi/ltmain.sh"
-chmod 0644 "ffi/m4/asmcfi.m4"; touch -c -t "202106271717.08" "ffi/m4/asmcfi.m4"
-chmod 0644 "ffi/m4/ax_append_flag.m4"; touch -c -t "202106271717.08" "ffi/m4/ax_append_flag.m4"
-chmod 0644 "ffi/m4/ax_cc_maxopt.m4"; touch -c -t "202106271717.08" "ffi/m4/ax_cc_maxopt.m4"
-chmod 0644 "ffi/m4/ax_cflags_warn_all.m4"; touch -c -t "202106271717.08" "ffi/m4/ax_cflags_warn_all.m4"
-chmod 0644 "ffi/m4/ax_check_compile_flag.m4"; touch -c -t "202106271717.08" "ffi/m4/ax_check_compile_flag.m4"
-chmod 0644 "ffi/m4/ax_compiler_vendor.m4"; touch -c -t "202106271717.08" "ffi/m4/ax_compiler_vendor.m4"
-chmod 0644 "ffi/m4/ax_configure_args.m4"; touch -c -t "202106271717.08" "ffi/m4/ax_configure_args.m4"
-chmod 0644 "ffi/m4/ax_enable_builddir.m4"; touch -c -t "202106271717.08" "ffi/m4/ax_enable_builddir.m4"
-chmod 0644 "ffi/m4/ax_gcc_archflag.m4"; touch -c -t "202106271717.08" "ffi/m4/ax_gcc_archflag.m4"
-chmod 0644 "ffi/m4/ax_gcc_x86_cpuid.m4"; touch -c -t "202106271717.08" "ffi/m4/ax_gcc_x86_cpuid.m4"
-chmod 0644 "ffi/m4/ax_require_defined.m4"; touch -c -t "202106271717.08" "ffi/m4/ax_require_defined.m4"
-chmod 0644 "ffi/m4/libtool.m4"; touch -c -t "202106271717.20" "ffi/m4/libtool.m4"
-chmod 0644 "ffi/m4/ltoptions.m4"; touch -c -t "202106271717.20" "ffi/m4/ltoptions.m4"
-chmod 0644 "ffi/m4/ltsugar.m4"; touch -c -t "202106271717.20" "ffi/m4/ltsugar.m4"
-chmod 0644 "ffi/m4/ltversion.m4"; touch -c -t "202106271717.20" "ffi/m4/ltversion.m4"
-chmod 0644 "ffi/m4/lt~obsolete.m4"; touch -c -t "202106271717.21" "ffi/m4/lt~obsolete.m4"
-chmod 0644 "ffi/make_sunver.pl"; touch -c -t "202106271717.08" "ffi/make_sunver.pl"
-chmod 0644 "ffi/man/Makefile.am"; touch -c -t "202106271717.08" "ffi/man/Makefile.am"
-chmod 0644 "ffi/man/Makefile.in"; touch -c -t "202106290309.56" "ffi/man/Makefile.in"
-chmod 0644 "ffi/man/ffi.3"; touch -c -t "202106271717.08" "ffi/man/ffi.3"
-chmod 0644 "ffi/man/ffi_call.3"; touch -c -t "202106271717.08" "ffi/man/ffi_call.3"
-chmod 0644 "ffi/man/ffi_prep_cif.3"; touch -c -t "202106271717.08" "ffi/man/ffi_prep_cif.3"
-chmod 0644 "ffi/man/ffi_prep_cif_var.3"; touch -c -t "202106271717.08" "ffi/man/ffi_prep_cif_var.3"
-chmod 0755 "ffi/missing"; touch -c -t "202106271717.24" "ffi/missing"
-chmod 0644 "ffi/msvc_build/aarch64/Ffi_staticLib.sln"; touch -c -t "202106271717.08" "ffi/msvc_build/aarch64/Ffi_staticLib.sln"
-chmod 0644 "ffi/msvc_build/aarch64/Ffi_staticLib.vcxproj"; touch -c -t "202106271717.08" "ffi/msvc_build/aarch64/Ffi_staticLib.vcxproj"
-chmod 0644 "ffi/msvc_build/aarch64/Ffi_staticLib.vcxproj.filters"; touch -c -t "202106271717.08" "ffi/msvc_build/aarch64/Ffi_staticLib.vcxproj.filters"
-chmod 0644 "ffi/msvc_build/aarch64/Ffi_staticLib.vcxproj.user"; touch -c -t "202106271717.08" "ffi/msvc_build/aarch64/Ffi_staticLib.vcxproj.user"
-chmod 0644 "ffi/msvc_build/aarch64/aarch64_include/ffi.h"; touch -c -t "202106271717.08" "ffi/msvc_build/aarch64/aarch64_include/ffi.h"
-chmod 0644 "ffi/msvc_build/aarch64/aarch64_include/fficonfig.h"; touch -c -t "202106271717.08" "ffi/msvc_build/aarch64/aarch64_include/fficonfig.h"
-chmod 0755 "ffi/msvcc.sh"; touch -c -t "202106271717.08" "ffi/msvcc.sh"
-chmod 0644 "ffi/src/aarch64/ffi.c"; touch -c -t "202106271717.08" "ffi/src/aarch64/ffi.c"
-chmod 0644 "ffi/src/aarch64/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/aarch64/ffitarget.h"
-chmod 0644 "ffi/src/aarch64/internal.h"; touch -c -t "202106271717.08" "ffi/src/aarch64/internal.h"
-chmod 0644 "ffi/src/aarch64/sysv.S"; touch -c -t "202106271717.08" "ffi/src/aarch64/sysv.S"
-chmod 0644 "ffi/src/aarch64/win64_armasm.S"; touch -c -t "202106271717.08" "ffi/src/aarch64/win64_armasm.S"
-chmod 0644 "ffi/src/alpha/ffi.c"; touch -c -t "202106271717.08" "ffi/src/alpha/ffi.c"
-chmod 0644 "ffi/src/alpha/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/alpha/ffitarget.h"
-chmod 0644 "ffi/src/alpha/internal.h"; touch -c -t "202106271717.08" "ffi/src/alpha/internal.h"
-chmod 0644 "ffi/src/alpha/osf.S"; touch -c -t "202106271717.08" "ffi/src/alpha/osf.S"
-chmod 0644 "ffi/src/arc/arcompact.S"; touch -c -t "202106271717.08" "ffi/src/arc/arcompact.S"
-chmod 0644 "ffi/src/arc/ffi.c"; touch -c -t "202106271717.08" "ffi/src/arc/ffi.c"
-chmod 0644 "ffi/src/arc/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/arc/ffitarget.h"
-chmod 0644 "ffi/src/arm/ffi.c"; touch -c -t "202106271717.08" "ffi/src/arm/ffi.c"
-chmod 0644 "ffi/src/arm/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/arm/ffitarget.h"
-chmod 0644 "ffi/src/arm/internal.h"; touch -c -t "202106271717.08" "ffi/src/arm/internal.h"
-chmod 0644 "ffi/src/arm/sysv.S"; touch -c -t "202106271717.08" "ffi/src/arm/sysv.S"
-chmod 0644 "ffi/src/arm/sysv_msvc_arm32.S"; touch -c -t "202106271717.08" "ffi/src/arm/sysv_msvc_arm32.S"
-chmod 0644 "ffi/src/avr32/ffi.c"; touch -c -t "202106271717.08" "ffi/src/avr32/ffi.c"
-chmod 0644 "ffi/src/avr32/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/avr32/ffitarget.h"
-chmod 0644 "ffi/src/avr32/sysv.S"; touch -c -t "202106271717.08" "ffi/src/avr32/sysv.S"
-chmod 0644 "ffi/src/bfin/ffi.c"; touch -c -t "202106271717.08" "ffi/src/bfin/ffi.c"
-chmod 0644 "ffi/src/bfin/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/bfin/ffitarget.h"
-chmod 0644 "ffi/src/bfin/sysv.S"; touch -c -t "202106271717.08" "ffi/src/bfin/sysv.S"
-chmod 0644 "ffi/src/closures.c"; touch -c -t "202106272003.12" "ffi/src/closures.c"
-chmod 0644 "ffi/src/cris/ffi.c"; touch -c -t "202106271717.08" "ffi/src/cris/ffi.c"
-chmod 0644 "ffi/src/cris/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/cris/ffitarget.h"
-chmod 0644 "ffi/src/cris/sysv.S"; touch -c -t "202106271717.08" "ffi/src/cris/sysv.S"
-chmod 0644 "ffi/src/csky/ffi.c"; touch -c -t "202106271717.08" "ffi/src/csky/ffi.c"
-chmod 0644 "ffi/src/csky/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/csky/ffitarget.h"
-chmod 0644 "ffi/src/csky/sysv.S"; touch -c -t "202106271717.08" "ffi/src/csky/sysv.S"
-chmod 0644 "ffi/src/debug.c"; touch -c -t "202106271717.08" "ffi/src/debug.c"
-chmod 0644 "ffi/src/dlmalloc.c"; touch -c -t "202106271717.08" "ffi/src/dlmalloc.c"
-chmod 0644 "ffi/src/frv/eabi.S"; touch -c -t "202106271717.08" "ffi/src/frv/eabi.S"
-chmod 0644 "ffi/src/frv/ffi.c"; touch -c -t "202106271717.08" "ffi/src/frv/ffi.c"
-chmod 0644 "ffi/src/frv/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/frv/ffitarget.h"
-chmod 0644 "ffi/src/ia64/ffi.c"; touch -c -t "202106271717.08" "ffi/src/ia64/ffi.c"
-chmod 0644 "ffi/src/ia64/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/ia64/ffitarget.h"
-chmod 0644 "ffi/src/ia64/ia64_flags.h"; touch -c -t "202106271717.08" "ffi/src/ia64/ia64_flags.h"
-chmod 0644 "ffi/src/ia64/unix.S"; touch -c -t "202106271717.08" "ffi/src/ia64/unix.S"
-chmod 0644 "ffi/src/java_raw_api.c"; touch -c -t "202106271717.08" "ffi/src/java_raw_api.c"
-chmod 0644 "ffi/src/kvx/ffi.c"; touch -c -t "202106271717.08" "ffi/src/kvx/ffi.c"
-chmod 0644 "ffi/src/kvx/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/kvx/ffitarget.h"
-chmod 0644 "ffi/src/kvx/sysv.S"; touch -c -t "202106271717.08" "ffi/src/kvx/sysv.S"
-chmod 0644 "ffi/src/m32r/ffi.c"; touch -c -t "202106271717.08" "ffi/src/m32r/ffi.c"
-chmod 0644 "ffi/src/m32r/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/m32r/ffitarget.h"
-chmod 0644 "ffi/src/m32r/sysv.S"; touch -c -t "202106271717.08" "ffi/src/m32r/sysv.S"
-chmod 0644 "ffi/src/m68k/ffi.c"; touch -c -t "202106271717.08" "ffi/src/m68k/ffi.c"
-chmod 0644 "ffi/src/m68k/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/m68k/ffitarget.h"
-chmod 0644 "ffi/src/m68k/sysv.S"; touch -c -t "202106271717.08" "ffi/src/m68k/sysv.S"
-chmod 0644 "ffi/src/m88k/ffi.c"; touch -c -t "202106271717.08" "ffi/src/m88k/ffi.c"
-chmod 0644 "ffi/src/m88k/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/m88k/ffitarget.h"
-chmod 0644 "ffi/src/m88k/obsd.S"; touch -c -t "202106271717.08" "ffi/src/m88k/obsd.S"
-chmod 0644 "ffi/src/metag/ffi.c"; touch -c -t "202106271717.08" "ffi/src/metag/ffi.c"
-chmod 0644 "ffi/src/metag/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/metag/ffitarget.h"
-chmod 0644 "ffi/src/metag/sysv.S"; touch -c -t "202106271717.08" "ffi/src/metag/sysv.S"
-chmod 0644 "ffi/src/microblaze/ffi.c"; touch -c -t "202106271717.08" "ffi/src/microblaze/ffi.c"
-chmod 0644 "ffi/src/microblaze/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/microblaze/ffitarget.h"
-chmod 0644 "ffi/src/microblaze/sysv.S"; touch -c -t "202106271717.08" "ffi/src/microblaze/sysv.S"
-chmod 0644 "ffi/src/mips/ffi.c"; touch -c -t "202106271717.08" "ffi/src/mips/ffi.c"
-chmod 0644 "ffi/src/mips/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/mips/ffitarget.h"
-chmod 0644 "ffi/src/mips/n32.S"; touch -c -t "202106271717.08" "ffi/src/mips/n32.S"
-chmod 0644 "ffi/src/mips/o32.S"; touch -c -t "202106271717.08" "ffi/src/mips/o32.S"
-chmod 0644 "ffi/src/moxie/eabi.S"; touch -c -t "202106271717.08" "ffi/src/moxie/eabi.S"
-chmod 0644 "ffi/src/moxie/ffi.c"; touch -c -t "202106271717.08" "ffi/src/moxie/ffi.c"
-chmod 0644 "ffi/src/moxie/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/moxie/ffitarget.h"
-chmod 0644 "ffi/src/nios2/ffi.c"; touch -c -t "202106271717.08" "ffi/src/nios2/ffi.c"
-chmod 0644 "ffi/src/nios2/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/nios2/ffitarget.h"
-chmod 0644 "ffi/src/nios2/sysv.S"; touch -c -t "202106271717.08" "ffi/src/nios2/sysv.S"
-chmod 0644 "ffi/src/or1k/ffi.c"; touch -c -t "202106271717.08" "ffi/src/or1k/ffi.c"
-chmod 0644 "ffi/src/or1k/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/or1k/ffitarget.h"
-chmod 0644 "ffi/src/or1k/sysv.S"; touch -c -t "202106271717.08" "ffi/src/or1k/sysv.S"
-chmod 0644 "ffi/src/pa/ffi.c"; touch -c -t "202106271717.08" "ffi/src/pa/ffi.c"
-chmod 0644 "ffi/src/pa/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/pa/ffitarget.h"
-chmod 0644 "ffi/src/pa/hpux32.S"; touch -c -t "202106271717.08" "ffi/src/pa/hpux32.S"
-chmod 0644 "ffi/src/pa/linux.S"; touch -c -t "202106271717.08" "ffi/src/pa/linux.S"
-chmod 0644 "ffi/src/powerpc/aix.S"; touch -c -t "202106271717.08" "ffi/src/powerpc/aix.S"
-chmod 0644 "ffi/src/powerpc/aix_closure.S"; touch -c -t "202106271717.08" "ffi/src/powerpc/aix_closure.S"
-chmod 0644 "ffi/src/powerpc/asm.h"; touch -c -t "202106271717.08" "ffi/src/powerpc/asm.h"
-chmod 0644 "ffi/src/powerpc/darwin.S"; touch -c -t "202106271717.08" "ffi/src/powerpc/darwin.S"
-chmod 0644 "ffi/src/powerpc/darwin_closure.S"; touch -c -t "202106271717.08" "ffi/src/powerpc/darwin_closure.S"
-chmod 0644 "ffi/src/powerpc/ffi.c"; touch -c -t "202106271717.08" "ffi/src/powerpc/ffi.c"
-chmod 0644 "ffi/src/powerpc/ffi_darwin.c"; touch -c -t "202106271717.08" "ffi/src/powerpc/ffi_darwin.c"
-chmod 0644 "ffi/src/powerpc/ffi_linux64.c"; touch -c -t "202106271717.08" "ffi/src/powerpc/ffi_linux64.c"
-chmod 0644 "ffi/src/powerpc/ffi_powerpc.h"; touch -c -t "202106271717.08" "ffi/src/powerpc/ffi_powerpc.h"
-chmod 0644 "ffi/src/powerpc/ffi_sysv.c"; touch -c -t "202106271717.08" "ffi/src/powerpc/ffi_sysv.c"
-chmod 0644 "ffi/src/powerpc/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/powerpc/ffitarget.h"
-chmod 0644 "ffi/src/powerpc/linux64.S"; touch -c -t "202106271717.08" "ffi/src/powerpc/linux64.S"
-chmod 0644 "ffi/src/powerpc/linux64_closure.S"; touch -c -t "202106271717.08" "ffi/src/powerpc/linux64_closure.S"
-chmod 0644 "ffi/src/powerpc/ppc_closure.S"; touch -c -t "202106271717.08" "ffi/src/powerpc/ppc_closure.S"
-chmod 0644 "ffi/src/powerpc/sysv.S"; touch -c -t "202106271717.08" "ffi/src/powerpc/sysv.S"
-chmod 0644 "ffi/src/prep_cif.c"; touch -c -t "202106271717.08" "ffi/src/prep_cif.c"
-chmod 0644 "ffi/src/raw_api.c"; touch -c -t "202106271717.08" "ffi/src/raw_api.c"
-chmod 0644 "ffi/src/riscv/ffi.c"; touch -c -t "202106271717.08" "ffi/src/riscv/ffi.c"
-chmod 0644 "ffi/src/riscv/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/riscv/ffitarget.h"
-chmod 0644 "ffi/src/riscv/sysv.S"; touch -c -t "202106271717.08" "ffi/src/riscv/sysv.S"
-chmod 0644 "ffi/src/s390/ffi.c"; touch -c -t "202106271717.08" "ffi/src/s390/ffi.c"
-chmod 0644 "ffi/src/s390/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/s390/ffitarget.h"
-chmod 0644 "ffi/src/s390/internal.h"; touch -c -t "202106271717.08" "ffi/src/s390/internal.h"
-chmod 0644 "ffi/src/s390/sysv.S"; touch -c -t "202106271717.08" "ffi/src/s390/sysv.S"
-chmod 0644 "ffi/src/sh/ffi.c"; touch -c -t "202106271717.08" "ffi/src/sh/ffi.c"
-chmod 0644 "ffi/src/sh/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/sh/ffitarget.h"
-chmod 0644 "ffi/src/sh/sysv.S"; touch -c -t "202106271717.08" "ffi/src/sh/sysv.S"
-chmod 0644 "ffi/src/sh64/ffi.c"; touch -c -t "202106271717.08" "ffi/src/sh64/ffi.c"
-chmod 0644 "ffi/src/sh64/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/sh64/ffitarget.h"
-chmod 0644 "ffi/src/sh64/sysv.S"; touch -c -t "202106271717.08" "ffi/src/sh64/sysv.S"
-chmod 0644 "ffi/src/sparc/ffi.c"; touch -c -t "202106271717.08" "ffi/src/sparc/ffi.c"
-chmod 0644 "ffi/src/sparc/ffi64.c"; touch -c -t "202106271717.08" "ffi/src/sparc/ffi64.c"
-chmod 0644 "ffi/src/sparc/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/sparc/ffitarget.h"
-chmod 0644 "ffi/src/sparc/internal.h"; touch -c -t "202106271717.08" "ffi/src/sparc/internal.h"
-chmod 0644 "ffi/src/sparc/v8.S"; touch -c -t "202106271717.08" "ffi/src/sparc/v8.S"
-chmod 0644 "ffi/src/sparc/v9.S"; touch -c -t "202106271717.08" "ffi/src/sparc/v9.S"
-chmod 0644 "ffi/src/tile/ffi.c"; touch -c -t "202106271717.08" "ffi/src/tile/ffi.c"
-chmod 0644 "ffi/src/tile/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/tile/ffitarget.h"
-chmod 0644 "ffi/src/tile/tile.S"; touch -c -t "202106271717.08" "ffi/src/tile/tile.S"
-chmod 0644 "ffi/src/tramp.c"; touch -c -t "202106271717.08" "ffi/src/tramp.c"
-chmod 0644 "ffi/src/types.c"; touch -c -t "202106271717.08" "ffi/src/types.c"
-chmod 0644 "ffi/src/vax/elfbsd.S"; touch -c -t "202106271717.08" "ffi/src/vax/elfbsd.S"
-chmod 0644 "ffi/src/vax/ffi.c"; touch -c -t "202106271717.08" "ffi/src/vax/ffi.c"
-chmod 0644 "ffi/src/vax/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/vax/ffitarget.h"
-chmod 0644 "ffi/src/x86/asmnames.h"; touch -c -t "202106271717.08" "ffi/src/x86/asmnames.h"
-chmod 0644 "ffi/src/x86/ffi.c"; touch -c -t "202106271717.08" "ffi/src/x86/ffi.c"
-chmod 0644 "ffi/src/x86/ffi64.c"; touch -c -t "202106271717.08" "ffi/src/x86/ffi64.c"
-chmod 0644 "ffi/src/x86/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/x86/ffitarget.h"
-chmod 0644 "ffi/src/x86/ffiw64.c"; touch -c -t "202106271717.08" "ffi/src/x86/ffiw64.c"
-chmod 0644 "ffi/src/x86/internal.h"; touch -c -t "202106271717.08" "ffi/src/x86/internal.h"
-chmod 0644 "ffi/src/x86/internal64.h"; touch -c -t "202106271717.08" "ffi/src/x86/internal64.h"
-chmod 0644 "ffi/src/x86/sysv.S"; touch -c -t "202106271717.08" "ffi/src/x86/sysv.S"
-chmod 0644 "ffi/src/x86/sysv_intel.S"; touch -c -t "202106271717.08" "ffi/src/x86/sysv_intel.S"
-chmod 0644 "ffi/src/x86/unix64.S"; touch -c -t "202106271717.08" "ffi/src/x86/unix64.S"
-chmod 0644 "ffi/src/x86/win64.S"; touch -c -t "202106271717.08" "ffi/src/x86/win64.S"
-chmod 0644 "ffi/src/x86/win64_intel.S"; touch -c -t "202106271717.08" "ffi/src/x86/win64_intel.S"
-chmod 0644 "ffi/src/xtensa/ffi.c"; touch -c -t "202106271717.08" "ffi/src/xtensa/ffi.c"
-chmod 0644 "ffi/src/xtensa/ffitarget.h"; touch -c -t "202106271717.08" "ffi/src/xtensa/ffitarget.h"
-chmod 0644 "ffi/src/xtensa/sysv.S"; touch -c -t "202106271717.08" "ffi/src/xtensa/sysv.S"
-chmod 0644 "ffi/testsuite/Makefile.am"; touch -c -t "202106282058.00" "ffi/testsuite/Makefile.am"
-chmod 0644 "ffi/testsuite/Makefile.in"; touch -c -t "202106290309.56" "ffi/testsuite/Makefile.in"
-chmod 0644 "ffi/testsuite/config/default.exp"; touch -c -t "202106271717.08" "ffi/testsuite/config/default.exp"
-chmod 0644 "ffi/testsuite/lib/libffi.exp"; touch -c -t "202106271717.08" "ffi/testsuite/lib/libffi.exp"
-chmod 0644 "ffi/testsuite/lib/target-libpath.exp"; touch -c -t "202106271717.08" "ffi/testsuite/lib/target-libpath.exp"
-chmod 0644 "ffi/testsuite/lib/wrapper.exp"; touch -c -t "202106271717.08" "ffi/testsuite/lib/wrapper.exp"
-chmod 0644 "ffi/testsuite/libffi.bhaible/README"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.bhaible/README"
-chmod 0644 "ffi/testsuite/libffi.bhaible/alignof.h"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.bhaible/alignof.h"
-chmod 0644 "ffi/testsuite/libffi.bhaible/bhaible.exp"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.bhaible/bhaible.exp"
-chmod 0644 "ffi/testsuite/libffi.bhaible/test-call.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.bhaible/test-call.c"
-chmod 0644 "ffi/testsuite/libffi.bhaible/test-callback.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.bhaible/test-callback.c"
-chmod 0644 "ffi/testsuite/libffi.bhaible/testcases.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.bhaible/testcases.c"
-chmod 0644 "ffi/testsuite/libffi.call/align_mixed.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/align_mixed.c"
-chmod 0644 "ffi/testsuite/libffi.call/align_stdcall.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/align_stdcall.c"
-chmod 0644 "ffi/testsuite/libffi.call/call.exp"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/call.exp"
-chmod 0644 "ffi/testsuite/libffi.call/err_bad_typedef.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/err_bad_typedef.c"
-chmod 0644 "ffi/testsuite/libffi.call/ffitest.h"; touch -c -t "202106272003.14" "ffi/testsuite/libffi.call/ffitest.h"
-chmod 0644 "ffi/testsuite/libffi.call/float.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/float.c"
-chmod 0644 "ffi/testsuite/libffi.call/float1.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/float1.c"
-chmod 0644 "ffi/testsuite/libffi.call/float2.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/float2.c"
-chmod 0644 "ffi/testsuite/libffi.call/float3.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/float3.c"
-chmod 0644 "ffi/testsuite/libffi.call/float4.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/float4.c"
-chmod 0644 "ffi/testsuite/libffi.call/float_va.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/float_va.c"
-chmod 0644 "ffi/testsuite/libffi.call/many.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/many.c"
-chmod 0644 "ffi/testsuite/libffi.call/many2.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/many2.c"
-chmod 0644 "ffi/testsuite/libffi.call/many_double.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/many_double.c"
-chmod 0644 "ffi/testsuite/libffi.call/many_mixed.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/many_mixed.c"
-chmod 0644 "ffi/testsuite/libffi.call/negint.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/negint.c"
-chmod 0644 "ffi/testsuite/libffi.call/offsets.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/offsets.c"
-chmod 0644 "ffi/testsuite/libffi.call/pr1172638.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/pr1172638.c"
-chmod 0644 "ffi/testsuite/libffi.call/promotion.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/promotion.c"
-chmod 0644 "ffi/testsuite/libffi.call/pyobjc-tc.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/pyobjc-tc.c"
-chmod 0644 "ffi/testsuite/libffi.call/return_dbl.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/return_dbl.c"
-chmod 0644 "ffi/testsuite/libffi.call/return_dbl1.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/return_dbl1.c"
-chmod 0644 "ffi/testsuite/libffi.call/return_dbl2.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/return_dbl2.c"
-chmod 0644 "ffi/testsuite/libffi.call/return_fl.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/return_fl.c"
-chmod 0644 "ffi/testsuite/libffi.call/return_fl1.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/return_fl1.c"
-chmod 0644 "ffi/testsuite/libffi.call/return_fl2.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/return_fl2.c"
-chmod 0644 "ffi/testsuite/libffi.call/return_fl3.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/return_fl3.c"
-chmod 0644 "ffi/testsuite/libffi.call/return_ldl.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/return_ldl.c"
-chmod 0644 "ffi/testsuite/libffi.call/return_ll.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/return_ll.c"
-chmod 0644 "ffi/testsuite/libffi.call/return_ll1.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/return_ll1.c"
-chmod 0644 "ffi/testsuite/libffi.call/return_sc.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/return_sc.c"
-chmod 0644 "ffi/testsuite/libffi.call/return_sl.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/return_sl.c"
-chmod 0644 "ffi/testsuite/libffi.call/return_uc.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/return_uc.c"
-chmod 0644 "ffi/testsuite/libffi.call/return_ul.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/return_ul.c"
-chmod 0644 "ffi/testsuite/libffi.call/strlen.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/strlen.c"
-chmod 0644 "ffi/testsuite/libffi.call/strlen2.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/strlen2.c"
-chmod 0644 "ffi/testsuite/libffi.call/strlen3.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/strlen3.c"
-chmod 0644 "ffi/testsuite/libffi.call/strlen4.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/strlen4.c"
-chmod 0644 "ffi/testsuite/libffi.call/struct1.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/struct1.c"
-chmod 0644 "ffi/testsuite/libffi.call/struct10.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/struct10.c"
-chmod 0644 "ffi/testsuite/libffi.call/struct2.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/struct2.c"
-chmod 0644 "ffi/testsuite/libffi.call/struct3.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/struct3.c"
-chmod 0644 "ffi/testsuite/libffi.call/struct4.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/struct4.c"
-chmod 0644 "ffi/testsuite/libffi.call/struct5.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/struct5.c"
-chmod 0644 "ffi/testsuite/libffi.call/struct6.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/struct6.c"
-chmod 0644 "ffi/testsuite/libffi.call/struct7.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/struct7.c"
-chmod 0644 "ffi/testsuite/libffi.call/struct8.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/struct8.c"
-chmod 0644 "ffi/testsuite/libffi.call/struct9.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/struct9.c"
-chmod 0644 "ffi/testsuite/libffi.call/uninitialized.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/uninitialized.c"
-chmod 0644 "ffi/testsuite/libffi.call/va_1.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/va_1.c"
-chmod 0644 "ffi/testsuite/libffi.call/va_2.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/va_2.c"
-chmod 0644 "ffi/testsuite/libffi.call/va_struct1.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/va_struct1.c"
-chmod 0644 "ffi/testsuite/libffi.call/va_struct2.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/va_struct2.c"
-chmod 0644 "ffi/testsuite/libffi.call/va_struct3.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.call/va_struct3.c"
-chmod 0644 "ffi/testsuite/libffi.closures/closure.exp"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/closure.exp"
-chmod 0644 "ffi/testsuite/libffi.closures/closure_fn0.c"; touch -c -t "202106272003.12" "ffi/testsuite/libffi.closures/closure_fn0.c"
-chmod 0644 "ffi/testsuite/libffi.closures/closure_fn1.c"; touch -c -t "202106272003.12" "ffi/testsuite/libffi.closures/closure_fn1.c"
-chmod 0644 "ffi/testsuite/libffi.closures/closure_fn2.c"; touch -c -t "202106272003.12" "ffi/testsuite/libffi.closures/closure_fn2.c"
-chmod 0644 "ffi/testsuite/libffi.closures/closure_fn3.c"; touch -c -t "202106272003.12" "ffi/testsuite/libffi.closures/closure_fn3.c"
-chmod 0644 "ffi/testsuite/libffi.closures/closure_fn4.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/closure_fn4.c"
-chmod 0644 "ffi/testsuite/libffi.closures/closure_fn5.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/closure_fn5.c"
-chmod 0644 "ffi/testsuite/libffi.closures/closure_fn6.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/closure_fn6.c"
-chmod 0644 "ffi/testsuite/libffi.closures/closure_loc_fn0.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/closure_loc_fn0.c"
-chmod 0644 "ffi/testsuite/libffi.closures/closure_simple.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/closure_simple.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_12byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_12byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_16byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_16byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_18byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_18byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_19byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_19byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_1_1byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_1_1byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_20byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_20byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_20byte1.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_20byte1.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_24byte.c"; touch -c -t "202106282051.58" "ffi/testsuite/libffi.closures/cls_24byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_2byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_2byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_3_1byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_3_1byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_3byte1.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_3byte1.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_3byte2.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_3byte2.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_3float.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_3float.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_4_1byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_4_1byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_4byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_4byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_5_1_byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_5_1_byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_5byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_5byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_64byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_64byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_6_1_byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_6_1_byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_6byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_6byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_7_1_byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_7_1_byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_7byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_7byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_8byte.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_8byte.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_9byte1.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_9byte1.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_9byte2.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_9byte2.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_align_double.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_align_double.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_align_float.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_align_float.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_align_longdouble.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_align_longdouble.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_align_longdouble_split.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_align_longdouble_split.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_align_longdouble_split2.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_align_longdouble_split2.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_align_pointer.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_align_pointer.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_align_sint16.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_align_sint16.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_align_sint32.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_align_sint32.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_align_sint64.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_align_sint64.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_align_uint16.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_align_uint16.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_align_uint32.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_align_uint32.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_align_uint64.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_align_uint64.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_dbls_struct.c"; touch -c -t "202106272003.14" "ffi/testsuite/libffi.closures/cls_dbls_struct.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_double.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_double.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_double_va.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_double_va.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_float.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_float.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_longdouble.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_longdouble.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_longdouble_va.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_longdouble_va.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_many_mixed_args.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_many_mixed_args.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_many_mixed_float_double.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_many_mixed_float_double.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_multi_schar.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_multi_schar.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_multi_sshort.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_multi_sshort.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_multi_sshortchar.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_multi_sshortchar.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_multi_uchar.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_multi_uchar.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_multi_ushort.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_multi_ushort.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_multi_ushortchar.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_multi_ushortchar.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_pointer.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_pointer.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_pointer_stack.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_pointer_stack.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_schar.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_schar.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_sint.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_sint.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_sshort.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_sshort.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_struct_va1.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_struct_va1.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_uchar.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_uchar.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_uint.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_uint.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_uint_va.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_uint_va.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_ulong_va.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_ulong_va.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_ulonglong.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_ulonglong.c"
-chmod 0644 "ffi/testsuite/libffi.closures/cls_ushort.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/cls_ushort.c"
-chmod 0644 "ffi/testsuite/libffi.closures/err_bad_abi.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/err_bad_abi.c"
-chmod 0644 "ffi/testsuite/libffi.closures/ffitest.h"; touch -c -t "202106272003.14" "ffi/testsuite/libffi.closures/ffitest.h"
-chmod 0644 "ffi/testsuite/libffi.closures/huge_struct.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/huge_struct.c"
-chmod 0644 "ffi/testsuite/libffi.closures/nested_struct.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/nested_struct.c"
-chmod 0644 "ffi/testsuite/libffi.closures/nested_struct1.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/nested_struct1.c"
-chmod 0644 "ffi/testsuite/libffi.closures/nested_struct10.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/nested_struct10.c"
-chmod 0644 "ffi/testsuite/libffi.closures/nested_struct11.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/nested_struct11.c"
-chmod 0644 "ffi/testsuite/libffi.closures/nested_struct12.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/nested_struct12.c"
-chmod 0644 "ffi/testsuite/libffi.closures/nested_struct13.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/nested_struct13.c"
-chmod 0644 "ffi/testsuite/libffi.closures/nested_struct2.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/nested_struct2.c"
-chmod 0644 "ffi/testsuite/libffi.closures/nested_struct3.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/nested_struct3.c"
-chmod 0644 "ffi/testsuite/libffi.closures/nested_struct4.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/nested_struct4.c"
-chmod 0644 "ffi/testsuite/libffi.closures/nested_struct5.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/nested_struct5.c"
-chmod 0644 "ffi/testsuite/libffi.closures/nested_struct6.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/nested_struct6.c"
-chmod 0644 "ffi/testsuite/libffi.closures/nested_struct7.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/nested_struct7.c"
-chmod 0644 "ffi/testsuite/libffi.closures/nested_struct8.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/nested_struct8.c"
-chmod 0644 "ffi/testsuite/libffi.closures/nested_struct9.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/nested_struct9.c"
-chmod 0644 "ffi/testsuite/libffi.closures/problem1.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/problem1.c"
-chmod 0644 "ffi/testsuite/libffi.closures/single_entry_structs1.c"; touch -c -t "202106290032.39" "ffi/testsuite/libffi.closures/single_entry_structs1.c"
-chmod 0644 "ffi/testsuite/libffi.closures/single_entry_structs2.c"; touch -c -t "202106282051.58" "ffi/testsuite/libffi.closures/single_entry_structs2.c"
-chmod 0644 "ffi/testsuite/libffi.closures/single_entry_structs3.c"; touch -c -t "202106290024.25" "ffi/testsuite/libffi.closures/single_entry_structs3.c"
-chmod 0644 "ffi/testsuite/libffi.closures/stret_large.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/stret_large.c"
-chmod 0644 "ffi/testsuite/libffi.closures/stret_large2.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/stret_large2.c"
-chmod 0644 "ffi/testsuite/libffi.closures/stret_medium.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/stret_medium.c"
-chmod 0644 "ffi/testsuite/libffi.closures/stret_medium2.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/stret_medium2.c"
-chmod 0644 "ffi/testsuite/libffi.closures/testclosure.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/testclosure.c"
-chmod 0644 "ffi/testsuite/libffi.closures/unwindtest.cc"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/unwindtest.cc"
-chmod 0644 "ffi/testsuite/libffi.closures/unwindtest_ffi_call.cc"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.closures/unwindtest_ffi_call.cc"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_align_complex.inc"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_align_complex.inc"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_align_complex_double.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_align_complex_double.c"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_align_complex_float.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_align_complex_float.c"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_align_complex_longdouble.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_align_complex_longdouble.c"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_complex.inc"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_complex.inc"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_complex_double.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_complex_double.c"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_complex_float.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_complex_float.c"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_complex_longdouble.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_complex_longdouble.c"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_complex_struct.inc"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_complex_struct.inc"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_complex_struct_double.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_complex_struct_double.c"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_complex_struct_float.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_complex_struct_float.c"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_complex_struct_longdouble.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_complex_struct_longdouble.c"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_complex_va.inc"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_complex_va.inc"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_complex_va_double.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_complex_va_double.c"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_complex_va_float.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_complex_va_float.c"
-chmod 0644 "ffi/testsuite/libffi.complex/cls_complex_va_longdouble.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/cls_complex_va_longdouble.c"
-chmod 0644 "ffi/testsuite/libffi.complex/complex.exp"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/complex.exp"
-chmod 0644 "ffi/testsuite/libffi.complex/complex.inc"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/complex.inc"
-chmod 0644 "ffi/testsuite/libffi.complex/complex_defs_double.inc"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/complex_defs_double.inc"
-chmod 0644 "ffi/testsuite/libffi.complex/complex_defs_float.inc"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/complex_defs_float.inc"
-chmod 0644 "ffi/testsuite/libffi.complex/complex_defs_longdouble.inc"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/complex_defs_longdouble.inc"
-chmod 0644 "ffi/testsuite/libffi.complex/complex_double.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/complex_double.c"
-chmod 0644 "ffi/testsuite/libffi.complex/complex_float.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/complex_float.c"
-chmod 0644 "ffi/testsuite/libffi.complex/complex_int.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/complex_int.c"
-chmod 0644 "ffi/testsuite/libffi.complex/complex_longdouble.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/complex_longdouble.c"
-chmod 0644 "ffi/testsuite/libffi.complex/ffitest.h"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/ffitest.h"
-chmod 0644 "ffi/testsuite/libffi.complex/many_complex.inc"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/many_complex.inc"
-chmod 0644 "ffi/testsuite/libffi.complex/many_complex_double.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/many_complex_double.c"
-chmod 0644 "ffi/testsuite/libffi.complex/many_complex_float.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/many_complex_float.c"
-chmod 0644 "ffi/testsuite/libffi.complex/many_complex_longdouble.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/many_complex_longdouble.c"
-chmod 0644 "ffi/testsuite/libffi.complex/return_complex.inc"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/return_complex.inc"
-chmod 0644 "ffi/testsuite/libffi.complex/return_complex1.inc"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/return_complex1.inc"
-chmod 0644 "ffi/testsuite/libffi.complex/return_complex1_double.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/return_complex1_double.c"
-chmod 0644 "ffi/testsuite/libffi.complex/return_complex1_float.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/return_complex1_float.c"
-chmod 0644 "ffi/testsuite/libffi.complex/return_complex1_longdouble.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/return_complex1_longdouble.c"
-chmod 0644 "ffi/testsuite/libffi.complex/return_complex2.inc"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/return_complex2.inc"
-chmod 0644 "ffi/testsuite/libffi.complex/return_complex2_double.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/return_complex2_double.c"
-chmod 0644 "ffi/testsuite/libffi.complex/return_complex2_float.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/return_complex2_float.c"
-chmod 0644 "ffi/testsuite/libffi.complex/return_complex2_longdouble.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/return_complex2_longdouble.c"
-chmod 0644 "ffi/testsuite/libffi.complex/return_complex_double.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/return_complex_double.c"
-chmod 0644 "ffi/testsuite/libffi.complex/return_complex_float.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/return_complex_float.c"
-chmod 0644 "ffi/testsuite/libffi.complex/return_complex_longdouble.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.complex/return_complex_longdouble.c"
-chmod 0644 "ffi/testsuite/libffi.go/aa-direct.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.go/aa-direct.c"
-chmod 0644 "ffi/testsuite/libffi.go/closure1.c"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.go/closure1.c"
-chmod 0644 "ffi/testsuite/libffi.go/ffitest.h"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.go/ffitest.h"
-chmod 0644 "ffi/testsuite/libffi.go/go.exp"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.go/go.exp"
-chmod 0644 "ffi/testsuite/libffi.go/static-chain.h"; touch -c -t "202106271717.08" "ffi/testsuite/libffi.go/static-chain.h"
-chmod 0644 "gc/AUTHORS"; touch -c -t "202111241337.58" "gc/AUTHORS"
-chmod 0644 "gc/BCC_MAKEFILE"; touch -c -t "202104261237.22" "gc/BCC_MAKEFILE"
-chmod 0644 "gc/CMakeLists.txt"; touch -c -t "202111241337.58" "gc/CMakeLists.txt"
-chmod 0644 "gc/ChangeLog"; touch -c -t "202111241337.58" "gc/ChangeLog"
-chmod 0644 "gc/Makefile.am"; touch -c -t "202111241337.58" "gc/Makefile.am"
-chmod 0644 "gc/Makefile.direct"; touch -c -t "202111241337.58" "gc/Makefile.direct"
-chmod 0644 "gc/Makefile.in"; touch -c -t "202111241337.58" "gc/Makefile.in"
-chmod 0644 "gc/NT_MAKEFILE"; touch -c -t "202111241337.58" "gc/NT_MAKEFILE"
-chmod 0644 "gc/OS2_MAKEFILE"; touch -c -t "202111241337.58" "gc/OS2_MAKEFILE"
-chmod 0644 "gc/PCR-Makefile"; touch -c -t "202104261237.22" "gc/PCR-Makefile"
-chmod 0644 "gc/README.QUICK"; touch -c -t "202111241337.58" "gc/README.QUICK"
-chmod 0644 "gc/README.md"; touch -c -t "202111241337.58" "gc/README.md"
-chmod 0644 "gc/SMakefile.amiga"; touch -c -t "202111241337.58" "gc/SMakefile.amiga"
-chmod 0644 "gc/WCC_MAKEFILE"; touch -c -t "202104261237.22" "gc/WCC_MAKEFILE"
-chmod 0644 "gc/aclocal.m4"; touch -c -t "202104261237.22" "gc/aclocal.m4"
-chmod 0644 "gc/allchblk.c"; touch -c -t "202111241337.58" "gc/allchblk.c"
-chmod 0644 "gc/alloc.c"; touch -c -t "202111241337.58" "gc/alloc.c"
-chmod 0755 "gc/autogen.sh"; touch -c -t "202104261237.22" "gc/autogen.sh"
-chmod 0644 "gc/backgraph.c"; touch -c -t "202111241337.58" "gc/backgraph.c"
-chmod 0644 "gc/bdw-gc.pc.in"; touch -c -t "202111241337.58" "gc/bdw-gc.pc.in"
-chmod 0644 "gc/blacklst.c"; touch -c -t "202104261237.22" "gc/blacklst.c"
-chmod 0644 "gc/build/s60v3/bld.inf"; touch -c -t "201903020954.41" "gc/build/s60v3/bld.inf"
-chmod 0644 "gc/build/s60v3/libgc.mmp"; touch -c -t "202104261237.22" "gc/build/s60v3/libgc.mmp"
-chmod 0644 "gc/checksums.c"; touch -c -t "202104261237.22" "gc/checksums.c"
-chmod 0755 "gc/compile"; touch -c -t "201903020955.47" "gc/compile"
-chmod 0755 "gc/config.guess"; touch -c -t "201903020955.47" "gc/config.guess"
-chmod 0755 "gc/config.sub"; touch -c -t "201903020955.47" "gc/config.sub"
-chmod 0755 "gc/configure"; touch -c -t "202111241337.58" "gc/configure"
-chmod 0644 "gc/configure.ac"; touch -c -t "202111241337.58" "gc/configure.ac"
-chmod 0644 "gc/cord/cord.am"; touch -c -t "202104261237.22" "gc/cord/cord.am"
-chmod 0644 "gc/cord/cordbscs.c"; touch -c -t "202104261237.22" "gc/cord/cordbscs.c"
-chmod 0644 "gc/cord/cordprnt.c"; touch -c -t "202111241337.58" "gc/cord/cordprnt.c"
-chmod 0644 "gc/cord/cordxtra.c"; touch -c -t "202104261237.22" "gc/cord/cordxtra.c"
-chmod 0644 "gc/cord/tests/cordtest.c"; touch -c -t "202111241337.58" "gc/cord/tests/cordtest.c"
-chmod 0644 "gc/cord/tests/de.c"; touch -c -t "202104261237.22" "gc/cord/tests/de.c"
-chmod 0644 "gc/cord/tests/de_cmds.h"; touch -c -t "201903020954.41" "gc/cord/tests/de_cmds.h"
-chmod 0644 "gc/cord/tests/de_win.c"; touch -c -t "202111241337.58" "gc/cord/tests/de_win.c"
-chmod 0644 "gc/cord/tests/de_win.h"; touch -c -t "202104261237.22" "gc/cord/tests/de_win.h"
-chmod 0644 "gc/cord/tests/de_win.rc"; touch -c -t "202104261237.22" "gc/cord/tests/de_win.rc"
-chmod 0644 "gc/darwin_stop_world.c"; touch -c -t "202111241337.58" "gc/darwin_stop_world.c"
-chmod 0644 "gc/dbg_mlc.c"; touch -c -t "202104261237.22" "gc/dbg_mlc.c"
-chmod 0755 "gc/depcomp"; touch -c -t "201903020955.47" "gc/depcomp"
-chmod 0644 "gc/digimars.mak"; touch -c -t "202104261237.22" "gc/digimars.mak"
-chmod 0644 "gc/doc/README.DGUX386"; touch -c -t "202104261237.22" "gc/doc/README.DGUX386"
-chmod 0644 "gc/doc/README.Mac"; touch -c -t "202104261237.22" "gc/doc/README.Mac"
-chmod 0644 "gc/doc/README.OS2"; touch -c -t "202111241337.58" "gc/doc/README.OS2"
-chmod 0644 "gc/doc/README.amiga"; touch -c -t "202111241337.58" "gc/doc/README.amiga"
-chmod 0644 "gc/doc/README.arm.cross"; touch -c -t "201903020954.41" "gc/doc/README.arm.cross"
-chmod 0644 "gc/doc/README.autoconf"; touch -c -t "202104261237.22" "gc/doc/README.autoconf"
-chmod 0644 "gc/doc/README.cmake"; touch -c -t "202111241337.58" "gc/doc/README.cmake"
-chmod 0644 "gc/doc/README.cords"; touch -c -t "202104261237.22" "gc/doc/README.cords"
-chmod 0644 "gc/doc/README.darwin"; touch -c -t "202111241337.58" "gc/doc/README.darwin"
-chmod 0644 "gc/doc/README.environment"; touch -c -t "202104261237.22" "gc/doc/README.environment"
-chmod 0644 "gc/doc/README.ews4800"; touch -c -t "202111241337.58" "gc/doc/README.ews4800"
-chmod 0644 "gc/doc/README.hp"; touch -c -t "202104261237.22" "gc/doc/README.hp"
-chmod 0644 "gc/doc/README.linux"; touch -c -t "202104261237.22" "gc/doc/README.linux"
-chmod 0644 "gc/doc/README.macros"; touch -c -t "202111241337.58" "gc/doc/README.macros"
-chmod 0644 "gc/doc/README.rs6000"; touch -c -t "201903020954.41" "gc/doc/README.rs6000"
-chmod 0644 "gc/doc/README.sgi"; touch -c -t "202104261237.22" "gc/doc/README.sgi"
-chmod 0644 "gc/doc/README.solaris2"; touch -c -t "202111241337.58" "gc/doc/README.solaris2"
-chmod 0644 "gc/doc/README.symbian"; touch -c -t "201903020954.41" "gc/doc/README.symbian"
-chmod 0644 "gc/doc/README.uts"; touch -c -t "201903020954.41" "gc/doc/README.uts"
-chmod 0644 "gc/doc/README.win32"; touch -c -t "202111241337.58" "gc/doc/README.win32"
-chmod 0644 "gc/doc/README.win64"; touch -c -t "202104261237.22" "gc/doc/README.win64"
-chmod 0644 "gc/doc/debugging.md"; touch -c -t "202104261237.22" "gc/doc/debugging.md"
-chmod 0644 "gc/doc/doc.am"; touch -c -t "202104261237.22" "gc/doc/doc.am"
-chmod 0644 "gc/doc/finalization.md"; touch -c -t "202111241337.58" "gc/doc/finalization.md"
-chmod 0644 "gc/doc/gc.man"; touch -c -t "202104261237.22" "gc/doc/gc.man"
-chmod 0644 "gc/doc/gcdescr.md"; touch -c -t "202111241337.58" "gc/doc/gcdescr.md"
-chmod 0644 "gc/doc/gcinterface.md"; touch -c -t "202111241337.58" "gc/doc/gcinterface.md"
-chmod 0644 "gc/doc/leak.md"; touch -c -t "202111241337.58" "gc/doc/leak.md"
-chmod 0644 "gc/doc/overview.md"; touch -c -t "202111241337.58" "gc/doc/overview.md"
-chmod 0644 "gc/doc/porting.md"; touch -c -t "202111241337.58" "gc/doc/porting.md"
-chmod 0644 "gc/doc/scale.md"; touch -c -t "202111241337.58" "gc/doc/scale.md"
-chmod 0644 "gc/doc/simple_example.md"; touch -c -t "202111241337.58" "gc/doc/simple_example.md"
-chmod 0644 "gc/doc/tree.md"; touch -c -t "202104261237.22" "gc/doc/tree.md"
-chmod 0644 "gc/dyn_load.c"; touch -c -t "202111241337.58" "gc/dyn_load.c"
-chmod 0644 "gc/extra/AmigaOS.c"; touch -c -t "201903020954.41" "gc/extra/AmigaOS.c"
-chmod 0644 "gc/extra/MacOS.c"; touch -c -t "201903020954.41" "gc/extra/MacOS.c"
-chmod 0644 "gc/extra/Mac_files/MacOS_config.h"; touch -c -t "201903020954.41" "gc/extra/Mac_files/MacOS_config.h"
-chmod 0644 "gc/extra/Mac_files/dataend.c"; touch -c -t "201903020954.41" "gc/extra/Mac_files/dataend.c"
-chmod 0644 "gc/extra/Mac_files/datastart.c"; touch -c -t "201903020954.41" "gc/extra/Mac_files/datastart.c"
-chmod 0644 "gc/extra/gc.c"; touch -c -t "202104261237.22" "gc/extra/gc.c"
-chmod 0644 "gc/extra/msvc_dbg.c"; touch -c -t "202111241337.58" "gc/extra/msvc_dbg.c"
-chmod 0644 "gc/extra/pcr_interface.c"; touch -c -t "202111241337.58" "gc/extra/pcr_interface.c"
-chmod 0644 "gc/extra/real_malloc.c"; touch -c -t "202104261237.22" "gc/extra/real_malloc.c"
-chmod 0644 "gc/extra/symbian.cpp"; touch -c -t "202104261237.22" "gc/extra/symbian.cpp"
-chmod 0644 "gc/extra/symbian/global_end.cpp"; touch -c -t "202104261237.22" "gc/extra/symbian/global_end.cpp"
-chmod 0644 "gc/extra/symbian/global_start.cpp"; touch -c -t "202104261237.22" "gc/extra/symbian/global_start.cpp"
-chmod 0644 "gc/extra/symbian/init_global_static_roots.cpp"; touch -c -t "202104261237.22" "gc/extra/symbian/init_global_static_roots.cpp"
-chmod 0644 "gc/finalize.c"; touch -c -t "202111241337.58" "gc/finalize.c"
-chmod 0644 "gc/fnlz_mlc.c"; touch -c -t "202104261237.22" "gc/fnlz_mlc.c"
-chmod 0644 "gc/gc.mak"; touch -c -t "202104261237.22" "gc/gc.mak"
-chmod 0644 "gc/gc_cpp.cc"; touch -c -t "202111241337.58" "gc/gc_cpp.cc"
-chmod 0644 "gc/gc_cpp.cpp"; touch -c -t "201903020954.41" "gc/gc_cpp.cpp"
-chmod 0644 "gc/gc_dlopen.c"; touch -c -t "201903020954.41" "gc/gc_dlopen.c"
-chmod 0644 "gc/gcj_mlc.c"; touch -c -t "202104261237.22" "gc/gcj_mlc.c"
-chmod 0644 "gc/headers.c"; touch -c -t "202111241337.58" "gc/headers.c"
-chmod 0644 "gc/ia64_save_regs_in_stack.s"; touch -c -t "201903020954.41" "gc/ia64_save_regs_in_stack.s"
-chmod 0644 "gc/include/config.h.in"; touch -c -t "202104261237.22" "gc/include/config.h.in"
-chmod 0644 "gc/include/cord.h"; touch -c -t "202104261237.22" "gc/include/cord.h"
-chmod 0644 "gc/include/cord_pos.h"; touch -c -t "202104261237.22" "gc/include/cord_pos.h"
-chmod 0644 "gc/include/ec.h"; touch -c -t "202111241337.58" "gc/include/ec.h"
-chmod 0644 "gc/include/extra/gc.h"; touch -c -t "201903020954.41" "gc/include/extra/gc.h"
-chmod 0644 "gc/include/extra/gc_cpp.h"; touch -c -t "201903020954.41" "gc/include/extra/gc_cpp.h"
-chmod 0644 "gc/include/gc.h"; touch -c -t "202111241337.58" "gc/include/gc.h"
-chmod 0644 "gc/include/gc_alloc_ptrs.h"; touch -c -t "202104261237.22" "gc/include/gc_alloc_ptrs.h"
-chmod 0644 "gc/include/gc_allocator.h"; touch -c -t "202111241337.58" "gc/include/gc_allocator.h"
-chmod 0644 "gc/include/gc_backptr.h"; touch -c -t "202104261237.22" "gc/include/gc_backptr.h"
-chmod 0644 "gc/include/gc_config_macros.h"; touch -c -t "202111241337.58" "gc/include/gc_config_macros.h"
-chmod 0644 "gc/include/gc_cpp.h"; touch -c -t "202111241337.58" "gc/include/gc_cpp.h"
-chmod 0644 "gc/include/gc_disclaim.h"; touch -c -t "202104261237.22" "gc/include/gc_disclaim.h"
-chmod 0644 "gc/include/gc_gcj.h"; touch -c -t "202104261237.22" "gc/include/gc_gcj.h"
-chmod 0644 "gc/include/gc_inline.h"; touch -c -t "202104261237.22" "gc/include/gc_inline.h"
-chmod 0644 "gc/include/gc_mark.h"; touch -c -t "202104261237.22" "gc/include/gc_mark.h"
-chmod 0644 "gc/include/gc_pthread_redirects.h"; touch -c -t "202111241337.58" "gc/include/gc_pthread_redirects.h"
-chmod 0644 "gc/include/gc_tiny_fl.h"; touch -c -t "201903020954.41" "gc/include/gc_tiny_fl.h"
-chmod 0644 "gc/include/gc_typed.h"; touch -c -t "202111241337.58" "gc/include/gc_typed.h"
-chmod 0644 "gc/include/gc_version.h"; touch -c -t "202111241337.58" "gc/include/gc_version.h"
-chmod 0644 "gc/include/include.am"; touch -c -t "202111241337.58" "gc/include/include.am"
-chmod 0644 "gc/include/javaxfc.h"; touch -c -t "202104261237.22" "gc/include/javaxfc.h"
-chmod 0644 "gc/include/leak_detector.h"; touch -c -t "201903020954.41" "gc/include/leak_detector.h"
-chmod 0644 "gc/include/new_gc_alloc.h"; touch -c -t "202111241337.58" "gc/include/new_gc_alloc.h"
-chmod 0644 "gc/include/private/darwin_semaphore.h"; touch -c -t "202104261237.22" "gc/include/private/darwin_semaphore.h"
-chmod 0644 "gc/include/private/darwin_stop_world.h"; touch -c -t "202104261237.22" "gc/include/private/darwin_stop_world.h"
-chmod 0644 "gc/include/private/dbg_mlc.h"; touch -c -t "202104261237.22" "gc/include/private/dbg_mlc.h"
-chmod 0644 "gc/include/private/gc_atomic_ops.h"; touch -c -t "202104261237.22" "gc/include/private/gc_atomic_ops.h"
-chmod 0644 "gc/include/private/gc_hdrs.h"; touch -c -t "202104261237.22" "gc/include/private/gc_hdrs.h"
-chmod 0644 "gc/include/private/gc_locks.h"; touch -c -t "202111241337.58" "gc/include/private/gc_locks.h"
-chmod 0644 "gc/include/private/gc_pmark.h"; touch -c -t "202104261237.22" "gc/include/private/gc_pmark.h"
-chmod 0644 "gc/include/private/gc_priv.h"; touch -c -t "202111241337.58" "gc/include/private/gc_priv.h"
-chmod 0644 "gc/include/private/gcconfig.h"; touch -c -t "202111241337.58" "gc/include/private/gcconfig.h"
-chmod 0644 "gc/include/private/msvc_dbg.h"; touch -c -t "202104261237.22" "gc/include/private/msvc_dbg.h"
-chmod 0644 "gc/include/private/pthread_stop_world.h"; touch -c -t "202104261237.22" "gc/include/private/pthread_stop_world.h"
-chmod 0644 "gc/include/private/pthread_support.h"; touch -c -t "202111241337.58" "gc/include/private/pthread_support.h"
-chmod 0644 "gc/include/private/specific.h"; touch -c -t "202104261237.22" "gc/include/private/specific.h"
-chmod 0644 "gc/include/private/thread_local_alloc.h"; touch -c -t "202104261237.22" "gc/include/private/thread_local_alloc.h"
-chmod 0755 "gc/install-sh"; touch -c -t "201903020955.47" "gc/install-sh"
-chmod 0644 "gc/ltmain.sh"; touch -c -t "202104261237.22" "gc/ltmain.sh"
-chmod 0644 "gc/m4/gc_set_version.m4"; touch -c -t "201903020954.41" "gc/m4/gc_set_version.m4"
-chmod 0644 "gc/m4/libtool.m4"; touch -c -t "201903020955.44" "gc/m4/libtool.m4"
-chmod 0644 "gc/m4/ltoptions.m4"; touch -c -t "201903020955.44" "gc/m4/ltoptions.m4"
-chmod 0644 "gc/m4/ltsugar.m4"; touch -c -t "201903020955.44" "gc/m4/ltsugar.m4"
-chmod 0644 "gc/m4/ltversion.m4"; touch -c -t "202104261237.22" "gc/m4/ltversion.m4"
-chmod 0644 "gc/m4/lt~obsolete.m4"; touch -c -t "201903020955.44" "gc/m4/lt~obsolete.m4"
-chmod 0644 "gc/mach_dep.c"; touch -c -t "202104261237.22" "gc/mach_dep.c"
-chmod 0644 "gc/malloc.c"; touch -c -t "202104261237.22" "gc/malloc.c"
-chmod 0644 "gc/mallocx.c"; touch -c -t "202111241337.58" "gc/mallocx.c"
-chmod 0644 "gc/mark.c"; touch -c -t "202111241337.58" "gc/mark.c"
-chmod 0644 "gc/mark_rts.c"; touch -c -t "202111241337.58" "gc/mark_rts.c"
-chmod 0644 "gc/misc.c"; touch -c -t "202111241337.58" "gc/misc.c"
-chmod 0755 "gc/missing"; touch -c -t "201903020955.47" "gc/missing"
-chmod 0644 "gc/new_hblk.c"; touch -c -t "202111241337.58" "gc/new_hblk.c"
-chmod 0644 "gc/obj_map.c"; touch -c -t "201903020954.41" "gc/obj_map.c"
-chmod 0644 "gc/os_dep.c"; touch -c -t "202111241337.58" "gc/os_dep.c"
-chmod 0644 "gc/pthread_start.c"; touch -c -t "202104261237.22" "gc/pthread_start.c"
-chmod 0644 "gc/pthread_stop_world.c"; touch -c -t "202104261237.22" "gc/pthread_stop_world.c"
-chmod 0644 "gc/pthread_support.c"; touch -c -t "202111241337.58" "gc/pthread_support.c"
-chmod 0644 "gc/ptr_chck.c"; touch -c -t "202104261237.22" "gc/ptr_chck.c"
-chmod 0644 "gc/reclaim.c"; touch -c -t "202104261237.22" "gc/reclaim.c"
-chmod 0644 "gc/sparc_mach_dep.S"; touch -c -t "201903020954.41" "gc/sparc_mach_dep.S"
-chmod 0644 "gc/sparc_netbsd_mach_dep.s"; touch -c -t "201903020954.41" "gc/sparc_netbsd_mach_dep.s"
-chmod 0644 "gc/sparc_sunos4_mach_dep.s"; touch -c -t "201903020954.41" "gc/sparc_sunos4_mach_dep.s"
-chmod 0644 "gc/specific.c"; touch -c -t "202104261237.22" "gc/specific.c"
-chmod 0755 "gc/test-driver"; touch -c -t "201903020955.47" "gc/test-driver"
-chmod 0644 "gc/tests/CMakeLists.txt"; touch -c -t "202104261237.22" "gc/tests/CMakeLists.txt"
-chmod 0644 "gc/tests/disclaim_bench.c"; touch -c -t "202104261237.22" "gc/tests/disclaim_bench.c"
-chmod 0644 "gc/tests/disclaim_test.c"; touch -c -t "202111241337.58" "gc/tests/disclaim_test.c"
-chmod 0644 "gc/tests/disclaim_weakmap_test.c"; touch -c -t "202111241337.58" "gc/tests/disclaim_weakmap_test.c"
-chmod 0644 "gc/tests/huge_test.c"; touch -c -t "201903020954.41" "gc/tests/huge_test.c"
-chmod 0644 "gc/tests/initsecondarythread.c"; touch -c -t "202104261237.22" "gc/tests/initsecondarythread.c"
-chmod 0644 "gc/tests/leak_test.c"; touch -c -t "202104261237.22" "gc/tests/leak_test.c"
-chmod 0644 "gc/tests/middle.c"; touch -c -t "202104261237.22" "gc/tests/middle.c"
-chmod 0644 "gc/tests/realloc_test.c"; touch -c -t "202104261237.22" "gc/tests/realloc_test.c"
-chmod 0644 "gc/tests/smash_test.c"; touch -c -t "202111241337.58" "gc/tests/smash_test.c"
-chmod 0644 "gc/tests/staticrootslib.c"; touch -c -t "202104261237.22" "gc/tests/staticrootslib.c"
-chmod 0644 "gc/tests/staticrootstest.c"; touch -c -t "202104261237.22" "gc/tests/staticrootstest.c"
-chmod 0644 "gc/tests/subthread_create.c"; touch -c -t "202111241337.58" "gc/tests/subthread_create.c"
-chmod 0644 "gc/tests/test.c"; touch -c -t "202104261237.22" "gc/tests/test.c"
-chmod 0644 "gc/tests/test_atomic_ops.c"; touch -c -t "202104261237.22" "gc/tests/test_atomic_ops.c"
-chmod 0644 "gc/tests/test_cpp.cc"; touch -c -t "202111241337.58" "gc/tests/test_cpp.cc"
-chmod 0644 "gc/tests/tests.am"; touch -c -t "202104261237.22" "gc/tests/tests.am"
-chmod 0644 "gc/tests/thread_leak_test.c"; touch -c -t "202104261237.22" "gc/tests/thread_leak_test.c"
-chmod 0644 "gc/tests/threadkey_test.c"; touch -c -t "202104261237.22" "gc/tests/threadkey_test.c"
-chmod 0644 "gc/tests/trace_test.c"; touch -c -t "202104261237.22" "gc/tests/trace_test.c"
-chmod 0644 "gc/thread_local_alloc.c"; touch -c -t "202104261237.22" "gc/thread_local_alloc.c"
-chmod 0755 "gc/tools/callprocs.sh"; touch -c -t "201903020954.41" "gc/tools/callprocs.sh"
-chmod 0644 "gc/tools/if_mach.c"; touch -c -t "202104261237.22" "gc/tools/if_mach.c"
-chmod 0644 "gc/tools/if_not_there.c"; touch -c -t "202104261237.22" "gc/tools/if_not_there.c"
-chmod 0644 "gc/tools/setjmp_t.c"; touch -c -t "202104261237.22" "gc/tools/setjmp_t.c"
-chmod 0644 "gc/tools/threadlibs.c"; touch -c -t "202104261237.22" "gc/tools/threadlibs.c"
-chmod 0644 "gc/typd_mlc.c"; touch -c -t "202104261237.22" "gc/typd_mlc.c"
-chmod 0644 "gc/win32_threads.c"; touch -c -t "202111241337.58" "gc/win32_threads.c"
-chmod 0644 "gmp/AUTHORS"; touch -c -t "202109291034.58" "gmp/AUTHORS"
-chmod 0644 "gmp/COPYING"; touch -c -t "202109291034.58" "gmp/COPYING"
-chmod 0644 "gmp/ChangeLog"; touch -c -t "202109291034.58" "gmp/ChangeLog"
-chmod 0644 "gmp/ChangeLog.mini-gmp"; touch -c -t "202109291034.58" "gmp/ChangeLog.mini-gmp"
-chmod 0644 "gmp/INSTALL"; touch -c -t "202109291034.58" "gmp/INSTALL"
-chmod 0644 "gmp/Makefile.am"; touch -c -t "202109291034.58" "gmp/Makefile.am"
-chmod 0644 "gmp/Makefile.in"; touch -c -t "202109291034.58" "gmp/Makefile.in"
-chmod 0644 "gmp/NEWS"; touch -c -t "202109291034.58" "gmp/NEWS"
-chmod 0644 "gmp/NEWS.mini-gmp"; touch -c -t "202109291034.58" "gmp/NEWS.mini-gmp"
-chmod 0644 "gmp/README"; touch -c -t "202109291034.58" "gmp/README"
-chmod 0644 "gmp/README.mini-gmp"; touch -c -t "202109291034.58" "gmp/README.mini-gmp"
-chmod 0644 "gmp/aclocal.m4"; touch -c -t "202109291034.58" "gmp/aclocal.m4"
-chmod 0644 "gmp/config.h.in"; touch -c -t "202109291034.58" "gmp/config.h.in"
-chmod 0755 "gmp/configure"; touch -c -t "202109291034.58" "gmp/configure"
-chmod 0644 "gmp/configure.ac"; touch -c -t "202109291034.58" "gmp/configure.ac"
-chmod 0644 "gmp/gmp.h"; touch -c -t "202109291034.58" "gmp/gmp.h"
-chmod 0644 "gmp/mini-gmp.c"; touch -c -t "202109291034.58" "gmp/mini-gmp.c"
-chmod 0644 "gmp/mini-gmp.h"; touch -c -t "202109291034.58" "gmp/mini-gmp.h"
-chmod 0755 "install-sh"; touch -c -t "202104261237.22" "install-sh"
-chmod 0644 "lib/Lalr.d/DOCUMENTATION.md"; touch -c -t "202108181917.29" "lib/Lalr.d/DOCUMENTATION.md"
-chmod 0644 "lib/Lalr.d/Makefile.am"; touch -c -t "202109291034.58" "lib/Lalr.d/Makefile.am"
-chmod 0644 "lib/Lalr.d/Makefile.in"; touch -c -t "202111241445.27" "lib/Lalr.d/Makefile.in"
-chmod 0644 "lib/Lalr.d/README"; touch -c -t "202108181917.29" "lib/Lalr.d/README"
-chmod 0644 "lib/Lalr.d/README.stklos"; touch -c -t "202108181917.29" "lib/Lalr.d/README.stklos"
-chmod 0644 "lib/Lalr.d/calc.scm"; touch -c -t "202108181917.29" "lib/Lalr.d/calc.scm"
-chmod 0644 "lib/Lalr.d/calc.stk"; touch -c -t "202108181917.29" "lib/Lalr.d/calc.stk"
-chmod 0644 "lib/Lalr.d/lalr.stk"; touch -c -t "202108181917.29" "lib/Lalr.d/lalr.stk"
-chmod 0644 "lib/Lalr.d/lgpl-3.txt"; touch -c -t "202108181917.29" "lib/Lalr.d/lgpl-3.txt"
-chmod 0644 "lib/Makefile.am"; touch -c -t "202111241156.09" "lib/Makefile.am"
-chmod 0644 "lib/Makefile.in"; touch -c -t "202111241445.27" "lib/Makefile.in"
-chmod 0644 "lib/Match.d/Makefile.am"; touch -c -t "202109291034.58" "lib/Match.d/Makefile.am"
-chmod 0644 "lib/Match.d/Makefile.in"; touch -c -t "202111241445.27" "lib/Match.d/Makefile.in"
-chmod 0644 "lib/Match.d/compiler.scm"; touch -c -t "200503291943.47" "lib/Match.d/compiler.scm"
-chmod 0644 "lib/Match.d/descr.scm"; touch -c -t "202111241156.09" "lib/Match.d/descr.scm"
-chmod 0644 "lib/Match.d/mexpand.scm"; touch -c -t "200111191050.50" "lib/Match.d/mexpand.scm"
-chmod 0644 "lib/Match.d/normalize.scm"; touch -c -t "200111261819.08" "lib/Match.d/normalize.scm"
-chmod 0644 "lib/Match.d/s2cfun.scm"; touch -c -t "200111261819.08" "lib/Match.d/s2cfun.scm"
-chmod 0644 "lib/SILex.d/Makefile.am"; touch -c -t "202109291034.58" "lib/SILex.d/Makefile.am"
-chmod 0644 "lib/SILex.d/Makefile.in"; touch -c -t "202111241445.27" "lib/SILex.d/Makefile.in"
-chmod 0600 "lib/SILex.d/multilex.scm"; touch -c -t "200102200001.46" "lib/SILex.d/multilex.scm"
-chmod 0644 "lib/SILex.d/silex-original.scm"; touch -c -t "200704201604.01" "lib/SILex.d/silex-original.scm"
-chmod 0644 "lib/SILex.d/silex.pdf"; touch -c -t "200312131016.24" "lib/SILex.d/silex.pdf"
-chmod 0644 "lib/SILex.d/silex.scm"; touch -c -t "202105031202.46" "lib/SILex.d/silex.scm"
-chmod 0600 "lib/SILex.d/silex.texi"; touch -c -t "200102200002.39" "lib/SILex.d/silex.texi"
-chmod 0644 "lib/STklos.init"; touch -c -t "202108181917.29" "lib/STklos.init"
-chmod 0644 "lib/ScmPkg.d/Makefile.am"; touch -c -t "202109291034.58" "lib/ScmPkg.d/Makefile.am"
-chmod 0644 "lib/ScmPkg.d/Makefile.in"; touch -c -t "202111241445.27" "lib/ScmPkg.d/Makefile.in"
-chmod 0644 "lib/ScmPkg.d/scmpkg-interface.stk"; touch -c -t "201108211802.17" "lib/ScmPkg.d/scmpkg-interface.stk"
-chmod 0644 "lib/ScmPkg.d/scmpkg-languages.stk"; touch -c -t "201108211802.17" "lib/ScmPkg.d/scmpkg-languages.stk"
-chmod 0644 "lib/ScmPkg.d/scmpkg-support.stk"; touch -c -t "202111241156.09" "lib/ScmPkg.d/scmpkg-support.stk"
-chmod 0644 "lib/assembler.stk"; touch -c -t "202111241156.09" "lib/assembler.stk"
-chmod 0644 "lib/bb.stk"; touch -c -t "202104021359.41" "lib/bb.stk"
-chmod 0644 "lib/bigloo-support.stk"; touch -c -t "202105031202.46" "lib/bigloo-support.stk"
-chmod 0644 "lib/bigmatch.stk"; touch -c -t "202111241156.09" "lib/bigmatch.stk"
-chmod 0644 "lib/bonus.stk"; touch -c -t "202111241156.09" "lib/bonus.stk"
-chmod 0644 "lib/boot.stk"; touch -c -t "202111241756.34" "lib/boot.stk"
-chmod 0644 "lib/callcc.stk"; touch -c -t "202105031202.46" "lib/callcc.stk"
-chmod 0644 "lib/compfile.stk"; touch -c -t "202111241156.09" "lib/compfile.stk"
-chmod 0644 "lib/compiler.stk"; touch -c -t "202111241156.09" "lib/compiler.stk"
-chmod 0644 "lib/computils.stk"; touch -c -t "202111241156.09" "lib/computils.stk"
-chmod 0644 "lib/date.stk"; touch -c -t "202108181917.29" "lib/date.stk"
-chmod 0644 "lib/describe.stk"; touch -c -t "202109291034.58" "lib/describe.stk"
-chmod 0644 "lib/env.stk"; touch -c -t "201108211758.21" "lib/env.stk"
-chmod 0644 "lib/equiv.stk"; touch -c -t "202108181917.29" "lib/equiv.stk"
-chmod 0644 "lib/expand.pp"; touch -c -t "202105031202.46" "lib/expand.pp"
-chmod 0644 "lib/expand.ss"; touch -c -t "201108221108.59" "lib/expand.ss"
-chmod 0644 "lib/ffi.stk"; touch -c -t "202105031202.46" "lib/ffi.stk"
-chmod 0644 "lib/full-conditions.stk"; touch -c -t "201108221109.00" "lib/full-conditions.stk"
-chmod 0644 "lib/full-syntax.stk"; touch -c -t "202111241156.09" "lib/full-syntax.stk"
-chmod 0644 "lib/getopt.stk"; touch -c -t "202104301359.40" "lib/getopt.stk"
-chmod 0644 "lib/help.stk"; touch -c -t "202111241156.09" "lib/help.stk"
-chmod 0644 "lib/http.stk"; touch -c -t "202111241156.09" "lib/http.stk"
-chmod 0644 "lib/lex-rt.stk"; touch -c -t "201108221109.05" "lib/lex-rt.stk"
-chmod 0644 "lib/load.stk"; touch -c -t "202111241156.09" "lib/load.stk"
-chmod 0644 "lib/logical.stk"; touch -c -t "202111241156.09" "lib/logical.stk"
-chmod 0644 "lib/make-C-boot.stk"; touch -c -t "201108211758.21" "lib/make-C-boot.stk"
-chmod 0644 "lib/mbe.stk"; touch -c -t "202105031202.46" "lib/mbe.stk"
-chmod 0644 "lib/module.stk"; touch -c -t "202111241156.09" "lib/module.stk"
-chmod 0644 "lib/object.stk"; touch -c -t "202111241156.09" "lib/object.stk"
-chmod 0644 "lib/obsolete.stk"; touch -c -t "202108181917.29" "lib/obsolete.stk"
-chmod 0644 "lib/peephole.stk"; touch -c -t "202109291034.58" "lib/peephole.stk"
-chmod 0644 "lib/pretty-print.stk"; touch -c -t "202108181917.29" "lib/pretty-print.stk"
-chmod 0644 "lib/process.stk"; touch -c -t "201108211758.22" "lib/process.stk"
-chmod 0644 "lib/r5rs.stk"; touch -c -t "202109291034.58" "lib/r5rs.stk"
-chmod 0644 "lib/r7rs.stk"; touch -c -t "202111241310.30" "lib/r7rs.stk"
-chmod 0644 "lib/r7rs.stk-with-write-u8"; touch -c -t "202104261237.22" "lib/r7rs.stk-with-write-u8"
-chmod 0644 "lib/readline.stk"; touch -c -t "202109291034.58" "lib/readline.stk"
-chmod 0644 "lib/recette.stk"; touch -c -t "202111241156.09" "lib/recette.stk"
-chmod 0644 "lib/regexp.stk"; touch -c -t "201108211758.22" "lib/regexp.stk"
-chmod 0644 "lib/repl-readline.stk"; touch -c -t "202109291034.58" "lib/repl-readline.stk"
-chmod 0644 "lib/repl.stk"; touch -c -t "202111241156.09" "lib/repl.stk"
-chmod 0644 "lib/runtime.stk"; touch -c -t "202108181920.57" "lib/runtime.stk"
-chmod 0644 "lib/slib.stk"; touch -c -t "202108181917.29" "lib/slib.stk"
-chmod 0644 "lib/srfi-0.stk"; touch -c -t "202111171308.39" "lib/srfi-0.stk"
-chmod 0644 "lib/srfi-1.stk"; touch -c -t "202111241156.09" "lib/srfi-1.stk"
-chmod 0644 "lib/srfi-100.stk"; touch -c -t "202105031202.46" "lib/srfi-100.stk"
-chmod 0644 "lib/srfi-11.stk"; touch -c -t "202111241156.09" "lib/srfi-11.stk"
-chmod 0644 "lib/srfi-113.stk"; touch -c -t "202105031202.46" "lib/srfi-113.stk"
-chmod 0644 "lib/srfi-117.stk"; touch -c -t "202110101128.04" "lib/srfi-117.stk"
-chmod 0644 "lib/srfi-127.stk"; touch -c -t "202108181917.29" "lib/srfi-127.stk"
-chmod 0644 "lib/srfi-128.stk"; touch -c -t "202111241156.09" "lib/srfi-128.stk"
-chmod 0644 "lib/srfi-129.stk"; touch -c -t "202105031202.46" "lib/srfi-129.stk"
-chmod 0644 "lib/srfi-13.stk"; touch -c -t "202111241156.09" "lib/srfi-13.stk"
-chmod 0644 "lib/srfi-130.stk"; touch -c -t "202111241156.09" "lib/srfi-130.stk"
-chmod 0644 "lib/srfi-132/Makefile.am"; touch -c -t "202109291034.58" "lib/srfi-132/Makefile.am"
-chmod 0644 "lib/srfi-132/Makefile.in"; touch -c -t "202111241445.27" "lib/srfi-132/Makefile.in"
-chmod 0644 "lib/srfi-132/srfi-132.c"; touch -c -t "202111241156.09" "lib/srfi-132/srfi-132.c"
-chmod 0644 "lib/srfi-132/srfi-132.stk"; touch -c -t "202111241156.09" "lib/srfi-132/srfi-132.stk"
-chmod 0644 "lib/srfi-133/Makefile.am"; touch -c -t "202109291034.58" "lib/srfi-133/Makefile.am"
-chmod 0644 "lib/srfi-133/Makefile.in"; touch -c -t "202111241445.27" "lib/srfi-133/Makefile.in"
-chmod 0644 "lib/srfi-133/srfi-133.c"; touch -c -t "202109291034.58" "lib/srfi-133/srfi-133.c"
-chmod 0644 "lib/srfi-133/srfi-133.stk"; touch -c -t "202109291034.58" "lib/srfi-133/srfi-133.stk"
-chmod 0644 "lib/srfi-134.stk"; touch -c -t "202111241156.09" "lib/srfi-134.stk"
-chmod 0644 "lib/srfi-135.stk"; touch -c -t "202108181917.29" "lib/srfi-135.stk"
-chmod 0644 "lib/srfi-137.stk"; touch -c -t "202108181917.29" "lib/srfi-137.stk"
-chmod 0644 "lib/srfi-14.stk"; touch -c -t "202111241156.09" "lib/srfi-14.stk"
-chmod 0644 "lib/srfi-141.stk"; touch -c -t "202110081149.00" "lib/srfi-141.stk"
-chmod 0644 "lib/srfi-144/Makefile.am"; touch -c -t "202109291034.58" "lib/srfi-144/Makefile.am"
-chmod 0644 "lib/srfi-144/Makefile.in"; touch -c -t "202111241445.27" "lib/srfi-144/Makefile.in"
-chmod 0644 "lib/srfi-144/srfi-144.c"; touch -c -t "202109291034.58" "lib/srfi-144/srfi-144.c"
-chmod 0644 "lib/srfi-144/srfi-144.stk"; touch -c -t "202109291034.58" "lib/srfi-144/srfi-144.stk"
-chmod 0644 "lib/srfi-151.stk"; touch -c -t "202111241156.09" "lib/srfi-151.stk"
-chmod 0644 "lib/srfi-156.stk"; touch -c -t "202105031202.46" "lib/srfi-156.stk"
-chmod 0644 "lib/srfi-158.stk"; touch -c -t "202105031202.46" "lib/srfi-158.stk"
-chmod 0644 "lib/srfi-161.stk"; touch -c -t "202105031202.46" "lib/srfi-161.stk"
-chmod 0644 "lib/srfi-17.stk"; touch -c -t "202111241156.09" "lib/srfi-17.stk"
-chmod 0644 "lib/srfi-170/Makefile.am"; touch -c -t "202109291034.58" "lib/srfi-170/Makefile.am"
-chmod 0644 "lib/srfi-170/Makefile.in"; touch -c -t "202111241445.27" "lib/srfi-170/Makefile.in"
-chmod 0644 "lib/srfi-170/srfi-170.c"; touch -c -t "202109291034.58" "lib/srfi-170/srfi-170.c"
-chmod 0644 "lib/srfi-170/srfi-170.stk"; touch -c -t "202109291034.58" "lib/srfi-170/srfi-170.stk"
-chmod 0644 "lib/srfi-171.stk"; touch -c -t "202111241156.09" "lib/srfi-171.stk"
-chmod 0644 "lib/srfi-173.stk"; touch -c -t "202105031202.46" "lib/srfi-173.stk"
-chmod 0644 "lib/srfi-174.stk"; touch -c -t "202108181917.29" "lib/srfi-174.stk"
-chmod 0644 "lib/srfi-175/Makefile.am"; touch -c -t "202109291034.58" "lib/srfi-175/Makefile.am"
-chmod 0644 "lib/srfi-175/Makefile.in"; touch -c -t "202111241445.27" "lib/srfi-175/Makefile.in"
-chmod 0644 "lib/srfi-175/srfi-175.c"; touch -c -t "202109291034.58" "lib/srfi-175/srfi-175.c"
-chmod 0644 "lib/srfi-175/srfi-175.stk"; touch -c -t "202109291034.58" "lib/srfi-175/srfi-175.stk"
-chmod 0644 "lib/srfi-180.stk"; touch -c -t "202111241156.09" "lib/srfi-180.stk"
-chmod 0644 "lib/srfi-185.stk"; touch -c -t "202105031202.46" "lib/srfi-185.stk"
-chmod 0644 "lib/srfi-189.stk"; touch -c -t "202111241156.09" "lib/srfi-189.stk"
-chmod 0644 "lib/srfi-190.stk"; touch -c -t "202104261237.22" "lib/srfi-190.stk"
-chmod 0644 "lib/srfi-196.stk"; touch -c -t "202111241156.09" "lib/srfi-196.stk"
-chmod 0644 "lib/srfi-2.stk"; touch -c -t "202111241156.09" "lib/srfi-2.stk"
-chmod 0644 "lib/srfi-207.stk"; touch -c -t "202111241156.09" "lib/srfi-207.stk"
-chmod 0644 "lib/srfi-214.stk"; touch -c -t "202111241156.09" "lib/srfi-214.stk"
-chmod 0644 "lib/srfi-216.stk"; touch -c -t "202109291034.58" "lib/srfi-216.stk"
-chmod 0644 "lib/srfi-217.stk"; touch -c -t "202111241156.09" "lib/srfi-217.stk"
-chmod 0644 "lib/srfi-223.stk"; touch -c -t "202110101128.04" "lib/srfi-223.stk"
-chmod 0644 "lib/srfi-25/Makefile.am"; touch -c -t "202111241156.09" "lib/srfi-25/Makefile.am"
-chmod 0644 "lib/srfi-25/Makefile.in"; touch -c -t "202111241445.27" "lib/srfi-25/Makefile.in"
-chmod 0644 "lib/srfi-25/srfi-25.c"; touch -c -t "202111241156.09" "lib/srfi-25/srfi-25.c"
-chmod 0644 "lib/srfi-25/srfi-25.stk"; touch -c -t "202111241156.09" "lib/srfi-25/srfi-25.stk"
-chmod 0644 "lib/srfi-26.stk"; touch -c -t "202111241156.09" "lib/srfi-26.stk"
-chmod 0644 "lib/srfi-27/Makefile.am"; touch -c -t "202111241156.09" "lib/srfi-27/Makefile.am"
-chmod 0644 "lib/srfi-27/Makefile.in"; touch -c -t "202111241445.27" "lib/srfi-27/Makefile.in"
-chmod 0644 "lib/srfi-27/mt64.h"; touch -c -t "202111241156.09" "lib/srfi-27/mt64.h"
-chmod 0644 "lib/srfi-27/srfi-27.c"; touch -c -t "202111241156.09" "lib/srfi-27/srfi-27.c"
-chmod 0644 "lib/srfi-27/srfi-27.stk"; touch -c -t "202111241156.09" "lib/srfi-27/srfi-27.stk"
-chmod 0644 "lib/srfi-29.stk"; touch -c -t "202111241156.09" "lib/srfi-29.stk"
-chmod 0644 "lib/srfi-31.stk"; touch -c -t "202111241156.09" "lib/srfi-31.stk"
-chmod 0644 "lib/srfi-35.stk"; touch -c -t "201108221109.33" "lib/srfi-35.stk"
-chmod 0644 "lib/srfi-36.stk"; touch -c -t "202111192134.24" "lib/srfi-36.stk"
-chmod 0644 "lib/srfi-37.stk"; touch -c -t "202111241156.09" "lib/srfi-37.stk"
-chmod 0644 "lib/srfi-4.stk"; touch -c -t "202111241156.09" "lib/srfi-4.stk"
-chmod 0644 "lib/srfi-41.stk"; touch -c -t "202111241156.09" "lib/srfi-41.stk"
-chmod 0644 "lib/srfi-48.stk"; touch -c -t "202108181917.29" "lib/srfi-48.stk"
-chmod 0644 "lib/srfi-5.stk"; touch -c -t "202111241156.09" "lib/srfi-5.stk"
-chmod 0644 "lib/srfi-51.stk"; touch -c -t "202111241156.09" "lib/srfi-51.stk"
-chmod 0644 "lib/srfi-54.stk"; touch -c -t "202108181917.29" "lib/srfi-54.stk"
-chmod 0644 "lib/srfi-59.stk"; touch -c -t "201108221109.36" "lib/srfi-59.stk"
-chmod 0644 "lib/srfi-60.stk"; touch -c -t "202111241156.09" "lib/srfi-60.stk"
-chmod 0644 "lib/srfi-61.stk"; touch -c -t "202108181917.29" "lib/srfi-61.stk"
-chmod 0644 "lib/srfi-64.stk"; touch -c -t "202111241156.09" "lib/srfi-64.stk"
-chmod 0644 "lib/srfi-66.stk"; touch -c -t "201108221109.37" "lib/srfi-66.stk"
-chmod 0644 "lib/srfi-69.stk"; touch -c -t "202105031202.46" "lib/srfi-69.stk"
-chmod 0644 "lib/srfi-7.stk"; touch -c -t "202111241156.09" "lib/srfi-7.stk"
-chmod 0644 "lib/srfi-70.stk"; touch -c -t "201108221109.39" "lib/srfi-70.stk"
-chmod 0644 "lib/srfi-74.stk"; touch -c -t "202111241156.09" "lib/srfi-74.stk"
-chmod 0644 "lib/srfi-89.stk"; touch -c -t "202111241156.09" "lib/srfi-89.stk"
-chmod 0644 "lib/srfi-9.stk"; touch -c -t "202111241156.09" "lib/srfi-9.stk"
-chmod 0644 "lib/srfi-94.stk"; touch -c -t "202109291034.58" "lib/srfi-94.stk"
-chmod 0644 "lib/srfi-96.stk"; touch -c -t "201108221109.42" "lib/srfi-96.stk"
-chmod 0644 "lib/srfis.stk"; touch -c -t "202111182150.46" "lib/srfis.stk"
-chmod 0644 "lib/str.stk"; touch -c -t "201108211758.22" "lib/str.stk"
-chmod 0644 "lib/streams-derived.stk"; touch -c -t "202111241156.09" "lib/streams-derived.stk"
-chmod 0644 "lib/streams-primitive.stk"; touch -c -t "202111241156.09" "lib/streams-primitive.stk"
-chmod 0644 "lib/struct.stk"; touch -c -t "201108211758.22" "lib/struct.stk"
-chmod 0644 "lib/tar.stk"; touch -c -t "201108221109.46" "lib/tar.stk"
-chmod 0644 "lib/thread.stk"; touch -c -t "202108181917.29" "lib/thread.stk"
-chmod 0644 "lib/trace.stk"; touch -c -t "201108221109.47" "lib/trace.stk"
-chmod 0644 "lib/trie.stk"; touch -c -t "202108181917.29" "lib/trie.stk"
-chmod 0644 "ltmain.sh"; touch -c -t "202105031202.46" "ltmain.sh"
-chmod 0755 "missing"; touch -c -t "202104261237.22" "missing"
-chmod 0755 "mkinstalldirs"; touch -c -t "202104261237.22" "mkinstalldirs"
-chmod 0755 "pcre/132html"; touch -c -t "201510271728.51" "pcre/132html"
-chmod 0644 "pcre/AUTHORS"; touch -c -t "202106151756.26" "pcre/AUTHORS"
-chmod 0644 "pcre/CMakeLists.txt"; touch -c -t "202106141133.37" "pcre/CMakeLists.txt"
-chmod 0644 "pcre/COPYING"; touch -c -t "201401311532.11" "pcre/COPYING"
-chmod 0644 "pcre/ChangeLog"; touch -c -t "202106151813.53" "pcre/ChangeLog"
-chmod 0755 "pcre/CheckMan"; touch -c -t "201401311532.54" "pcre/CheckMan"
-chmod 0755 "pcre/CleanTxt"; touch -c -t "201401311532.54" "pcre/CleanTxt"
-chmod 0755 "pcre/Detrail"; touch -c -t "201401311532.54" "pcre/Detrail"
-chmod 0644 "pcre/HACKING"; touch -c -t "201401311532.54" "pcre/HACKING"
-chmod 0644 "pcre/INSTALL"; touch -c -t "202106151752.53" "pcre/INSTALL"
-chmod 0644 "pcre/LICENCE"; touch -c -t "202106151757.12" "pcre/LICENCE"
-chmod 0644 "pcre/Makefile.am"; touch -c -t "201603021956.27" "pcre/Makefile.am"
-chmod 0644 "pcre/Makefile.in"; touch -c -t "202106151813.53" "pcre/Makefile.in"
-chmod 0644 "pcre/NEWS"; touch -c -t "202106151758.08" "pcre/NEWS"
-chmod 0644 "pcre/NON-AUTOTOOLS-BUILD"; touch -c -t "202106151759.13" "pcre/NON-AUTOTOOLS-BUILD"
-chmod 0644 "pcre/NON-UNIX-USE"; touch -c -t "201401311532.11" "pcre/NON-UNIX-USE"
-chmod 0755 "pcre/PrepareRelease"; touch -c -t "201401311532.54" "pcre/PrepareRelease"
-chmod 0644 "pcre/README"; touch -c -t "202106151800.08" "pcre/README"
-chmod 0755 "pcre/RunGrepTest"; touch -c -t "201605311319.02" "pcre/RunGrepTest"
-chmod 0755 "pcre/RunTest"; touch -c -t "201603011334.24" "pcre/RunTest"
-chmod 0644 "pcre/RunTest.bat"; touch -c -t "201401311532.11" "pcre/RunTest.bat"
-chmod 0644 "pcre/aclocal.m4"; touch -c -t "202106151752.52" "pcre/aclocal.m4"
-chmod 0755 "pcre/ar-lib"; touch -c -t "202106151752.53" "pcre/ar-lib"
-chmod 0644 "pcre/cmake/COPYING-CMAKE-SCRIPTS"; touch -c -t "201401311531.54" "pcre/cmake/COPYING-CMAKE-SCRIPTS"
-chmod 0644 "pcre/cmake/FindEditline.cmake"; touch -c -t "201401311531.54" "pcre/cmake/FindEditline.cmake"
-chmod 0644 "pcre/cmake/FindPackageHandleStandardArgs.cmake"; touch -c -t "201401311531.54" "pcre/cmake/FindPackageHandleStandardArgs.cmake"
-chmod 0644 "pcre/cmake/FindReadline.cmake"; touch -c -t "201401311531.54" "pcre/cmake/FindReadline.cmake"
-chmod 0755 "pcre/compile"; touch -c -t "202106151752.53" "pcre/compile"
-chmod 0644 "pcre/config-cmake.h.in"; touch -c -t "201401311532.10" "pcre/config-cmake.h.in"
-chmod 0755 "pcre/config.guess"; touch -c -t "202106151752.53" "pcre/config.guess"
-chmod 0644 "pcre/config.h.generic"; touch -c -t "202106151813.57" "pcre/config.h.generic"
-chmod 0644 "pcre/config.h.in"; touch -c -t "202106151752.53" "pcre/config.h.in"
-chmod 0755 "pcre/config.sub"; touch -c -t "202106151752.53" "pcre/config.sub"
-chmod 0755 "pcre/configure"; touch -c -t "202106151752.52" "pcre/configure"
-chmod 0644 "pcre/configure.ac"; touch -c -t "202106151752.47" "pcre/configure.ac"
-chmod 0755 "pcre/depcomp"; touch -c -t "202106151752.53" "pcre/depcomp"
-chmod 0644 "pcre/dftables.c"; touch -c -t "201401311532.11" "pcre/dftables.c"
-chmod 0644 "pcre/doc/html/NON-AUTOTOOLS-BUILD.txt"; touch -c -t "202106151813.53" "pcre/doc/html/NON-AUTOTOOLS-BUILD.txt"
-chmod 0644 "pcre/doc/html/README.txt"; touch -c -t "202106151813.53" "pcre/doc/html/README.txt"
-chmod 0644 "pcre/doc/html/index.html"; touch -c -t "202106151813.53" "pcre/doc/html/index.html"
-chmod 0644 "pcre/doc/html/pcre-config.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre-config.html"
-chmod 0644 "pcre/doc/html/pcre.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre.html"
-chmod 0644 "pcre/doc/html/pcre16.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre16.html"
-chmod 0644 "pcre/doc/html/pcre32.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre32.html"
-chmod 0644 "pcre/doc/html/pcre_assign_jit_stack.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_assign_jit_stack.html"
-chmod 0644 "pcre/doc/html/pcre_compile.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_compile.html"
-chmod 0644 "pcre/doc/html/pcre_compile2.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_compile2.html"
-chmod 0644 "pcre/doc/html/pcre_config.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_config.html"
-chmod 0644 "pcre/doc/html/pcre_copy_named_substring.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_copy_named_substring.html"
-chmod 0644 "pcre/doc/html/pcre_copy_substring.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_copy_substring.html"
-chmod 0644 "pcre/doc/html/pcre_dfa_exec.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_dfa_exec.html"
-chmod 0644 "pcre/doc/html/pcre_exec.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_exec.html"
-chmod 0644 "pcre/doc/html/pcre_free_study.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_free_study.html"
-chmod 0644 "pcre/doc/html/pcre_free_substring.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_free_substring.html"
-chmod 0644 "pcre/doc/html/pcre_free_substring_list.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_free_substring_list.html"
-chmod 0644 "pcre/doc/html/pcre_fullinfo.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_fullinfo.html"
-chmod 0644 "pcre/doc/html/pcre_get_named_substring.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_get_named_substring.html"
-chmod 0644 "pcre/doc/html/pcre_get_stringnumber.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_get_stringnumber.html"
-chmod 0644 "pcre/doc/html/pcre_get_stringtable_entries.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_get_stringtable_entries.html"
-chmod 0644 "pcre/doc/html/pcre_get_substring.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_get_substring.html"
-chmod 0644 "pcre/doc/html/pcre_get_substring_list.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_get_substring_list.html"
-chmod 0644 "pcre/doc/html/pcre_jit_exec.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_jit_exec.html"
-chmod 0644 "pcre/doc/html/pcre_jit_stack_alloc.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_jit_stack_alloc.html"
-chmod 0644 "pcre/doc/html/pcre_jit_stack_free.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_jit_stack_free.html"
-chmod 0644 "pcre/doc/html/pcre_maketables.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_maketables.html"
-chmod 0644 "pcre/doc/html/pcre_pattern_to_host_byte_order.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_pattern_to_host_byte_order.html"
-chmod 0644 "pcre/doc/html/pcre_refcount.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_refcount.html"
-chmod 0644 "pcre/doc/html/pcre_study.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_study.html"
-chmod 0644 "pcre/doc/html/pcre_utf16_to_host_byte_order.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_utf16_to_host_byte_order.html"
-chmod 0644 "pcre/doc/html/pcre_utf32_to_host_byte_order.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_utf32_to_host_byte_order.html"
-chmod 0644 "pcre/doc/html/pcre_version.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcre_version.html"
-chmod 0644 "pcre/doc/html/pcreapi.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcreapi.html"
-chmod 0644 "pcre/doc/html/pcrebuild.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcrebuild.html"
-chmod 0644 "pcre/doc/html/pcrecallout.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcrecallout.html"
-chmod 0644 "pcre/doc/html/pcrecompat.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcrecompat.html"
-chmod 0644 "pcre/doc/html/pcrecpp.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcrecpp.html"
-chmod 0644 "pcre/doc/html/pcredemo.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcredemo.html"
-chmod 0644 "pcre/doc/html/pcregrep.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcregrep.html"
-chmod 0644 "pcre/doc/html/pcrejit.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcrejit.html"
-chmod 0644 "pcre/doc/html/pcrelimits.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcrelimits.html"
-chmod 0644 "pcre/doc/html/pcrematching.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcrematching.html"
-chmod 0644 "pcre/doc/html/pcrepartial.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcrepartial.html"
-chmod 0644 "pcre/doc/html/pcrepattern.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcrepattern.html"
-chmod 0644 "pcre/doc/html/pcreperform.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcreperform.html"
-chmod 0644 "pcre/doc/html/pcreposix.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcreposix.html"
-chmod 0644 "pcre/doc/html/pcreprecompile.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcreprecompile.html"
-chmod 0644 "pcre/doc/html/pcresample.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcresample.html"
-chmod 0644 "pcre/doc/html/pcrestack.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcrestack.html"
-chmod 0644 "pcre/doc/html/pcresyntax.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcresyntax.html"
-chmod 0644 "pcre/doc/html/pcretest.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcretest.html"
-chmod 0644 "pcre/doc/html/pcreunicode.html"; touch -c -t "202106151813.53" "pcre/doc/html/pcreunicode.html"
-chmod 0644 "pcre/doc/index.html.src"; touch -c -t "201401311531.54" "pcre/doc/index.html.src"
-chmod 0644 "pcre/doc/pcre-config.1"; touch -c -t "201401311531.55" "pcre/doc/pcre-config.1"
-chmod 0644 "pcre/doc/pcre-config.txt"; touch -c -t "202106151813.53" "pcre/doc/pcre-config.txt"
-chmod 0644 "pcre/doc/pcre.3"; touch -c -t "202106141108.00" "pcre/doc/pcre.3"
-chmod 0644 "pcre/doc/pcre.txt"; touch -c -t "202106151813.53" "pcre/doc/pcre.txt"
-chmod 0644 "pcre/doc/pcre16.3"; touch -c -t "201401311531.54" "pcre/doc/pcre16.3"
-chmod 0644 "pcre/doc/pcre32.3"; touch -c -t "201401311531.54" "pcre/doc/pcre32.3"
-chmod 0644 "pcre/doc/pcre_assign_jit_stack.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_assign_jit_stack.3"
-chmod 0644 "pcre/doc/pcre_compile.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_compile.3"
-chmod 0644 "pcre/doc/pcre_compile2.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_compile2.3"
-chmod 0644 "pcre/doc/pcre_config.3"; touch -c -t "201406201326.05" "pcre/doc/pcre_config.3"
-chmod 0644 "pcre/doc/pcre_copy_named_substring.3"; touch -c -t "201401311531.55" "pcre/doc/pcre_copy_named_substring.3"
-chmod 0644 "pcre/doc/pcre_copy_substring.3"; touch -c -t "201401311531.55" "pcre/doc/pcre_copy_substring.3"
-chmod 0644 "pcre/doc/pcre_dfa_exec.3"; touch -c -t "201401311531.55" "pcre/doc/pcre_dfa_exec.3"
-chmod 0644 "pcre/doc/pcre_exec.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_exec.3"
-chmod 0644 "pcre/doc/pcre_free_study.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_free_study.3"
-chmod 0644 "pcre/doc/pcre_free_substring.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_free_substring.3"
-chmod 0644 "pcre/doc/pcre_free_substring_list.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_free_substring_list.3"
-chmod 0644 "pcre/doc/pcre_fullinfo.3"; touch -c -t "201406201326.05" "pcre/doc/pcre_fullinfo.3"
-chmod 0644 "pcre/doc/pcre_get_named_substring.3"; touch -c -t "201401311531.55" "pcre/doc/pcre_get_named_substring.3"
-chmod 0644 "pcre/doc/pcre_get_stringnumber.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_get_stringnumber.3"
-chmod 0644 "pcre/doc/pcre_get_stringtable_entries.3"; touch -c -t "201401311531.55" "pcre/doc/pcre_get_stringtable_entries.3"
-chmod 0644 "pcre/doc/pcre_get_substring.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_get_substring.3"
-chmod 0644 "pcre/doc/pcre_get_substring_list.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_get_substring_list.3"
-chmod 0644 "pcre/doc/pcre_jit_exec.3"; touch -c -t "201401311531.55" "pcre/doc/pcre_jit_exec.3"
-chmod 0644 "pcre/doc/pcre_jit_stack_alloc.3"; touch -c -t "201401311531.55" "pcre/doc/pcre_jit_stack_alloc.3"
-chmod 0644 "pcre/doc/pcre_jit_stack_free.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_jit_stack_free.3"
-chmod 0644 "pcre/doc/pcre_maketables.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_maketables.3"
-chmod 0644 "pcre/doc/pcre_pattern_to_host_byte_order.3"; touch -c -t "201401311531.55" "pcre/doc/pcre_pattern_to_host_byte_order.3"
-chmod 0644 "pcre/doc/pcre_refcount.3"; touch -c -t "201401311531.55" "pcre/doc/pcre_refcount.3"
-chmod 0644 "pcre/doc/pcre_study.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_study.3"
-chmod 0644 "pcre/doc/pcre_utf16_to_host_byte_order.3"; touch -c -t "201401311531.55" "pcre/doc/pcre_utf16_to_host_byte_order.3"
-chmod 0644 "pcre/doc/pcre_utf32_to_host_byte_order.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_utf32_to_host_byte_order.3"
-chmod 0644 "pcre/doc/pcre_version.3"; touch -c -t "201401311531.54" "pcre/doc/pcre_version.3"
-chmod 0644 "pcre/doc/pcreapi.3"; touch -c -t "202106141244.46" "pcre/doc/pcreapi.3"
-chmod 0644 "pcre/doc/pcrebuild.3"; touch -c -t "201401311531.55" "pcre/doc/pcrebuild.3"
-chmod 0644 "pcre/doc/pcrecallout.3"; touch -c -t "201401311531.54" "pcre/doc/pcrecallout.3"
-chmod 0644 "pcre/doc/pcrecompat.3"; touch -c -t "201610181738.08" "pcre/doc/pcrecompat.3"
-chmod 0644 "pcre/doc/pcrecpp.3"; touch -c -t "201401311531.54" "pcre/doc/pcrecpp.3"
-chmod 0644 "pcre/doc/pcredemo.3"; touch -c -t "202106151813.53" "pcre/doc/pcredemo.3"
-chmod 0644 "pcre/doc/pcregrep.1"; touch -c -t "201404041537.38" "pcre/doc/pcregrep.1"
-chmod 0644 "pcre/doc/pcregrep.txt"; touch -c -t "202106151813.53" "pcre/doc/pcregrep.txt"
-chmod 0644 "pcre/doc/pcrejit.3"; touch -c -t "202106141239.55" "pcre/doc/pcrejit.3"
-chmod 0644 "pcre/doc/pcrelimits.3"; touch -c -t "201401311531.54" "pcre/doc/pcrelimits.3"
-chmod 0644 "pcre/doc/pcrematching.3"; touch -c -t "201401311531.55" "pcre/doc/pcrematching.3"
-chmod 0644 "pcre/doc/pcrepartial.3"; touch -c -t "201401311531.54" "pcre/doc/pcrepartial.3"
-chmod 0644 "pcre/doc/pcrepattern.3"; touch -c -t "202106141242.34" "pcre/doc/pcrepattern.3"
-chmod 0644 "pcre/doc/pcreperform.3"; touch -c -t "201401311531.55" "pcre/doc/pcreperform.3"
-chmod 0644 "pcre/doc/pcreposix.3"; touch -c -t "201401311531.54" "pcre/doc/pcreposix.3"
-chmod 0644 "pcre/doc/pcreprecompile.3"; touch -c -t "201401311531.55" "pcre/doc/pcreprecompile.3"
-chmod 0644 "pcre/doc/pcresample.3"; touch -c -t "201401311531.55" "pcre/doc/pcresample.3"
-chmod 0644 "pcre/doc/pcrestack.3"; touch -c -t "201401311531.55" "pcre/doc/pcrestack.3"
-chmod 0644 "pcre/doc/pcresyntax.3"; touch -c -t "202106141246.30" "pcre/doc/pcresyntax.3"
-chmod 0644 "pcre/doc/pcretest.1"; touch -c -t "202002121835.18" "pcre/doc/pcretest.1"
-chmod 0644 "pcre/doc/pcretest.txt"; touch -c -t "202106151813.53" "pcre/doc/pcretest.txt"
-chmod 0644 "pcre/doc/pcreunicode.3"; touch -c -t "201401311531.55" "pcre/doc/pcreunicode.3"
-chmod 0644 "pcre/doc/perltest.txt"; touch -c -t "201401311531.54" "pcre/doc/perltest.txt"
-chmod 0755 "pcre/install-sh"; touch -c -t "202106151752.53" "pcre/install-sh"
-chmod 0644 "pcre/libpcre.pc.in"; touch -c -t "201504231937.42" "pcre/libpcre.pc.in"
-chmod 0644 "pcre/libpcre16.pc.in"; touch -c -t "201504231938.09" "pcre/libpcre16.pc.in"
-chmod 0644 "pcre/libpcre32.pc.in"; touch -c -t "201504231938.32" "pcre/libpcre32.pc.in"
-chmod 0644 "pcre/libpcrecpp.pc.in"; touch -c -t "201401311532.11" "pcre/libpcrecpp.pc.in"
-chmod 0644 "pcre/libpcreposix.pc.in"; touch -c -t "201401311532.10" "pcre/libpcreposix.pc.in"
-chmod 0644 "pcre/ltmain.sh"; touch -c -t "202106151752.50" "pcre/ltmain.sh"
-chmod 0644 "pcre/m4/ax_pthread.m4"; touch -c -t "201401311532.09" "pcre/m4/ax_pthread.m4"
-chmod 0644 "pcre/m4/libtool.m4"; touch -c -t "202106151752.50" "pcre/m4/libtool.m4"
-chmod 0644 "pcre/m4/ltoptions.m4"; touch -c -t "202106151752.51" "pcre/m4/ltoptions.m4"
-chmod 0644 "pcre/m4/ltsugar.m4"; touch -c -t "202106151752.51" "pcre/m4/ltsugar.m4"
-chmod 0644 "pcre/m4/ltversion.m4"; touch -c -t "202106151752.51" "pcre/m4/ltversion.m4"
-chmod 0644 "pcre/m4/lt~obsolete.m4"; touch -c -t "202106151752.51" "pcre/m4/lt~obsolete.m4"
-chmod 0644 "pcre/m4/pcre_visibility.m4"; touch -c -t "201401311532.09" "pcre/m4/pcre_visibility.m4"
-chmod 0644 "pcre/makevp.bat"; touch -c -t "201401311532.09" "pcre/makevp.bat"
-chmod 0644 "pcre/makevp_c.txt"; touch -c -t "201401311532.54" "pcre/makevp_c.txt"
-chmod 0644 "pcre/makevp_l.txt"; touch -c -t "201401311532.54" "pcre/makevp_l.txt"
-chmod 0755 "pcre/missing"; touch -c -t "202106151752.53" "pcre/missing"
-chmod 0644 "pcre/pcre-config.in"; touch -c -t "201401311532.51" "pcre/pcre-config.in"
-chmod 0644 "pcre/pcre.h.generic"; touch -c -t "202106151813.44" "pcre/pcre.h.generic"
-chmod 0644 "pcre/pcre.h.in"; touch -c -t "201708191109.52" "pcre/pcre.h.in"
-chmod 0644 "pcre/pcre16_byte_order.c"; touch -c -t "201401311532.54" "pcre/pcre16_byte_order.c"
-chmod 0644 "pcre/pcre16_chartables.c"; touch -c -t "201401311532.08" "pcre/pcre16_chartables.c"
-chmod 0644 "pcre/pcre16_compile.c"; touch -c -t "201401311531.54" "pcre/pcre16_compile.c"
-chmod 0644 "pcre/pcre16_config.c"; touch -c -t "201401311532.11" "pcre/pcre16_config.c"
-chmod 0644 "pcre/pcre16_dfa_exec.c"; touch -c -t "201401311532.08" "pcre/pcre16_dfa_exec.c"
-chmod 0644 "pcre/pcre16_exec.c"; touch -c -t "201401311531.55" "pcre/pcre16_exec.c"
-chmod 0644 "pcre/pcre16_fullinfo.c"; touch -c -t "201401311532.54" "pcre/pcre16_fullinfo.c"
-chmod 0644 "pcre/pcre16_get.c"; touch -c -t "201401311532.09" "pcre/pcre16_get.c"
-chmod 0644 "pcre/pcre16_globals.c"; touch -c -t "201401311532.11" "pcre/pcre16_globals.c"
-chmod 0644 "pcre/pcre16_jit_compile.c"; touch -c -t "201401311532.09" "pcre/pcre16_jit_compile.c"
-chmod 0644 "pcre/pcre16_maketables.c"; touch -c -t "201401311532.13" "pcre/pcre16_maketables.c"
-chmod 0644 "pcre/pcre16_newline.c"; touch -c -t "201401311532.51" "pcre/pcre16_newline.c"
-chmod 0644 "pcre/pcre16_ord2utf16.c"; touch -c -t "201401311532.54" "pcre/pcre16_ord2utf16.c"
-chmod 0644 "pcre/pcre16_printint.c"; touch -c -t "201401311532.08" "pcre/pcre16_printint.c"
-chmod 0644 "pcre/pcre16_refcount.c"; touch -c -t "201401311532.10" "pcre/pcre16_refcount.c"
-chmod 0644 "pcre/pcre16_string_utils.c"; touch -c -t "201401311532.53" "pcre/pcre16_string_utils.c"
-chmod 0644 "pcre/pcre16_study.c"; touch -c -t "201401311532.54" "pcre/pcre16_study.c"
-chmod 0644 "pcre/pcre16_tables.c"; touch -c -t "201401311532.53" "pcre/pcre16_tables.c"
-chmod 0644 "pcre/pcre16_ucd.c"; touch -c -t "201401311532.54" "pcre/pcre16_ucd.c"
-chmod 0644 "pcre/pcre16_utf16_utils.c"; touch -c -t "201401311532.54" "pcre/pcre16_utf16_utils.c"
-chmod 0644 "pcre/pcre16_valid_utf16.c"; touch -c -t "201401311532.11" "pcre/pcre16_valid_utf16.c"
-chmod 0644 "pcre/pcre16_version.c"; touch -c -t "201401311532.54" "pcre/pcre16_version.c"
-chmod 0644 "pcre/pcre16_xclass.c"; touch -c -t "201401311532.11" "pcre/pcre16_xclass.c"
-chmod 0644 "pcre/pcre32_byte_order.c"; touch -c -t "201401311532.11" "pcre/pcre32_byte_order.c"
-chmod 0644 "pcre/pcre32_chartables.c"; touch -c -t "201401311532.14" "pcre/pcre32_chartables.c"
-chmod 0644 "pcre/pcre32_compile.c"; touch -c -t "201401311532.13" "pcre/pcre32_compile.c"
-chmod 0644 "pcre/pcre32_config.c"; touch -c -t "201401311532.54" "pcre/pcre32_config.c"
-chmod 0644 "pcre/pcre32_dfa_exec.c"; touch -c -t "201401311531.55" "pcre/pcre32_dfa_exec.c"
-chmod 0644 "pcre/pcre32_exec.c"; touch -c -t "201401311532.08" "pcre/pcre32_exec.c"
-chmod 0644 "pcre/pcre32_fullinfo.c"; touch -c -t "201401311532.53" "pcre/pcre32_fullinfo.c"
-chmod 0644 "pcre/pcre32_get.c"; touch -c -t "201401311532.54" "pcre/pcre32_get.c"
-chmod 0644 "pcre/pcre32_globals.c"; touch -c -t "201401311532.09" "pcre/pcre32_globals.c"
-chmod 0644 "pcre/pcre32_jit_compile.c"; touch -c -t "201401311532.11" "pcre/pcre32_jit_compile.c"
-chmod 0644 "pcre/pcre32_maketables.c"; touch -c -t "201401311532.11" "pcre/pcre32_maketables.c"
-chmod 0644 "pcre/pcre32_newline.c"; touch -c -t "201401311532.14" "pcre/pcre32_newline.c"
-chmod 0644 "pcre/pcre32_ord2utf32.c"; touch -c -t "201401311532.11" "pcre/pcre32_ord2utf32.c"
-chmod 0644 "pcre/pcre32_printint.c"; touch -c -t "201401311532.54" "pcre/pcre32_printint.c"
-chmod 0644 "pcre/pcre32_refcount.c"; touch -c -t "201401311532.13" "pcre/pcre32_refcount.c"
-chmod 0644 "pcre/pcre32_string_utils.c"; touch -c -t "201401311532.09" "pcre/pcre32_string_utils.c"
-chmod 0644 "pcre/pcre32_study.c"; touch -c -t "201401311532.11" "pcre/pcre32_study.c"
-chmod 0644 "pcre/pcre32_tables.c"; touch -c -t "201401311532.54" "pcre/pcre32_tables.c"
-chmod 0644 "pcre/pcre32_ucd.c"; touch -c -t "201401311532.09" "pcre/pcre32_ucd.c"
-chmod 0644 "pcre/pcre32_utf32_utils.c"; touch -c -t "201401311532.09" "pcre/pcre32_utf32_utils.c"
-chmod 0644 "pcre/pcre32_valid_utf32.c"; touch -c -t "201401311532.11" "pcre/pcre32_valid_utf32.c"
-chmod 0644 "pcre/pcre32_version.c"; touch -c -t "201401311531.54" "pcre/pcre32_version.c"
-chmod 0644 "pcre/pcre32_xclass.c"; touch -c -t "201401311532.14" "pcre/pcre32_xclass.c"
-chmod 0644 "pcre/pcre_byte_order.c"; touch -c -t "201404031850.52" "pcre/pcre_byte_order.c"
-chmod 0644 "pcre/pcre_chartables.c.dist"; touch -c -t "201401311532.51" "pcre/pcre_chartables.c.dist"
-chmod 0644 "pcre/pcre_compile.c"; touch -c -t "202106151813.53" "pcre/pcre_compile.c"
-chmod 0644 "pcre/pcre_config.c"; touch -c -t "201401311532.08" "pcre/pcre_config.c"
-chmod 0644 "pcre/pcre_dfa_exec.c"; touch -c -t "201711161900.02" "pcre/pcre_dfa_exec.c"
-chmod 0644 "pcre/pcre_exec.c"; touch -c -t "202106141314.38" "pcre/pcre_exec.c"
-chmod 0644 "pcre/pcre_fullinfo.c"; touch -c -t "201401311532.54" "pcre/pcre_fullinfo.c"
-chmod 0644 "pcre/pcre_get.c"; touch -c -t "201703271753.18" "pcre/pcre_get.c"
-chmod 0644 "pcre/pcre_globals.c"; touch -c -t "201402091258.40" "pcre/pcre_globals.c"
-chmod 0644 "pcre/pcre_internal.h"; touch -c -t "201706131849.46" "pcre/pcre_internal.h"
-chmod 0644 "pcre/pcre_jit_compile.c"; touch -c -t "202002111836.46" "pcre/pcre_jit_compile.c"
-chmod 0644 "pcre/pcre_jit_test.c"; touch -c -t "201607021753.59" "pcre/pcre_jit_test.c"
-chmod 0644 "pcre/pcre_maketables.c"; touch -c -t "201401311532.53" "pcre/pcre_maketables.c"
-chmod 0644 "pcre/pcre_newline.c"; touch -c -t "201401311532.09" "pcre/pcre_newline.c"
-chmod 0644 "pcre/pcre_ord2utf8.c"; touch -c -t "201401311532.08" "pcre/pcre_ord2utf8.c"
-chmod 0644 "pcre/pcre_printint.c"; touch -c -t "201401311532.54" "pcre/pcre_printint.c"
-chmod 0644 "pcre/pcre_refcount.c"; touch -c -t "201401311532.12" "pcre/pcre_refcount.c"
-chmod 0644 "pcre/pcre_scanner.cc"; touch -c -t "201401311531.55" "pcre/pcre_scanner.cc"
-chmod 0644 "pcre/pcre_scanner.h"; touch -c -t "201401311532.09" "pcre/pcre_scanner.h"
-chmod 0644 "pcre/pcre_scanner_unittest.cc"; touch -c -t "201704211903.29" "pcre/pcre_scanner_unittest.cc"
-chmod 0644 "pcre/pcre_string_utils.c"; touch -c -t "201401311532.13" "pcre/pcre_string_utils.c"
-chmod 0644 "pcre/pcre_stringpiece.cc"; touch -c -t "201401311532.54" "pcre/pcre_stringpiece.cc"
-chmod 0644 "pcre/pcre_stringpiece.h.in"; touch -c -t "201704211903.29" "pcre/pcre_stringpiece.h.in"
-chmod 0644 "pcre/pcre_stringpiece_unittest.cc"; touch -c -t "201704211903.29" "pcre/pcre_stringpiece_unittest.cc"
-chmod 0644 "pcre/pcre_study.c"; touch -c -t "201602281459.46" "pcre/pcre_study.c"
-chmod 0644 "pcre/pcre_tables.c"; touch -c -t "201704301541.32" "pcre/pcre_tables.c"
-chmod 0644 "pcre/pcre_ucd.c"; touch -c -t "201702241815.46" "pcre/pcre_ucd.c"
-chmod 0644 "pcre/pcre_valid_utf8.c"; touch -c -t "201401311532.54" "pcre/pcre_valid_utf8.c"
-chmod 0644 "pcre/pcre_version.c"; touch -c -t "201401311532.08" "pcre/pcre_version.c"
-chmod 0644 "pcre/pcre_xclass.c"; touch -c -t "201511171845.24" "pcre/pcre_xclass.c"
-chmod 0644 "pcre/pcrecpp.cc"; touch -c -t "202002121835.18" "pcre/pcrecpp.cc"
-chmod 0644 "pcre/pcrecpp.h"; touch -c -t "201401311532.11" "pcre/pcrecpp.h"
-chmod 0644 "pcre/pcrecpp_internal.h"; touch -c -t "201401311532.54" "pcre/pcrecpp_internal.h"
-chmod 0644 "pcre/pcrecpp_unittest.cc"; touch -c -t "201901251704.52" "pcre/pcrecpp_unittest.cc"
-chmod 0644 "pcre/pcrecpparg.h.in"; touch -c -t "201401311532.09" "pcre/pcrecpparg.h.in"
-chmod 0644 "pcre/pcredemo.c"; touch -c -t "202106141239.09" "pcre/pcredemo.c"
-chmod 0644 "pcre/pcregexp.pas"; touch -c -t "201401311532.53" "pcre/pcregexp.pas"
-chmod 0644 "pcre/pcregrep.c"; touch -c -t "201806261902.42" "pcre/pcregrep.c"
-chmod 0644 "pcre/pcreposix.c"; touch -c -t "202002101759.09" "pcre/pcreposix.c"
-chmod 0644 "pcre/pcreposix.h"; touch -c -t "201401311532.51" "pcre/pcreposix.h"
-chmod 0644 "pcre/pcretest.c"; touch -c -t "202106151741.57" "pcre/pcretest.c"
-chmod 0755 "pcre/perltest.pl"; touch -c -t "201409151548.59" "pcre/perltest.pl"
-chmod 0644 "pcre/sljit/sljitConfig.h"; touch -c -t "201711301811.59" "pcre/sljit/sljitConfig.h"
-chmod 0644 "pcre/sljit/sljitConfigInternal.h"; touch -c -t "201911191721.54" "pcre/sljit/sljitConfigInternal.h"
-chmod 0644 "pcre/sljit/sljitExecAllocator.c"; touch -c -t "201911191721.54" "pcre/sljit/sljitExecAllocator.c"
-chmod 0644 "pcre/sljit/sljitLir.c"; touch -c -t "201907181819.06" "pcre/sljit/sljitLir.c"
-chmod 0644 "pcre/sljit/sljitLir.h"; touch -c -t "201907171036.12" "pcre/sljit/sljitLir.h"
-chmod 0644 "pcre/sljit/sljitNativeARM_32.c"; touch -c -t "201911291559.11" "pcre/sljit/sljitNativeARM_32.c"
-chmod 0644 "pcre/sljit/sljitNativeARM_64.c"; touch -c -t "201907171036.12" "pcre/sljit/sljitNativeARM_64.c"
-chmod 0644 "pcre/sljit/sljitNativeARM_T2_32.c"; touch -c -t "201907171036.12" "pcre/sljit/sljitNativeARM_T2_32.c"
-chmod 0644 "pcre/sljit/sljitNativeMIPS_32.c"; touch -c -t "201907171036.12" "pcre/sljit/sljitNativeMIPS_32.c"
-chmod 0644 "pcre/sljit/sljitNativeMIPS_64.c"; touch -c -t "201903051554.06" "pcre/sljit/sljitNativeMIPS_64.c"
-chmod 0644 "pcre/sljit/sljitNativeMIPS_common.c"; touch -c -t "201907171036.12" "pcre/sljit/sljitNativeMIPS_common.c"
-chmod 0644 "pcre/sljit/sljitNativePPC_32.c"; touch -c -t "201907171036.12" "pcre/sljit/sljitNativePPC_32.c"
-chmod 0644 "pcre/sljit/sljitNativePPC_64.c"; touch -c -t "201907171036.12" "pcre/sljit/sljitNativePPC_64.c"
-chmod 0644 "pcre/sljit/sljitNativePPC_common.c"; touch -c -t "201907171036.12" "pcre/sljit/sljitNativePPC_common.c"
-chmod 0644 "pcre/sljit/sljitNativeSPARC_32.c"; touch -c -t "201907171036.12" "pcre/sljit/sljitNativeSPARC_32.c"
-chmod 0644 "pcre/sljit/sljitNativeSPARC_common.c"; touch -c -t "201907171036.12" "pcre/sljit/sljitNativeSPARC_common.c"
-chmod 0644 "pcre/sljit/sljitNativeTILEGX-encoder.c"; touch -c -t "201702011715.33" "pcre/sljit/sljitNativeTILEGX-encoder.c"
-chmod 0644 "pcre/sljit/sljitNativeTILEGX_64.c"; touch -c -t "201705071732.25" "pcre/sljit/sljitNativeTILEGX_64.c"
-chmod 0644 "pcre/sljit/sljitNativeX86_32.c"; touch -c -t "201907171036.12" "pcre/sljit/sljitNativeX86_32.c"
-chmod 0644 "pcre/sljit/sljitNativeX86_64.c"; touch -c -t "201911191721.54" "pcre/sljit/sljitNativeX86_64.c"
-chmod 0644 "pcre/sljit/sljitNativeX86_common.c"; touch -c -t "201911191721.54" "pcre/sljit/sljitNativeX86_common.c"
-chmod 0644 "pcre/sljit/sljitUtils.c"; touch -c -t "201911191721.54" "pcre/sljit/sljitUtils.c"
-chmod 0755 "pcre/test-driver"; touch -c -t "202106151752.53" "pcre/test-driver"
-chmod 0644 "pcre/testdata/grepbinary"; touch -c -t "201401311532.12" "pcre/testdata/grepbinary"
-chmod 0644 "pcre/testdata/grepfilelist"; touch -c -t "201401311532.13" "pcre/testdata/grepfilelist"
-chmod 0644 "pcre/testdata/grepinput"; touch -c -t "201401311532.13" "pcre/testdata/grepinput"
-chmod 0644 "pcre/testdata/grepinput3"; touch -c -t "201401311532.13" "pcre/testdata/grepinput3"
-chmod 0644 "pcre/testdata/grepinput8"; touch -c -t "201401311532.13" "pcre/testdata/grepinput8"
-chmod 0644 "pcre/testdata/grepinputv"; touch -c -t "201401311532.13" "pcre/testdata/grepinputv"
-chmod 0644 "pcre/testdata/grepinputx"; touch -c -t "201401311532.12" "pcre/testdata/grepinputx"
-chmod 0644 "pcre/testdata/greplist"; touch -c -t "201401311532.13" "pcre/testdata/greplist"
-chmod 0644 "pcre/testdata/grepoutput"; touch -c -t "201508051942.49" "pcre/testdata/grepoutput"
-chmod 0644 "pcre/testdata/grepoutput8"; touch -c -t "201401311532.13" "pcre/testdata/grepoutput8"
-chmod 0644 "pcre/testdata/grepoutputN"; touch -c -t "201401311532.12" "pcre/testdata/grepoutputN"
-chmod 0644 "pcre/testdata/greppatN4"; touch -c -t "201401311532.13" "pcre/testdata/greppatN4"
-chmod 0644 "pcre/testdata/saved16"; touch -c -t "201401311532.13" "pcre/testdata/saved16"
-chmod 0644 "pcre/testdata/saved16BE-1"; touch -c -t "201401311532.12" "pcre/testdata/saved16BE-1"
-chmod 0644 "pcre/testdata/saved16BE-2"; touch -c -t "201401311532.13" "pcre/testdata/saved16BE-2"
-chmod 0644 "pcre/testdata/saved16LE-1"; touch -c -t "201401311532.13" "pcre/testdata/saved16LE-1"
-chmod 0644 "pcre/testdata/saved16LE-2"; touch -c -t "201401311532.13" "pcre/testdata/saved16LE-2"
-chmod 0644 "pcre/testdata/saved32"; touch -c -t "201401311532.12" "pcre/testdata/saved32"
-chmod 0644 "pcre/testdata/saved32BE-1"; touch -c -t "201401311532.13" "pcre/testdata/saved32BE-1"
-chmod 0644 "pcre/testdata/saved32BE-2"; touch -c -t "201401311532.12" "pcre/testdata/saved32BE-2"
-chmod 0644 "pcre/testdata/saved32LE-1"; touch -c -t "201401311532.13" "pcre/testdata/saved32LE-1"
-chmod 0644 "pcre/testdata/saved32LE-2"; touch -c -t "201401311532.13" "pcre/testdata/saved32LE-2"
-chmod 0644 "pcre/testdata/saved8"; touch -c -t "201401311532.12" "pcre/testdata/saved8"
-chmod 0644 "pcre/testdata/testinput1"; touch -c -t "202106141317.09" "pcre/testdata/testinput1"
-chmod 0644 "pcre/testdata/testinput10"; touch -c -t "201401311532.13" "pcre/testdata/testinput10"
-chmod 0644 "pcre/testdata/testinput11"; touch -c -t "201602102011.27" "pcre/testdata/testinput11"
-chmod 0644 "pcre/testdata/testinput12"; touch -c -t "201702141134.20" "pcre/testdata/testinput12"
-chmod 0644 "pcre/testdata/testinput13"; touch -c -t "201401311532.12" "pcre/testdata/testinput13"
-chmod 0644 "pcre/testdata/testinput14"; touch -c -t "201510281040.13" "pcre/testdata/testinput14"
-chmod 0644 "pcre/testdata/testinput15"; touch -c -t "201702221833.33" "pcre/testdata/testinput15"
-chmod 0644 "pcre/testdata/testinput16"; touch -c -t "201608041910.31" "pcre/testdata/testinput16"
-chmod 0644 "pcre/testdata/testinput17"; touch -c -t "201510281040.54" "pcre/testdata/testinput17"
-chmod 0644 "pcre/testdata/testinput18"; touch -c -t "201401311532.13" "pcre/testdata/testinput18"
-chmod 0644 "pcre/testdata/testinput19"; touch -c -t "201702241828.07" "pcre/testdata/testinput19"
-chmod 0644 "pcre/testdata/testinput2"; touch -c -t "202002111841.09" "pcre/testdata/testinput2"
-chmod 0644 "pcre/testdata/testinput20"; touch -c -t "201401311532.13" "pcre/testdata/testinput20"
-chmod 0644 "pcre/testdata/testinput21"; touch -c -t "201401311532.13" "pcre/testdata/testinput21"
-chmod 0644 "pcre/testdata/testinput22"; touch -c -t "201401311532.13" "pcre/testdata/testinput22"
-chmod 0644 "pcre/testdata/testinput23"; touch -c -t "201401311532.13" "pcre/testdata/testinput23"
-chmod 0644 "pcre/testdata/testinput24"; touch -c -t "201401311532.12" "pcre/testdata/testinput24"
-chmod 0644 "pcre/testdata/testinput25"; touch -c -t "201401311532.13" "pcre/testdata/testinput25"
-chmod 0644 "pcre/testdata/testinput26"; touch -c -t "201401311532.13" "pcre/testdata/testinput26"
-chmod 0644 "pcre/testdata/testinput3"; touch -c -t "201401311532.13" "pcre/testdata/testinput3"
-chmod 0644 "pcre/testdata/testinput4"; touch -c -t "201808171649.45" "pcre/testdata/testinput4"
-chmod 0644 "pcre/testdata/testinput5"; touch -c -t "201802201640.14" "pcre/testdata/testinput5"
-chmod 0644 "pcre/testdata/testinput6"; touch -c -t "201610181706.17" "pcre/testdata/testinput6"
-chmod 0644 "pcre/testdata/testinput7"; touch -c -t "201608041836.40" "pcre/testdata/testinput7"
-chmod 0644 "pcre/testdata/testinput8"; touch -c -t "201703221615.07" "pcre/testdata/testinput8"
-chmod 0644 "pcre/testdata/testinput9"; touch -c -t "201401311532.13" "pcre/testdata/testinput9"
-chmod 0644 "pcre/testdata/testinputEBC"; touch -c -t "201506191747.52" "pcre/testdata/testinputEBC"
-chmod 0644 "pcre/testdata/testoutput1"; touch -c -t "202106141317.22" "pcre/testdata/testoutput1"
-chmod 0644 "pcre/testdata/testoutput10"; touch -c -t "201401311532.13" "pcre/testdata/testoutput10"
-chmod 0644 "pcre/testdata/testoutput11-16"; touch -c -t "201602102011.51" "pcre/testdata/testoutput11-16"
-chmod 0644 "pcre/testdata/testoutput11-32"; touch -c -t "201602102011.58" "pcre/testdata/testoutput11-32"
-chmod 0644 "pcre/testdata/testoutput11-8"; touch -c -t "201602102011.43" "pcre/testdata/testoutput11-8"
-chmod 0644 "pcre/testdata/testoutput12"; touch -c -t "201702141134.20" "pcre/testdata/testoutput12"
-chmod 0644 "pcre/testdata/testoutput13"; touch -c -t "201401311532.12" "pcre/testdata/testoutput13"
-chmod 0644 "pcre/testdata/testoutput14"; touch -c -t "201510281040.25" "pcre/testdata/testoutput14"
-chmod 0644 "pcre/testdata/testoutput15"; touch -c -t "201702221833.52" "pcre/testdata/testoutput15"
-chmod 0644 "pcre/testdata/testoutput16"; touch -c -t "201608041911.45" "pcre/testdata/testoutput16"
-chmod 0644 "pcre/testdata/testoutput17"; touch -c -t "201510281041.24" "pcre/testdata/testoutput17"
-chmod 0644 "pcre/testdata/testoutput18-16"; touch -c -t "201406181842.49" "pcre/testdata/testoutput18-16"
-chmod 0644 "pcre/testdata/testoutput18-32"; touch -c -t "201406181842.58" "pcre/testdata/testoutput18-32"
-chmod 0644 "pcre/testdata/testoutput19"; touch -c -t "201608041912.44" "pcre/testdata/testoutput19"
-chmod 0644 "pcre/testdata/testoutput2"; touch -c -t "202002111908.32" "pcre/testdata/testoutput2"
-chmod 0644 "pcre/testdata/testoutput20"; touch -c -t "201401311532.12" "pcre/testdata/testoutput20"
-chmod 0644 "pcre/testdata/testoutput21-16"; touch -c -t "201401311532.12" "pcre/testdata/testoutput21-16"
-chmod 0644 "pcre/testdata/testoutput21-32"; touch -c -t "201401311532.12" "pcre/testdata/testoutput21-32"
-chmod 0644 "pcre/testdata/testoutput22-16"; touch -c -t "201401311532.12" "pcre/testdata/testoutput22-16"
-chmod 0644 "pcre/testdata/testoutput22-32"; touch -c -t "201401311532.13" "pcre/testdata/testoutput22-32"
-chmod 0644 "pcre/testdata/testoutput23"; touch -c -t "201401311532.13" "pcre/testdata/testoutput23"
-chmod 0644 "pcre/testdata/testoutput24"; touch -c -t "201401311532.12" "pcre/testdata/testoutput24"
-chmod 0644 "pcre/testdata/testoutput25"; touch -c -t "201401311532.12" "pcre/testdata/testoutput25"
-chmod 0644 "pcre/testdata/testoutput26"; touch -c -t "201401311532.13" "pcre/testdata/testoutput26"
-chmod 0644 "pcre/testdata/testoutput3"; touch -c -t "201401311532.13" "pcre/testdata/testoutput3"
-chmod 0644 "pcre/testdata/testoutput3A"; touch -c -t "201401311532.13" "pcre/testdata/testoutput3A"
-chmod 0644 "pcre/testdata/testoutput3B"; touch -c -t "201401311532.13" "pcre/testdata/testoutput3B"
-chmod 0644 "pcre/testdata/testoutput4"; touch -c -t "201808171649.58" "pcre/testdata/testoutput4"
-chmod 0644 "pcre/testdata/testoutput5"; touch -c -t "201802201640.25" "pcre/testdata/testoutput5"
-chmod 0644 "pcre/testdata/testoutput6"; touch -c -t "201610181706.29" "pcre/testdata/testoutput6"
-chmod 0644 "pcre/testdata/testoutput7"; touch -c -t "201608041838.37" "pcre/testdata/testoutput7"
-chmod 0644 "pcre/testdata/testoutput8"; touch -c -t "201703221615.20" "pcre/testdata/testoutput8"
-chmod 0644 "pcre/testdata/testoutput9"; touch -c -t "201401311532.12" "pcre/testdata/testoutput9"
-chmod 0644 "pcre/testdata/testoutputEBC"; touch -c -t "201506191749.43" "pcre/testdata/testoutputEBC"
-chmod 0644 "pcre/testdata/valgrind-jit.supp"; touch -c -t "201603011343.23" "pcre/testdata/valgrind-jit.supp"
-chmod 0644 "pcre/testdata/wintestinput3"; touch -c -t "201401311532.13" "pcre/testdata/wintestinput3"
-chmod 0644 "pcre/testdata/wintestoutput3"; touch -c -t "201401311532.13" "pcre/testdata/wintestoutput3"
-chmod 0644 "pcre/ucp.h"; touch -c -t "201409151548.59" "pcre/ucp.h"
-chmod 0644 "pkgman/Makefile.am"; touch -c -t "202109291034.58" "pkgman/Makefile.am"
-chmod 0644 "pkgman/Makefile.in"; touch -c -t "202111241445.27" "pkgman/Makefile.in"
-chmod 0644 "pkgman/add.stk"; touch -c -t "202109291034.58" "pkgman/add.stk"
-chmod 0644 "pkgman/copy.stk"; touch -c -t "201108221110.27" "pkgman/copy.stk"
-chmod 0644 "pkgman/etc/Makefile-scmpkg.tmpl"; touch -c -t "201108221111.01" "pkgman/etc/Makefile-scmpkg.tmpl"
-chmod 0644 "pkgman/extract.stk"; touch -c -t "202108181917.29" "pkgman/extract.stk"
-chmod 0644 "pkgman/install.stk"; touch -c -t "202108181917.29" "pkgman/install.stk"
-chmod 0644 "pkgman/lang-bigloo.l"; touch -c -t "202105031202.46" "pkgman/lang-bigloo.l"
-chmod 0644 "pkgman/lang-chicken.l"; touch -c -t "202105031202.46" "pkgman/lang-chicken.l"
-chmod 0644 "pkgman/lang-mzscheme.l"; touch -c -t "202105031202.46" "pkgman/lang-mzscheme.l"
-chmod 0644 "pkgman/lang.stk"; touch -c -t "202108181917.29" "pkgman/lang.stk"
-chmod 0644 "pkgman/main.stk"; touch -c -t "202110220957.50" "pkgman/main.stk"
-chmod 0644 "pkgman/misc.stk"; touch -c -t "202108181917.29" "pkgman/misc.stk"
-chmod 0644 "pkgman/params.stk"; touch -c -t "201108220011.34" "pkgman/params.stk"
-chmod 0644 "pkgman/pkgball.stk"; touch -c -t "201108221110.37" "pkgman/pkgball.stk"
-chmod 0644 "pkgman/repository.stk"; touch -c -t "202110220957.58" "pkgman/repository.stk"
-chmod 0644 "pkgman/rewrite.stk"; touch -c -t "201108221110.39" "pkgman/rewrite.stk"
-chmod 0644 "pkgman/tune.stk"; touch -c -t "201108221110.39" "pkgman/tune.stk"
-chmod 0644 "pkgman/types.stk"; touch -c -t "201108221110.40" "pkgman/types.stk"
-chmod 0644 "src/Makefile.am"; touch -c -t "202109291034.58" "src/Makefile.am"
-chmod 0644 "src/Makefile.in"; touch -c -t "202111241445.27" "src/Makefile.in"
-chmod 0644 "src/base64.c"; touch -c -t "202107051005.14" "src/base64.c"
-chmod 0644 "src/boolean.c"; touch -c -t "202108181917.29" "src/boolean.c"
-chmod 0644 "src/boot.c"; touch -c -t "202111241756.43" "src/boot.c"
-chmod 0755 "src/boot.img"; touch -c -t "202111241756.43" "src/boot.img"
-chmod 0644 "src/box.c"; touch -c -t "202105031202.46" "src/box.c"
-chmod 0644 "src/char.c"; touch -c -t "202105031202.46" "src/char.c"
-chmod 0644 "src/cond.c"; touch -c -t "202109291034.58" "src/cond.c"
-chmod 0644 "src/cpointer.c"; touch -c -t "202104261237.22" "src/cpointer.c"
-chmod 0644 "src/dynload.c"; touch -c -t "202104261237.22" "src/dynload.c"
-chmod 0644 "src/env.c"; touch -c -t "202111241156.09" "src/env.c"
-chmod 0644 "src/error.c"; touch -c -t "202111241156.09" "src/error.c"
-chmod 0644 "src/extend.c"; touch -c -t "202108181917.29" "src/extend.c"
-chmod 0644 "src/extraconf.h.in"; touch -c -t "202109291034.58" "src/extraconf.h.in"
-chmod 0644 "src/ffi.c"; touch -c -t "202109291034.58" "src/ffi.c"
-chmod 0644 "src/fixnum.c"; touch -c -t "202109291034.58" "src/fixnum.c"
-chmod 0644 "src/fport.c"; touch -c -t "202110191202.51" "src/fport.c"
-chmod 0644 "src/fport.h"; touch -c -t "202109291034.58" "src/fport.h"
-chmod 0644 "src/gnu-getopt.c"; touch -c -t "202109201108.53" "src/gnu-getopt.c"
-chmod 0644 "src/gnu-getopt.h"; touch -c -t "202109201108.54" "src/gnu-getopt.h"
-chmod 0644 "src/hash.c"; touch -c -t "202111241156.09" "src/hash.c"
-chmod 0644 "src/hash.c.copy"; touch -c -t "202104261237.22" "src/hash.c.copy"
-chmod 0644 "src/hash.h"; touch -c -t "202111241156.09" "src/hash.h"
-chmod 0644 "src/keyword.c"; touch -c -t "202108181917.29" "src/keyword.c"
-chmod 0644 "src/lib.c"; touch -c -t "202108181917.29" "src/lib.c"
-chmod 0644 "src/list.c"; touch -c -t "202105031202.46" "src/list.c"
-chmod 0644 "src/md5.c"; touch -c -t "202109291034.58" "src/md5.c"
-chmod 0644 "src/misc.c"; touch -c -t "202110011047.58" "src/misc.c"
-chmod 0644 "src/mutex-common.c"; touch -c -t "202108181917.29" "src/mutex-common.c"
-chmod 0644 "src/mutex-common.h"; touch -c -t "202104261237.22" "src/mutex-common.h"
-chmod 0644 "src/mutex-none.c"; touch -c -t "201108220901.08" "src/mutex-none.c"
-chmod 0644 "src/mutex-pthreads.c"; touch -c -t "202109291034.58" "src/mutex-pthreads.c"
-chmod 0644 "src/mutex-pthreads.h"; touch -c -t "202109291034.58" "src/mutex-pthreads.h"
-chmod 0644 "src/number.c"; touch -c -t "202111081513.35" "src/number.c"
-chmod 0644 "src/object.c"; touch -c -t "202108181917.29" "src/object.c"
-chmod 0644 "src/object.h"; touch -c -t "201108220901.38" "src/object.h"
-chmod 0644 "src/parameter-test.c"; touch -c -t "201808241737.26" "src/parameter-test.c"
-chmod 0644 "src/parameter.c"; touch -c -t "202108181917.29" "src/parameter.c"
-chmod 0644 "src/path.c"; touch -c -t "202109291034.58" "src/path.c"
-chmod 0644 "src/path.h"; touch -c -t "201108220901.39" "src/path.h"
-chmod 0644 "src/port.c"; touch -c -t "202111241156.09" "src/port.c"
-chmod 0644 "src/print.c"; touch -c -t "202109291034.58" "src/print.c"
-chmod 0644 "src/proc.c"; touch -c -t "202109291034.58" "src/proc.c"
-chmod 0644 "src/process.c"; touch -c -t "202109291034.58" "src/process.c"
-chmod 0644 "src/promise.c"; touch -c -t "202109291034.58" "src/promise.c"
-chmod 0644 "src/read.c"; touch -c -t "202110011047.59" "src/read.c"
-chmod 0644 "src/regexp.c"; touch -c -t "202108181917.29" "src/regexp.c"
-chmod 0644 "src/signal.c"; touch -c -t "202109291034.58" "src/signal.c"
-chmod 0644 "src/sio.c"; touch -c -t "202109291034.58" "src/sio.c"
-chmod 0644 "src/socket.c"; touch -c -t "202109291034.58" "src/socket.c"
-chmod 0644 "src/socket.h"; touch -c -t "201108220901.40" "src/socket.h"
-chmod 0644 "src/sport.c"; touch -c -t "202109291034.58" "src/sport.c"
-chmod 0644 "src/stklos.c"; touch -c -t "202109291034.58" "src/stklos.c"
-chmod 0644 "src/stklos.h"; touch -c -t "202109291034.58" "src/stklos.h"
-chmod 0644 "src/stklosconf.h.in"; touch -c -t "202111241445.32" "src/stklosconf.h.in"
-chmod 0644 "src/str.c"; touch -c -t "202109291034.58" "src/str.c"
-chmod 0644 "src/struct.c"; touch -c -t "202109291034.58" "src/struct.c"
-chmod 0644 "src/struct.h"; touch -c -t "202105031202.46" "src/struct.h"
-chmod 0644 "src/symbol.c"; touch -c -t "202109291034.58" "src/symbol.c"
-chmod 0644 "src/system.c"; touch -c -t "202109291034.58" "src/system.c"
-chmod 0644 "src/thread-common.c"; touch -c -t "202108181917.29" "src/thread-common.c"
-chmod 0644 "src/thread-common.h"; touch -c -t "202104261237.22" "src/thread-common.h"
-chmod 0644 "src/thread-none.c"; touch -c -t "201108220901.26" "src/thread-none.c"
-chmod 0644 "src/thread-none.h"; touch -c -t "201108220901.44" "src/thread-none.h"
-chmod 0644 "src/thread-pthreads.c"; touch -c -t "202109291034.58" "src/thread-pthreads.c"
-chmod 0644 "src/thread-pthreads.h"; touch -c -t "202109291034.58" "src/thread-pthreads.h"
-chmod 0644 "src/utf8-tables.inc"; touch -c -t "202104261237.22" "src/utf8-tables.inc"
-chmod 0644 "src/utf8.c"; touch -c -t "202109291034.58" "src/utf8.c"
-chmod 0644 "src/uvector.c"; touch -c -t "202108181917.29" "src/uvector.c"
-chmod 0644 "src/vector.c"; touch -c -t "202108181917.29" "src/vector.c"
-chmod 0644 "src/vm-instr.h"; touch -c -t "202111241756.43" "src/vm-instr.h"
-chmod 0644 "src/vm.c"; touch -c -t "202111241156.09" "src/vm.c"
-chmod 0644 "src/vm.h"; touch -c -t "202008162017.46" "src/vm.h"
-chmod 0644 "src/vport.c"; touch -c -t "202109291034.58" "src/vport.c"
-chmod 0644 "tests/Makefile.am"; touch -c -t "202108181917.29" "tests/Makefile.am"
-chmod 0644 "tests/Makefile.in"; touch -c -t "202111241445.27" "tests/Makefile.in"
-chmod 0644 "tests/do-test.stk"; touch -c -t "202111241156.09" "tests/do-test.stk"
-chmod 0644 "tests/srfis/1.stk"; touch -c -t "202108181917.29" "tests/srfis/1.stk"
-chmod 0644 "tests/srfis/113.stk"; touch -c -t "202108181917.29" "tests/srfis/113.stk"
-chmod 0644 "tests/srfis/117.stk"; touch -c -t "202108181917.29" "tests/srfis/117.stk"
-chmod 0644 "tests/srfis/118.stk"; touch -c -t "202108181917.29" "tests/srfis/118.stk"
-chmod 0644 "tests/srfis/127.stk"; touch -c -t "202108181917.29" "tests/srfis/127.stk"
-chmod 0644 "tests/srfis/128.stk"; touch -c -t "202108181917.29" "tests/srfis/128.stk"
-chmod 0644 "tests/srfis/129.stk"; touch -c -t "202108181917.29" "tests/srfis/129.stk"
-chmod 0644 "tests/srfis/13.stk"; touch -c -t "202111241156.09" "tests/srfis/13.stk"
-chmod 0644 "tests/srfis/130.stk"; touch -c -t "202108181917.29" "tests/srfis/130.stk"
-chmod 0644 "tests/srfis/132.stk"; touch -c -t "202109291034.58" "tests/srfis/132.stk"
-chmod 0644 "tests/srfis/133.stk"; touch -c -t "202108181917.29" "tests/srfis/133.stk"
-chmod 0644 "tests/srfis/134.stk"; touch -c -t "202108181917.29" "tests/srfis/134.stk"
-chmod 0644 "tests/srfis/135.stk"; touch -c -t "202108181917.29" "tests/srfis/135.stk"
-chmod 0644 "tests/srfis/137.stk"; touch -c -t "202108181917.29" "tests/srfis/137.stk"
-chmod 0644 "tests/srfis/141.stk"; touch -c -t "202108181917.29" "tests/srfis/141.stk"
-chmod 0644 "tests/srfis/143.stk"; touch -c -t "202108181917.29" "tests/srfis/143.stk"
-chmod 0644 "tests/srfis/144.stk"; touch -c -t "202109291034.58" "tests/srfis/144.stk"
-chmod 0644 "tests/srfis/15.stk"; touch -c -t "202109291034.58" "tests/srfis/15.stk"
-chmod 0644 "tests/srfis/151.stk"; touch -c -t "202108181917.29" "tests/srfis/151.stk"
-chmod 0644 "tests/srfis/156.stk"; touch -c -t "202108181917.29" "tests/srfis/156.stk"
-chmod 0644 "tests/srfis/158.stk"; touch -c -t "202108181917.29" "tests/srfis/158.stk"
-chmod 0644 "tests/srfis/161.stk"; touch -c -t "202108181917.29" "tests/srfis/161.stk"
-chmod 0644 "tests/srfis/169.stk"; touch -c -t "202108181917.29" "tests/srfis/169.stk"
-chmod 0644 "tests/srfis/171.stk"; touch -c -t "202108181917.29" "tests/srfis/171.stk"
-chmod 0644 "tests/srfis/173.stk"; touch -c -t "202108181917.29" "tests/srfis/173.stk"
-chmod 0644 "tests/srfis/174.stk"; touch -c -t "202108181917.29" "tests/srfis/174.stk"
-chmod 0644 "tests/srfis/175.stk"; touch -c -t "202108181917.29" "tests/srfis/175.stk"
-chmod 0644 "tests/srfis/176.stk"; touch -c -t "202108181917.29" "tests/srfis/176.stk"
-chmod 0644 "tests/srfis/180.stk"; touch -c -t "202108181917.29" "tests/srfis/180.stk"
-chmod 0644 "tests/srfis/185.stk"; touch -c -t "202108181917.29" "tests/srfis/185.stk"
-chmod 0644 "tests/srfis/189.stk"; touch -c -t "202108181917.29" "tests/srfis/189.stk"
-chmod 0644 "tests/srfis/190.stk"; touch -c -t "202108181917.29" "tests/srfis/190.stk"
-chmod 0644 "tests/srfis/193.stk"; touch -c -t "202108181917.29" "tests/srfis/193.stk"
-chmod 0644 "tests/srfis/195.stk"; touch -c -t "202108181917.29" "tests/srfis/195.stk"
-chmod 0644 "tests/srfis/196.stk"; touch -c -t "202108181917.29" "tests/srfis/196.stk"
-chmod 0644 "tests/srfis/2.stk"; touch -c -t "202110101039.11" "tests/srfis/2.stk"
-chmod 0644 "tests/srfis/207.stk"; touch -c -t "202108181917.29" "tests/srfis/207.stk"
-chmod 0644 "tests/srfis/208.stk"; touch -c -t "202109291034.58" "tests/srfis/208.stk"
-chmod 0644 "tests/srfis/214.stk"; touch -c -t "202109291034.58" "tests/srfis/214.stk"
-chmod 0644 "tests/srfis/216.stk"; touch -c -t "202108181917.29" "tests/srfis/216.stk"
-chmod 0644 "tests/srfis/217.stk"; touch -c -t "202108181917.29" "tests/srfis/217.stk"
-chmod 0644 "tests/srfis/219.stk"; touch -c -t "202108181917.29" "tests/srfis/219.stk"
-chmod 0644 "tests/srfis/223.stk"; touch -c -t "202109291034.58" "tests/srfis/223.stk"
-chmod 0644 "tests/srfis/25.stk"; touch -c -t "202109291034.58" "tests/srfis/25.stk"
-chmod 0644 "tests/srfis/27.stk"; touch -c -t "202109291034.58" "tests/srfis/27.stk"
-chmod 0644 "tests/srfis/29.stk"; touch -c -t "202111241156.09" "tests/srfis/29.stk"
-chmod 0644 "tests/srfis/37.stk"; touch -c -t "202108181917.29" "tests/srfis/37.stk"
-chmod 0644 "tests/srfis/4.stk"; touch -c -t "202108181917.29" "tests/srfis/4.stk"
-chmod 0644 "tests/srfis/41.stk"; touch -c -t "202108181917.29" "tests/srfis/41.stk"
-chmod 0644 "tests/srfis/48.stk"; touch -c -t "202108181917.29" "tests/srfis/48.stk"
-chmod 0644 "tests/srfis/5.stk"; touch -c -t "202108181917.29" "tests/srfis/5.stk"
-chmod 0644 "tests/srfis/51.stk"; touch -c -t "202109291034.58" "tests/srfis/51.stk"
-chmod 0644 "tests/srfis/54.stk"; touch -c -t "202108181917.29" "tests/srfis/54.stk"
-chmod 0644 "tests/srfis/60.stk"; touch -c -t "202108181917.29" "tests/srfis/60.stk"
-chmod 0644 "tests/srfis/62.stk"; touch -c -t "202108181917.29" "tests/srfis/62.stk"
-chmod 0644 "tests/srfis/64.stk"; touch -c -t "202108181917.29" "tests/srfis/64.stk"
-chmod 0644 "tests/srfis/70.stk"; touch -c -t "202108181917.29" "tests/srfis/70.stk"
-chmod 0644 "tests/srfis/74.stk"; touch -c -t "202110101911.06" "tests/srfis/74.stk"
-chmod 0644 "tests/srfis/87.stk"; touch -c -t "202108181917.29" "tests/srfis/87.stk"
-chmod 0644 "tests/srfis/94.stk"; touch -c -t "202109291034.58" "tests/srfis/94.stk"
-chmod 0644 "tests/srfis/README.md"; touch -c -t "202108181917.29" "tests/srfis/README.md"
-chmod 0644 "tests/test-base64.stk"; touch -c -t "201108221113.25" "tests/test-base64.stk"
-chmod 0644 "tests/test-box.stk"; touch -c -t "202108181917.29" "tests/test-box.stk"
-chmod 0644 "tests/test-callcc.stk"; touch -c -t "201108221113.27" "tests/test-callcc.stk"
-chmod 0644 "tests/test-circular.stk"; touch -c -t "202104261237.22" "tests/test-circular.stk"
-chmod 0644 "tests/test-ffi.stk"; touch -c -t "202105031202.46" "tests/test-ffi.stk"
-chmod 0644 "tests/test-fport.stk"; touch -c -t "202109061836.35" "tests/test-fport.stk"
-chmod 0644 "tests/test-json.stk"; touch -c -t "202105031202.46" "tests/test-json.stk"
-chmod 0644 "tests/test-keyword.stk"; touch -c -t "202108181917.29" "tests/test-keyword.stk"
-chmod 0644 "tests/test-md5.stk"; touch -c -t "201108221113.30" "tests/test-md5.stk"
-chmod 0644 "tests/test-misc.stk"; touch -c -t "202109291034.58" "tests/test-misc.stk"
-chmod 0644 "tests/test-number.stk"; touch -c -t "202109291034.58" "tests/test-number.stk"
-chmod 0644 "tests/test-r5.stk"; touch -c -t "201807141839.02" "tests/test-r5.stk"
-chmod 0644 "tests/test-r5rs-pitfall.stk"; touch -c -t "201108221113.31" "tests/test-r5rs-pitfall.stk"
-chmod 0644 "tests/test-r7rs.stk"; touch -c -t "202111241156.09" "tests/test-r7rs.stk"
-chmod 0644 "tests/test-regexp.stk"; touch -c -t "201108221113.33" "tests/test-regexp.stk"
-chmod 0644 "tests/test-sport.stk"; touch -c -t "202109291034.58" "tests/test-sport.stk"
-chmod 0644 "tests/test-srfi.stk"; touch -c -t "202108181917.29" "tests/test-srfi.stk"
-chmod 0644 "tests/test-threads.stk"; touch -c -t "202105031202.46" "tests/test-threads.stk"
-chmod 0644 "tests/test-utf8.stk"; touch -c -t "202105031202.46" "tests/test-utf8.stk"
-chmod 0644 "tests/test.stk"; touch -c -t "202111241156.09" "tests/test.stk"
-chmod 0644 "utils/Makefile.am"; touch -c -t "202109291034.58" "utils/Makefile.am"
-chmod 0644 "utils/Makefile.in"; touch -c -t "202111241445.27" "utils/Makefile.in"
-chmod 0755 "utils/generate-git-info"; touch -c -t "202108181917.29" "utils/generate-git-info"
-chmod 0755 "utils/make-doc"; touch -c -t "201108221117.12" "utils/make-doc"
-chmod 0755 "utils/shlib-options"; touch -c -t "202105031202.46" "utils/shlib-options"
-chmod 0644 "utils/stklos-compile.stk"; touch -c -t "202109291034.58" "utils/stklos-compile.stk"
-chmod 0644 "utils/stklos-config.in"; touch -c -t "202105031202.46" "utils/stklos-config.in"
-chmod 0644 "utils/stklos-genlex.stk"; touch -c -t "202108181917.29" "utils/stklos-genlex.stk"
-chmod 0644 "utils/stklos-script.in"; touch -c -t "202109291034.58" "utils/stklos-script.in"
-chmod 0755 "utils/time-correct"; touch -c -t "202104261237.22" "utils/time-correct"
-chmod 0755 "utils/tmpcomp"; touch -c -t "202111241156.09" "utils/tmpcomp"
-chmod 0755 "utils/tmpgenlex"; touch -c -t "201112041642.41" "utils/tmpgenlex"
-chmod 0644 "utils/update-srfi-list.stk"; touch -c -t "202108181917.29" "utils/update-srfi-list.stk"
-chmod 0644 "vm.md"; touch -c -t "202111241337.58" "vm.md"
diff --git a/.gitignore b/.gitignore
index cafa82514..f078d7424 100644
--- a/.gitignore
+++ b/.gitignore
@@ -34,7 +34,6 @@ autom4te.cache
 *.lo
 CVS
 TODO.org
-.beta-number
 bootstrap
 Python
 
@@ -60,7 +59,9 @@ doc/refman/html
 doc/refman/pdf
 doc/*/tmp-html.txt
 doc/*/tmp-pdf.txt
-
+doc/HTML/stklos-ref-multi.html
+doc/HTML/FDL.html
+doc/HTML/_*.html
 
 
 # Examples directory 
diff --git a/ChangeLog b/ChangeLog
index 9cdbb5cc8..8974920c4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,265 @@
+2023-09-11 Erick Gallesio <eg@stklos.net>
+	- Merge branch 'small-fixes' of https://github.com/jpellegrini/STklos into v200
+
+2023-09-10 Erick Gallesio <eg@stklos.net>
+	- Fixed a compilation warning
+	- Add a special case for start-interactive-gtk for libedit under macOS
+	- Corrected include path when --with-provided-regexp is used
+	- make install will install now a non stripped version of stklos
+	- Fix Makefile install dirs.
+
+2023-09-05 Jeronimo Pellegrini <j_p@aleph0.info>
+	- Fix plural in error message
+
+2023-09-05 Erick Gallesio <eg@stklos.net>
+	- Updated NEWS.md
+	- Merge branch 'master' into v200
+	- Use XDG standard location for stklosrc file
+	- Added pronunciation od STklos (issue #576)
+
+2023-09-04 Erick Gallesio <34247321+egallesio@users.noreply.github.com>
+	- Merge pull request #602 from jpellegrini/syntax-rules-improper-list
+
+2023-09-04 Erick Gallesio <eg@stklos.net>
+	- Merge new boot file
+	- Merge branch 'master' of github.com:egallesio/STklos
+	- Merge branch 'syntax-rules-improper-list' of https://github.com/jpellegrini/STklos
+	- Merge branch 'jpellegrini-let-syntax-small-fix'
+	- Merge branch 'let-syntax-small-fix' of https://github.com/jpellegrini/STklos into jpellegrini-let-syntax-small-fix
+	- Fix the code for eqv? on complex numbers + Modified 2 tests
+	- Optimized the number of tests on eqv? on numbers
+	- Fix a test for eqv? on NaNs (one more time)
+	- Fix: (fl- 0.0) returns -0.0 instead of +0.0
+
+2023-09-03 Erick Gallesio <eg@stklos.net>
+	- Fix (eqv? 0.0 -0.0)
+	- Merge branch 'jpellegrini-negative-zero'
+
+2023-09-03 Jeronimo Pellegrini <j_p@aleph0.info>
+	- Fix a small glitch in `let-syntax`
+
+2023-09-03 Erick Gallesio <eg@stklos.net>
+	- Use strings for some tests since (falsely) (eqv? 0.0 -0.0) is #t
+	- Merge branch 'negative-zero' of https://github.com/jpellegrini/STklos into jpellegrini-negative-zero
+
+2023-09-02 Erick Gallesio <eg@stklos.net>
+	- Merge branch 'jpellegrini-complex-abs'
+	- Replaced calls to magnitude bay abs in number.c
+	- Adaped documentation of abs
+	- Simplified code of primitive magnitude (direct call to abs)
+	- Merge branch 'complex-abs' of https://github.com/jpellegrini/STklos into jpellegrini-complex-abs
+	- Merge branch 'jpellegrini-bignum-sqrt'
+	- Code refactoring
+	- Merge branch 'bignum-sqrt' of https://github.com/jpellegrini/STklos into jpellegrini-bignum-sqrt
+	- Merge branch 'jpellegrini-sqrt-precision'
+	- Code refactoring
+	- Suppressed gcc warnings
+	- Merge branch 'sqrt-precision' of https://github.com/jpellegrini/STklos into jpellegrini-sqrt-precision
+
+2023-09-01 Jeronimo Pellegrini <j_p@aleph0.info>
+	- Aesthetical adjustments
+	- syntax-rules: accept ellipsis with improper lists
+
+2023-09-01 Erick Gallesio <eg@stklos.net>
+	- Merge branch 'jpellegrini-hacking-doc'
+	- Typo fixes
+	- Merge branch 'hacking-doc' of https://github.com/jpellegrini/STklos into jpellegrini-hacking-doc
+	- Deleted the (no more used) file .git_meta
+
+2023-08-31 Erick Gallesio <eg@stklos.net>
+	- Merge branch 'jpellegrini-atanh-inf'
+	- Merge branch 'atanh-inf' of https://github.com/jpellegrini/STklos into jpellegrini-atanh-inf
+	- Added tests and documentation about R7RS NaN rules
+	- Use nan=? when testing eqv? for NaN with payload
+	- Modified tests now that equal? on NaN always return #f
+	- Modified comparisons with NaNs
+	- Adapted test for the impression of complex with a -nan.0
+	- -nan.0 is now a synonym of +nan.0 as requested by R7RS
+
+2023-08-30 Erick Gallesio <34247321+egallesio@users.noreply.github.com>
+	- Merge pull request #581 from jpellegrini/srfi-43
+
+2023-08-29 Erick Gallesio <eg@stklos.net>
+	- Suppressed the multi-file HTML reference manual from distribution
+	- Make generated PDF files smaller
+
+2023-08-28 Erick Gallesio <eg@stklos.net>
+	- Updated README.md for 2.00 release
+	- Merge branch 'jpellegrini-small-fixes'
+	- Modified documentation of string->symbol
+	- Merge branch 'small-fixes' of https://github.com/jpellegrini/STklos into jpellegrini-small-fixes
+	- Merge branch 'gmp'
+	- Updated our internal gmp version (mini-gmp) to 6.3.0
+	- Merge branch 'jpellegrini-exact-complex'
+
+2023-08-27 Erick Gallesio <eg@stklos.net>
+	- Merge branch 'exact-complex' of https://github.com/jpellegrini/STklos into jpellegrini-exact-complex
+	- Deleted useless files from git tree
+	- Added option --ldflags to stklos-config
+
+2023-08-26 Erick Gallesio <eg@stklos.net>
+	- Use CPPLAGS and LDFLAGS when building shared objects
+	- Start the integration of CPPGLAGS and LDFLAGS in config scripts
+
+2023-08-25 Erick Gallesio <eg@stklos.net>
+	- Fixed the install paths in `extensions` subdirs
+
+2023-08-24 Erick Gallesio <eg@stklos.net>
+	- Fix installed file mode of preproc.stk
+	- Adapted Makefiles to support --libdir and --datadir conf. options
+	- Changed the way we guess SLIB installation dir
+	- Fixed some remaining paths relative to $prefix rather than $docdir
+	- Simplified building of the load path
+	- Enhanced the %library-prefix primitive
+
+2023-08-22 Erick Gallesio <eg@stklos.net>
+	- Permit to customize pdfdir and htmldir
+
+2023-08-21 Erick Gallesio <eg@stklos.net>
+	- Take into account the --docdir and --mandir if provided
+
+2023-08-20 Jeronimo Pellegrini <j_p@aleph0.info>
+	- More fixes in C comments
+
+2023-08-20 Erick Gallesio <eg@stklos.net>
+	- Merge branch 'fix_number'
+	- Typo fix
+
+2023-08-19 Erick Gallesio <eg@stklos.net>
+	- Add some tests on symbols which look like numbers
+	- Code cleaning of read_integer_or_real function
+
+2023-08-19 Jeronimo Pellegrini <j_p@aleph0.info>
+	- Fixing a typo
+	- Reindenting some lines in vm.c For clarity...
+
+2023-08-18 Erick Gallesio <eg@stklos.net>
+	- Fix another problem with real like symbols (e.g. 12s3x)
+
+2023-08-18 Jeronimo Pellegrini <j_p@aleph0.info>
+	- Tests for exactness of complexes
+	- Complex -> integer when imag-part is exact 0
+
+2023-08-15 Erick Gallesio <eg@stklos.net>
+	- Alloc. a copy for symbols starting with a number and with a  '_'
+	- Symplify code: digitp takes already care of the R5RS '#' in numbers
+
+2023-08-12 Erick Gallesio <eg@stklos.net>
+	- Fix (partially) the issue #579 with numbers with '_'
+
+2023-08-10 Jeronimo Pellegrini <j_p@aleph0.info>
+	- Fix typos in C comments
+
+2023-08-08 Jeronimo Pellegrini <j_p@aleph0.info>
+	- Small documentation fixes
+
+2023-08-04 Erick Gallesio <34247321+egallesio@users.noreply.github.com>
+	- Merge pull request #574 from jpellegrini/small-fixes
+
+2023-08-04 Erick Gallesio <eg@stklos.net>
+	- Merge branch 'jpellegrini-test-complex-sqrt'
+	- Fixed a test, and suppressed 2 added in a recent previous commit
+	- Merge branch 'test-complex-sqrt' of https://github.com/jpellegrini/STklos into jpellegrini-test-complex-sqrt
+	- Merge branch 'jpellegrini-log-minus-inf'
+	- Merge branch 'log-minus-inf' of https://github.com/jpellegrini/STklos into jpellegrini-log-minus-inf
+
+2023-08-02 Jeronimo Pellegrini <j_p@aleph0.info>
+	- More detailed description of NaNs
+
+2023-08-02 Erick Gallesio <eg@stklos.net>
+	- Added libdir when building some parts of stklos-pp manual
+
+2023-08-02 Jeronimo Pellegrini <j_p@aleph0.info>
+	- Tests for sqrt of negative numbers
+
+2023-08-02 Erick Gallesio <eg@stklos.net>
+	- Add some tests on sqrt for complexes with zero imaginary part
+	- Fix the result of sqrt when imaginary part is +/-0.0
+	- Minor cleaning of build-pp-demo.sh
+
+2023-08-02 Erick Gallesio <34247321+egallesio@users.noreply.github.com>
+	- Merge pull request #570 from jpellegrini/small-fixes
+
+2023-08-02 Erick Gallesio <eg@stklos.net>
+	- Prepend './' to the build-pp-demo.sh script
+	- Added a dependency on stklos-pp for documentation building
+	- Suppressed the (now useless) stklos-pkg(1) man page
+	- Merge branch 'pp'
+	- Added stklos-pp(1) man page
+	- Merge branch 'jpellegrini-read-complexes'
+	- STk_Cstr2simple_number -> Cstr2simple_number since it is static
+	- Place parameter **end at the end of STk_Cstr2simple_number
+	- Small refactoring (str2 is renamed in end, str3->end2)
+	- Fix: verify that there are no character afer a 'i' in a complex
+	- Small changes to STk_Cstr2number
+
+2023-08-01 Jeronimo Pellegrini <j_p@aleph0.info>
+	- Cosmetic changes only
+
+2023-07-31 Erick Gallesio <eg@stklos.net>
+	- Merge branch 'read-complexes' of https://github.com/jpellegrini/STklos into jpellegrini-read-complexes
+	- Merge branch 'jpellegrini-complex-print'
+	- Merge branch 'complex-print' of https://github.com/jpellegrini/STklos into jpellegrini-complex-print
+
+2023-07-29 Jeronimo Pellegrini <j_p@aleph0.info>
+	- (log -inf.0) = "+inf + i*pi"
+
+2023-07-28 Jeronimo Pellegrini <j_p@aleph0.info>
+	- Make STk_Cstr2simple_number static inline
+	- Read complexes with infs and nans
+
+2023-07-27 Jeronimo Pellegrini <j_p@aleph0.info>
+	- number2Cstr: uniform use of variable names
+	- Explain if condition related to NaNs
+
+2023-07-25 Erick Gallesio <eg@stklos.net>
+	- Fix 2 compiler warnings
+
+2023-07-23 Jeronimo Pellegrini <j_p@aleph0.info>
+	- One more test for complex printing
+	- Add tests to complex number printing
+	- Don't include extra '+' when printing complexes
+
+2023-07-22 Erick Gallesio <eg@stklos.net>
+	- Rebuild all the documentation (PDF and multi-file)
+	- Merge branch 'pp'
+	- Fix: '-' is now considered as alphabetic in frontmatter
+	- Added documentation on stklos-pp
+
+2023-07-18 Erick Gallesio <eg@stklos.net>
+	- Fixed reading of frontmatter reading with '---' separator.
+	- Add protected character to stklos-pp
+
+2023-07-15 Erick Gallesio <eg@stklos.net>
+	- Enhanced the message printed by syntax-error
+	- Updated the documentation of `error`
+	- Add documentation for R7RS syntax-error
+	- Suppressed remaining import for SRFI-9
+
+2023-07-14 Erick Gallesio <eg@stklos.net>
+	- Updated --help options of stklos and stklos-compile
+	- Add new option to zsh completion function (+ bug fix)
+
+2023-07-12 Erick Gallesio <eg@stklos.net>
+	- Merge branch 'logical'
+	- Suppressed useless code
+
+2023-07-11 Erick Gallesio <eg@stklos.net>
+	- Use C bit primitives instead of Scheme functions in (scheme bitwise)
+	- Optimize (a bit) operations in SRFI-60
+	- Implemented in C logical operations bit-and bit-or and bit-xor
+
+2023-07-10 Erick Gallesio <eg@stklos.net>
+	- Update AUHORS file
+	- Merge branch 'jpellegrini-fix-vm-with-goto'
+	- Go to the top of VM loop instead of the end
+	- Suppressed ';' in the NEXT macro
+	- Merge branch 'fix-vm-with-goto' of https://github.com/jpellegrini/STklos into jpellegrini-fix-vm-with-goto
+	- Updated ChangeLog
+
+2023-07-09 Jeronimo Pellegrini <j_p@aleph0.info>
+	- Fix non-computed-goto build
+
 2023-07-05 Erick Gallesio <eg@stklos.net>
 	- Updated Docker file to use pcre2 instead of pcre
 	- Merge branch 'jpellegrini-bignums'
diff --git a/INSTALL b/INSTALL
index 14782f34d..bf0f3a35a 100644
--- a/INSTALL
+++ b/INSTALL
@@ -1,6 +1,6 @@
-This file contains the generic GNU autotools standard installation
-instructions. The file QUICK-INSTALL.md at the top of the distribution
-tree contains an adapted to STklos and simpler version of it.
+*** This file contains the generic GNU autotools standard installation
+*** instructions. The file QUICK-INSTALL.md at the top of the distribution
+*** tree contains an adapted for STklos and simpler version of it.
 
 _________________________________________________________________
 
diff --git a/Makefile.am b/Makefile.am
index 7fe352967..513d2a0f8 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -44,8 +44,13 @@ install-base:
 	  echo "***** Installing directory $$i"; \
 	  (cd $$i && $(MAKE) $(AM_MAKEFLAGS) install); \
 	done
-install-base-no-strip:
-	@env $(MAKE) install-base STRIP=no
+
+install-base-no-strip: install-base
+
+install-base-strip: install-base
+	echo $(bindir)
+	@STRIPCMD@ $(bindir)/stklos-@VERSION@
+	@echo "stklos executable stripped"
 
 install-sources: install-base
 	(cd lib && $(MAKE)  $(AM_MAKEFLAGS) install-sources)
diff --git a/Makefile.in b/Makefile.in
index aaf0ab6c2..3f709b775 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -859,8 +859,13 @@ install-base:
 	  echo "***** Installing directory $$i"; \
 	  (cd $$i && $(MAKE) $(AM_MAKEFLAGS) install); \
 	done
-install-base-no-strip:
-	@env $(MAKE) install-base STRIP=no
+
+install-base-no-strip: install-base
+
+install-base-strip: install-base
+	echo $(bindir)
+	@STRIPCMD@ $(bindir)/stklos-@VERSION@
+	@echo "stklos executable stripped"
 
 install-sources: install-base
 	(cd lib && $(MAKE)  $(AM_MAKEFLAGS) install-sources)
diff --git a/NEWS.md b/NEWS.md
index e2df53a70..34228beb9 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,6 +1,134 @@
 NEWS
 ====
 
+Version 2.00
+------------
+
+This is a major version of ***STklos***, bringing it from R^5^RS to R^7^RS. It is
+the fruit of nearly two years of development with the help of the following
+persons (in alphabetical order):
+   - Amirouche Boubekki ([@amirouche](https://github.com))
+   - Lassi Kortela ([@lassik](https://github.com/lassik))
+   - Ivan Maidanski ([@ivmai](https://github.com/ivmai))
+   - Tom Niget ([@zdimension](https://github.com/zdimension))
+   - Jeronimo Pellegrini ([@jpellegrini](https://github.com/jpellegrini))
+   - Ryan Schmidt ([@ryandesign](https://github.com/ryandesign))
+   - Ben Taca ([@bentaca](https://github.com/bentaca))
+   - Robby Zambito ([@Zambito1](https://github.com/Zambito1))
+
+The main changes in this version are:
+
+- Support for R⁷RS libraries
+- Macro system hash been rewritten
+- Support for ScmPkg packages has been suppressed
+- New options for the commands *stklos(1)* and  *stklos-compile(1)*
+- Optimizations on numerical operations
+- Documentation is rewritten in `asciidoctor` and has been greatly enhanced
+- Updated the Docker build files
+- New instructions in the VM
+- Fixed some issues in the compilation/installation procedure
+- New extension: `curl` to access the *multiprotocol file transfer library*
+- Better support for macOS
+- `describe` has been enhanced for some type of objects
+- REPL has now tab completiongg
+- Bash and zsh completions for `stklos` and `stklos-compile` commands
+- Better `SLIB` support
+- Use PCRE2 library instead of legacy PCRE
+- New-command `stklos-pp(1)`
+- The preferred path for configuration files follows now [XDG Base
+  Directory Specification](https://specifications.freedesktop.org/basedir-spec).
+- Better error messages
+- New SRFIS supported
+  - SRFI-19:  Time Data Types and Procedures
+  - SRFI 43: Vector Library
+  - SRFI-95: Sorting and Merging
+  - SRFI 116: Immutable List Library
+  - SRFI 125: Intermediate hash tables
+  - SRFI-138: Compiling Scheme programs to executables
+  - SRFI 152: String Library (reduced)
+  - SRFI-162: Comparators sublibrary
+  - SRFI 154: First-class dynamic extents
+  - SRFI-215: Central Log Exchange
+  - SRFI 217: Integer Sets
+  - SRFI 222: Compound objects
+  - SRFI 224: Integer Mappings - Scheme Requests for Implementation
+  - SRFI-227: Optional Arguments
+  - SRFI 228: Composing Comparators
+  - SRFI-229: Tagged Procedures
+  - SRFI-230: Atomic Operations
+  - SRFI 235: Combinators
+  - SRFI 236: Evaluating expressions in an unspecified order
+  - SRFI-238: Codesets
+  - SRFI 244: Multiple-value Definitions
+- Added support for some R7RS-large libraries
+   - supported libraries of the *Red edition* are
+       - `(scheme bytevector)`
+       - `(scheme box)`
+       - `(scheme charset)`
+       - `(scheme comparator)`
+       - `(scheme generator)`
+       - `(scheme hash-table)`
+       - `(scheme ideque)`
+       - `(scheme ilist)`
+       - `(scheme list)`
+       - `(scheme list-queue)`
+       - `(scheme lseq)`
+       - `(scheme set)`
+       - `(scheme sort)`
+       - `(scheme stream)`
+       - `(scheme text)`
+       - `(scheme vector)`
+    - supported libraries of the *Tangerine edition* are
+      - `(scheme bitwise)`
+      - `(scheme bytevector)`
+      - `(scheme division)`
+      - `(scheme fixnum)`
+      - `(scheme flonum)`
+      - `(scheme generator)`
+      - `(scheme vector @)`
+- New primitives
+  - `library-name`
+  - `library-list`
+  - `module-list`
+  - `module-lock!`
+  - `module-locked?`
+  - `symbol-mutable?`
+  - `define-constant`
+  - `cpointer-null?`
+  - `syntax-error`
+  - `hash-table-clear!`
+  - `environement`
+  - `send-signal`
+  - `set-signal-handler!`
+  - `get-signal-handler`
+  - `void?`
+  - `procedure-source`
+  - `procedure-formals`
+  - `short-version`
+  - `radians->degrees`
+  - `degrees->radians`
+  - `sinh`, `cosh`, ...
+- New compiler options (also parameter objects):
+   - `compiler:gen-line-number`
+   - `compiler:show-assembly-code`
+   - `compiler:time-display`
+   - `compiler:keep-formals`
+   - `compiler-keep-source`
+   - `compiler:inline-common-functions`
+   - `compiler:unroll-iterations`
+   - `repl-show-startup-message`
+- New predefined classes
+  - `<uvector>`
+  - `<bytevector>`
+  - `<hash-table>`
+  - `<port>`
+  - `<input-port>`
+  - `<output-port>`
+- Code cleaning an optimizations
+- Bug fixes
+
+
+
 Version 1.70
 ------------
 
@@ -726,3 +854,9 @@ version 0.50 (released on 2001-01-17)
 -------------------------------------
 
 - First public release
+
+
+
+<!-- Local Variables: -->
+<!-- mode: markdown -->
+<!-- End: -->
diff --git a/QUICK-INSTALL.md b/QUICK-INSTALL.md
index be31892f4..57b3d7f3a 100644
--- a/QUICK-INSTALL.md
+++ b/QUICK-INSTALL.md
@@ -49,14 +49,14 @@ four) step process:
 
 3. **Optionally**, you can type `make tests` to run some internal tests
 
-4. To install the version just compiled in the configured place, type `make install` for a full install. The size of a full installation is approximately 6.5Mb (on a x86 64 bits architecture).  
+4. To install the version just compiled in the configured place, type `make install` for a full install. The size of a full installation is approximately 18Mb (on a x86 64 bits architecture).
 On machines with a more limited space, you can use the following Makefile installation targets:
-    - `install-base` to install only the VM and all the compiled Scheme files (size is ~2.0Mb). The installation is fully functional (except the `help` function which will yield an error).
-    - `install-base-no-strip` is identical to `install-base`, except that the `stklos` binary is not stripped (this could be useful when cross compiling **STklos** or when generating packages with debug symbols).
-    - `install-sources` to install the Scheme source files used whence building the system (adds ~1.5Mb to the installation)
-    - `install-doc` to install the documentation (for the help command, manual pages, and reference manual in HTML and PDF formats). This adds ~3.0Mb) to the installation).
+    - `install-base` (or `install-base-no-strip`) to install only the VM and all the compiled Scheme files (size is ~5Mb). The installation is fully functional (except the `help` function which will yield an error).
+    - `install-base-strip` is identical to `install-base`, except that the `stklos` binary is stripped to save some disk space. This permits to save ~1Mb of disk space.
+    - `install-sources` to install the Scheme source files used whence building the system (adds ~3Mb to the installation)
+    - `install-doc` to install the documentation (for the help command, manual pages, and reference manual in HTML and PDF formats). This adds ~11Mb) to the installation).
 
-**Note**: `make install` is equivalent to `make install-base install-sources install-docs`
+**Note**: `make install` is equivalent to `make install-base install-sources install-docs`.
 
 
 
diff --git a/README.md b/README.md
index 4eb317354..13416bc4c 100644
--- a/README.md
+++ b/README.md
@@ -1,30 +1,38 @@
-STklos (version 1.70)
+STklos (version 2.00)
 =====================
 
 
-**Erick Gallesio** <eg(at)unice.fr>
+**Erick Gallesio** <eg(at)stklos.net>
 
 
 Purpose
 -------
+*STklos*** (pronounced [/ˈɛs.'ti.kl'ɔss/](https://itinerarium.github.io/phoneme-synthesis/?w=ˈɛs.'ti.kl'ɔss)) is a free [Scheme](http://www.schemers.org) system mostly compliant
+with the language features defined in [R⁷RS small](http://www.scheme-reports.org/2015/working-group-1.html). The aim of this implementation
+is to be fast as well as light. The implementation is based on an ad-hoc
+*Virtual Machine*.
 
-STklos is a free Scheme system compliant with the languages features
-defined in R7RS. The aim of this implementation is to be fast as well
-as light. The implementation is based on an ad-hoc Virtual
-Machine. 
 
-The salient points of STklos are:
+<!-- ***STklos*** can also be compiled as a library and embedded
+in an application. -->
+
+The salient points of ***STklos*** are:
+
+-   an efficient and powerful object system based on [CLOS](https://en.wikipedia.org/wiki/Common_Lisp_Object_System) (Common Lisp Object System) providing
+    -   Multiple Inheritance,
+    -   Generic Functions,
+    -   Multi-methods
+    -   an efficient MOP (Meta Object Protocol)
+-   a simple to use module system, as well as R⁷RS libraries
+-   a full [Numerical tower](https://en.wikipedia.org/wiki/Numerical_tower), as defined in *R⁷RS*,
+-   a simple [FFI](https://en.wikipedia.org/wiki/Foreign_function_interface) (Foreign Function Interface),
+-   an easy connection to the [GTK+](http://www.gtk.org) toolkit,
+-   a Perl compatible regular expressions thanks to the [PCRE](http://www.pcre.org) package,
+-   [Unicode](https://en.wikipedia.org/wiki/Unicode) support,
+-   native threads built on top of [Posix theads](https://en.wikipedia.org/w/index.php?title=Pthreads),
+-   [Tail Call Optimization](https://en.wikipedia.org/w/index.php?title=Tail_call), as required by R⁷RS,
+-   support for a large number (> 120) of [SRFIs](https://en.wikipedia.org/wiki/Scheme_Requests_for_Implementation).
 
- - an efficient and powerful object system based on CLOS providing
-    - Multiple Inheritance,
-    - Generic Functions,
-    - Multi-methods
-    - an efficient MOP (Meta Object Protocol)
- - a simple to use module system
- - a full tower of numbers implementation, as defined in R5RS,
- - easy connection to the GTK+ toolkit,
- - a Perl compatible regular expressions thanks to the PCRE package,
- - it implements properly tail recursive calls.
 
 History
 -------
@@ -35,9 +43,11 @@ to the Tk toolkit, that I have developed since September 1993.
 STklos is very similar to STk for the user but very different in the
 implementation. Everything has been rewritten and STklos now uses a
 compiler to a byte-code machine rather than direct interpretation.
-As a consequence, it is a lot faster than STk.  STklos is also better
+As a consequence, it is a lot faster than STk.
+
+<!-- STklos is also better
 designed and should be easily embedded in an application. (This was not
-completely the case with STk.)
+completely the case with STk.) -->
 
 Whereas STk used the Tk toolkit, STklos uses the GTK+ graphical
 toolkit. STklos is not completely compatible with STk but it should be
@@ -45,9 +55,6 @@ easy to port old STk graphical applications (provided that they use
 objects). The GTK+ extension can be loaded at run time and does not
 require a special interpreter as was the case with STk.
 
-**June 2020**
-The 1.40 version continues to add R7RS traits to STklos.
-
 **August 2020**
 The 1.50 version has been ported to various architectures (in
 particular to "small" 32-bit little- and big-endian systems)
@@ -55,23 +62,29 @@ and a port to Android.  This version also brings support
 of 23 new SRFIs. For a complete list of supported SRFIs, see
 https://www.stklos.net/srfi.html
 
-
 **February 2021**
 Support for 16 new [**SRFIs**](https://www.stklos.net/srfi.html).
 
 **November 2021**
 The 1.70 version supports 14 new [**SRFIs**](https://www.stklos.net/srfi.html).
-(We now have 98 SRFIs supported.) The (new) `extensions` directory contains 
-an OO binding to the [GTK+3](https://docs.gtk.org/gtk3/) toolkit. 
+(We now have 98 SRFIs supported). The (new) `extensions` directory contains
+an OO binding to the [GTK+3](https://docs.gtk.org/gtk3/) toolkit.
 
+**August 2023**
+The 2.00 version is available. This version is conforming to R^7^RS
+(previous versions of STklos used to implement the R^5^RS standard).
+It adds support for 24 new [**SRFIs**](https://www.stklos.net/srfi.html) giving a complete
+support for 122 SRFIs. You can now use the [cURL](https://curl.se/libcurl/)
+library thanks to the new **curl** extension.
 
 SRFI Support
 ------------
 
-The current version of STklos supports several SRFIs. (A complete list
-of implemented SRFIs is available in the file SUPPORTED-SRFIS in the
-distribution.) The goal is to support as many final SRFIs as possible.
-Any help on implementing other SRFIs on STklos is welcome.
+The current version of STklos supports mre than 120 final SRFIs (a
+complete list of implemented SRFIs is available in the file
+SUPPORTED-SRFIS in the distribution). The goal is to support as many
+final SRFIs as possible.  Any help on implementing other SRFIs on
+STklos is welcome.
 
 IDEs
 ----
@@ -100,7 +113,7 @@ The current version of STklos works on:
 The previous version of STklos (1.10) was known to work on the following
 architectures:
 
-- GNU/Linux 1.6.x (i386/gcc 32 and 64bits)
+- GNU/Linux 1.6.x (i386/gcc 32 and 64 bits)
 - Mac OS X 10.5+ (i386/gcc 32 and 64 bits)
 - FreeBSD 8.x (i386/gcc 32 bits and 64 bits)
 - Win32 (using Cygwin 1.7.x)
diff --git a/configure b/configure
index 912d71d0a..20ee722c9 100755
--- a/configure
+++ b/configure
@@ -1,6 +1,6 @@
 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.71 for stklos 1.70.
+# Generated by GNU Autoconf 2.71 for stklos 2.00.
 #
 #
 # Copyright (C) 1992-1996, 1998-2017, 2020-2021 Free Software Foundation,
@@ -607,8 +607,8 @@ MAKEFLAGS=
 # Identity of this package.
 PACKAGE_NAME='stklos'
 PACKAGE_TARNAME='stklos'
-PACKAGE_VERSION='1.70'
-PACKAGE_STRING='stklos 1.70'
+PACKAGE_VERSION='2.00'
+PACKAGE_STRING='stklos 2.00'
 PACKAGE_BUGREPORT=''
 PACKAGE_URL=''
 
@@ -1383,7 +1383,7 @@ if test "$ac_init_help" = "long"; then
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-\`configure' configures stklos 1.70 to adapt to many kinds of systems.
+\`configure' configures stklos 2.00 to adapt to many kinds of systems.
 
 Usage: $0 [OPTION]... [VAR=VALUE]...
 
@@ -1454,7 +1454,7 @@ fi
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of stklos 1.70:";;
+     short | recursive ) echo "Configuration of stklos 2.00:";;
    esac
   cat <<\_ACEOF
 
@@ -1559,7 +1559,7 @@ fi
 test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
-stklos configure 1.70
+stklos configure 2.00
 generated by GNU Autoconf 2.71
 
 Copyright (C) 2021 Free Software Foundation, Inc.
@@ -1915,7 +1915,7 @@ cat >config.log <<_ACEOF
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
-It was created by stklos $as_me 1.70, which was
+It was created by stklos $as_me 2.00, which was
 generated by GNU Autoconf 2.71.  Invocation command line was
 
   $ $0$ac_configure_args_raw
@@ -3223,7 +3223,7 @@ fi
 
 # Define the identity of the package.
  PACKAGE='stklos'
- VERSION='1.70'
+ VERSION='2.00'
 
 
 printf "%s\n" "#define PACKAGE \"$PACKAGE\"" >>confdefs.h
@@ -7418,7 +7418,7 @@ then
      (cd pcre2; ./configure --prefix=$prefix --disable-shared --disable-cpp) || \
            { echo "Cannot configure PCRE2"; exit; }
      PCRE2=pcre2
-     PCRE2INC="-I../pcre2"
+     PCRE2INC="-I../pcre2/src"
      PCRE2LIB="../pcre2/.libs/libpcre2-posix.a ../pcre2/.libs/libpcre2-8.a"
      COMP_LIBS="libpcre2 $COMP_LIBS"
 else
@@ -8427,7 +8427,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
 # report actual input values of CONFIG_FILES etc. instead of their
 # values after options handling.
 ac_log="
-This file was extended by stklos $as_me 1.70, which was
+This file was extended by stklos $as_me 2.00, which was
 generated by GNU Autoconf 2.71.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -8495,7 +8495,7 @@ ac_cs_config_escaped=`printf "%s\n" "$ac_cs_config" | sed "s/^ //; s/'/'\\\\\\\\
 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
 ac_cs_config='$ac_cs_config_escaped'
 ac_cs_version="\\
-stklos config.status 1.70
+stklos config.status 2.00
 configured by $0, generated by GNU Autoconf 2.71,
   with options \\"\$ac_cs_config\\"
 
diff --git a/configure.ac b/configure.ac
index 8baa07ded..da929bb77 100644
--- a/configure.ac
+++ b/configure.ac
@@ -4,7 +4,7 @@
 ###    Creation date: 28-Dec-1999 21:19 (eg)
 
 AC_PREREQ([2.69])
-AC_INIT([stklos],[1.70])   # Set also VERSION_STATUS to stable when changing version
+AC_INIT([stklos],[2.00])   # Set also VERSION_STATUS to stable when changing version
 VERSION_STATUS=unstable    # and reset it to unstable after releasing
 
 #
@@ -396,7 +396,7 @@ then
      (cd pcre2; ./configure --prefix=$prefix --disable-shared --disable-cpp) || \
            { echo "Cannot configure PCRE2"; exit; }
      PCRE2=pcre2
-     PCRE2INC="-I../pcre2"
+     PCRE2INC="-I../pcre2/src"
      PCRE2LIB="../pcre2/.libs/libpcre2-posix.a ../pcre2/.libs/libpcre2-8.a"
      COMP_LIBS="libpcre2 $COMP_LIBS"
 else
diff --git a/doc/HTML/FDL.html b/doc/HTML/FDL.html
deleted file mode 100644
index 6d1a93331..000000000
--- a/doc/HTML/FDL.html
+++ /dev/null
@@ -1,1168 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="FDL" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html"><span class="toc-current">Appendix D: GNU Free Documentation License</span></a>
-<ul class="sectlevel2">
-<li><a href="FDL.html#_preamble">B.1. PREAMBLE</a>
-</li>
-<li><a href="FDL.html#_applicability_and_definitions">B.2. APPLICABILITY AND DEFINITIONS</a>
-</li>
-<li><a href="FDL.html#_verbatim_copying">B.3. VERBATIM COPYING</a>
-</li>
-<li><a href="FDL.html#_copying_in_quantity">B.4. COPYING IN QUANTITY</a>
-</li>
-<li><a href="FDL.html#_modifications">B.5. MODIFICATIONS</a>
-</li>
-<li><a href="FDL.html#_combining_documents">B.6. COMBINING DOCUMENTS</a>
-</li>
-<li><a href="FDL.html#_collections_of_documents">B.7. COLLECTIONS OF DOCUMENTS</a>
-</li>
-<li><a href="FDL.html#_aggregation_with_independent_works">B.8. AGGREGATION WITH INDEPENDENT WORKS</a>
-</li>
-<li><a href="FDL.html#_translation">B.9. TRANSLATION</a>
-</li>
-<li><a href="FDL.html#_termination">B.10. TERMINATION</a>
-</li>
-<li><a href="FDL.html#_future_revisions_of_this_license">B.11. FUTURE REVISIONS OF THIS LICENSE</a>
-</li>
-<li><a href="FDL.html#_relicensing">B.12. RELICENSING</a>
-</li>
-<li><a href="FDL.html#_addendum_how_to_use_this_license_for_your_documents">B.13. ADDENDUM: How to use this License for your documents</a>
-</li>
-</ul>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="FDL">Appendix B: GNU Free Documentation License</h2>
-<div class="sectionbody">
-<div class="paragraph">
-<p>Version 1.3, 3 November 2008</p>
-</div>
-<div class="paragraph">
-<p>Copyright &#169; 2000, 2001, 2002, 2007, 2008 Free Software Foundation,
-Inc. <a href="https://fsf.org/" class="bare">https://fsf.org/</a></p>
-</div>
-<div class="paragraph">
-<p>Everyone is permitted to copy and distribute verbatim copies of this
-license document, but changing it is not allowed.</p>
-</div>
-<div class="sect2">
-<h3 id="_preamble">B.1. PREAMBLE</h3>
-<div class="paragraph">
-<p>The purpose of this License is to make a manual, textbook, or other
-functional and useful document ``free" in the sense of freedom: to
-assure everyone the effective freedom to copy and redistribute it, with
-or without modifying it, either commercially or noncommercially.
-Secondarily, this License preserves for the author and publisher a way
-to get credit for their work, while not being considered responsible for
-modifications made by others.</p>
-</div>
-<div class="paragraph">
-<p>This License is a kind of ``copyleft", which means that derivative
-works of the document must themselves be free in the same sense. It
-complements the GNU General Public License, which is a copyleft license
-designed for free software.</p>
-</div>
-<div class="paragraph">
-<p>We have designed this License in order to use it for manuals for free
-software, because free software needs free documentation: a free program
-should come with manuals providing the same freedoms that the software
-does. But this License is not limited to software manuals; it can be
-used for any textual work, regardless of subject matter or whether it is
-published as a printed book. We recommend this License principally for
-works whose purpose is instruction or reference.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_applicability_and_definitions">B.2. APPLICABILITY AND DEFINITIONS</h3>
-<div class="paragraph">
-<p>This License applies to any manual or other work, in any medium, that
-contains a notice placed by the copyright holder saying it can be
-distributed under the terms of this License. Such a notice grants a
-world-wide, royalty-free license, unlimited in duration, to use that
-work under the conditions stated herein. The ``Document", below, refers
-to any such manual or work. Any member of the public is a licensee, and
-is addressed as "you". You accept the license if you copy, modify or
-distribute the work in a way requiring permission under copyright law.</p>
-</div>
-<div class="paragraph">
-<p>A "Modified Version" of the Document means any work containing the
-Document or a portion of it, either copied verbatim, or with
-modifications and/or translated into another language.</p>
-</div>
-<div class="paragraph">
-<p>A "Secondary Section" is a named appendix or a front-matter section of
-the Document that deals exclusively with the relationship of the
-publishers or authors of the Document to the Document’s overall subject
-(or to related matters) and contains nothing that could fall directly
-within that overall subject. (Thus, if the Document is in part a
-textbook of mathematics, a Secondary Section may not explain any
-mathematics.) The relationship could be a matter of historical
-connection with the subject or with related matters, or of legal,
-commercial, philosophical, ethical or political position regarding them.</p>
-</div>
-<div class="paragraph">
-<p>The "Invariant Sections" are certain Secondary Sections whose titles
-are designated, as being those of Invariant Sections, in the notice that
-says that the Document is released under this License. If a section does
-not fit the above definition of Secondary then it is not allowed to be
-designated as Invariant. The Document may contain zero Invariant
-Sections. If the Document does not identify any Invariant Sections then
-there are none.</p>
-</div>
-<div class="paragraph">
-<p>The "Cover Texts" are certain short passages of text that are listed,
-as Front-Cover Texts or Back-Cover Texts, in the notice that says that
-the Document is released under this License. A Front-Cover Text may be
-at most 5 words, and a Back-Cover Text may be at most 25 words.</p>
-</div>
-<div class="paragraph">
-<p>A "Transparent" copy of the Document means a machine-readable copy,
-represented in a format whose specification is available to the general
-public, that is suitable for revising the document straightforwardly
-with generic text editors or (for images composed of pixels) generic
-paint programs or (for drawings) some widely available drawing editor,
-and that is suitable for input to text formatters or for automatic
-translation to a variety of formats suitable for input to text
-formatters. A copy made in an otherwise Transparent file format whose
-markup, or absence of markup, has been arranged to thwart or discourage
-subsequent modification by readers is not Transparent. An image format
-is not Transparent if used for any substantial amount of text. A copy
-that is not "Transparent" is called "Opaque".</p>
-</div>
-<div class="paragraph">
-<p>Examples of suitable formats for Transparent copies include plain ASCII
-without markup, Texinfo input format, LaTeX input format, SGML or XML
-using a publicly available DTD, and standard-conforming simple HTML,
-PostScript or PDF designed for human modification. Examples of
-transparent image formats include PNG, XCF and JPG. Opaque formats
-include proprietary formats that can be read and edited only by
-proprietary word processors, SGML or XML for which the DTD and/or
-processing tools are not generally available, and the machine-generated
-HTML, PostScript or PDF produced by some word processors for output
-purposes only.</p>
-</div>
-<div class="paragraph">
-<p>The "Title Page" means, for a printed book, the title page itself,
-plus such following pages as are needed to hold, legibly, the material
-this License requires to appear in the title page. For works in formats
-which do not have any title page as such, "Title Page" means the text
-near the most prominent appearance of the work’s title, preceding the
-beginning of the body of the text.</p>
-</div>
-<div class="paragraph">
-<p>The "publisher" means any person or entity that distributes copies of
-the Document to the public.</p>
-</div>
-<div class="paragraph">
-<p>A section "Entitled XYZ" means a named subunit of the Document whose
-title either is precisely XYZ or contains XYZ in parentheses following
-text that translates XYZ in another language. (Here XYZ stands for a
-specific section name mentioned below, such as "Acknowledgements",
-"Dedications", "Endorsements", or "History".) To "Preserve the
-Title" of such a section when you modify the Document means that it
-remains a section "Entitled XYZ" according to this definition.</p>
-</div>
-<div class="paragraph">
-<p>The Document may include Warranty Disclaimers next to the notice which
-states that this License applies to the Document. These Warranty
-Disclaimers are considered to be included by reference in this License,
-but only as regards disclaiming warranties: any other implication that
-these Warranty Disclaimers may have is void and has no effect on the
-meaning of this License.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_verbatim_copying">B.3. VERBATIM COPYING</h3>
-<div class="paragraph">
-<p>You may copy and distribute the Document in any medium, either
-commercially or noncommercially, provided that this License, the
-copyright notices, and the license notice saying this License applies to
-the Document are reproduced in all copies, and that you add no other
-conditions whatsoever to those of this License. You may not use
-technical measures to obstruct or control the reading or further copying
-of the copies you make or distribute. However, you may accept
-compensation in exchange for copies. If you distribute a large enough
-number of copies you must also follow the conditions in section 3.</p>
-</div>
-<div class="paragraph">
-<p>You may also lend copies, under the same conditions stated above, and
-you may publicly display copies.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_copying_in_quantity">B.4. COPYING IN QUANTITY</h3>
-<div class="paragraph">
-<p>If you publish printed copies (or copies in media that commonly have
-printed covers) of the Document, numbering more than 100, and the
-Document’s license notice requires Cover Texts, you must enclose the
-copies in covers that carry, clearly and legibly, all these Cover Texts:
-Front-Cover Texts on the front cover, and Back-Cover Texts on the back
-cover. Both covers must also clearly and legibly identify you as the
-publisher of these copies. The front cover must present the full title
-with all words of the title equally prominent and visible. You may add
-other material on the covers in addition. Copying with changes limited
-to the covers, as long as they preserve the title of the Document and
-satisfy these conditions, can be treated as verbatim copying in other
-respects.</p>
-</div>
-<div class="paragraph">
-<p>If the required texts for either cover are too voluminous to fit
-legibly, you should put the first ones listed (as many as fit
-reasonably) on the actual cover, and continue the rest onto adjacent
-pages.</p>
-</div>
-<div class="paragraph">
-<p>If you publish or distribute Opaque copies of the Document numbering
-more than 100, you must either include a machine-readable Transparent
-copy along with each Opaque copy, or state in or with each Opaque copy a
-computer-network location from which the general network-using public
-has access to download using public-standard network protocols a
-complete Transparent copy of the Document, free of added material. If
-you use the latter option, you must take reasonably prudent steps, when
-you begin distribution of Opaque copies in quantity, to ensure that this
-Transparent copy will remain thus accessible at the stated location
-until at least one year after the last time you distribute an Opaque
-copy (directly or through your agents or retailers) of that edition to
-the public.</p>
-</div>
-<div class="paragraph">
-<p>It is requested, but not required, that you contact the authors of the
-Document well before redistributing any large number of copies, to give
-them a chance to provide you with an updated version of the Document.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_modifications">B.5. MODIFICATIONS</h3>
-<div class="paragraph">
-<p>You may copy and distribute a Modified Version of the Document under the
-conditions of sections 2 and 3 above, provided that you release the
-Modified Version under precisely this License, with the Modified Version
-filling the role of the Document, thus licensing distribution and
-modification of the Modified Version to whoever possesses a copy of it.
-In addition, you must do these things in the Modified Version:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>A. Use in the Title Page (and on the covers, if any) a title distinct
-from that of the Document, and from those of previous versions (which
-should, if there were any, be listed in the History section of the
-Document). You may use the same title as a previous version if the
-original publisher of that version gives permission.</p>
-</li>
-<li>
-<p>B. List on the Title Page, as authors, one or more persons or entities
-responsible for authorship of the modifications in the Modified Version,
-together with at least five of the principal authors of the Document
-(all of its principal authors, if it has fewer than five), unless they
-release you from this requirement.</p>
-</li>
-<li>
-<p>C. State on the Title page the name of the publisher of the Modified
-Version, as the publisher.</p>
-</li>
-<li>
-<p>D. Preserve all the copyright notices of the Document.</p>
-</li>
-<li>
-<p>E. Add an appropriate copyright notice for your modifications adjacent
-to the other copyright notices.</p>
-</li>
-<li>
-<p>F. Include, immediately after the copyright notices, a license notice
-giving the public permission to use the Modified Version under the terms
-of this License, in the form shown in the Addendum below.</p>
-</li>
-<li>
-<p>G. Preserve in that license notice the full lists of Invariant
-Sections and required Cover Texts given in the Document’s license
-notice.</p>
-</li>
-<li>
-<p>H. Include an unaltered copy of this License.</p>
-</li>
-<li>
-<p>I. Preserve the section Entitled "History", Preserve its Title, and
-add to it an item stating at least the title, year, new authors, and
-publisher of the Modified Version as given on the Title Page. If there
-is no section Entitled "History" in the Document, create one stating
-the title, year, authors, and publisher of the Document as given on its
-Title Page, then add an item describing the Modified Version as stated
-in the previous sentence.</p>
-</li>
-<li>
-<p>J. Preserve the network location, if any, given in the Document for
-public access to a Transparent copy of the Document, and likewise the
-network locations given in the Document for previous versions it was
-based on. These may be placed in the "History" section. You may omit a
-network location for a work that was published at least four years
-before the Document itself, or if the original publisher of the version
-it refers to gives permission.</p>
-</li>
-<li>
-<p>K. For any section Entitled "Acknowledgements" or "Dedications",
-Preserve the Title of the section, and preserve in the section all the
-substance and tone of each of the contributor acknowledgements and/or
-dedications given therein.</p>
-</li>
-<li>
-<p>L. Preserve all the Invariant Sections of the Document, unaltered in
-their text and in their titles. Section numbers or the equivalent are
-not considered part of the section titles.</p>
-</li>
-<li>
-<p>M. Delete any section Entitled "Endorsements". Such a section may
-not be included in the Modified Version.</p>
-</li>
-<li>
-<p>N. Do not retitle any existing section to be Entitled "Endorsements"
-or to conflict in title with any Invariant Section.</p>
-</li>
-<li>
-<p>O. Preserve any Warranty Disclaimers.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>If the Modified Version includes new front-matter sections or appendices
-that qualify as Secondary Sections and contain no material copied from
-the Document, you may at your option designate some or all of these
-sections as invariant. To do this, add their titles to the list of
-Invariant Sections in the Modified Version’s license notice. These
-titles must be distinct from any other section titles.</p>
-</div>
-<div class="paragraph">
-<p>You may add a section Entitled "Endorsements", provided it contains
-nothing but endorsements of your Modified Version by various parties—for
-example, statements of peer review or that the text has been approved by
-an organization as the authoritative definition of a standard.</p>
-</div>
-<div class="paragraph">
-<p>You may add a passage of up to five words as a Front-Cover Text, and a
-passage of up to 25 words as a Back-Cover Text, to the end of the list
-of Cover Texts in the Modified Version. Only one passage of Front-Cover
-Text and one of Back-Cover Text may be added by (or through arrangements
-made by) any one entity. If the Document already includes a cover text
-for the same cover, previously added by you or by arrangement made by
-the same entity you are acting on behalf of, you may not add another;
-but you may replace the old one, on explicit permission from the
-previous publisher that added the old one.</p>
-</div>
-<div class="paragraph">
-<p>The author(s) and publisher(s) of the Document do not by this License
-give permission to use their names for publicity for or to assert or
-imply endorsement of any Modified Version.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_combining_documents">B.6. COMBINING DOCUMENTS</h3>
-<div class="paragraph">
-<p>You may combine the Document with other documents released under this
-License, under the terms defined in section 4 above for modified
-versions, provided that you include in the combination all of the
-Invariant Sections of all of the original documents, unmodified, and
-list them all as Invariant Sections of your combined work in its license
-notice, and that you preserve all their Warranty Disclaimers.</p>
-</div>
-<div class="paragraph">
-<p>The combined work need only contain one copy of this License, and
-multiple identical Invariant Sections may be replaced with a single
-copy. If there are multiple Invariant Sections with the same name but
-different contents, make the title of each such section unique by adding
-at the end of it, in parentheses, the name of the original author or
-publisher of that section if known, or else a unique number. Make the
-same adjustment to the section titles in the list of Invariant Sections
-in the license notice of the combined work.</p>
-</div>
-<div class="paragraph">
-<p>In the combination, you must combine any sections Entitled "History"
-in the various original documents, forming one section Entitled
-"History"; likewise combine any sections Entitled
-"Acknowledgements", and any sections Entitled "Dedications". You
-must delete all sections Entitled "Endorsements".</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_collections_of_documents">B.7. COLLECTIONS OF DOCUMENTS</h3>
-<div class="paragraph">
-<p>You may make a collection consisting of the Document and other documents
-released under this License, and replace the individual copies of this
-License in the various documents with a single copy that is included in
-the collection, provided that you follow the rules of this License for
-verbatim copying of each of the documents in all other respects.</p>
-</div>
-<div class="paragraph">
-<p>You may extract a single document from such a collection, and distribute
-it individually under this License, provided you insert a copy of this
-License into the extracted document, and follow this License in all
-other respects regarding verbatim copying of that document.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_aggregation_with_independent_works">B.8. AGGREGATION WITH INDEPENDENT WORKS</h3>
-<div class="paragraph">
-<p>A compilation of the Document or its derivatives with other separate and
-independent documents or works, in or on a volume of a storage or
-distribution medium, is called an "aggregate" if the copyright
-resulting from the compilation is not used to limit the legal rights of
-the compilation’s users beyond what the individual works permit. When
-the Document is included in an aggregate, this License does not apply to
-the other works in the aggregate which are not themselves derivative
-works of the Document.</p>
-</div>
-<div class="paragraph">
-<p>If the Cover Text requirement of section 3 is applicable to these copies
-of the Document, then if the Document is less than one half of the
-entire aggregate, the Document’s Cover Texts may be placed on covers
-that bracket the Document within the aggregate, or the electronic
-equivalent of covers if the Document is in electronic form. Otherwise
-they must appear on printed covers that bracket the whole aggregate.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_translation">B.9. TRANSLATION</h3>
-<div class="paragraph">
-<p>Translation is considered a kind of modification, so you may distribute
-translations of the Document under the terms of section 4. Replacing
-Invariant Sections with translations requires special permission from
-their copyright holders, but you may include translations of some or all
-Invariant Sections in addition to the original versions of these
-Invariant Sections. You may include a translation of this License, and
-all the license notices in the Document, and any Warranty Disclaimers,
-provided that you also include the original English version of this
-License and the original versions of those notices and disclaimers. In
-case of a disagreement between the translation and the original version
-of this License or a notice or disclaimer, the original version will
-prevail.</p>
-</div>
-<div class="paragraph">
-<p>If a section in the Document is Entitled "Acknowledgements",
-"Dedications", or "History", the requirement (section 4) to Preserve
-its Title (section 1) will typically require changing the actual title.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_termination">B.10. TERMINATION</h3>
-<div class="paragraph">
-<p>You may not copy, modify, sublicense, or distribute the Document except
-as expressly provided under this License. Any attempt otherwise to copy,
-modify, sublicense, or distribute it is void, and will automatically
-terminate your rights under this License.</p>
-</div>
-<div class="paragraph">
-<p>However, if you cease all violation of this License, then your license
-from a particular copyright holder is reinstated (a) provisionally,
-unless and until the copyright holder explicitly and finally terminates
-your license, and (b) permanently, if the copyright holder fails to
-notify you of the violation by some reasonable means prior to 60 days
-after the cessation.</p>
-</div>
-<div class="paragraph">
-<p>Moreover, your license from a particular copyright holder is reinstated
-permanently if the copyright holder notifies you of the violation by
-some reasonable means, this is the first time you have received notice
-of violation of this License (for any work) from that copyright holder,
-and you cure the violation prior to 30 days after your receipt of the
-notice.</p>
-</div>
-<div class="paragraph">
-<p>Termination of your rights under this section does not terminate the
-licenses of parties who have received copies or rights from you under
-this License. If your rights have been terminated and not permanently
-reinstated, receipt of a copy of some or all of the same material does
-not give you any rights to use it.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_future_revisions_of_this_license">B.11. FUTURE REVISIONS OF THIS LICENSE</h3>
-<div class="paragraph">
-<p>The Free Software Foundation may publish new, revised versions of the
-GNU Free Documentation License from time to time. Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns. See <a href="https://www.gnu.org/licenses/" class="bare">https://www.gnu.org/licenses/</a>.</p>
-</div>
-<div class="paragraph">
-<p>Each version of the License is given a distinguishing version number. If
-the Document specifies that a particular numbered version of this
-License "or any later version" applies to it, you have the option of
-following the terms and conditions either of that specified version or
-of any later version that has been published (not as a draft) by the
-Free Software Foundation. If the Document does not specify a version
-number of this License, you may choose any version ever published (not
-as a draft) by the Free Software Foundation. If the Document specifies
-that a proxy can decide which future versions of this License can be
-used, that proxy’s public statement of acceptance of a version
-permanently authorizes you to choose that version for the Document.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_relicensing">B.12. RELICENSING</h3>
-<div class="paragraph">
-<p>"Massive Multiauthor Collaboration Site" (or "MMC Site") means any
-World Wide Web server that publishes copyrightable works and also
-provides prominent facilities for anybody to edit those works. A public
-wiki that anybody can edit is an example of such a server. A "Massive
-Multiauthor Collaboration" (or "MMC") contained in the site means any
-set of copyrightable works thus published on the MMC site.</p>
-</div>
-<div class="paragraph">
-<p>"CC-BY-SA" means the Creative Commons Attribution-Share Alike 3.0
-license published by Creative Commons Corporation, a not-for-profit
-corporation with a principal place of business in San Francisco,
-California, as well as future copyleft versions of that license
-published by that same organization.</p>
-</div>
-<div class="paragraph">
-<p>"Incorporate" means to publish or republish a Document, in whole or in
-part, as part of another Document.</p>
-</div>
-<div class="paragraph">
-<p>An MMC is "eligible for relicensing" if it is licensed under this
-License, and if all works that were first published under this License
-somewhere other than this MMC, and subsequently incorporated in whole or
-in part into the MMC, (1) had no cover texts or invariant sections, and
-(2) were thus incorporated prior to November 1, 2008.</p>
-</div>
-<div class="paragraph">
-<p>The operator of an MMC Site may republish an MMC contained in the site
-under CC-BY-SA on the same site at any time before August 1, 2009,
-provided the MMC is eligible for relicensing.</p>
-</div>
-<div style="page-break-after: always;"></div>
-</div>
-<div class="sect2">
-<h3 id="_addendum_how_to_use_this_license_for_your_documents">B.13. ADDENDUM: How to use this License for your documents</h3>
-<div class="paragraph">
-<p>To use this License in a document you have written, include a copy of
-the License in the document and put the following copyright and license
-notices just after the title page:</p>
-</div>
-<div class="literalblock">
-<div class="content">
-<pre>    Copyright (C)  YEAR  YOUR NAME.
-    Permission is granted to copy, distribute and/or modify this document
-    under the terms of the GNU Free Documentation License, Version 1.3
-    or any later version published by the Free Software Foundation;
-    with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts.
-    A copy of the license is included in the section entitled "GNU
-    Free Documentation License".</pre>
-</div>
-</div>
-<div class="paragraph">
-<p>If you have Invariant Sections, Front-Cover Texts and Back-Cover Texts,
-replace the "with … Texts." line with this:</p>
-</div>
-<div class="literalblock">
-<div class="content">
-<pre>    with the Invariant Sections being LIST THEIR TITLES, with the
-    Front-Cover Texts being LIST, and with the Back-Cover Texts being LIST.</pre>
-</div>
-</div>
-<div class="paragraph">
-<p>If you have Invariant Sections without Cover Texts, or some other
-combination of the three, merge those two alternatives to suit the
-situation.</p>
-</div>
-<div class="paragraph">
-<p>If your document contains nontrivial examples of program code, we
-recommend releasing these examples in parallel under your choice of free
-software license, such as the GNU General Public License, to permit
-their use in free software.</p>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_idiosync.html">Appendix A: STklos Idiosyncrasies</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. In fact <code>define-module</code> on a given name defines a new module only the first time it is invoked on this name. By this way, interactively reloading a module does not define a new entity, and the other modules which use it are not altered.
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. This transcript uses the default toplevel loop             which displays the name of the current module in the evaluator             prompt.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Under Unix, you can simply connect to a listening socket with the <code>telnet</code> of <code>netcat</code> command. For the given example, this can be achieved with <code>netcat localhost 12345</code>
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. Port 13, if open, can be used for testing: making a connection to it permits to know the distant system&#8217;s idea of the time of day.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. The "pattern matching compiler" has been written by Jean-Marie Geffroy and is part of the Manuel Serrano&#8217;s Bigloo compiler since several years <a href="_bibliography.html#Bigloo">[Bigloo]</a>
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. This section is an adaptation of Jeff Dalton&#8217;s (<a href="mailto:J.Dalton@ed.ac.uk">J.Dalton@ed.ac.uk</a>) "<strong><em>Brief introduction to CLOS</em></strong>" which can be found at <a href="http://www.aiai.ed.ac.uk/~jeff/clos-guide.html" class="bare">http://www.aiai.ed.ac.uk/~jeff/clos-guide.html</a>
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_bibliography.html b/doc/HTML/_bibliography.html
deleted file mode 100644
index f853c2c5e..000000000
--- a/doc/HTML/_bibliography.html
+++ /dev/null
@@ -1,667 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_bibliography" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html"><span class="toc-current">Bibliography</span></a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_bibliography">Bibliography</h2>
-<div class="sectionbody">
-<div class="ulist bibliography">
-<ul class="bibliography">
-<li>
-<p><a id="AMOP"></a>[AMOP] Gregor Kickzales, Jim de Rivières and Daniel G. Bobrow&#8201;&#8212;&#8201;<strong>The Art of Meta Object Protocol</strong>&#8201;&#8212;&#8201;MIT Press, 1991.</p>
-</li>
-<li>
-<p><a id="Bigloo"></a>[Bigloo] Manuel Serrano&#8201;&#8212;&#8201;<a href="http://www-sop.inria.fr/mimosa/fp/Bigloo/"><strong>Bigloo</strong></a> Home Page.</p>
-</li>
-<li>
-<p><a id="BoehmGC"></a>[BoehmGC] Hans Boehm&#8201;&#8212;&#8201;<a href="https://www.hboehm.info/gc/">A garbage collector for C and C++ </a> Home Page.</p>
-</li>
-<li>
-<p><a id="CLtL2"></a>[CLtL2] Guy L. Steele Jr.&#8201;&#8212;&#8201;<strong>Common Lisp: the Language, 2nd Edition</strong>&#8201;&#8212;&#8201;Digital Press, 12 Crosby Drive, Bedford, MA 01730, USA, 1990.</p>
-</li>
-<li>
-<p><a id="DSSSL"></a>[DSSSL] ISO/IEC&#8201;&#8212;&#8201;<strong>Information technology, Processing Languages, Document Style Semantics and
-Specification Languages (DSSSL)</strong>&#8201;&#8212;&#8201;10179:1996(E), ISO, , 1996.</p>
-</li>
-<li>
-<p><a id="Dylan"></a>[Dylan] Apple Computer&#8201;&#8212;&#8201;<strong>Dylan: an Object Oriented Dynamic Language</strong>&#8201;&#8212;&#8201;Apple, April, 1992.</p>
-</li>
-<li>
-<p><a id="GTK"></a>[GTK] <a href="http://gtk.org/"><strong>The GTK+ Toolkit Home Page</strong></a></p>
-</li>
-<li>
-<p><a id="PCRE"></a>[PCRE] Philip Hazel&#8201;&#8212;&#8201;<a href="http://pcre.org/"><strong>PCRE (Perl Compatible Regular Expressions)</strong></a>
-Home page.</p>
-</li>
-<li>
-<p><a id="POSIX"></a>[POSIX] POSIX Committee&#8201;&#8212;&#8201;<strong>System Application Program Interface (API) [C Language]</strong>&#8201;&#8212;&#8201;2017.</p>
-</li>
-<li>
-<p><a id="QuG92"></a>[QuG92] C. Queinnec and J-M. Geffroy&#8201;&#8212;&#8201;<strong>Partial Evaluation Applied to Symbolic Pattern Matching
-with Intelligent Backtrack</strong>&#8201;&#8212;&#8201;Workshop in Static Analysis, Bigre, (81&#8212;&#8203;82), Bordeaux (France), September, 1992.</p>
-</li>
-<li>
-<p><a id="R5RS"></a>[R5RS] Kelsey, R. and Clinger, W. and Rees, J.&#8201;&#8212;&#8201;<a href="https://www.schemers.org/Documents/Standards/R5RS/HTML"><strong>The Revised5 Report on the Algorithmic Language Scheme</strong></a>&#8201;&#8212;&#8201;Higher-Order and Symbolic Computation, 11(1), Sep, 1998.</p>
-</li>
-<li>
-<p><a id="R7RS"></a>[R7RS] Alex S. Shinn, John Cowan and Arthur A. Gleckler&#8201;&#8212;&#8201;<a href="https://small.r7rs.org/attachment/r7rs.pdf"><strong>The Revised7 Report on the Algorithmic Language Scheme&#8201;&#8212;&#8201;R7RS small</strong></a>&#8201;&#8212;&#8201;July, 2013.</p>
-</li>
-<li>
-<p><a id="SLIB"></a>[SLIB] Aubrey Jaffer &#8201;&#8212;&#8201;<a href="https://people.csail.mit.edu/jaffer/SLIB"><strong>The SLIB Portable Scheme Library Home Page</strong></a></p>
-</li>
-<li>
-<p><a id="SOS"></a>[SOS] Chris Hanson&#8201;&#8212;&#8201;<a href="https://www.gnu.org/software/mit-scheme/documentation/stable/mit-scheme-sos.pdf">The SOS Reference Manual, version 1.9</a>&#8201;&#8212;&#8201;November, 2011.</p>
-</li>
-<li>
-<p><a id="STk"></a>[STk] Erick Gallesio&#8201;&#8212;&#8201;<a href="https://www.stklos.net/Doc/STk.pdf"><strong>STk Reference Manual</strong></a>&#8201;&#8212;&#8201;RT 95-31a,
-I3S CNRS / Université de Nice - Sophia Antipolis, juillet, 1995.</p>
-</li>
-<li>
-<p><a id="Tiny-Clos"></a>[Tiny-Clos] Gregor Kickzales&#8201;&#8212;&#8201;<a href="http://community.schemewiki.org/?Tiny-CLOS"><strong>Tiny-Clos</strong></a>&#8201;&#8212;&#8201;December, 1992.</p>
-</li>
-<li>
-<p><a id="Tk"></a>[Tk] John K. Ousterhout&#8201;&#8212;&#8201;<strong>An X11 toolkit based on the Tcl Language</strong>&#8201;&#8212;&#8201;USENIX Winter Conference, January, 1991, pp. 105&#8212;&#8203;115.</p>
-</li>
-<li>
-<p><a id="TuD96"></a>[TuD96] Sho-Huan Simon Tung and R. Kent Dybvig&#8201;&#8212;&#8201;<strong>Reliable Interactive Programming
-with Modules</strong>&#8201;&#8212;&#8201;LISP and Symbolic Computation, 91996, pp. 343&#8212;&#8203;358.</p>
-</li>
-</ul>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_srfis.html">SRFIs</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_idiosync.html">Appendix A: STklos Idiosyncrasies</a> →</p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. In fact <code>define-module</code> on a given name defines a new module only the first time it is invoked on this name. By this way, interactively reloading a module does not define a new entity, and the other modules which use it are not altered.
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. This transcript uses the default toplevel loop             which displays the name of the current module in the evaluator             prompt.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Under Unix, you can simply connect to a listening socket with the <code>telnet</code> of <code>netcat</code> command. For the given example, this can be achieved with <code>netcat localhost 12345</code>
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. Port 13, if open, can be used for testing: making a connection to it permits to know the distant system&#8217;s idea of the time of day.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. The "pattern matching compiler" has been written by Jean-Marie Geffroy and is part of the Manuel Serrano&#8217;s Bigloo compiler since several years <a href="_bibliography.html#Bigloo">[Bigloo]</a>
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. This section is an adaptation of Jeff Dalton&#8217;s (<a href="mailto:J.Dalton@ed.ac.uk">J.Dalton@ed.ac.uk</a>) "<strong><em>Brief introduction to CLOS</em></strong>" which can be found at <a href="http://www.aiai.ed.ac.uk/~jeff/clos-guide.html" class="bare">http://www.aiai.ed.ac.uk/~jeff/clos-guide.html</a>
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_exceptions_and_conditions.html b/doc/HTML/_exceptions_and_conditions.html
deleted file mode 100644
index 26cb54e6c..000000000
--- a/doc/HTML/_exceptions_and_conditions.html
+++ /dev/null
@@ -1,1410 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<style>
-pre.rouge table td { padding: 5px; }
-pre.rouge table pre { margin: 0; }
-pre.rouge .c, pre.rouge .ch, pre.rouge .cd, pre.rouge .cpf {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cm {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .c1 {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cp {
-  color: #75715e;
-  font-weight: bold;
-}
-pre.rouge .cs {
-  color: #75715e;
-  font-weight: bold;
-  font-style: italic;
-}
-pre.rouge .err {
-  color: #960050;
-  background-color: #1e0010;
-}
-pre.rouge .gi {
-  color: #ffffff;
-  background-color: #324932;
-}
-pre.rouge .gd {
-  color: #ffffff;
-  background-color: #493131;
-}
-pre.rouge .ge {
-  color: #000000;
-  font-style: italic;
-}
-pre.rouge .gr {
-  color: #aa0000;
-}
-pre.rouge .gt {
-  color: #aa0000;
-}
-pre.rouge .gh {
-  color: #999999;
-}
-pre.rouge .go {
-  color: #888888;
-}
-pre.rouge .gp {
-  color: #555555;
-}
-pre.rouge .gs {
-  font-weight: bold;
-}
-pre.rouge .gu {
-  color: #aaaaaa;
-}
-pre.rouge .k, pre.rouge .kv {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kc {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kd {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kp {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kr {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kt {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kn {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .ow {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .o {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .mf {
-  color: #ae81ff;
-}
-pre.rouge .mh {
-  color: #ae81ff;
-}
-pre.rouge .il {
-  color: #ae81ff;
-}
-pre.rouge .mi {
-  color: #ae81ff;
-}
-pre.rouge .mo {
-  color: #ae81ff;
-}
-pre.rouge .m, pre.rouge .mb, pre.rouge .mx {
-  color: #ae81ff;
-}
-pre.rouge .se {
-  color: #ae81ff;
-}
-pre.rouge .sa {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .sb {
-  color: #e6db74;
-}
-pre.rouge .sc {
-  color: #e6db74;
-}
-pre.rouge .sd {
-  color: #e6db74;
-}
-pre.rouge .s2 {
-  color: #e6db74;
-}
-pre.rouge .sh {
-  color: #e6db74;
-}
-pre.rouge .si {
-  color: #e6db74;
-}
-pre.rouge .sx {
-  color: #e6db74;
-}
-pre.rouge .sr {
-  color: #e6db74;
-}
-pre.rouge .s1 {
-  color: #e6db74;
-}
-pre.rouge .ss {
-  color: #e6db74;
-}
-pre.rouge .s, pre.rouge .dl {
-  color: #e6db74;
-}
-pre.rouge .na {
-  color: #a6e22e;
-}
-pre.rouge .nc {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nd {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .ne {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nf, pre.rouge .fm {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .no {
-  color: #66d9ef;
-}
-pre.rouge .bp {
-  color: #f8f8f2;
-}
-pre.rouge .nb {
-  color: #f8f8f2;
-}
-pre.rouge .ni {
-  color: #f8f8f2;
-}
-pre.rouge .nn {
-  color: #f8f8f2;
-}
-pre.rouge .vc {
-  color: #f8f8f2;
-}
-pre.rouge .vg {
-  color: #f8f8f2;
-}
-pre.rouge .vi {
-  color: #f8f8f2;
-}
-pre.rouge .nv, pre.rouge .vm {
-  color: #f8f8f2;
-}
-pre.rouge .w {
-  color: #f8f8f2;
-}
-pre.rouge .nl {
-  color: #f8f8f2;
-  font-weight: bold;
-}
-pre.rouge .nt {
-  color: #f92672;
-}
-pre.rouge {
-  color: #f8f8f2;
-  background-color: #49483e;
-}
-</style>
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_exceptions_and_conditions" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html"><span class="toc-current">7. Exceptions and Conditions</span></a>
-<ul class="sectlevel2">
-<li><a href="_exceptions_and_conditions.html#_exceptions">7.1. Exceptions</a>
-</li>
-<li><a href="_exceptions_and_conditions.html#_conditions">7.2. Conditions</a>
-</li>
-<li><a href="_exceptions_and_conditions.html#_predefined_conditions">7.3. Predefined Conditions</a>
-</li>
-</ul>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_exceptions_and_conditions">7. Exceptions and Conditions</h2>
-<div class="sectionbody">
-<div class="sect2">
-<h3 id="_exceptions">7.1. Exceptions</h3>
-<div class="paragraph">
-<p>
-The following text is extracted from <strong><a href="http://srfi.schemers.org/srfi-34/srfi-34.html">SRFI-34</a></strong> (<em>Exception Handling for Programs</em>), from which
-<strong><em>STklos</em></strong> exceptions are derived. Note that exceptions are now part of R<sup>7</sup>RS.</p>
-</div>
-<div class="paragraph">
-<p>Exception handlers are one-argument procedures that determine the action the
-program takes when an exceptional situation is signalled. The system
-implicitly maintains a current exception handler.</p>
-</div>
-<div class="paragraph">
-<p>The program raises an exception by invoking the current exception handler,
-passing to it an object encapsulating information about the exception. Any
-procedure accepting one argument may serve as an exception handler and any
-object may be used to represent an exception.</p>
-</div>
-<div class="paragraph">
-<p>The system maintains the current exception handler as part of the dynamic
-environment of the program, akin to the current input or output port, or the
-context for dynamic-wind. The dynamic environment can be thought of as that
-part of a continuation that does not specify the destination of any returned
-values. It includes the current input and output ports, the dynamic-wind
-context, and this SRFI&#8217;s current exception handler.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(with-handler &lt;handler&gt; &lt;expr<sub>1</sub>&gt; &#8230;&#8203; &lt;expr<sub>n</sub>&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Evaluates the sequences of expressions <code>&lt;expr<sub>1</sub>&gt;</code> to <code>&lt;expr<sub>n</sub>&gt;</code>.
-<code>&lt;handler&gt;</code> must be a procedure that accepts one argument. It is installed
-as the current exception handler for the dynamic extent (as determined by
-dynamic-wind) of the evaluations of the expressions</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">with-handler</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">c</span><span class="p">)</span>
-                <span class="p">(</span><span class="nb">display</span> <span class="s">"Catch an error\n"</span><span class="p">))</span>
-   <span class="p">(</span><span class="nb">display</span> <span class="s">"One ... "</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">+</span> <span class="s">"will yield"</span> <span class="s">"an error"</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">display</span> <span class="s">"... Two"</span><span class="p">))</span>
-       <span class="nv">|-</span> <span class="s">"One ... Catch an error"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(with-exception-handler &lt;handler&gt; &lt;thunk&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This form is similar to <code>with-handler</code>. It uses a <strong><em>thunk</em></strong> instead of
-a sequence of expressions. It is conform to <strong><a href="http://srfi.schemers.org/srfi-34/srfi-34.html">SRFI-34</a></strong> (<em>Exception Handling for Programs</em>).
-In fact,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">with-handler</span> <span class="nv">&lt;handler&gt;</span> <span class="nv">&lt;expr1&gt;</span> <span class="o">...</span> <span class="nv">&lt;exprn&gt;</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">with-exception-handler</span> <span class="nv">&lt;handler&gt;</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="nv">&lt;expr1&gt;</span> <span class="o">...</span> <span class="nv">&lt;exprn&gt;</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(raise obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Invokes the current exception handler on <code>obj</code>. The handler is called in
-the dynamic environment of the call to <code>raise</code>, except that the current
-exception handler is that in place for the call to <code>with-handler</code>
-that installed the handler being called.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">with-handler</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">c</span><span class="p">)</span>
-             <span class="p">(</span><span class="nf">format</span> <span class="s">"value ~A was raised"</span> <span class="nv">c</span><span class="p">))</span>
-   <span class="p">(</span><span class="nf">raise</span> <span class="ss">'foo</span><span class="p">)</span>
-   <span class="p">(</span><span class="nf">format</span> <span class="no">#t</span> <span class="s">"never printed\n"</span><span class="p">))</span>
-          <span class="nv">=&gt;</span> <span class="s">"value foo was raised"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(raise-continuable obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Raises an exception by invoking the current exception handler on
-<code>obj</code>. The handler is called with the same dynamic environment as the
-call to <code>raise-continuable</code>, except that: (1) the current exception
-handler is the one that was in place when the handler being called was
-installed, and (2) if the handler being called returns, then it will again
-become the current exception handler.  If the handler returns, the values
-it returns become the values returned by the call to <code>raise-continuable</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">with-exception-handler</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">con</span><span class="p">)</span>
-    <span class="p">(</span><span class="k">cond</span>
-      <span class="p">((</span><span class="nb">string?</span> <span class="nv">con</span><span class="p">)</span>
-       <span class="p">(</span><span class="nb">display</span> <span class="nv">con</span><span class="p">))</span>
-      <span class="p">(</span><span class="k">else</span>
-       <span class="p">(</span><span class="nb">display</span> <span class="s">"a warning has been issued"</span><span class="p">)))</span>
-    <span class="mi">42</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span>
-    <span class="p">(</span><span class="nb">+</span> <span class="p">(</span><span class="nf">raise-continuable</span> <span class="s">"should be a number"</span><span class="p">)</span>
-       <span class="mi">23</span><span class="p">)))</span>
-  <span class="c1">;; prints should be a number</span>
-                <span class="nv">=&gt;</span> <span class="mi">65</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(guard (&lt;var&gt; &lt;clause1 &gt; &lt;clause2 &gt; &#8230;&#8203;)  &lt;body&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Evaluating a guard form evaluates <code>&lt;body&gt;</code> with an exception handler
-that binds the raised object to <code>&lt;var&gt;</code> and within the scope of that
-binding evaluates the clauses as if they were the clauses of a cond
-expression. That implicit cond  expression is evaluated with the
-continuation and dynamic environment of the <code>guard</code> expression.
-If every <code>&lt;clause&gt;</code>s test evaluates to false and there is no <code>else</code>
-clause, then <code>raise</code> is re-invoked on the raised object within the
-dynamic environment of the original call to <code>raise</code> except that the
-current exception handler is that of the <code>guard</code> expression.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">guard</span> <span class="p">(</span><span class="nf">condition</span>
-         <span class="p">((</span><span class="nb">assq</span> <span class="ss">'a</span> <span class="nv">condition</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="nv">cdr</span><span class="p">)</span>
-         <span class="p">((</span><span class="nb">assq</span> <span class="ss">'b</span> <span class="nv">condition</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">raise</span> <span class="p">(</span><span class="nb">list</span> <span class="p">(</span><span class="nb">cons</span> <span class="ss">'a</span> <span class="mi">42</span><span class="p">))))</span>
-         <span class="nv">=&gt;</span> <span class="mi">42</span>
-
-<span class="p">(</span><span class="nf">guard</span> <span class="p">(</span><span class="nf">condition</span>
-         <span class="p">((</span><span class="nb">assq</span> <span class="ss">'a</span> <span class="nv">condition</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="nv">cdr</span><span class="p">)</span>
-         <span class="p">((</span><span class="nb">assq</span> <span class="ss">'b</span> <span class="nv">condition</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">raise</span> <span class="p">(</span><span class="nb">list</span> <span class="p">(</span><span class="nb">cons</span> <span class="ss">'b</span> <span class="mi">23</span><span class="p">))))</span>
-         <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">b</span> <span class="o">.</span> <span class="mi">23</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">with-handler</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">c</span><span class="p">)</span> <span class="p">(</span><span class="nf">format</span> <span class="s">"value ~A was raised"</span> <span class="nv">c</span><span class="p">))</span>
-  <span class="p">(</span><span class="nf">guard</span> <span class="p">(</span><span class="nf">condition</span>
-       <span class="p">((</span><span class="nb">assq</span> <span class="ss">'a</span> <span class="nv">condition</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="nv">cdr</span><span class="p">)</span>
-       <span class="p">((</span><span class="nb">assq</span> <span class="ss">'b</span> <span class="nv">condition</span><span class="p">)))</span>
-      <span class="p">(</span><span class="nf">raise</span> <span class="p">(</span><span class="nb">list</span> <span class="p">(</span><span class="nb">cons</span> <span class="ss">'x</span> <span class="mi">0</span><span class="p">)))))</span>
-         <span class="nv">=&gt;</span> <span class="s">"value ((x . 0)) was raised"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(current-exception-handler)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the current exception handler. This procedure is defined in
-,(link-srfi 18).</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_conditions">7.2. Conditions</h3>
-<div class="paragraph">
-<p>
-The following text is extracted from <strong><a href="http://srfi.schemers.org/srfi-35/srfi-35.html">SRFI-35</a></strong> (<em>Conditions</em>), from which
-<strong><em>STklos</em></strong> conditions are derived.</p>
-</div>
-<div class="paragraph">
-<p>Conditions are values that communicate information about exceptional
-situations between parts of a program. Code that detects an exception may be
-in a different part of the program than the code that handles
-it. In fact, the former may have been written independently from the
-latter. Consequently, to facilitate effective handling of exceptions,
-conditions must communicate as much information as possible as
-accurately as possible, and still allow effective handling by code
-that did not precisely anticipate the nature of the exception that
-occurred.</p>
-</div>
-<div class="paragraph">
-<p>Conditions available in <strong><em>STklos</em></strong> are derived from <strong>SRFI-35</strong> and in this SRFI
-two mechanisms to enable this kind of communication are provided:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>subtyping among condition types allows handling code to
-determine the general nature of an exception even though it does
-not anticipate its exact nature,</p>
-</li>
-<li>
-<p>compound conditions allow an exceptional situation to be
-described in multiple ways.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>Conditions are structures with named slots. Each condition belongs to
-one condition type (a condition type can be made from several
-condition types). Each condition type specifies a set of
-slot names. A condition belonging to a condition type includes a
-value for each of the type&#8217;s slot names. These values can be
-extracted from the condition by using the appropriate slot name.</p>
-</div>
-<div class="paragraph">
-<p>
-There is a tree of condition types with the distinguished <code>&amp;condition</code>
-as its root. All other condition types have a parent condition type.</p>
-</div>
-<div class="paragraph">
-<p>Conditions are implemented with <strong><em>STklos</em></strong> structures (with a special bit
-indicating that there are conditions). Of course, condition types are
-implemented with structure types. As a consequence, functions on
-structures or structures types are available on conditions or
-conditions types (the contrary is not true). For instance, if C is a
-condition, the expression</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">struct-&gt;list</span> <span class="nv">C</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is a simple way to see it&#8217;s slots and their associated value.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-condition-type id  parent  slot-names)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Make-condition-type</code> returns a new condition type. <code>Id</code> must be a symbol
-that serves as a symbolic name for the condition type. <code>Parent</code> must itself
-be a condition type. <code>Slot-names</code> must be a list of symbols. It identifies
-the slots of the conditions associated with the condition type.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(condition-type? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a condition type, and <code>#f</code> otherwise</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-compound-condition-type id ct<sub>1</sub> &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Make-compound-condition-type</code> returns a new condition type, built
-from the condition types <code>ct<sub>1</sub></code>, &#8230;&#8203;
-<code>Id</code> must be a symbol that serves as a symbolic name for the
-condition type. The slots names of the new condition type is the
-union of the slots of conditions <code>ct<sub>1</sub></code> &#8230;&#8203;</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This function is not defined in <strong><a href="http://srfi.schemers.org/srfi-34/srfi-34.html">SRFI-34</a></strong> (<em>Exception Handling for Programs</em>).
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-condition type slot-name value  &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Make-condition</code> creates a condition value belonging condition type
-<code>type</code>. The following arguments must be, in turn, a slot name and an
-arbitrary value. There must be such a pair for each slot of <code>type</code> and
-its direct and indirect supertypes. <code>Make-condition</code> returns the
-condition value, with the argument values associated with their
-respective slots.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">ct</span> <span class="p">(</span><span class="nf">make-condition-type</span> <span class="ss">'ct1</span> <span class="nv">&amp;condition</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)))</span>
-       <span class="p">(</span><span class="nf">c</span>  <span class="p">(</span><span class="nf">make-condition</span> <span class="nv">ct</span> <span class="ss">'b</span> <span class="mi">2</span> <span class="ss">'a</span> <span class="mi">1</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">struct-&gt;list</span> <span class="nv">c</span><span class="p">))</span>
-     <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">a</span> <span class="o">.</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="o">.</span> <span class="mi">2</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(condition? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a condition, and <code>#f</code> otherwise</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(condition-has-type? condition condition-type)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Condition-has-type?</code> tests if <code>condition</code> belongs to <code>condition-type</code>.
-It returns <code>#t</code> if any of condition 's types includes <code>condition-type</code>
-either directly or as an ancestor and <code>#f</code> otherwise.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"> <span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">ct1</span> <span class="p">(</span><span class="nf">make-condition-type</span> <span class="ss">'ct1</span> <span class="nv">&amp;condition</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)))</span>
-        <span class="p">(</span><span class="nf">ct2</span> <span class="p">(</span><span class="nf">make-condition-type</span> <span class="ss">'ct2</span> <span class="nv">ct1</span> <span class="o">'</span><span class="p">(</span><span class="nf">c</span><span class="p">)))</span>
-        <span class="p">(</span><span class="nf">ct3</span> <span class="p">(</span><span class="nf">make-condition-type</span> <span class="ss">'ct3</span> <span class="nv">&amp;condition</span> <span class="o">'</span><span class="p">(</span><span class="nf">x</span> <span class="nv">y</span> <span class="nv">z</span><span class="p">)))</span>
-        <span class="p">(</span><span class="nf">c</span>   <span class="p">(</span><span class="nf">make-condition</span> <span class="nv">ct2</span> <span class="ss">'a</span> <span class="mi">1</span> <span class="ss">'b</span> <span class="mi">2</span> <span class="ss">'c</span> <span class="mi">3</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">list</span> <span class="p">(</span><span class="nf">condition-has-type?</span> <span class="nv">c</span> <span class="nv">ct1</span><span class="p">)</span>
-     <span class="p">(</span><span class="nf">condition-has-type?</span> <span class="nv">c</span> <span class="nv">ct2</span><span class="p">)</span>
-     <span class="p">(</span><span class="nf">condition-has-type?</span> <span class="nv">c</span> <span class="nv">ct3</span><span class="p">)))</span>
-    <span class="nv">=&gt;</span> <span class="p">(</span><span class="no">#t</span> <span class="no">#t</span> <span class="no">#f</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(condition-ref condition slot-name)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Condition</code> must be a condition, and <code>slot-name</code> a symbol. Moreover,
-<code>condition</code> must belong to a condition type which has a slot name called
-<code>slot-name</code>, or one of its (direct or indirect) supertypes must have the
-slot. <code>Condition-ref</code> returns the value associated with <code>slot-name</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">ct</span> <span class="p">(</span><span class="nf">make-condition-type</span> <span class="ss">'ct1</span> <span class="nv">&amp;condition</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)))</span>
-       <span class="p">(</span><span class="nf">c</span>  <span class="p">(</span><span class="nf">make-condition</span> <span class="nv">ct</span> <span class="ss">'b</span> <span class="mi">2</span> <span class="ss">'a</span> <span class="mi">1</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">condition-ref</span> <span class="nv">c</span> <span class="ss">'b</span><span class="p">))</span>
-     <span class="nv">=&gt;</span> <span class="mi">2</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(condition-set! condition slot-name obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Condition</code> must be a condition, and <code>slot-name</code> a symbol. Moreover,
-<code>condition</code> must belong to a condition type which has a slot name called
-<code>slot-name</code>, or one of its (direct or indirect) supertypes must have the
-slot. <code>Condition-set!</code> change the value associated with <code>slot-name</code> to <code>obj</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-Whereas <code>condition-ref</code> is defined in ,(srfi 35),
-<code>confition-set!</code> is not.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-compound-condition condition<sub>0</sub> condition<sub>1</sub> &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Make-compound-condition</code> returns a compound condition belonging to
-all condition types that the <code>condition<sub>i</sub></code> belong to.</p>
-</div>
-<div class="paragraph">
-<p><code>Condition-ref</code>, when applied to a compound condition will return
- the value from the first of the <code>conditioni</code> that has such a slot.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(extract-condition condition  condition-type)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Condition</code> must be a condition belonging to <code>condition-type</code>.
-<code>Extract-condition</code> returns a condition of <code>condition-type</code>
-with the slot values specified by <code>condition</code>. The new condition
-is always allocated.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">ct1</span> <span class="p">(</span><span class="nf">make-condition-type</span> <span class="ss">'ct1</span> <span class="nv">&amp;condition</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)))</span>
-       <span class="p">(</span><span class="nf">ct2</span> <span class="p">(</span><span class="nf">make-condition-type</span> <span class="ss">'ct2</span> <span class="nv">ct1</span> <span class="o">'</span><span class="p">(</span><span class="nf">c</span><span class="p">)))</span>
-       <span class="p">(</span><span class="nf">c2</span>  <span class="p">(</span><span class="nf">make-condition</span> <span class="nv">ct2</span> <span class="ss">'a</span> <span class="mi">1</span> <span class="o">'</span> <span class="nv">b</span> <span class="mi">2</span> <span class="ss">'c</span> <span class="mi">3</span><span class="p">))</span>
-       <span class="p">(</span><span class="nf">c1</span>  <span class="p">(</span><span class="nf">extract-condition</span> <span class="nv">c2</span> <span class="nv">ct1</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">list</span> <span class="p">(</span><span class="nf">condition-has-type?</span> <span class="nv">c1</span> <span class="nv">ct2</span><span class="p">)</span>
-     <span class="p">(</span><span class="nf">condition-has-type?</span> <span class="nv">c1</span> <span class="nv">ct1</span><span class="p">)))</span>
-      <span class="nv">=&gt;</span> <span class="p">(</span><span class="no">#f</span> <span class="no">#t</span><span class="p">)</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_predefined_conditions">7.3. Predefined Conditions</h3>
-<div class="paragraph">
-<p>
-
-<strong><em>STklos</em></strong> implements all the conditions types which are defined in
-<strong><a href="http://srfi.schemers.org/srfi-35/srfi-35.html">SRFI-35</a></strong> (<em>Conditions</em>) and <strong><a href="http://srfi.schemers.org/srfi-36/srfi-36.html">SRFI-36</a></strong> (<em>I/O Conditions</em>).
-However, the access functions which are (implicitely) defined
-in those SRFIs are only available if the file <code>"conditions"</code> is
-required. This can be done with the call:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">require</span> <span class="s">"conditions"</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Another way to have access to the hierarchy of the <strong><a href="http://srfi.schemers.org/srfi-35/srfi-35.html">SRFI-35</a></strong> (<em>Conditions</em>)
-and <strong><a href="http://srfi.schemers.org/srfi-36/srfi-36.html">SRFI-36</a></strong> (<em>I/O Conditions</em>) condition:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">require-extension</span> <span class="nv">conditions</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The following hierarchy of conditions is predefined:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>&amp;condition
-   &amp;message (has "message" slot)
-   &amp;serious
-   &amp;error
-      &amp;error-message (has *message*, "location" and "backtrace" slots)
-      &amp;i/o-error
-         &amp;i/o-port-error (has a "port" slot)
-            &amp;i/o-read-error
-            &amp;i/o-write-error
-            &amp;i/o-closed-error
-        &amp;i/o-filename-error (has a "filename" slots)
-            &amp;i/o-malformed-filename-error
-            &amp;i/o-file-protection-error
-                &amp;i/o-file-is-read-only-error
-            &amp;i/o-file-already-exists-error
-            &amp;i/o-no-such-file-error
-     &amp;read-error (has the "line", "column", "position" and "span" slots)</code></pre>
-</div>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_pattern_matching.html">Pattern Matching</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_stklos_object_system.html">STklos Object System</a> →</p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. In fact <code>define-module</code> on a given name defines a new module only the first time it is invoked on this name. By this way, interactively reloading a module does not define a new entity, and the other modules which use it are not altered.
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. This transcript uses the default toplevel loop             which displays the name of the current module in the evaluator             prompt.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Under Unix, you can simply connect to a listening socket with the <code>telnet</code> of <code>netcat</code> command. For the given example, this can be achieved with <code>netcat localhost 12345</code>
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. Port 13, if open, can be used for testing: making a connection to it permits to know the distant system&#8217;s idea of the time of day.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. The "pattern matching compiler" has been written by Jean-Marie Geffroy and is part of the Manuel Serrano&#8217;s Bigloo compiler since several years <a href="_bibliography.html#Bigloo">[Bigloo]</a>
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_expressions.html b/doc/HTML/_expressions.html
deleted file mode 100644
index 63e4a28f1..000000000
--- a/doc/HTML/_expressions.html
+++ /dev/null
@@ -1,2713 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<style>
-pre.rouge table td { padding: 5px; }
-pre.rouge table pre { margin: 0; }
-pre.rouge .c, pre.rouge .ch, pre.rouge .cd, pre.rouge .cpf {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cm {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .c1 {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cp {
-  color: #75715e;
-  font-weight: bold;
-}
-pre.rouge .cs {
-  color: #75715e;
-  font-weight: bold;
-  font-style: italic;
-}
-pre.rouge .err {
-  color: #960050;
-  background-color: #1e0010;
-}
-pre.rouge .gi {
-  color: #ffffff;
-  background-color: #324932;
-}
-pre.rouge .gd {
-  color: #ffffff;
-  background-color: #493131;
-}
-pre.rouge .ge {
-  color: #000000;
-  font-style: italic;
-}
-pre.rouge .gr {
-  color: #aa0000;
-}
-pre.rouge .gt {
-  color: #aa0000;
-}
-pre.rouge .gh {
-  color: #999999;
-}
-pre.rouge .go {
-  color: #888888;
-}
-pre.rouge .gp {
-  color: #555555;
-}
-pre.rouge .gs {
-  font-weight: bold;
-}
-pre.rouge .gu {
-  color: #aaaaaa;
-}
-pre.rouge .k, pre.rouge .kv {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kc {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kd {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kp {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kr {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kt {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kn {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .ow {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .o {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .mf {
-  color: #ae81ff;
-}
-pre.rouge .mh {
-  color: #ae81ff;
-}
-pre.rouge .il {
-  color: #ae81ff;
-}
-pre.rouge .mi {
-  color: #ae81ff;
-}
-pre.rouge .mo {
-  color: #ae81ff;
-}
-pre.rouge .m, pre.rouge .mb, pre.rouge .mx {
-  color: #ae81ff;
-}
-pre.rouge .se {
-  color: #ae81ff;
-}
-pre.rouge .sa {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .sb {
-  color: #e6db74;
-}
-pre.rouge .sc {
-  color: #e6db74;
-}
-pre.rouge .sd {
-  color: #e6db74;
-}
-pre.rouge .s2 {
-  color: #e6db74;
-}
-pre.rouge .sh {
-  color: #e6db74;
-}
-pre.rouge .si {
-  color: #e6db74;
-}
-pre.rouge .sx {
-  color: #e6db74;
-}
-pre.rouge .sr {
-  color: #e6db74;
-}
-pre.rouge .s1 {
-  color: #e6db74;
-}
-pre.rouge .ss {
-  color: #e6db74;
-}
-pre.rouge .s, pre.rouge .dl {
-  color: #e6db74;
-}
-pre.rouge .na {
-  color: #a6e22e;
-}
-pre.rouge .nc {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nd {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .ne {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nf, pre.rouge .fm {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .no {
-  color: #66d9ef;
-}
-pre.rouge .bp {
-  color: #f8f8f2;
-}
-pre.rouge .nb {
-  color: #f8f8f2;
-}
-pre.rouge .ni {
-  color: #f8f8f2;
-}
-pre.rouge .nn {
-  color: #f8f8f2;
-}
-pre.rouge .vc {
-  color: #f8f8f2;
-}
-pre.rouge .vg {
-  color: #f8f8f2;
-}
-pre.rouge .vi {
-  color: #f8f8f2;
-}
-pre.rouge .nv, pre.rouge .vm {
-  color: #f8f8f2;
-}
-pre.rouge .w {
-  color: #f8f8f2;
-}
-pre.rouge .nl {
-  color: #f8f8f2;
-  font-weight: bold;
-}
-pre.rouge .nt {
-  color: #f92672;
-}
-pre.rouge {
-  color: #f8f8f2;
-  background-color: #49483e;
-}
-</style>
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_expressions" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html"><span class="toc-current">2. Expressions</span></a>
-<ul class="sectlevel2">
-<li><a href="_expressions.html#_literal_expressions">2.1. Literal expressions</a>
-</li>
-<li><a href="_expressions.html#_procedures">2.2. Procedures</a>
-</li>
-<li><a href="_expressions.html#_assignments">2.3. Assignments</a>
-</li>
-<li><a href="_expressions.html#_conditionals">2.4. Conditionals</a>
-</li>
-<li><a href="_expressions.html#_binding_constructs">2.5. Binding Constructs</a>
-</li>
-<li><a href="_expressions.html#_sequencing">2.6. Sequencing</a>
-</li>
-<li><a href="_expressions.html#_iterations">2.7. Iterations</a>
-</li>
-<li><a href="_expressions.html#_delayed_evaluation">2.8. Delayed Evaluation</a>
-</li>
-<li><a href="_expressions.html#_quasiquotation">2.9. Quasiquotation</a>
-</li>
-<li><a href="_expressions.html#_macros">2.10. Macros</a>
-</li>
-</ul>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_expressions">2. Expressions</h2>
-<div class="sectionbody">
-<div class="paragraph">
-<p>This chapter describes the main forms available in <strong><em>STklos</em></strong>. R<sup>5</sup>RS
-constructions are given
-very succinctly here for reference. See <a href="_bibliography.html#R5RS">[R5RS]</a> for a complete
-description.</p>
-</div>
-<div class="sect2">
-<h3 id="_literal_expressions">2.1. Literal expressions</h3>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(quote &lt;datum&gt;)</code></strong><br>
-<strong><code>'&lt;datum&gt;</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The quoting mechanism is identical to R<sup>5</sup>RS, except that keywords
-constants  evaluate "to themselves" as numerical constants, string
-constants, character constants, and boolean constants</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="o">'</span><span class="s">"abc"</span>     <span class="nv">=&gt;</span>  <span class="s">"abc"</span>
-<span class="s">"abc"</span>      <span class="nv">=&gt;</span>  <span class="s">"abc"</span>
-<span class="ss">'145932</span>    <span class="nv">=&gt;</span>  <span class="mi">145932</span>
-<span class="mi">145932</span>     <span class="nv">=&gt;</span>  <span class="mi">145932</span>
-<span class="o">'</span><span class="no">#t</span>        <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="no">#t</span>         <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="nv">:foo</span>       <span class="nv">=&gt;</span>  <span class="nv">:foo</span>
-<span class="ss">':foo</span>      <span class="nv">=&gt;</span>  <span class="nv">:foo</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-R<sup>5</sup>RS requires to quote constant lists and
-constant vectors. This is not necessary with STklos.
-</td>
-</tr>
-</table>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_procedures">2.2. Procedures</h3>
-<div class="paragraph">
-<p>
-
-
-
-
-
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(lambda &lt;formals&gt; &lt;body&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>A lambda expression evaluates to a procedure. STklos lambda expression
-have been extended to allow a optional and keyword parameters.
-<code>&lt;formals&gt;</code> should have one of the following forms:</p>
-</div>
-<div class="dlist">
-<dl>
-<dt class="hdlist1"><code>(&lt;variable<sub>1</sub>&gt; &#8230;&#8203;)</code></dt>
-<dd>
-<p>The procedure takes a fixed number of arguments;
-when the procedure is called, the arguments will be stored in the
-bindings of the corresponding variables.  This form is identical to
-R<sup>5</sup>RS.</p>
-</dd>
-<dt class="hdlist1"><code>&lt;variable&gt;</code></dt>
-<dd>
-<p>The procedure takes any number of arguments; when the
-procedure is called, the sequence of actual arguments is converted into
-a newly allocated list, and the list is stored in the binding of the
-<code>&lt;variable&gt;</code>. This form is identical to R<sup>5</sup>RS.</p>
-</dd>
-<dt class="hdlist1"><code>(&lt;variable<sub>1</sub>&gt; &#8230;&#8203; &lt;variable<sub>n</sub>&gt; . &lt;variable<sub>n+1</sub>&gt;)</code></dt>
-<dd>
-<p>If a space-delimited
-period precedes the last variable, then the procedure takes n or more
- arguments, where n is the number of formal arguments before the period
-(there must be at least one). The value stored in the binding of the
-last variable will be a newly allocated list of the actual arguments left
-over after all the other actual arguments have been matched up against
-the other formal arguments. This form is identical to R<sup>5</sup>RS.</p>
-</dd>
-<dt class="hdlist1"><code>(&lt;variable<sub>1</sub> &#8230;&#8203; &lt;variable<sub>n</sub>&gt; [:optional &#8230;&#8203;] [:rest &#8230;&#8203;] [:key &#8230;&#8203;])</code></dt>
-<dd>
-<p>This form is specific to STklos and allows to have procedure with
-optional and keyword parameters. The form <code>:optional</code> allows to specify
-optional parameters. All the parameters specified after <code>:optional</code> to the end
-of <code>&lt;formals&gt;</code> (or until a <code>:rest</code> or <code>:key</code>) are optional parameters. An
-optional parameter can declared as:</p>
-<div class="ulist">
-<ul>
-<li>
-<p><code>variable</code>: if a value is passed when the procedure is called, it will be
-stored in the binding of the corresponding variable, otherwise the value <code>#f</code>
-will be stored in it.</p>
-</li>
-<li>
-<p><code>(variable value)</code>: if a value is passed when the procedure is called, it
-will be stored in the binding of the corresponding variable, otherwise <code>value</code>
-will be stored in it.</p>
-</li>
-<li>
-<p><code>(variable value test?)</code>: if a value is passed when the procedure is called, it
-will be stored in the binding of the corresponding variable, otherwise <code>value</code>
-will be stored in it. Furthermore, <code>test?</code> will be given the value <code>#t</code> if
-a value is passed for the given variable, otherwise <code>test?</code> is set to <code>#f</code>.</p>
-</li>
-</ul>
-</div>
-</dd>
-</dl>
-</div>
-<div class="paragraph">
-<p>Hereafter are some examples using <code>:optional</code> parameters</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">((</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">:optional</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">)</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">))</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span>
-                            <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="no">#f</span> <span class="no">#f</span><span class="p">)</span>
-<span class="p">((</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">:optional</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">)</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">))</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>
-                            <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="no">#f</span><span class="p">)</span>
-<span class="p">((</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">:optional</span> <span class="nv">c</span> <span class="p">(</span><span class="nf">d</span> <span class="mi">100</span><span class="p">))</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">))</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>
-                            <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">100</span><span class="p">)</span>
-<span class="p">((</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">:optional</span> <span class="nv">c</span> <span class="p">(</span><span class="nf">d</span> <span class="no">#f</span> <span class="nv">d?</span><span class="p">))</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span> <span class="nv">d?</span><span class="p">))</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>
-                            <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="no">#f</span> <span class="no">#f</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The form <code>:rest</code> parameter is similar to the dot notation seen before.
-It is used before an identifier to collects the parameters in a single
-binding:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">((</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">:rest</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">))</span> <span class="mi">1</span><span class="p">)</span>
-                            <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="p">())</span>
-<span class="p">((</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">:rest</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">))</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span>
-                            <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="p">(</span><span class="nf">2</span><span class="p">))</span>
-<span class="p">((</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">:rest</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">))</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>
-                            <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">3</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The form <code>:key</code> allows to use keyword parameter passing. All the parameters
-specified after <code>:key</code> to the end of <code>&lt;formals&gt;</code> are keyword parameters. A
-keyword  parameter can be declared using the three forms given for optional
-parameters. Here are some examples illustrating how to declare and how to use
-keyword parameters:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">((</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">:key</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span> <span class="mi">1</span> <span class="nv">:c</span> <span class="mi">2</span> <span class="nv">:b</span> <span class="mi">3</span><span class="p">)</span>
-                            <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">3</span> <span class="mi">2</span><span class="p">)</span>
-<span class="p">((</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">:key</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span> <span class="mi">1</span> <span class="nv">:c</span> <span class="mi">2</span><span class="p">)</span>
-                            <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="no">#f</span> <span class="mi">2</span><span class="p">)</span>
-<span class="p">((</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">:key</span> <span class="p">(</span><span class="nf">b</span> <span class="mi">100</span> <span class="nv">b?</span><span class="p">)</span> <span class="nv">c</span><span class="p">)</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">b?</span><span class="p">))</span> <span class="mi">1</span> <span class="nv">:c</span> <span class="mi">2</span><span class="p">)</span>
-                            <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">100</span> <span class="mi">2</span> <span class="no">#f</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>At last, here is an example showing <code>:optional</code> <code>:rest</code> and <code>:key</code> parameters</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">f</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">:optional</span> <span class="nv">b</span> <span class="nv">:rest</span> <span class="nv">c</span> <span class="nv">:key</span> <span class="nv">d</span> <span class="nv">e</span><span class="p">)</span>
-             <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span> <span class="nv">e</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="nf">f</span> <span class="mi">1</span><span class="p">)</span>                       <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="no">#f</span> <span class="p">()</span> <span class="no">#f</span> <span class="no">#f</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">f</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span>                     <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="p">()</span> <span class="no">#f</span> <span class="no">#f</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">f</span> <span class="mi">1</span> <span class="mi">2</span> <span class="nv">:d</span> <span class="mi">3</span> <span class="nv">:e</span> <span class="mi">4</span><span class="p">)</span>           <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="p">(</span><span class="nf">:d</span> <span class="mi">3</span> <span class="nv">:e</span> <span class="mi">4</span><span class="p">)</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">f</span> <span class="mi">1</span> <span class="nv">:d</span> <span class="mi">3</span> <span class="nv">:e</span> <span class="mi">4</span><span class="p">)</span>             <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="no">#f</span> <span class="p">(</span><span class="nf">:d</span> <span class="mi">3</span> <span class="nv">:e</span> <span class="mi">4</span><span class="p">)</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(closure? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>&#35;t</code> if <code>obj</code> is a procedure created with the <code>lambda</code> syntax and
-<code>&#35;f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(case-lambda &lt;clause&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Each <code>&lt;clause&gt;</code> should have the form <code>(&lt;formals&gt; &lt;body&gt;)</code>, where
-<code>&lt;formals&gt;</code> is a formal arguments list as for <code>lambda</code>.
-Each <code>&lt;body&gt;</code> is a <code>&lt;tail-body&gt;</code>, as defined in R<sup>5</sup>RS.</p>
-</div>
-<div class="paragraph">
-<p>A <code>case-lambda</code> expression evaluates to a procedure that
-accepts a variable number of arguments and is lexically scoped in
-the same manner as procedures resulting from <code>lambda</code>
-expressions. When the procedure is called with some arguments
-<code>v1 &#8230;&#8203; vk</code>, then the first <code>&lt;clause&gt;</code> for which the arguments agree
-with <code>&lt;formals&gt;</code> is selected, where agreement is specified as for the
-<code>&lt;formals&gt;</code> of a <code>lambda</code> expression. The variables of <code>&lt;formals&gt;</code>
-are bound to fresh locations, the values <code>v1 &#8230;&#8203; vk</code> are stored in those
-locations, the <code>&lt;body&gt;</code> is evaluated in the extended environment,
-and the results of <code>&lt;body&gt;</code> are returned as the results of the
-procedure call.</p>
-</div>
-<div class="paragraph">
-<p>It is an error for the arguments not to agree with the <code>&lt;formals&gt;</code>
-of any <code>&lt;clause&gt;</code>.</p>
-</div>
-<div class="paragraph">
-<p>This form is defined in <strong><a href="http://srfi.schemers.org/srfi-16/srfi-16.html">SRFI-16</a></strong> (<em>Syntax for procedures of variable arity</em>).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"> <span class="p">(</span><span class="k">define</span> <span class="nv">plus</span>
-   <span class="p">(</span><span class="nf">case-lambda</span>
-    <span class="p">(()</span> <span class="mi">0</span><span class="p">)</span>
-    <span class="p">((</span><span class="nf">x</span><span class="p">)</span> <span class="nv">x</span><span class="p">)</span>
-    <span class="p">((</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">))</span>
-    <span class="p">((</span><span class="nf">x</span> <span class="nv">y</span> <span class="nv">z</span><span class="p">)</span> <span class="p">(</span><span class="nb">+</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)</span> <span class="nv">z</span><span class="p">))</span>
-    <span class="p">(</span><span class="nf">args</span> <span class="p">(</span><span class="nb">apply</span> <span class="nv">+</span> <span class="nv">args</span><span class="p">))))</span>
-
- <span class="p">(</span><span class="nf">plus</span><span class="p">)</span>                     <span class="nv">=&gt;</span> <span class="mi">0</span>
- <span class="p">(</span><span class="nf">plus</span> <span class="mi">1</span><span class="p">)</span>                   <span class="nv">=&gt;</span> <span class="mi">1</span>
- <span class="p">(</span><span class="nf">plus</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>               <span class="nv">=&gt;</span> <span class="mi">6</span>
-
- <span class="p">((</span><span class="nf">case-lambda</span>
-   <span class="p">((</span><span class="nf">a</span><span class="p">)</span> <span class="nv">a</span><span class="p">)</span>
-   <span class="p">((</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">)))</span>
-  <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>                    <span class="nv">=&gt;</span> <span class="nv">error</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_assignments">2.3. Assignments</h3>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(set! &lt;variable&gt; &lt;expression&gt;)</code></strong><br>
-<strong><code>(set! (&lt;proc&gt; &lt;arg&gt; &#8230;&#8203;) &lt;expression&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The first form of <code>set!</code> is the R<sup>5</sup>RS one:</p>
-</div>
-<div class="paragraph">
-<p><code>&lt;Expression&gt;</code> is evaluated, and the resulting value is stored in
-the location to which <code>&lt;variable&gt;</code> is bound. <code>&lt;Variable&gt;</code> must be bound
-either in some region enclosing the <code>set!</code> expression or at top level.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">x</span> <span class="mi">2</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">+</span> <span class="nv">x</span> <span class="mi">1</span><span class="p">)</span>                   <span class="nv">=&gt;</span>  <span class="mi">3</span>
-<span class="p">(</span><span class="k">set!</span> <span class="nv">x</span> <span class="mi">4</span><span class="p">)</span>                <span class="nv">=&gt;</span>  <span class="nv">unspecified</span>
-<span class="p">(</span><span class="nb">+</span> <span class="nv">x</span> <span class="mi">1</span><span class="p">)</span>                   <span class="nv">=&gt;</span>  <span class="mi">5</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The second form of <code>set!</code> is defined in <strong><a href="http://srfi.schemers.org/srfi-17/srfi-17.html">SRFI-17</a></strong> (<em>Generalized set!</em>):</p>
-</div>
-<div class="paragraph">
-<p>This special form <code>set!</code>
-is extended so the first operand can be a procedure application, and not
-just a variable. The procedure is typically one that extracts a component
-from some data structure. Informally, when the procedure is called in the
-first operand of <code>set!</code>, it causes the corresponding component to be
-replaced by the second operand. For example,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nb">vector-ref</span> <span class="nv">x</span> <span class="nv">i</span><span class="p">)</span> <span class="nv">v</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>would be equivalent to:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">vector-set!</span> <span class="nv">x</span> <span class="nv">i</span> <span class="nv">v</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Each procedure that may be used as the first operand to <code>set!</code> must have
-a corresponding <strong><em>setter</em></strong> procedure. The procedure <code>setter</code> (see below)
-takes a procedure and returns the corresponding setter procedure.
-So,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nf">proc</span> <span class="nv">arg</span> <span class="o">...</span><span class="p">)</span> <span class="nv">value</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is equivalent to the call</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">((</span><span class="nf">setter</span> <span class="nv">proc</span><span class="p">)</span> <span class="nv">arg</span> <span class="o">...</span> <span class="nv">value</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The result of the <code>set!</code> expression is unspecified.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(setter proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the setter associated to a <code>proc</code>. Setters are defined in the
-<strong><a href="http://srfi.schemers.org/srfi-17/srfi-17.html">SRFI-17</a></strong> (<em>Generalized set!</em>) document. A setter proc, can be used in a generalized
-assignment, as described in <code>set!</code>.</p>
-</div>
-<div class="paragraph">
-<p>To associate <code>s</code> to the procedure <code>p</code>, use the following form:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nf">setter</span> <span class="nv">p</span><span class="p">)</span> <span class="nv">s</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>For instance, we can write</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nf">setter</span> <span class="nv">car</span><span class="p">)</span> <span class="nv">set-car!</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The following standard procedures have pre-defined setters:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nb">car</span> <span class="nv">x</span><span class="p">)</span> <span class="nv">v</span><span class="p">)</span>              <span class="nv">==</span> <span class="p">(</span><span class="nb">set-car!</span> <span class="nv">x</span> <span class="nv">v</span><span class="p">)</span>
-<span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nb">cdr</span> <span class="nv">x</span><span class="p">)</span> <span class="nv">v</span><span class="p">)</span>              <span class="nv">==</span> <span class="p">(</span><span class="nb">set-cdr!</span> <span class="nv">x</span> <span class="nv">v</span><span class="p">)</span>
-<span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nb">string-ref</span> <span class="nv">x</span> <span class="nv">i</span><span class="p">)</span> <span class="nv">v</span><span class="p">)</span>     <span class="nv">==</span> <span class="p">(</span><span class="nb">string-set!</span> <span class="nv">x</span> <span class="nv">i</span> <span class="nv">v</span><span class="p">)</span>
-<span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nb">vector-ref</span> <span class="nv">x</span> <span class="nv">i</span><span class="p">)</span> <span class="nv">v</span><span class="p">)</span>     <span class="nv">==</span> <span class="p">(</span><span class="nb">vector-set!</span> <span class="nv">x</span> <span class="nv">i</span> <span class="nv">v</span><span class="p">)</span><span class="nv">!</span>
-<span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nf">slot-ref</span> <span class="nv">x</span> <span class="ss">'name</span><span class="p">)</span> <span class="nv">v</span><span class="p">)</span>   <span class="nv">==</span> <span class="p">(</span><span class="nf">slot-set!</span> <span class="nv">x</span> <span class="ss">'name</span> <span class="nv">v</span><span class="p">)</span>
-<span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nf">struct-ref</span> <span class="nv">x</span> <span class="ss">'name</span><span class="p">)</span> <span class="nv">v</span><span class="p">)</span> <span class="nv">==</span> <span class="p">(</span><span class="nf">struct-set!</span> <span class="nv">x</span> <span class="ss">'name</span> <span class="nv">v</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Furhermore, Parameter Objects (see <em><a href="_standard_procedures.html#_parameter_objects">Section 4.21</a></em>) are
-their own setter:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">real-precision</span><span class="p">)</span>              <span class="nv">=&gt;</span> <span class="mi">15</span>
-<span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nf">real-precision</span><span class="p">)</span> <span class="mi">12</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">real-precision</span><span class="p">)</span>              <span class="nv">=&gt;</span> <span class="mi">12</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_conditionals">2.4. Conditionals</h3>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(if &lt;test&gt; &lt;consequent&gt; &lt;alternate&gt;)</code></strong><br>
-<strong><code>(if &lt;test&gt; &lt;consequent&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>An <code>if</code> expression is evaluated as follows: first, <code>&lt;test&gt;</code> is
-evaluated.  If it yields a true value, then <code>&lt;consequent&gt;</code> is
-evaluated and its value(s) is(are) returned.  Otherwise <code>&lt;alternate&gt;</code>
-is evaluated and its value(s) is(are) returned.  If <code>&lt;test&gt;</code> yields a
-false value and no <code>&lt;alternate&gt;</code> is specified, then the result of the
-expression is <strong><em>void</em></strong>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">&gt;</span> <span class="mi">3</span> <span class="mi">2</span><span class="p">)</span> <span class="ss">'yes</span> <span class="ss">'no</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="nv">yes</span>
-  <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">&gt;</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span> <span class="ss">'yes</span> <span class="ss">'no</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="nv">no</span>
-  <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">&gt;</span> <span class="mi">3</span> <span class="mi">2</span><span class="p">)</span>
-      <span class="p">(</span><span class="nb">-</span> <span class="mi">3</span> <span class="mi">2</span><span class="p">)</span>
-      <span class="p">(</span><span class="nb">+</span> <span class="mi">3</span> <span class="mi">2</span><span class="p">))</span>                    <span class="nv">=&gt;</span>  <span class="mi">1</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(cond &lt;clause1&gt; &lt;clause2&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>In a <code>cond</code>, each <code>&lt;clause&gt;</code> should be of the form</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">&lt;test&gt;</span> <span class="nv">&lt;expression1&gt;</span> <span class="o">...</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>where <code>&lt;test&gt;</code> is any expression.  Alternatively, a <code>&lt;clause&gt;</code> may be
-of the form</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">&lt;test&gt;</span> <span class="nv">=&gt;</span> <span class="nv">&lt;expression&gt;</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The last <code>&lt;clause&gt;</code> may be an "else clause," which has the form</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">else</span> <span class="nv">&lt;expression1&gt;</span> <span class="nv">&lt;expression2&gt;</span> <span class="o">...</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>A cond expression is evaluated by evaluating the <code>&lt;test&gt;</code> expressions
-of successive <code>&lt;clause&gt;</code>s in order until one of them evaluates to a
-true value When a <code>&lt;test&gt;</code> evaluates to a true value, then the
-remaining <code>&lt;expression&gt;</code>s in its <code>&lt;clause&gt;</code> are evaluated in order,
-and the result(s) of the last <code>&lt;expression&gt;</code> in the <code>&lt;clause&gt;</code> is(are)
-returned as the result(s) of the entire cond expression.  If the
-selected <code>&lt;clause&gt;</code> contains only the <code>&lt;test&gt;</code> and no <code>&lt;expression&gt;`s,
-then the value of the `&lt;test&gt;</code> is returned as the result.  If the
-selected <code>&lt;clause&gt;</code> uses the <code>&#8658;</code> alternate form, then the
-<code>&lt;expression&gt;</code> is evaluated.  Its value must be a procedure that
-accepts one argument; this procedure is then called on the value of
-the <code>&lt;test&gt;</code> and the value(s) returned by this procedure is(are)
-returned by the cond expression.</p>
-</div>
-<div class="paragraph">
-<p>If all <code>&lt;test&gt;</code>s evaluate to false
-values, and there is no else clause, then the result of the
-conditional expression is <strong><em>void</em></strong>; if there is an else clause,
-then its <code>&lt;expression&gt;</code>s are evaluated, and the value(s) of the last
-one is(are) returned.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="k">cond</span> <span class="p">((</span><span class="nb">&gt;</span> <span class="mi">3</span> <span class="mi">2</span><span class="p">)</span> <span class="ss">'greater</span><span class="p">)</span>
-        <span class="p">((</span><span class="nb">&lt;</span> <span class="mi">3</span> <span class="mi">2</span><span class="p">)</span> <span class="ss">'less</span><span class="p">))</span>                    <span class="nv">=&gt;</span>  <span class="nv">greater</span>
-
-  <span class="p">(</span><span class="k">cond</span> <span class="p">((</span><span class="nb">&gt;</span> <span class="mi">3</span> <span class="mi">3</span><span class="p">)</span> <span class="ss">'greater</span><span class="p">)</span>
-        <span class="p">((</span><span class="nb">&lt;</span> <span class="mi">3</span> <span class="mi">3</span><span class="p">)</span> <span class="ss">'less</span><span class="p">)</span>
-        <span class="p">(</span><span class="k">else</span> <span class="ss">'equal</span><span class="p">))</span>                      <span class="nv">=&gt;</span>  <span class="nv">equal</span>
-
-  <span class="p">(</span><span class="k">cond</span> <span class="p">((</span><span class="nb">assv</span> <span class="ss">'b</span> <span class="o">'</span><span class="p">((</span><span class="nf">a</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="mi">2</span><span class="p">)))</span> <span class="nv">=&gt;</span> <span class="nv">cadr</span><span class="p">)</span>
-        <span class="p">(</span><span class="k">else</span> <span class="no">#f</span><span class="p">))</span>                          <span class="nv">=&gt;</span>  <span class="mi">2</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(case &lt;key&gt; &lt;clause1&gt; &lt;clause2&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>In a <code>case</code>, each <code>&lt;clause&gt;</code> should have the form</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">((</span><span class="nf">&lt;datum1&gt;</span> <span class="o">...</span><span class="p">)</span> <span class="nv">&lt;expression1&gt;</span> <span class="nv">&lt;expression2&gt;</span> <span class="o">...</span><span class="p">)</span><span class="o">,</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>where each <code>&lt;datum&gt;</code> is an external representation of some object.  All the
-<code>&lt;datum&gt;`s must be distinct.  The last `&lt;clause&gt;</code> may be an "else clause," which
-has the form</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">    <span class="p">(</span><span class="k">else</span> <span class="nv">&lt;expression1&gt;</span> <span class="nv">&lt;expression2&gt;</span> <span class="o">...</span><span class="p">)</span><span class="o">.</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>A case expression is evaluated as follows. <code>&lt;Key&gt;</code> is evaluated and
-its result is compared against each <code>&lt;datum&gt;</code>.  If the result of
-evaluating <code>&lt;key&gt;</code> is equivalent (in the sense of eqv?) to a
-<code>&lt;datum&gt;</code>, then the expressions in the corresponding <code>&lt;clause&gt;</code> are
-evaluated from left to right and the result(s) of the last expression
-in the <code>&lt;clause&gt;</code> is(are) returned as the result(s) of the case
-expression.  If the result of evaluating <code>&lt;key&gt;</code> is different from
-every <code>&lt;datum&gt;</code>, then if there is an else clause its expressions are
-evaluated and the result(s) of the last is(are) the result(s) of the
-case expression; otherwise the result of the case expression is <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p>If the selected <code>&lt;clause&gt;</code> or else clause uses the <code>&#8658;</code> alternate
-form, then the <code>expression</code> is evaluated. It is an error if
-its value is not a procedure accepting one argument. This
-procedure is then called on the value of the hkeyi and the
-values returned by this procedure are returned by the case
-expression.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="k">case</span> <span class="p">(</span><span class="nb">*</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>
-    <span class="p">((</span><span class="nf">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span><span class="p">)</span> <span class="ss">'prime</span><span class="p">)</span>
-    <span class="p">((</span><span class="nf">1</span> <span class="mi">4</span> <span class="mi">6</span> <span class="mi">8</span> <span class="mi">9</span><span class="p">)</span> <span class="ss">'composite</span><span class="p">))</span>     <span class="nv">=&gt;</span>  <span class="nv">composite</span>
-  <span class="p">(</span><span class="k">case</span> <span class="p">(</span><span class="nb">car</span> <span class="o">'</span><span class="p">(</span><span class="nf">c</span> <span class="nv">d</span><span class="p">))</span>
-    <span class="p">((</span><span class="nf">a</span><span class="p">)</span> <span class="ss">'a</span><span class="p">)</span>
-    <span class="p">((</span><span class="nf">b</span><span class="p">)</span> <span class="ss">'b</span><span class="p">))</span>                     <span class="nv">=&gt;</span>  <span class="nv">void</span>
-  <span class="p">(</span><span class="k">case</span> <span class="p">(</span><span class="nb">car</span> <span class="o">'</span><span class="p">(</span><span class="nf">c</span> <span class="nv">d</span><span class="p">))</span>
-    <span class="p">((</span><span class="nf">a</span> <span class="nv">e</span> <span class="nv">i</span> <span class="nv">o</span> <span class="nv">u</span><span class="p">)</span> <span class="ss">'vowel</span><span class="p">)</span>
-    <span class="p">((</span><span class="nf">w</span> <span class="nv">y</span><span class="p">)</span> <span class="ss">'semivowel</span><span class="p">)</span>
-    <span class="p">(</span><span class="k">else</span> <span class="ss">'consonant</span><span class="p">))</span>            <span class="nv">=&gt;</span>  <span class="nv">consonant</span>
-  <span class="p">(</span><span class="k">case</span> <span class="p">(</span><span class="nb">car</span> <span class="o">'</span><span class="p">(</span><span class="nf">c</span> <span class="nv">d</span><span class="p">))</span>
-    <span class="p">((</span><span class="nf">a</span> <span class="nv">e</span> <span class="nv">i</span> <span class="nv">o</span> <span class="nv">u</span><span class="p">)</span> <span class="ss">'vowel</span><span class="p">)</span>
-    <span class="p">((</span><span class="nf">w</span> <span class="nv">y</span><span class="p">)</span> <span class="ss">'semivowel</span><span class="p">)</span>
-    <span class="p">(</span><span class="k">else</span>  <span class="nv">=&gt;</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nf">x</span><span class="p">))))</span>  <span class="nv">=&gt;</span>  <span class="nv">c</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(and &lt;test<sub>1</sub>&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>&lt;test<sub>i</sub>&gt;</code> expressions are evaluated from left to right, and the
-value of the first expression that evaluates to a false value is
-returned.  Any remaining expressions are not evaluated.  If all the
-expressions evaluate to true values, the value of the last expression
-is returned.  If there are no expressions then <code>#t</code> is returned.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="k">and</span> <span class="p">(</span><span class="nb">=</span> <span class="mi">2</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nb">&gt;</span> <span class="mi">2</span> <span class="mi">1</span><span class="p">))</span>           <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="k">and</span> <span class="p">(</span><span class="nb">=</span> <span class="mi">2</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nb">&lt;</span> <span class="mi">2</span> <span class="mi">1</span><span class="p">))</span>           <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="k">and</span> <span class="mi">1</span> <span class="mi">2</span> <span class="ss">'c</span> <span class="o">'</span><span class="p">(</span><span class="nf">f</span> <span class="nv">g</span><span class="p">))</span>             <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">f</span> <span class="nv">g</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">and</span><span class="p">)</span>                           <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(or &lt;test<sub>1</sub>&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>&lt;test<sub>i</sub>&gt;</code> expressions are evaluated from left to right, and the
-value of the first expression that evaluates to a true value is
-returned.  Any remaining expressions are not evaluated.  If all
-expressions evaluate to false values, the value of the last expression
-is returned.  If there are no expressions then <code>#f</code> is returned.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="k">or</span> <span class="p">(</span><span class="nb">=</span> <span class="mi">2</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nb">&gt;</span> <span class="mi">2</span> <span class="mi">1</span><span class="p">))</span>            <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="k">or</span> <span class="p">(</span><span class="nb">=</span> <span class="mi">2</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nb">&lt;</span> <span class="mi">2</span> <span class="mi">1</span><span class="p">))</span>            <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="k">or</span> <span class="no">#f</span> <span class="no">#f</span> <span class="no">#f</span><span class="p">)</span>                   <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="k">or</span> <span class="p">(</span><span class="nb">memq</span> <span class="ss">'b</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>
-      <span class="p">(</span><span class="nb">/</span> <span class="mi">3</span> <span class="mi">0</span><span class="p">))</span>                    <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(when &lt;test&gt; &lt;expression1&gt; &lt;expression2&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>If the <code>&lt;test&gt;</code> expression yields a true value, the <code>&lt;expression&gt;</code>s are
-evaluated from left to right and the value of the last <code>&lt;expression&gt;</code> is
-returned. Otherwise, <code>when</code> returns <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(unless &lt;test&gt; &lt;expression1&gt; &lt;expression2&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>If the <code>&lt;test&gt;</code> expression yields a false value, the <code>&lt;expression&gt;</code>s are
-evaluated from left to right and the value of the last <code>&lt;expression&gt;</code> is
-returned. Otherwise, <code>unless</code> returns <strong><em>void</em></strong>.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_binding_constructs">2.5. Binding Constructs</h3>
-<div class="paragraph">
-<p>
-The three binding constructs <code>let</code>, <code>let*</code>, and
-<code>letrec</code> are available in STklos.
-These constructs differ in the regions they establish for
-their variable bindings.  In a <code>let</code> expression, the initial values are
-computed before any of the variables become bound; in a <code>let*</code>
-expression, the bindings and evaluations are performed sequentially; while in a
-<code>letrec</code> expression, all the bindings are in effect while their initial
-values are being computed, thus allowing mutually recursive definitions.</p>
-</div>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> also provides a <code>fluid-let</code> form which is described below.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(let &lt;bindings&gt; &lt;body&gt;)</code></strong><br>
-<strong><code>(let &lt;variable&gt; &lt;bindings&gt; &lt;body&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>In a <code>let</code>, <code>&lt;bindings&gt;</code> should have the form</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">((</span><span class="nf">&lt;variable1&gt;</span> <span class="nv">&lt;init1&gt;</span><span class="p">)</span> <span class="o">...</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>where each <code>&lt;init<sub>i</sub>&gt;</code> is an expression, and <code>&lt;body&gt;</code> should be a sequence of one or
-more expressions.  It is an error for a <code>&lt;variable&gt;</code> to appear more than once in
-the list of variables being bound.</p>
-</div>
-<div class="paragraph">
-<p>The <code>&lt;init&gt;</code>s are evaluated in the current environment (in some
-unspecified order), the <code>&lt;variable&gt;</code>s are bound to fresh locations holding the
-results, the <code>&lt;body&gt;</code> is evaluated in the extended environment, and the value(s)
-of the last expression of <code>&lt;body&gt;</code> is(are) returned.  Each binding of a
-<code>&lt;variable&gt;</code> has <code>&lt;body&gt;</code> as its region.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">x</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nf">y</span> <span class="mi">3</span><span class="p">))</span>
-  <span class="p">(</span><span class="nb">*</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">))</span>                      <span class="nv">=&gt;</span>  <span class="mi">6</span>
-
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">x</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nf">y</span> <span class="mi">3</span><span class="p">))</span>
-  <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">x</span> <span class="mi">7</span><span class="p">)</span>
-        <span class="p">(</span><span class="nf">z</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)))</span>
-    <span class="p">(</span><span class="nb">*</span> <span class="nv">z</span> <span class="nv">x</span><span class="p">)))</span>                   <span class="nv">=&gt;</span>  <span class="mi">35</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The second form of <code>let</code>, which is generally called a <strong><em>named let</em></strong>,
-is a variant on the syntax of let which provides a more general
-looping construct than <code>do</code> and may also be used to
-express recursions. It has the same syntax and semantics as ordinary
-let except that <code>&lt;variable&gt;</code> is bound within <code>&lt;body&gt;</code> to a procedure whose
-formal arguments are the bound variables and whose body is <code>&lt;body&gt;</code>.
-Thus the execution of <code>&lt;body&gt;</code> may be repeated by invoking the procedure
-named by <code>&lt;variable&gt;</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="nv">loop</span> <span class="p">((</span><span class="nf">numbers</span> <span class="o">'</span><span class="p">(</span><span class="nf">3</span> <span class="mi">-2</span> <span class="mi">1</span> <span class="mi">6</span> <span class="mi">-5</span><span class="p">))</span>
-           <span class="p">(</span><span class="nf">nonneg</span>  <span class="o">'</span><span class="p">())</span>
-           <span class="p">(</span><span class="nf">neg</span>     <span class="o">'</span><span class="p">()))</span>
-  <span class="p">(</span><span class="k">cond</span> <span class="p">((</span><span class="nb">null?</span> <span class="nv">numbers</span><span class="p">)</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">nonneg</span> <span class="nv">neg</span><span class="p">))</span>
-        <span class="p">((</span><span class="nb">&gt;=</span> <span class="p">(</span><span class="nb">car</span> <span class="nv">numbers</span><span class="p">)</span> <span class="mi">0</span><span class="p">)</span>
-           <span class="p">(</span><span class="nf">loop</span> <span class="p">(</span><span class="nb">cdr</span> <span class="nv">numbers</span><span class="p">)</span>
-                 <span class="p">(</span><span class="nb">cons</span> <span class="p">(</span><span class="nb">car</span> <span class="nv">numbers</span><span class="p">)</span> <span class="nv">nonneg</span><span class="p">)</span>
-                 <span class="nv">neg</span><span class="p">))</span>
-        <span class="p">((</span><span class="nb">&lt;</span> <span class="p">(</span><span class="nb">car</span> <span class="nv">numbers</span><span class="p">)</span> <span class="mi">0</span><span class="p">)</span>
-           <span class="p">(</span><span class="nf">loop</span> <span class="p">(</span><span class="nb">cdr</span> <span class="nv">numbers</span><span class="p">)</span>
-                  <span class="nv">nonneg</span>
-                  <span class="p">(</span><span class="nb">cons</span> <span class="p">(</span><span class="nb">car</span> <span class="nv">numbers</span><span class="p">)</span> <span class="nv">neg</span><span class="p">)))))</span>
-   <span class="nv">=&gt;</span>  <span class="p">((</span><span class="nf">6</span> <span class="mi">1</span> <span class="mi">3</span><span class="p">)</span> <span class="p">(</span><span class="nf">-5</span> <span class="mi">-2</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(let</strong> &lt;bindings&gt; &lt;body&gt;)</code>*<br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>In a <code>let*</code>, <code>&lt;bindings&gt;</code> should have the same form as in a <code>let</code> (however, a
-&lt;variable&gt; can appear more than once in the list of variables being bound).</p>
-</div>
-<div class="paragraph">
-<p><code>Let*</code> is similar to <code>let</code>, but the bindings are performed sequentially
-from left to right, and the region of a binding indicated by</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">&lt;variable&gt;</span> <span class="nv">&lt;init&gt;</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is that part of the <code>let*</code> expression to the right of the binding.  Thus
-the second binding is done in an environment in which the first binding is
-visible, and so on.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">x</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nf">y</span> <span class="mi">3</span><span class="p">))</span>
-  <span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">x</span> <span class="mi">7</span><span class="p">)</span>
-         <span class="p">(</span><span class="nf">z</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)))</span>
-    <span class="p">(</span><span class="nb">*</span> <span class="nv">z</span> <span class="nv">x</span><span class="p">)))</span>             <span class="nv">=&gt;</span>  <span class="mi">70</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(letrec &lt;bindings&gt; &lt;body&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>&lt;bindings&gt; should have the form as in <code>let</code>.</p>
-</div>
-<div class="paragraph">
-<p>The <code>&lt;variable&gt;</code>s are bound to fresh locations holding undefined
-values, the <code>&lt;init&gt;</code>s are evaluated in the resulting environment (in
-some unspecified order), each <code>&lt;variable&gt;</code> is assigned to the result
-of the corresponding <code>&lt;init&gt;</code>, the <code>&lt;body&gt;</code> is evaluated in the
-resulting environment, and the value(s) of the last expression in
-<code>&lt;body&gt;</code> is(are) returned.  Each binding of a <code>&lt;variable&gt;</code> has the
-entire <code>letrec</code> expression as its region, making it possible to define
-mutually recursive procedures.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">letrec</span> <span class="p">((</span><span class="nb">even?</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">n</span><span class="p">)</span>
-                  <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">zero?</span> <span class="nv">n</span><span class="p">)</span>
-                      <span class="no">#t</span>
-                      <span class="p">(</span><span class="nb">odd?</span> <span class="p">(</span><span class="nb">-</span> <span class="nv">n</span> <span class="mi">1</span><span class="p">)))))</span>
-         <span class="p">(</span><span class="nb">odd?</span>  <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">n</span><span class="p">)</span>
-                  <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">zero?</span> <span class="nv">n</span><span class="p">)</span>
-                      <span class="no">#f</span>
-                      <span class="p">(</span><span class="nb">even?</span> <span class="p">(</span><span class="nb">-</span> <span class="nv">n</span> <span class="mi">1</span><span class="p">))))))</span>
-  <span class="p">(</span><span class="nb">even?</span> <span class="mi">88</span><span class="p">))</span>
-                  <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(letrec</strong> &lt;bindings&gt; &lt;body&gt;)</code>*<br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>&lt;bindings&gt; should have the form as in <code>let</code> and body is a sequence
-of zero or more definitions followed by one or more expressions.</p>
-</div>
-<div class="paragraph">
-<p>The <code>&lt;variable&gt;</code>s are bound to fresh locations, each <code>variable</code> is
-assigned in left-to-right order to the result of evaluating the
-corresponding <code>init</code>, the <code>body</code> is evaluated in the resulting
-environment, and the values of the last expression in <code>body</code> are
-returned. Despite the left-to-right evaluation and assignment order,
-each binding of a <code>variable</code> has the entire <code>letrec*</code> expression as its
-region, making it possible to define mutually recursive procedures.
-If it is not possible to evaluate each <code>init</code> without assigning or
-referring to the value of the corresponding <code>variable</code> or the
-<code>variable</code> of any of the bindings that follow it in <code>bindings</code>, it is
-an error.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">letrec*</span> <span class="p">((</span><span class="nf">p</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span>
-               <span class="p">(</span><span class="nb">+</span> <span class="mi">1</span> <span class="p">(</span><span class="nf">q</span> <span class="p">(</span><span class="nb">-</span> <span class="nv">x</span> <span class="mi">1</span><span class="p">)))))</span>
-          <span class="p">(</span><span class="nf">q</span><span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">y</span><span class="p">)</span>
-              <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">zero?</span> <span class="nv">y</span><span class="p">)</span>
-                  <span class="mi">0</span>
-                  <span class="p">(</span><span class="nb">+</span> <span class="mi">1</span> <span class="p">(</span><span class="nf">p</span> <span class="p">(</span><span class="nb">-</span> <span class="nv">y</span> <span class="mi">1</span><span class="p">))))))</span>
-          <span class="p">(</span><span class="nf">x</span> <span class="p">(</span><span class="nf">p</span> <span class="mi">5</span><span class="p">))</span>
-          <span class="p">(</span><span class="nf">y</span> <span class="nv">x</span><span class="p">))</span>
-  <span class="nv">y</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mi">5</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(let-values ((&lt;formals&gt; &lt;expression&gt;) &#8230;&#8203;) &lt;body&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Each <code>&lt;formals&gt;</code> should be a formal arguments list as for a <code>lambda</code> expression.</p>
-</div>
-<div class="paragraph">
-<p>The <code>&lt;expression&gt;</code>s are evaluated in the current environment,
-the variables of the <code>&lt;formals&gt;</code> are bound to fresh locations, the return
-values of the <code>&lt;expression&gt;</code>s are stored in the variables, the <code>&lt;body&gt;</code> is
-evaluated in the extended environment, and the values of the last expression
-of <code>&lt;body&gt;</code> are returned.</p>
-</div>
-<div class="paragraph">
-<p>The matching of each <code>&lt;formals&gt;</code> to values is as for the matching of
-<code>&lt;formals&gt;</code> to arguments in a <code>lambda</code> expression, and it is an error
-for an <code>&lt;expression&gt;</code> to return a number of values that does not match
-its corresponding <code>&lt;formals&gt;</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">let-values</span> <span class="p">(((</span><span class="nf">root</span> <span class="nv">rem</span><span class="p">)</span> <span class="p">(</span><span class="nf">exact-integer-sqrt</span> <span class="mi">32</span><span class="p">)))</span>
-   <span class="p">(</span><span class="nb">*</span> <span class="nv">root</span> <span class="nv">rem</span><span class="p">))</span>            <span class="nv">=&gt;</span>  <span class="mi">35</span>
-
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">a</span> <span class="ss">'a</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="ss">'b</span><span class="p">)</span> <span class="p">(</span><span class="nf">x</span> <span class="ss">'x</span><span class="p">)</span> <span class="p">(</span><span class="nf">y</span> <span class="ss">'y</span><span class="p">))</span>
-   <span class="p">(</span><span class="nf">let-values</span> <span class="p">(((</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span><span class="nb">values</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">))</span>
-                <span class="p">((</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)</span> <span class="p">(</span><span class="nb">values</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">)))</span>
-     <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)))</span>      <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(let-values ((&lt;formals&gt; &lt;expression&gt;) &#8230;&#8203;) &lt;body&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Each <code>&lt;formals&gt;</code> should be a formal arguments list as for a <code>lambda</code> expression.</p>
-</div>
-<div class="paragraph">
-<p><code>let*-values</code> is similar to <code>let-values</code>, but the bindings are performed
-sequentially from left to right, and the region of a binding indicated by
-<code>(&lt;formals&gt; &lt;expression&gt;)</code> is that part of the <code>let*-values</code> expression to
-the right of the binding. Thus the second binding is done in an environment
-in which the first binding is visible, and so on.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">a</span> <span class="ss">'a</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="ss">'b</span><span class="p">)</span> <span class="p">(</span><span class="nf">x</span> <span class="ss">'x</span><span class="p">)</span> <span class="p">(</span><span class="nf">y</span> <span class="ss">'y</span><span class="p">))</span>
-   <span class="p">(</span><span class="nf">let*-values</span> <span class="p">(((</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span><span class="nb">values</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">))</span>
-                <span class="p">((</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)</span> <span class="p">(</span><span class="nb">values</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">)))</span>
-     <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)))</span>      <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(define-values formals expression)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The form <code>define-values</code> creates multiple definitions from a single expression
-returning multiple values. Here, <code>expression</code> is evaluated, and the <code>formals</code>
-are bound to the return values in the same way that the <code>formals</code> in a
-lambda expression are matched to the arguments in a procedure call.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">()</span>
-  <span class="p">(</span><span class="nf">define-values</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)</span> <span class="p">(</span><span class="nf">exact-integer-sqrt</span> <span class="mi">17</span><span class="p">))</span>
-  <span class="p">(</span><span class="nb">list</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">))</span>                   <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">4</span> <span class="mi">1</span><span class="p">)</span>
-
-<span class="p">(</span><span class="k">let</span> <span class="p">()</span>
-   <span class="p">(</span><span class="nf">define-values</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)</span> <span class="p">(</span><span class="nb">values</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span>
-   <span class="p">(</span><span class="nb">+</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">))</span>                     <span class="nv">=&gt;</span> <span class="mi">3</span>
-
-<span class="p">(</span><span class="k">let</span> <span class="p">()</span>
-   <span class="p">(</span><span class="nf">define-values</span> <span class="p">(</span><span class="nf">x</span> <span class="o">.</span> <span class="nv">y</span><span class="p">)</span> <span class="p">(</span><span class="nb">values</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">))</span>
-   <span class="p">(</span><span class="nb">list</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)</span>                  <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">3</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fluid-let &lt;bindings&gt; &lt;body&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>&lt;bindings&gt;</code> are evaluated in the current environment, in some
-unspecified order, the current values of the variables present in
-<code>&lt;bindings&gt;</code> are saved, and the new evaluated values are assigned to the
-<code>&lt;bindings&gt;</code> variables. Once this is done, the expressions of <code>&lt;body&gt;</code>
-are evaluated sequentially in the current environment; the value of the
-last expression is the result of <code>fluid-let</code>. Upon exit, the stored
-variables values are restored. An error is signalled if any of the
-<code>&lt;bindings&gt;</code> variable is unbound.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">a</span> <span class="ss">'out</span><span class="p">)</span>
-       <span class="p">(</span><span class="nf">f</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="nv">a</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">list</span> <span class="p">(</span><span class="nf">f</span><span class="p">)</span>
-        <span class="p">(</span><span class="nf">fluid-let</span> <span class="p">((</span><span class="nf">a</span> <span class="ss">'in</span><span class="p">))</span> <span class="p">(</span><span class="nf">f</span><span class="p">))</span>
-        <span class="p">(</span><span class="nf">f</span><span class="p">)))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">out</span> <span class="nv">in</span> <span class="nv">out</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>When the body of a <code>fluid-let</code> is exited by invoking a continuation,
-the new variable values are saved, and the variables are set to their old
-values. Then, if the body is reentered by invoking a continuation, the old
-values are saved and new values are restored. The following example illustrates
-this behavior</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">cont</span> <span class="no">#f</span><span class="p">)</span>
-      <span class="p">(</span><span class="nf">l</span>    <span class="o">'</span><span class="p">())</span>
-      <span class="p">(</span><span class="nf">a</span>    <span class="ss">'out</span><span class="p">))</span>
-  <span class="p">(</span><span class="k">set!</span> <span class="nv">l</span> <span class="p">(</span><span class="nb">cons</span> <span class="nv">a</span> <span class="nv">l</span><span class="p">))</span>
-  <span class="p">(</span><span class="nf">fluid-let</span> <span class="p">((</span><span class="nf">a</span> <span class="ss">'in</span><span class="p">))</span>
-    <span class="p">(</span><span class="k">set!</span> <span class="nv">cont</span> <span class="p">(</span><span class="nb">call-with-current-continuation</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">k</span><span class="p">)</span> <span class="nv">k</span><span class="p">)))</span>
-    <span class="p">(</span><span class="k">set!</span> <span class="nv">l</span> <span class="p">(</span><span class="nb">cons</span> <span class="nv">a</span> <span class="nv">l</span><span class="p">)))</span>
-  <span class="p">(</span><span class="k">set!</span> <span class="nv">l</span> <span class="p">(</span><span class="nb">cons</span> <span class="nv">a</span> <span class="nv">l</span><span class="p">))</span>
-
-  <span class="p">(</span><span class="k">if</span> <span class="nv">cont</span> <span class="p">(</span><span class="nf">cont</span> <span class="no">#f</span><span class="p">)</span> <span class="nv">l</span><span class="p">))</span> <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">out</span> <span class="nv">in</span> <span class="nv">out</span> <span class="nv">in</span> <span class="nv">out</span><span class="p">)</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_sequencing">2.6. Sequencing</h3>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(begin &lt;expression1&gt; &lt;expression2&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>&lt;expression&gt;</code>s are evaluated sequentially from left to right, and the
-value(s) of the last <code>&lt;expression&gt;</code> is(are) returned.  This expression type is
-used to sequence side effects such as input and output.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="k">define</span> <span class="nv">x</span> <span class="mi">0</span><span class="p">)</span>
-
-  <span class="p">(</span><span class="k">begin</span> <span class="p">(</span><span class="k">set!</span> <span class="nv">x</span> <span class="mi">5</span><span class="p">)</span>
-         <span class="p">(</span><span class="nb">+</span> <span class="nv">x</span> <span class="mi">1</span><span class="p">))</span>                  <span class="nv">=&gt;</span>  <span class="mi">6</span>
-
-  <span class="p">(</span><span class="k">begin</span> <span class="p">(</span><span class="nb">display</span> <span class="s">"4 plus 1 equals "</span><span class="p">)</span>
-         <span class="p">(</span><span class="nb">display</span> <span class="p">(</span><span class="nb">+</span> <span class="mi">4</span> <span class="mi">1</span><span class="p">)))</span>        <span class="nv">|-</span> <span class="mi">4</span> <span class="nv">plus</span> <span class="mi">1</span> <span class="nv">equals</span> <span class="mi">5</span>
-                                   <span class="nv">=&gt;</span>  <span class="nv">void</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(tagbody &lt;expression1&gt; &lt;expression2&gt; &#8230;&#8203;)</code></strong><br>
-<strong><code>(&#8594; tag)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>&lt;expression&gt;</code>s are evaluated sequentially from left to right,
-and the value(s) of the last &lt;expression&gt; is(are) returned as in a
-<code>begin</code> form. Within a <code>tagbody</code> form expressions which are keywords
-are considered as tags and the special form <code>(&#8594; tag)</code> is used to
-transfer execution to the given tag. This is a <strong>very low level</strong>
-form which is inspired on <code>tabgody</code> Common Lisp&#8217;s form. It can be useful
-for defining new syntaxes, and should probably not be used as is.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">tagbody</span>               <span class="c1">;; an infinite loop</span>
-   <span class="o">#</span><span class="nv">:1</span> <span class="p">(</span><span class="nb">display</span> <span class="s">"."</span><span class="p">)</span>
-       <span class="p">(</span><span class="nf">-&gt;</span> <span class="o">#</span><span class="nv">:1</span><span class="p">))</span>
-
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">v</span> <span class="mi">0</span><span class="p">))</span>
-  <span class="p">(</span><span class="nf">tagbody</span>
-   <span class="o">#</span><span class="nv">:top</span> <span class="p">(</span><span class="nf">when</span> <span class="p">(</span><span class="nb">&lt;</span> <span class="nv">v</span> <span class="mi">5</span><span class="p">)</span>
-           <span class="p">(</span><span class="nb">display</span> <span class="nv">v</span><span class="p">)</span>
-           <span class="p">(</span><span class="k">set!</span> <span class="nv">v</span> <span class="p">(</span><span class="nf">fx+</span> <span class="nv">v</span> <span class="mi">1</span><span class="p">))</span>
-           <span class="p">(</span><span class="nf">-&gt;</span> <span class="o">#</span><span class="nv">:top</span><span class="p">))))</span>                      <span class="nv">|-</span> <span class="mi">01234</span>
-
-<span class="p">(</span><span class="nf">tagbody</span> <span class="p">(</span><span class="nb">display</span> <span class="mi">1</span><span class="p">)</span>
-         <span class="p">(</span><span class="nf">tagbody</span> <span class="p">(</span><span class="nb">display</span> <span class="mi">2</span><span class="p">)</span>
-                  <span class="p">(</span><span class="nf">-&gt;</span> <span class="o">#</span><span class="nv">:inner</span><span class="p">)</span>
-                  <span class="p">(</span><span class="nb">display</span> <span class="s">"not printed"</span><span class="p">)</span>
-           <span class="o">#</span><span class="nv">:inner</span>
-                 <span class="p">(</span><span class="nb">display</span> <span class="mi">3</span><span class="p">)</span>
-                 <span class="p">(</span><span class="nf">-&gt;</span> <span class="o">#</span><span class="nv">:outer</span><span class="p">)</span>
-                 <span class="p">(</span><span class="nb">display</span> <span class="s">"not printed too"</span><span class="p">))</span>
-   <span class="o">#</span><span class="nv">:outer</span>
-         <span class="p">(</span><span class="nb">display</span> <span class="s">"4"</span><span class="p">))</span>                        <span class="nv">|-</span> <span class="mi">1234</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_iterations">2.7. Iterations</h3>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(do [[&lt;var1&gt; &lt;init1&gt; &lt;step1&gt;] &#8230;&#8203;] [&lt;test&gt; &lt;expr&gt; &#8230;&#8203;] &lt;command&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Do</code> is an iteration construct.  It specifies a set of variables to be
-bound, how they are to be initialized at the start, and how they are
-to be updated on each iteration.  When a termination condition is met,
-the loop exits after evaluating the <code>&lt;expr&gt;</code>s.</p>
-</div>
-<div class="paragraph">
-<p><code>Do</code> expressions are evaluated as follows: The <code>&lt;init&gt;</code> expressions
-are evaluated (in some unspecified order), the <code>&lt;var&gt;</code>s are bound
-to fresh locations, the results of the <code>&lt;init&gt;</code> expressions are stored
-in the bindings of the <code>&lt;var&gt;</code>s, and then the iteration phase
-begins.</p>
-</div>
-<div class="paragraph">
-<p>Each iteration begins by evaluating <code>&lt;test&gt;</code>; if the result is false
-then the <code>&lt;command&gt;</code> expressions are evaluated in order for effect,
-the <code>&lt;step&gt;</code> expressions are evaluated in some unspecified order, the
-<code>&lt;var&gt;</code>s are bound to fresh locations, the results of the <code>&lt;step&gt;</code>s
-are stored in the bindings of the <code>&lt;var&gt;</code>s, and the next iteration
-begins.</p>
-</div>
-<div class="paragraph">
-<p>If <code>&lt;test&gt;</code> evaluates to a true value, then the <code>&lt;expr&gt;</code>s are
-evaluated from left to right and the value(s) of the last <code>&lt;expr&gt;</code>
-is(are) returned.  If no <code>&lt;expr&gt;</code>s are present, then the value of
-the do expression is <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p>The region of the binding of a <code>&lt;var&gt;</code> consists of the entire do
-expression except for the <code>&lt;init&gt;</code>s.  It is an error for a <code>&lt;var&gt;</code> to
-appear more than once in the list of do variables.</p>
-</div>
-<div class="paragraph">
-<p>A <code>&lt;step&gt;</code> may be omitted, in which case the effect is the same as if</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">&lt;var&gt;</span> <span class="nv">&lt;init&gt;</span> <span class="nv">&lt;var&gt;</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>had been written.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="k">do</span> <span class="p">((</span><span class="nf">vec</span> <span class="p">(</span><span class="nb">make-vector</span> <span class="mi">5</span><span class="p">))</span>
-       <span class="p">(</span><span class="nf">i</span> <span class="mi">0</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">i</span> <span class="mi">1</span><span class="p">)))</span>
-      <span class="p">((</span><span class="nb">=</span> <span class="nv">i</span> <span class="mi">5</span><span class="p">)</span> <span class="nv">vec</span><span class="p">)</span>
-    <span class="p">(</span><span class="nb">vector-set!</span> <span class="nv">vec</span> <span class="nv">i</span> <span class="nv">i</span><span class="p">))</span>            <span class="nv">=&gt;</span>  <span class="o">#</span><span class="p">(</span><span class="nf">0</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span>
-
-  <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">x</span> <span class="o">'</span><span class="p">(</span><span class="nf">1</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">9</span><span class="p">)))</span>
-    <span class="p">(</span><span class="k">do</span> <span class="p">((</span><span class="nf">x</span> <span class="nv">x</span> <span class="p">(</span><span class="nb">cdr</span> <span class="nv">x</span><span class="p">))</span>
-         <span class="p">(</span><span class="nf">sum</span> <span class="mi">0</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">sum</span> <span class="p">(</span><span class="nb">car</span> <span class="nv">x</span><span class="p">))))</span>
-        <span class="p">((</span><span class="nb">null?</span> <span class="nv">x</span><span class="p">)</span> <span class="nv">sum</span><span class="p">)))</span>             <span class="nv">=&gt;</span>  <span class="mi">25</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(dotimes [var count] &lt;expression1&gt; &lt;expression2&gt; &#8230;&#8203;)</code></strong><br>
-<strong><code>(dotimes [var count result] &lt;expression1&gt; &lt;expression2&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Evaluates the <code>count</code> expression, which must return an
-integer and then evaluates the <code>&lt;expression&gt;</code>s once for each
-integer from zero (inclusive) to <code>count</code> (exclusive), in order,
-with the symbol <code>var</code> bound to the integer; if the value of
-<code>count</code> is zero or negative, then the <code>&lt;expression&gt;</code>s are not
-evaluated. When the loop completes, <code>result</code> is evaluated and its
-value is returned as the value of the <code>dotimes</code> construction. If
-<code>result</code> is omitted, <code>dotimes</code> result is <strong><em>void</em></strong>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">l</span> <span class="o">'</span><span class="p">()))</span>
-  <span class="p">(</span><span class="nf">dotimes</span> <span class="p">(</span><span class="nf">i</span> <span class="mi">4</span> <span class="nv">l</span><span class="p">)</span>
-     <span class="p">(</span><span class="k">set!</span> <span class="nv">l</span> <span class="p">(</span><span class="nb">cons</span> <span class="nv">i</span> <span class="nv">l</span><span class="p">))))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">3</span> <span class="mi">2</span> <span class="mi">1</span> <span class="mi">0</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(repeat count &lt;expression1&gt; &lt;expression2&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Evaluates the <code>count</code> expression, which must return an
-integer and then evaluates the <code>&lt;expression&gt;</code>s once for each
-integer from zero (inclusive) to <code>count</code> (exclusive). The result of
-<code>repeat</code> is undefined.</p>
-</div>
-<div class="paragraph">
-<p>This form could be easily simulated with <code>dotimes</code>. Its interest is
-that it is faster.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">repeat</span> <span class="mi">3</span> <span class="p">(</span><span class="nb">display</span> <span class="s">"."</span><span class="p">))</span>     <span class="nv">=&gt;</span> <span class="nv">prints</span> <span class="s">"..."</span>
-<span class="p">(</span><span class="nf">repeat</span> <span class="mi">0</span> <span class="p">(</span><span class="nb">display</span> <span class="s">"."</span><span class="p">))</span>     <span class="nv">=&gt;</span> <span class="nv">prints</span> <span class="nv">nothing</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(while &lt;test&gt; &lt;expression1&gt; &lt;expression2&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>While</code> evaluates the <code>&lt;expression&gt;</code>s until <code>&lt;test&gt;</code> returns a false
-value. The value returned by this form is <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(until &lt;test&gt; &lt;expression1&gt; &lt;expression2&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Until</code> evaluates the <code>&lt;expression&gt;</code>s until <code>&lt;while&gt;</code> returns a false
-value. The value returned by this form is <strong><em>void</em></strong>.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_delayed_evaluation">2.8. Delayed Evaluation</h3>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div id="delay" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(delay &lt;expression&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>delay</code> construct is used together with the procedure <code>force</code>
-to implement <strong><em>lazy evaluation</em></strong> or <strong><em>call by need</em></strong>. <code>(delay
-&lt;expression&gt;)</code> returns an object called a <strong><em>promise</em></strong>) which at some
-point in the future may be asked (by the <code>force</code> procedure) to
-evaluate <code>&lt;expression&gt;</code>, and deliver the resulting value.
-The effect of <code>&lt;expression&gt;</code> returning multiple values is unpredictable.</p>
-</div>
-<div class="paragraph">
-<p>See the description of <code>force</code> for a more complete
-description of <code>delay</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(delay-force &lt;expression&gt;)</code></strong><br>
-<strong><code>(lazy &lt;expression&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The expression <code>(delay-force expression)</code> is conceptually similar
-to <code>(delay (force expression))</code>, with the difference that forcing the result
-of <code>delay-force</code> will in effect result in a tail call to <code>(force expression)</code>,
-while forcing the result of <code>(delay (force expression))</code> might not. Thus
-iterative lazy algorithms that might result in a long series of chains of
-<code>delay</code> and <code>force</code> can be rewritten using <code>delay-force</code> to prevent consuming
-unbounded space during evaluation.</p>
-</div>
-<div class="paragraph">
-<p>The special form <code>delay-force</code> appears with name <code>lazy</code> in <strong><a href="http://srfi.schemers.org/srfi-45/srfi-45.html">SRFI-45</a></strong> (<em>Primitives for Expressing Iterative Lazy Algorithms</em>).</p>
-</div>
-<div id="force" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(force promise)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Forces the value of <code>promise</code> (see <em><a href="_expressions.html#delay">primitive delay</a></em>).
-If no value has been computed for the promise, then a value is
-computed and returned. The value of the promise is cached
-(or "memoized") so that if it is forced a second time, the
-previously computed value is returned.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">force</span> <span class="p">(</span><span class="k">delay</span> <span class="p">(</span><span class="nb">+</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)))</span>        <span class="nv">=&gt;</span>  <span class="mi">3</span>
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">p</span> <span class="p">(</span><span class="k">delay</span> <span class="p">(</span><span class="nb">+</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nb">list</span> <span class="p">(</span><span class="nb">force</span> <span class="nv">p</span><span class="p">)</span> <span class="p">(</span><span class="nb">force</span> <span class="nv">p</span><span class="p">)))</span>  <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">3</span> <span class="mi">3</span><span class="p">)</span>
-
-<span class="p">(</span><span class="k">define</span> <span class="nv">a-stream</span>
-  <span class="p">(</span><span class="k">letrec</span> <span class="p">((</span><span class="nf">next</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">n</span><span class="p">)</span>
-                   <span class="p">(</span><span class="nb">cons</span> <span class="nv">n</span> <span class="p">(</span><span class="k">delay</span> <span class="p">(</span><span class="nf">next</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">n</span> <span class="mi">1</span><span class="p">)))))))</span>
-    <span class="p">(</span><span class="nf">next</span> <span class="mi">0</span><span class="p">)))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">head</span> <span class="nv">car</span><span class="p">)</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">tail</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">stream</span><span class="p">)</span> <span class="p">(</span><span class="nb">force</span> <span class="p">(</span><span class="nb">cdr</span> <span class="nv">stream</span><span class="p">))))</span>
-
-<span class="p">(</span><span class="nf">head</span> <span class="p">(</span><span class="nf">tail</span> <span class="p">(</span><span class="nf">tail</span> <span class="nv">a-stream</span><span class="p">)))</span>  <span class="nv">=&gt;</span>  <span class="mi">2</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Force</code> and <code>delay</code> are mainly intended for programs written in
-functional style. The following examples should not be considered
-to illustrate good programming style, but they illustrate the
-property that only one value is computed for a promise, no matter
-how many times it is forced.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">count</span> <span class="mi">0</span><span class="p">)</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">p</span> <span class="p">(</span><span class="k">delay</span> <span class="p">(</span><span class="k">begin</span> <span class="p">(</span><span class="k">set!</span> <span class="nv">count</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">count</span> <span class="mi">1</span><span class="p">))</span>
-                        <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">&gt;</span> <span class="nv">count</span> <span class="nv">x</span><span class="p">)</span>
-                            <span class="nv">count</span>
-                            <span class="p">(</span><span class="nb">force</span> <span class="nv">p</span><span class="p">)))))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">x</span> <span class="mi">5</span><span class="p">)</span>
-<span class="nv">p</span>                     <span class="nv">=&gt;</span>  <span class="nv">a</span> <span class="nv">promise</span>
-<span class="p">(</span><span class="nb">force</span> <span class="nv">p</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="mi">6</span>
-<span class="nv">p</span>                     <span class="nv">=&gt;</span>  <span class="nv">a</span> <span class="nv">promise,</span> <span class="nv">still</span>
-<span class="p">(</span><span class="k">begin</span> <span class="p">(</span><span class="k">set!</span> <span class="nv">x</span> <span class="mi">10</span><span class="p">)</span>
-       <span class="p">(</span><span class="nb">force</span> <span class="nv">p</span><span class="p">))</span>     <span class="nv">=&gt;</span>  <span class="mi">6</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-See R<sup>5</sup>RS for details on a posssible way to implement
-<code>force</code> and <code>delay</code>.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(promise? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a promise, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-promise obj)</code></strong><br>
-<strong><code>(eager obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>make-promise</code> procedure returns a promise which,
-when forced, will return <code>obj</code> . It is similar to <code>delay</code>, but
-does not delay its argument: it is a procedure rather than
-syntax. If <code>obj</code> is already a promise, it is returned.</p>
-</div>
-<div class="paragraph">
-<p>The primitve <code>make-promise</code> appears with name <code>eager</code> in
-SRFI-45.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_quasiquotation">2.9. Quasiquotation</h3>
-<div class="paragraph">
-<p>
-
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(quasiquote &lt;template&gt;)</code></strong><br>
-<strong><code>`&lt;template&gt;</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>"Backquote" or "quasiquote" expressions are useful for constructing a
-list or vector structure when most but not all of the desired structure
-is known in advance.  If no commas appear within the <code>&lt;template&gt;</code>,
-the result of evaluating <code>`&lt;template&gt;</code> is equivalent to the result of
-evaluating <code>'&lt;template&gt;</code>.  If a comma appears within the
-<code>&lt;template&gt;</code>, however, the expression following the comma is evaluated
-("unquoted") and its result is inserted into the structure instead of
-the comma and the expression.  If a comma appears followed immediately
-by an at-sign (@), then the following expression must evaluate to a
-list; the opening and closing parentheses of the list are then
-"stripped away" and the elements of the list are inserted in place of the comma
-at-sign expression sequence.  A comma at-sign should only appear within
-a list or vector <code>&lt;template&gt;</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="o">`</span><span class="p">(</span><span class="nb">list</span> <span class="o">,</span><span class="p">(</span><span class="nb">+</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span> <span class="mi">4</span><span class="p">)</span>  <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nb">list</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span>
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">name</span> <span class="ss">'a</span><span class="p">))</span> <span class="o">`</span><span class="p">(</span><span class="nb">list</span> <span class="o">,</span><span class="nv">name</span> <span class="ss">',name</span><span class="p">))</span>
-                    <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="p">(</span><span class="k">quote</span> <span class="nv">a</span><span class="p">))</span>
-<span class="o">`</span><span class="p">(</span><span class="nf">a</span> <span class="o">,</span><span class="p">(</span><span class="nb">+</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span> <span class="o">,@</span><span class="p">(</span><span class="nb">map</span> <span class="nv">abs</span> <span class="o">'</span><span class="p">(</span><span class="nf">4</span> <span class="mi">-5</span> <span class="mi">6</span><span class="p">))</span> <span class="nv">b</span><span class="p">)</span>
-                    <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span> <span class="mi">6</span> <span class="nv">b</span><span class="p">)</span>
-<span class="o">`</span><span class="p">((</span><span class="nf">foo</span> <span class="o">,</span><span class="p">(</span><span class="nb">-</span> <span class="mi">10</span> <span class="mi">3</span><span class="p">))</span> <span class="o">,@</span><span class="p">(</span><span class="nb">cdr</span> <span class="o">'</span><span class="p">(</span><span class="nf">c</span><span class="p">))</span> <span class="o">.</span> <span class="o">,</span><span class="p">(</span><span class="nb">car</span> <span class="o">'</span><span class="p">(</span><span class="nb">cons</span><span class="p">)))</span>
-                    <span class="nv">=&gt;</span>  <span class="p">((</span><span class="nf">foo</span> <span class="mi">7</span><span class="p">)</span> <span class="o">.</span> <span class="nv">cons</span><span class="p">)</span>
-<span class="o">`#</span><span class="p">(</span><span class="nf">10</span> <span class="mi">5</span> <span class="o">,</span><span class="p">(</span><span class="nb">sqrt</span> <span class="mi">4</span><span class="p">)</span> <span class="o">,@</span><span class="p">(</span><span class="nb">map</span> <span class="nv">sqrt</span> <span class="o">'</span><span class="p">(</span><span class="nf">16</span> <span class="mi">9</span><span class="p">))</span> <span class="mi">8</span><span class="p">)</span>
-                    <span class="nv">=&gt;</span>  <span class="o">#</span><span class="p">(</span><span class="nf">10</span> <span class="mi">5</span> <span class="mi">2</span> <span class="mi">4</span> <span class="mi">3</span> <span class="mi">8</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Quasiquote forms may be nested.  Substitutions are made only for unquoted
-components appearing at the same nesting level as the outermost backquote.
-The nesting level increases by one inside each successive quasiquotation,
-and decreases by one inside each unquotation.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="o">`</span><span class="p">(</span><span class="nf">a</span> <span class="o">`</span><span class="p">(</span><span class="nf">b</span> <span class="o">,</span><span class="p">(</span><span class="nb">+</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span> <span class="o">,</span><span class="p">(</span><span class="nf">foo</span> <span class="o">,</span><span class="p">(</span><span class="nb">+</span> <span class="mi">1</span> <span class="mi">3</span><span class="p">)</span> <span class="nv">d</span><span class="p">)</span> <span class="nv">e</span><span class="p">)</span> <span class="nv">f</span><span class="p">)</span>
-          <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="o">`</span><span class="p">(</span><span class="nf">b</span> <span class="o">,</span><span class="p">(</span><span class="nb">+</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span> <span class="o">,</span><span class="p">(</span><span class="nf">foo</span> <span class="mi">4</span> <span class="nv">d</span><span class="p">)</span> <span class="nv">e</span><span class="p">)</span> <span class="nv">f</span><span class="p">)</span>
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">name1</span> <span class="ss">'x</span><span class="p">)</span>
-      <span class="p">(</span><span class="nf">name2</span> <span class="ss">'y</span><span class="p">))</span>
-  <span class="o">`</span><span class="p">(</span><span class="nf">a</span> <span class="o">`</span><span class="p">(</span><span class="nf">b</span> <span class="o">,,</span><span class="nv">name1</span> <span class="o">,</span><span class="ss">',name2</span> <span class="nv">d</span><span class="p">)</span> <span class="nv">e</span><span class="p">))</span>
-          <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="o">`</span><span class="p">(</span><span class="nf">b</span> <span class="o">,</span><span class="nv">x</span> <span class="o">,</span><span class="ss">'y</span> <span class="nv">d</span><span class="p">)</span> <span class="nv">e</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The two notations <code>`&lt;template&gt;</code> and <code>(quasiquote &lt;template&gt;)</code> are identical
-in all respects.  <code>,&lt;expression&gt;</code> is identical to <code>(unquote &lt;expression&gt;)</code>, and
-<code>,@&lt;expression&gt;</code> is identical to <code>(unquote-splicing &lt;expression&gt;)</code>.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_macros">2.10. Macros</h3>
-<div class="paragraph">
-<p>
-
-
-STklos supports hygienic macros such as the ones defined in R<sup>5</sup>RS as
-well as low level macros.</p>
-</div>
-<div class="paragraph">
-<p>
-Low level macros are defined with <code>define-macro</code> whereas R<sup>5</sup>RS macros are
-defined with <code>define-syntax</code>.<sup class="footnote">[<a id="_footnoteref_1" class="footnote" href="#_footnotedef_1" title="View footnote.">1</a>]</sup>.  Hygienic macros use the implementation
-called <strong><em>Macro by Example</em></strong> (Eugene Kohlbecker, R<sup>4</sup>RS) done by Dorai
-Sitaram. This implementation generates low level STklos macros. This
-implementation of hygienic macros is not expensive.</p>
-</div>
-<div class="paragraph">
-<p>The major drawback of this implementation is that the macros are not
-<strong><em>referentially transparent</em></strong> (see section <strong>Macros</strong> in R<sup>4</sup>RS for
-details). Lexically scoped macros (i.e., <code>let-syntax</code> and
-<code>letrec-syntax</code> are not supported). In any case, the problem of
-referential transparency gains poignancy only when <code>let-syntax</code> and
-<code>letrec-syntax</code> are used. So you will not be courting large-scale
-disaster unless you&#8217;re using system-function names as local variables
-with unintuitive bindings that the macro can&#8217;t use. However, if you
-must have the full R<sup>5</sup>RS macro functionality, you can do</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">require</span> <span class="s">"full-syntax"</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>to have access to the more featureful (but also more expensive)
-versions of <strong>syntax-rules</strong>. Requiring <code>"full-syntax"</code> loads the
-version 2.1 of an implementation of hygienic macros by Robert Hieb
-and R. Kent Dybvig.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(define-macro (&lt;name&gt; &lt;formals&gt;) &lt;body&gt;)</code></strong><br>
-<strong><code>(define-macro &lt;name&gt; (lambda &lt;formals&gt; &lt;body&gt;))</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>define-macro</code> can be used to define low-level macro
-(i.e. ,(emph "non hygienic") macros). This form is similar to the
-<code>defmacro</code> form of Common Lisp.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-macro</span> <span class="p">(</span><span class="nf">incr</span> <span class="nv">x</span><span class="p">)</span> <span class="o">`</span><span class="p">(</span><span class="k">set!</span> <span class="o">,</span><span class="nv">x</span> <span class="p">(</span><span class="nb">+</span> <span class="o">,</span><span class="nv">x</span> <span class="mi">1</span><span class="p">)))</span>
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">a</span> <span class="mi">1</span><span class="p">))</span> <span class="p">(</span><span class="nf">incr</span> <span class="nv">a</span><span class="p">)</span> <span class="nv">a</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="mi">2</span>
-
-<span class="p">(</span><span class="nf">define-macro</span> <span class="p">(</span><span class="nf">when</span> <span class="nv">test</span> <span class="o">.</span> <span class="nv">body</span><span class="p">)</span>
-  <span class="o">`</span><span class="p">(</span><span class="k">if</span> <span class="o">,</span><span class="nv">test</span> <span class="o">,@</span><span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">null?</span> <span class="p">(</span><span class="nb">cdr</span> <span class="nv">body</span><span class="p">))</span> <span class="nv">body</span> <span class="o">`</span><span class="p">((</span><span class="k">begin</span> <span class="o">,@</span><span class="nv">body</span><span class="p">)))))</span>
-<span class="p">(</span><span class="nf">macro-expand</span> <span class="o">'</span><span class="p">(</span><span class="nf">when</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="k">if</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">macro-expand</span> <span class="o">'</span><span class="p">(</span><span class="nf">when</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">))</span>
-                           <span class="nv">=&gt;</span> <span class="p">(</span><span class="k">if</span> <span class="nv">a</span> <span class="p">(</span><span class="k">begin</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">define-macro</span> <span class="p">(</span><span class="nf">my-and</span> <span class="o">.</span> <span class="nv">exprs</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">cond</span>
-   <span class="p">((</span><span class="nb">null?</span> <span class="nv">exprs</span><span class="p">)</span>        <span class="no">#t</span><span class="p">)</span>
-   <span class="p">((</span><span class="nb">=</span> <span class="p">(</span><span class="nb">length</span> <span class="nv">exprs</span><span class="p">)</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="nb">car</span> <span class="nv">exprs</span><span class="p">))</span>
-   <span class="p">(</span><span class="k">else</span>                 <span class="o">`</span><span class="p">(</span><span class="k">if</span> <span class="o">,</span><span class="p">(</span><span class="nb">car</span> <span class="nv">exprs</span><span class="p">)</span>
-                           <span class="p">(</span><span class="nf">my-and</span> <span class="o">,@</span><span class="p">(</span><span class="nb">cdr</span> <span class="nv">exprs</span><span class="p">))</span>
-                           <span class="no">#f</span><span class="p">))))</span>
-<span class="p">(</span><span class="nf">macro-expand</span> <span class="o">'</span><span class="p">(</span><span class="nf">my-and</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>
-                          <span class="nv">=&gt;</span> <span class="p">(</span><span class="k">if</span> <span class="nv">a</span> <span class="p">(</span><span class="nf">my-and</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span> <span class="no">#f</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(define-syntax &lt;identifier&gt; &lt;transformer-spec&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>&lt;Define-syntax&gt;</code>  extends the top-level syntactic environment by binding
-the <code>&lt;identifier&gt;</code> to the specified transformer.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<code>&lt;transformer-spec&gt;</code> should be an instance of <code>syntax-rules</code>.
-</td>
-</tr>
-</table>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define-syntax</span> <span class="nv">let*</span>
-  <span class="p">(</span><span class="k">syntax-rules</span> <span class="p">()</span>
-    <span class="p">((</span><span class="k">let*</span> <span class="p">()</span> <span class="nv">body1</span> <span class="nv">body2</span> <span class="o">...</span><span class="p">)</span>
-     <span class="p">(</span><span class="k">let</span> <span class="p">()</span> <span class="nv">body1</span> <span class="nv">body2</span> <span class="o">...</span><span class="p">))</span>
-    <span class="p">((</span><span class="k">let*</span> <span class="p">((</span><span class="nf">name1</span> <span class="nv">val1</span><span class="p">)</span> <span class="p">(</span><span class="nf">name2</span> <span class="nv">val2</span><span class="p">)</span> <span class="o">...</span><span class="p">)</span>
-       <span class="nv">body1</span> <span class="nv">body2</span> <span class="o">...</span><span class="p">)</span>
-     <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">name1</span> <span class="nv">val1</span><span class="p">))</span>
-       <span class="p">(</span><span class="k">let*</span> <span class="p">((</span> <span class="nv">name2</span> <span class="nv">val2</span><span class="p">)</span> <span class="o">...</span><span class="p">)</span>
-         <span class="nv">body1</span> <span class="nv">body2</span> <span class="o">...</span><span class="p">))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(syntax-rules &lt;literals&gt; &lt;syntax-rule&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>&lt;literals&gt;</code> is a list of identifiers, and each <code>&lt;syntax-rule&gt;</code> should be of
-the form</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">pattern</span> <span class="nv">template</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>An instance of <code>&lt;syntax-rules&gt;</code> produces a new macro transformer by
-specifying a sequence of hygienic rewrite rules. A use of a macro
-whose name is associated with a transformer specified by
-&lt;syntax-rules&gt; is matched against the patterns contained in the
-&lt;syntax-rules&gt;, beginning with the leftmost syntax-rule. When a match is
-found, the macro use is transcribed hygienically according to the
-template.</p>
-</div>
-<div class="paragraph">
-<p>Each pattern begins with the name for the macro. This name is not
-involved in the matching and is not considered a pattern variable or
-literal identifier.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-For a complete description of the Scheme pattern language,
-refer to R<sup>5</sup>RS.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(let-syntax &lt;bindings&gt; &lt;body&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>&lt;Bindings&gt;</code> should have the form</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">((</span><span class="nf">&lt;keyword&gt;</span> <span class="nv">&lt;transformer</span> <span class="nv">spec&gt;</span><span class="p">)</span> <span class="o">...</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Each <code>&lt;keyword&gt;</code> is an identifier, each <code>&lt;transformer spec&gt;</code> is an instance of
-<code>syntax-rules</code>, and <code>&lt;body&gt;</code> should be a sequence of one or more expressions.  It
-is an error for a <code>&lt;keyword&gt;</code> to appear more than once in the list of keywords
-being bound.</p>
-</div>
-<div class="paragraph">
-<p>The <code>&lt;body&gt;</code> is expanded in the syntactic environment obtained by
-extending the syntactic environment of the <code>let-syntax</code> expression with macros
-whose keywords are the <code>&lt;keyword&gt;</code>s, bound to the specified transformers.  Each
-binding of a <code>&lt;keyword&gt;</code> has <code>&lt;body&gt;</code> as its region.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<code>let-syntax</code> is available only after having required the file
-<code>"full-syntax"</code>.
-</td>
-</tr>
-</table>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let-syntax</span> <span class="p">((</span><span class="nf">when</span> <span class="p">(</span><span class="k">syntax-rules</span> <span class="p">()</span>
-                  <span class="p">((</span><span class="nf">when</span> <span class="nv">test</span> <span class="nv">stmt1</span> <span class="nv">stmt2</span> <span class="o">...</span><span class="p">)</span>
-                   <span class="p">(</span><span class="k">if</span> <span class="nv">test</span>
-                       <span class="p">(</span><span class="k">begin</span> <span class="nv">stmt1</span>
-                              <span class="nv">stmt2</span> <span class="o">...</span><span class="p">))))))</span>
-  <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="k">if</span> <span class="no">#t</span><span class="p">))</span>
-    <span class="p">(</span><span class="nf">when</span> <span class="nv">if</span> <span class="p">(</span><span class="k">set!</span> <span class="nv">if</span> <span class="ss">'now</span><span class="p">))</span>
-    <span class="nv">if</span><span class="p">))</span>                           <span class="nv">=&gt;</span>  <span class="nv">now</span>
-
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">x</span> <span class="ss">'outer</span><span class="p">))</span>
-  <span class="p">(</span><span class="k">let-syntax</span> <span class="p">((</span><span class="nf">m</span> <span class="p">(</span><span class="k">syntax-rules</span> <span class="p">()</span> <span class="p">((</span><span class="nf">m</span><span class="p">)</span> <span class="nv">x</span><span class="p">))))</span>
-    <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">x</span> <span class="ss">'inner</span><span class="p">))</span>
-      <span class="p">(</span><span class="nf">m</span><span class="p">))))</span>                       <span class="nv">=&gt;</span>  <span class="nv">outer</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(letrec-syntax &lt;bindings&gt; &lt;body&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Syntax of <code>letrec-syntax</code> is the same as for <code>let-syntax</code>.</p>
-</div>
-<div class="paragraph">
-<p>The <code>&lt;body&gt;</code> is expanded in the syntactic environment obtained by
-extending the syntactic environment of the <code>letrec-syntax</code> expression
-with macros whose keywords are the <code>&lt;keyword&gt;</code>s, bound to the specified
-transformers.  Each binding of a <code>&lt;keyword&gt;</code> has the <code>&lt;bindings&gt;</code> as well
-as the <code>&lt;body&gt;</code> within its region, so the transformers can transcribe
-expressions into uses of the macros introduced by the <code>letrec-syntax</code>
-expression.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<code>letrec-syntax</code> is available only after having required the file
-<code>"full-syntax"</code>.
-</td>
-</tr>
-</table>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">letrec-syntax</span>
-  <span class="p">((</span><span class="nf">my-or</span> <span class="p">(</span><span class="k">syntax-rules</span> <span class="p">()</span>
-            <span class="p">((</span><span class="nf">my-or</span><span class="p">)</span> <span class="no">#f</span><span class="p">)</span>
-            <span class="p">((</span><span class="nf">my-or</span> <span class="nv">e</span><span class="p">)</span> <span class="nv">e</span><span class="p">)</span>
-            <span class="p">((</span><span class="nf">my-or</span> <span class="nv">e1</span> <span class="nv">e2</span> <span class="o">...</span><span class="p">)</span>
-             <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">temp</span> <span class="nv">e1</span><span class="p">))</span>
-               <span class="p">(</span><span class="k">if</span> <span class="nv">temp</span>
-                   <span class="nv">temp</span>
-                   <span class="p">(</span><span class="nf">my-or</span> <span class="nv">e2</span> <span class="o">...</span><span class="p">)))))))</span>
-  <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">x</span> <span class="no">#f</span><span class="p">)</span>
-        <span class="p">(</span><span class="nf">y</span> <span class="mi">7</span><span class="p">)</span>
-        <span class="p">(</span><span class="nf">temp</span> <span class="mi">8</span><span class="p">)</span>
-        <span class="p">(</span><span class="k">let</span> <span class="nv">odd?</span><span class="p">)</span>
-        <span class="p">(</span><span class="k">if</span> <span class="nv">even?</span><span class="p">))</span>
-    <span class="p">(</span><span class="nf">my-or</span> <span class="nv">x</span>
-           <span class="p">(</span><span class="k">let</span> <span class="nv">temp</span><span class="p">)</span>
-           <span class="p">(</span><span class="k">if</span> <span class="nv">y</span><span class="p">)</span>
-           <span class="nv">y</span><span class="p">)))</span>        <span class="nv">=&gt;</span>  <span class="mi">7</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(macro-expand form)</code></strong><br>
-<strong><code>(macro-expand</strong> form)</code>*<br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>macro-expand</code> returns the macro expansion of <code>form</code> if it is a macro call,
-otherwise <code>form</code> is returned unchanged.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-macro</span> <span class="p">(</span><span class="nf">add1</span> <span class="nv">x</span><span class="p">)</span> <span class="o">`</span><span class="p">(</span><span class="nb">+</span> <span class="o">,</span><span class="nv">x</span> <span class="mi">1</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">macro-expand</span> <span class="o">'</span><span class="p">(</span><span class="nf">add1</span> <span class="nv">foo</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">foo</span> <span class="mi">1</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">macro-expand</span> <span class="o">'</span><span class="p">(</span><span class="nb">car</span> <span class="nv">bar</span><span class="p">))</span>  <span class="nv">=&gt;</span> <span class="p">(</span><span class="nb">car</span> <span class="nv">bar</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>macro-expand</code> returns the <strong>full</strong> macro expansion of <code>form</code>, that is it repeats
-the macro-expansion, while the expanded form contains macro calls.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-macro</span> <span class="p">(</span><span class="nf">add2</span> <span class="nv">x</span><span class="p">)</span> <span class="o">`</span><span class="p">(</span><span class="nf">add1</span> <span class="p">(</span><span class="nf">add1</span> <span class="o">,</span><span class="nv">x</span><span class="p">)))</span>
-<span class="p">(</span><span class="nf">macro-expand</span> <span class="o">'</span><span class="p">(</span><span class="nf">add2</span> <span class="nv">foo</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">add1</span> <span class="p">(</span><span class="nf">add1</span> <span class="nv">foo</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">macro-expand*</span> <span class="o">'</span><span class="p">(</span><span class="nf">add2</span> <span class="nv">foo</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nb">+</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">foo</span> <span class="mi">1</span><span class="p">)</span> <span class="mi">1</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<code>macro-expand</code> and <code>macro-expand*</code> expand only the global macros.
-</td>
-</tr>
-</table>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_introduction.html">Introduction</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_program_structure.html">Program structure</a> →</p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_foreign_function_interface.html b/doc/HTML/_foreign_function_interface.html
deleted file mode 100644
index 80966a465..000000000
--- a/doc/HTML/_foreign_function_interface.html
+++ /dev/null
@@ -1,1340 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<style>
-pre.rouge table td { padding: 5px; }
-pre.rouge table pre { margin: 0; }
-pre.rouge .c, pre.rouge .ch, pre.rouge .cd, pre.rouge .cpf {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cm {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .c1 {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cp {
-  color: #75715e;
-  font-weight: bold;
-}
-pre.rouge .cs {
-  color: #75715e;
-  font-weight: bold;
-  font-style: italic;
-}
-pre.rouge .err {
-  color: #960050;
-  background-color: #1e0010;
-}
-pre.rouge .gi {
-  color: #ffffff;
-  background-color: #324932;
-}
-pre.rouge .gd {
-  color: #ffffff;
-  background-color: #493131;
-}
-pre.rouge .ge {
-  color: #000000;
-  font-style: italic;
-}
-pre.rouge .gr {
-  color: #aa0000;
-}
-pre.rouge .gt {
-  color: #aa0000;
-}
-pre.rouge .gh {
-  color: #999999;
-}
-pre.rouge .go {
-  color: #888888;
-}
-pre.rouge .gp {
-  color: #555555;
-}
-pre.rouge .gs {
-  font-weight: bold;
-}
-pre.rouge .gu {
-  color: #aaaaaa;
-}
-pre.rouge .k, pre.rouge .kv {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kc {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kd {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kp {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kr {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kt {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kn {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .ow {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .o {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .mf {
-  color: #ae81ff;
-}
-pre.rouge .mh {
-  color: #ae81ff;
-}
-pre.rouge .il {
-  color: #ae81ff;
-}
-pre.rouge .mi {
-  color: #ae81ff;
-}
-pre.rouge .mo {
-  color: #ae81ff;
-}
-pre.rouge .m, pre.rouge .mb, pre.rouge .mx {
-  color: #ae81ff;
-}
-pre.rouge .se {
-  color: #ae81ff;
-}
-pre.rouge .sa {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .sb {
-  color: #e6db74;
-}
-pre.rouge .sc {
-  color: #e6db74;
-}
-pre.rouge .sd {
-  color: #e6db74;
-}
-pre.rouge .s2 {
-  color: #e6db74;
-}
-pre.rouge .sh {
-  color: #e6db74;
-}
-pre.rouge .si {
-  color: #e6db74;
-}
-pre.rouge .sx {
-  color: #e6db74;
-}
-pre.rouge .sr {
-  color: #e6db74;
-}
-pre.rouge .s1 {
-  color: #e6db74;
-}
-pre.rouge .ss {
-  color: #e6db74;
-}
-pre.rouge .s, pre.rouge .dl {
-  color: #e6db74;
-}
-pre.rouge .na {
-  color: #a6e22e;
-}
-pre.rouge .nc {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nd {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .ne {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nf, pre.rouge .fm {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .no {
-  color: #66d9ef;
-}
-pre.rouge .bp {
-  color: #f8f8f2;
-}
-pre.rouge .nb {
-  color: #f8f8f2;
-}
-pre.rouge .ni {
-  color: #f8f8f2;
-}
-pre.rouge .nn {
-  color: #f8f8f2;
-}
-pre.rouge .vc {
-  color: #f8f8f2;
-}
-pre.rouge .vg {
-  color: #f8f8f2;
-}
-pre.rouge .vi {
-  color: #f8f8f2;
-}
-pre.rouge .nv, pre.rouge .vm {
-  color: #f8f8f2;
-}
-pre.rouge .w {
-  color: #f8f8f2;
-}
-pre.rouge .nl {
-  color: #f8f8f2;
-  font-weight: bold;
-}
-pre.rouge .nt {
-  color: #f92672;
-}
-pre.rouge {
-  color: #f8f8f2;
-  background-color: #49483e;
-}
-</style>
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_foreign_function_interface" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html"><span class="toc-current">11. Foreign Function Interface</span></a>
-<ul class="sectlevel2">
-<li><a href="_foreign_function_interface.html#_external_functions">11.1. External functions</a>
-</li>
-<li><a href="_foreign_function_interface.html#_c_pointers">11.2. C pointers</a>
-</li>
-</ul>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_foreign_function_interface">11. Foreign Function Interface</h2>
-<div class="sectionbody">
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph">
-<p>The <strong><em>STklos</em></strong> Foreign Function Interface (FFI for short) has been
-defined to allow an easy access to functions written in C without
-needing to build C-wrappers and, consequently, without any need to
-write C code.  FFI is very machine dependent and <strong><em>STklos</em></strong> uses the
-<a href="https://sourceware.org/libffi/"><strong>libffi library</strong></a>, a portable Foreign Function
-Interface library, to give access to C written code.
-This library supports a large set of architectures/OS that are
-described on its Home Page.</p>
-</div>
-<div class="paragraph">
-<p>Moreover, since FFI allows very low level access, it is easy to crash
-the <strong><em>STklos</em></strong> VM when using an external C function.</p>
-</div>
-<div class="paragraph">
-<p><strong>Note that the support for FFI is still minimal and that it will
-evolve in future versions.</strong></p>
-</div>
-<div class="sect2">
-<h3 id="_external_functions">11.1. External functions</h3>
-<div class="paragraph">
-<p>The definition of an external function is done with the
-<code>define-external</code> special form.  This form takes as arguments
-a typed list of parameters and accepts several options to define the
-name of the function in the C world, the library which defines this
-function, &#8230;&#8203; The type of the function result and the type of its
-arguments are defined in <a href="_foreign_function_interface.html#ffi_types">Table 1</a>. This table lists
-the various keywords reserved for denoting types and their equivalence
-between the C and the Scheme worlds.</p>
-</div>
-<table id="ffi_types" class="tableblock frame-all grid-all stretch">
-<caption class="title">Table 1. FFI types</caption>
-<colgroup>
-<col style="width: 33.3333%;">
-<col style="width: 33.3333%;">
-<col style="width: 33.3334%;">
-</colgroup>
-<thead>
-<tr>
-<th class="tableblock halign-left valign-top">Name</th>
-<th class="tableblock halign-left valign-top">Corresponding C type</th>
-<th class="tableblock halign-left valign-top">Corresponding Scheme type</th>
-</tr>
-</thead>
-<tbody>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><strong>:void</strong></p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">void</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><em>none</em></p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><strong>:char</strong></p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">char</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Scheme character</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><strong>:short</strong></p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">short</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Scheme integer</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><strong>:ushort</strong></p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">unsigned short</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Scheme integer</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><strong>:int</strong></p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">int</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Scheme integer</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><strong>:uint</strong></p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">unsigned int</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Scheme integer</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><strong>:long</strong></p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">long int</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Scheme integer</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><strong>:ulong</strong></p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">unsigned long int</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Scheme integer</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><strong>:float</strong></p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">float</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Scheme real number</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><strong>:double</strong></p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">double</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Scheme real number</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><strong>:boolean</strong></p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">int</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">boolean</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><strong>:pointer</strong></p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">void *</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Scheme pointer object or Scheme string</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><strong>:string</strong></p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">char *</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Scheme string</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><strong>:obj</strong></p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">void *</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Any Scheme object passed as is</p></td>
-</tr>
-</tbody>
-</table>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(define-external name parameters option)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The form <code>define-external</code> binds a new procedure to <code>name</code>.
-The arity of this new procedure is defined by the typed list of
-parameters given by <code>parameters</code>. This parameters list is a list
-of keywords (as defined in the previous table) or couples whose first
-element is the name of the parameter, and the second one is a type
-keyword.  All the types defined in the above table, except
-<code>:void</code>, are allowed for the parameters of a foreign function.</p>
-</div>
-<div class="paragraph">
-<p><code>Define-external</code> accepts several options:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>:return-type</code> is used to define the type of the value returned
-by the foreign function. The type returned must be chosen in the types specified
-in the table. For instance:</p>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-external</span> <span class="nv">maximum</span><span class="p">(</span><span class="nf">:int</span> <span class="nv">:int</span><span class="p">)</span>
-   <span class="nv">:return-type</span> <span class="nv">:int</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>defines the foreign function maximum which takes two C integers and
-returns an integer result. Omitting this option default to a result
-type equal to <code>:void</code> (i.e. the returned value is <em>undefined</em>).</p>
-</div>
-</li>
-<li>
-<p><code>:entry-name</code> is used to specify the name of the foreign
-function in the C world. If this option is omitted, the entry-name is
-supposed to be <code>name</code>. For instance:</p>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-external</span> <span class="nv">minimum</span><span class="p">((</span><span class="nf">a</span> <span class="nv">:int</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">:int</span><span class="p">))</span>
-   <span class="nv">:return-type</span> <span class="nv">:int</span>
-   <span class="nv">:entry-name</span>  <span class="s">"min"</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>defines the Scheme function <code>minimum</code> whose application
-executes the C function called <code>min</code>.</p>
-</div>
-</li>
-<li>
-<p><code>:library-name</code> is used to specify the library which contains the
-foreign-function. If necessary, the library is loaded before calling the
-C function. So,</p>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-external</span> <span class="nv">minimum</span><span class="p">((</span><span class="nf">a</span> <span class="nv">:int</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">:int</span><span class="p">))</span>
-   <span class="nv">:return-type</span>  <span class="nv">:int</span>
-   <span class="nv">:entry-name</span>   <span class="s">"min"</span>
-   <span class="nv">:library-name</span> <span class="s">"libminmax"</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>defines a function which will execute the function <code>min</code>
-located in the library <code>libminmax.xx</code> (where <code>xx</code> is the suffix used
-for shared libraries on the running system (generally <code>so</code>)).</p>
-</div>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>Hereafter, are some commented definitions of external functions:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"> <span class="p">(</span><span class="nf">define-external</span> <span class="nv">isatty</span> <span class="p">((</span><span class="nf">fd</span> <span class="nv">:int</span><span class="p">))</span>
-     <span class="nv">:return-type</span> <span class="nv">:boolean</span><span class="p">)</span>
-
-  <span class="p">(</span><span class="nf">define-external</span> <span class="nv">system</span> <span class="p">((</span><span class="nf">cmd</span> <span class="nv">:string</span><span class="p">))</span>
-    <span class="nv">:return-type</span> <span class="nv">:int</span><span class="p">)</span>
-
-  <span class="p">(</span><span class="nf">define-external</span> <span class="nv">ttyname</span> <span class="p">(</span><span class="nf">:int</span><span class="p">)</span>
-    <span class="nv">:return-type</span> <span class="nv">:string</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>All these functions are defined in the C standard library, hence it is not
-necessary to specify the <code>:library-name</code> option.</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><strong><em>istty</em></strong> is declared here as a function which takes an
-integer and returns a boolean (in fact, the value returned by the
-C function <strong><em>isatty</em></strong> is an <strong><em>int</em></strong>, but we ask here to the FFI
-system to translate this result as a boolean value in the Scheme
-world).</p>
-</li>
-<li>
-<p><strong><em>system</em></strong> is a function which takes a string as parameter
-and returns an <strong><em>int</em></strong>.</p>
-</li>
-<li>
-<p><strong><em>ttyname</em></strong> is a function whih takes an int and returns a string.
-Note that in this function the name of the parameter has been omitted
-as within C prototypes.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>If an external function receives an <code>:int</code> argument and is passed a
-Scheme bignum, which then doesn&#8217;t fit a <strong><em>long int</em></strong> in C, the
-external function will signal an error. When a <code>:float</code> or <code>:double</code>
-argument is declared and is passed a Scheme real that requires so many
-bits so as to not be representable in that type, that argument will be
-silently taken as infinity.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"> <span class="p">(</span><span class="nf">define-external</span> <span class="nv">c-abs</span> <span class="p">((</span><span class="nf">fd</span> <span class="nv">:int</span><span class="p">))</span>
-     <span class="nv">:entry-name</span> <span class="s">"abs"</span>
-     <span class="nv">:return-type</span> <span class="nv">:int</span><span class="p">)</span>
-
- <span class="p">(</span><span class="nf">define-external</span> <span class="nv">c-fabs</span> <span class="p">((</span><span class="nf">fd</span> <span class="nv">:double</span><span class="p">))</span>
-     <span class="nv">:entry-name</span> <span class="s">"fabs"</span>
-     <span class="nv">:return-type</span> <span class="nv">:double</span><span class="p">)</span>
-
- <span class="p">(</span><span class="nf">define-external</span> <span class="nv">c-fabsf</span> <span class="p">((</span><span class="nf">fd</span> <span class="nv">:float</span><span class="p">))</span>
-     <span class="nv">:entry-name</span> <span class="s">"fabsf"</span>
-     <span class="nv">:return-type</span> <span class="nv">:float</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>We can now use the function we have just defined:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">c-abs</span> <span class="p">(</span><span class="nb">-</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">2</span> <span class="mi">70</span><span class="p">)))</span>    <span class="nv">=&gt;</span> <span class="nv">Error</span>
-<span class="p">(</span><span class="nf">c-fabs</span> <span class="mf">-1.0</span><span class="nv">e+250</span><span class="p">)</span>         <span class="nv">=&gt;</span> <span class="mi">1</span><span class="nv">e+250</span>
-<span class="p">(</span><span class="nf">c-fabsf</span> <span class="mf">-1.0</span><span class="nv">e+250</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="m">+inf.0</span>
-<span class="p">(</span><span class="nf">c-fabs</span> <span class="p">(</span><span class="nb">-</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">10</span> <span class="mi">300</span><span class="p">)))</span> <span class="nv">=&gt;</span> <span class="mi">1</span><span class="nv">e+300</span>
-<span class="p">(</span><span class="nf">c-fabs</span> <span class="p">(</span><span class="nb">-</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">10</span> <span class="mi">600</span><span class="p">)))</span> <span class="nv">=&gt;</span> <span class="m">+inf.0</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>In the following example we use the <code>:string</code> type. C functions accepting
-pointers to null-terminated strings are directly translated to this type.</p>
-</div>
-<div class="paragraph">
-<p>The POSIX function <code>strpbrk</code> accepts two string arguments (in C, two
-pointers to <code>char</code>). The C call <code>strpbrk(str1, str2)</code> returns a
-pointer to the first occurrence in the string <code>str1</code> of one of the
-bytes in the string <code>str2</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-external</span> <span class="nv">c-strpbrk</span> <span class="p">((</span><span class="nf">str</span> <span class="nv">:string</span><span class="p">)</span> <span class="p">(</span><span class="nf">accept</span> <span class="nv">:string</span><span class="p">))</span>
-    <span class="nv">:entry-name</span> <span class="s">"strpbrk"</span>
-    <span class="nv">:return-type</span> <span class="nv">:string</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">c-strpbrk</span> <span class="s">"a string"</span> <span class="s">"rz"</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="s">"ring"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Note that it would be possible to use a <code>:pointer</code> type instead for the return
-value, although in this case it would be more cumbersome (but does help understand
-the FFI better!):</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-external</span> <span class="nv">c-strpbrk</span> <span class="p">((</span><span class="nf">str</span> <span class="nv">:string</span><span class="p">)</span> <span class="p">(</span><span class="nf">accept</span> <span class="nv">:string</span><span class="p">))</span>
-    <span class="nv">:entry-name</span> <span class="s">"strpbrk"</span>
-    <span class="nv">:return-type</span> <span class="nv">:pointer</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">c-strpbrk</span> <span class="s">"a string"</span> <span class="s">"rz"</span><span class="p">)</span>
-                            <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">[</span><span class="nf">C-pointer</span> <span class="mi">7</span><span class="nv">f17baf94d06</span> <span class="nv">@</span> <span class="mi">7</span><span class="nv">f17bafb4360</span><span class="p">]</span>
-<span class="p">(</span><span class="nf">cpointer-&gt;string</span> <span class="p">(</span><span class="nf">c-strpbrk</span> <span class="s">"a string"</span> <span class="s">"rz"</span><span class="p">))</span>
-                            <span class="nv">=&gt;</span> <span class="s">"ring"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Functions on C pointers are described in the next section.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_c_pointers">11.2. C pointers</h3>
-<div class="paragraph">
-<p>It is very common that external functions return pointers, serving as
-handles on internal structures. This pointers, called hereafter
-<strong>cpointers</strong>, are then boxed in a Scheme objects. This section presents
-the functions that can be used to deal with C pointers.</p>
-</div>
-<div class="admonitionblock warning">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-warning" title="Warning"></i>
-</td>
-<td class="content">
-Note that by using <strong>cpointers</strong> objects, one gives up the safety of
-the Scheme environment, and care must be taken to avoid memory corruptions,
-errors, crashes&#8230;&#8203;
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(cpointer? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> is <code>obj</code> is a cpointer (a Scheme object which encapsulate
-a pointer to a C object), and <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(cpointer-null? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> is <code>obj</code> is a cpointer and its value is the C NULL value.
-Returnd <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(cpointer-data obj)</code></strong><br>
-<strong><code>(cpointer-data-set! obj adr)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>cpointer-data</code> returns the value associated to cpointer <code>obj</code>
-(that is the value of the pointer itself: an address).</p>
-</div>
-<div class="paragraph">
-<p><code>cpointer-data-set!</code> permits to change the pointer stored in the <code>obj</code>
-cpointer to <code>adr</code>. This is of course very dangerous and could lead to
-fatal errors.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(cpointer-type obj)</code></strong><br>
-<strong><code>(cpointer-type-set! obj tag)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>cpointer-type</code> returns the tag type associated to a cpointer. The C
-runtime or an extension can associate * a tag to a cpointer to make
- some controls  (for instance, verify that <code>obj</code> is a cpointer  on a
-<code>widget</code> structure). This function returns <strong>void</strong> if a type has not
-been set before. The semantic associated to this tag is completely
-left to the extension writer.</p>
-</div>
-<div class="paragraph">
-<p><code>cpointer-type-set!</code> permits to set the tag of the <code>obj</code> cpointer to
-<code>tag</code> (which can be of any type).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(cpointer&#8594;string str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the C (null terminated) string <code>str</code> as a Scheme string.
-If <code>str</code> doesn&#8217;t contain a C string, the result will probably result
-in a fatal error.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-external</span> <span class="nv">c-ghn</span> <span class="p">((</span><span class="nf">s</span> <span class="nv">:pointer</span><span class="p">)</span> <span class="p">(</span><span class="nf">size</span> <span class="nv">:int</span><span class="p">))</span>
-                 <span class="nv">:entry-name</span> <span class="s">"gethostname"</span>
-                 <span class="nv">:return-type</span> <span class="nv">:int</span><span class="p">)</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">name</span> <span class="p">(</span><span class="nf">allocate-bytes</span> <span class="mi">10</span><span class="p">))</span>
-
-<span class="nv">name</span>                    <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">[</span><span class="nf">C-pointer</span> <span class="mi">7</span><span class="nv">fd830820f80</span> <span class="nv">@</span> <span class="mi">7</span><span class="nv">fd8305bee40</span><span class="p">]</span>
-<span class="p">(</span><span class="nf">c-ghn</span> <span class="nv">name</span> <span class="mi">9</span><span class="p">)</span>          <span class="nv">=&gt;</span> <span class="mi">0</span>
-<span class="p">(</span><span class="nf">cpointer-&gt;string</span> <span class="nv">name</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="s">"socrates"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(allocate-bytes n)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Allocate-bytes</code> will allocate <code>n</code> consecutive bytes using
-the standard STklos allocation function (which uses the
-Boehm–Demers–Weiser garbage collector <a href="_bibliography.html#BoehmGC">[BoehmGC]</a>).
-It returns a <code>cpointer</code> Scheme object that points to the first byte
-allocated. This pointer is managed by the  standard GC and doesn&#8217;t need
-to be freed.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(free-bytes obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Obj</code> must be a <code>cpointer</code> to allocated data. When <code>Free-bytes</code> is called
-on <code>obj</code>, it will deallocate its data calling
-- the C function <code>free</code> (if it  was allocated by the standard C <code>malloc</code>
-  function), or
-- the Boehm GC free  function (if the pointer was allocated using
-  <code>allocate-bytes</code> primitive).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="p">(</span><span class="nf">allocate-bytes</span> <span class="mi">10</span><span class="p">))</span>
-<span class="nv">a</span>   <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">[</span><span class="nf">C-pointer</span> <span class="mi">7</span><span class="nv">fd91e8e0f80</span> <span class="nv">@</span> <span class="mi">7</span><span class="nv">fd91e897b70</span><span class="p">]</span>
-<span class="p">(</span><span class="nf">cpointer-type-set!</span> <span class="nv">a</span> <span class="ss">'myadress</span><span class="p">)</span>
-<span class="nv">a</span>   <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">[</span><span class="nf">myadress-pointer</span> <span class="mi">7</span><span class="nv">fd91e8e0f80</span> <span class="nv">@</span> <span class="mi">7</span><span class="nv">fd91e897b70</span><span class="p">]</span>
-<span class="p">(</span><span class="nf">free-bytes</span> <span class="nv">a</span><span class="p">)</span>
-<span class="nv">a</span>   <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">[</span><span class="nf">myadress-pointer</span> <span class="mi">0</span> <span class="nv">@</span> <span class="mi">7</span><span class="nv">fd91e897b70</span><span class="p">]</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>After the call to <code>free-bytes</code>, when <code>a</code> is printed, the first number
-shown is zero, indicating that its data pointer does not point to
-allocated memory (a NULL value for C).</p>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_stklos_customization.html">STklos Customization</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_using_the_slib_package.html">Using the SLIB package</a> →</p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. In fact <code>define-module</code> on a given name defines a new module only the first time it is invoked on this name. By this way, interactively reloading a module does not define a new entity, and the other modules which use it are not altered.
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. This transcript uses the default toplevel loop             which displays the name of the current module in the evaluator             prompt.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Under Unix, you can simply connect to a listening socket with the <code>telnet</code> of <code>netcat</code> command. For the given example, this can be achieved with <code>netcat localhost 12345</code>
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. Port 13, if open, can be used for testing: making a connection to it permits to know the distant system&#8217;s idea of the time of day.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. The "pattern matching compiler" has been written by Jean-Marie Geffroy and is part of the Manuel Serrano&#8217;s Bigloo compiler since several years <a href="_bibliography.html#Bigloo">[Bigloo]</a>
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. This section is an adaptation of Jeff Dalton&#8217;s (<a href="mailto:J.Dalton@ed.ac.uk">J.Dalton@ed.ac.uk</a>) "<strong><em>Brief introduction to CLOS</em></strong>" which can be found at <a href="http://www.aiai.ed.ac.uk/~jeff/clos-guide.html" class="bare">http://www.aiai.ed.ac.uk/~jeff/clos-guide.html</a>
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_idiosync.html b/doc/HTML/_idiosync.html
deleted file mode 100644
index c19e6e06f..000000000
--- a/doc/HTML/_idiosync.html
+++ /dev/null
@@ -1,2719 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<style>
-pre.rouge table td { padding: 5px; }
-pre.rouge table pre { margin: 0; }
-pre.rouge .c, pre.rouge .ch, pre.rouge .cd, pre.rouge .cpf {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cm {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .c1 {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cp {
-  color: #75715e;
-  font-weight: bold;
-}
-pre.rouge .cs {
-  color: #75715e;
-  font-weight: bold;
-  font-style: italic;
-}
-pre.rouge .err {
-  color: #960050;
-  background-color: #1e0010;
-}
-pre.rouge .gi {
-  color: #ffffff;
-  background-color: #324932;
-}
-pre.rouge .gd {
-  color: #ffffff;
-  background-color: #493131;
-}
-pre.rouge .ge {
-  color: #000000;
-  font-style: italic;
-}
-pre.rouge .gr {
-  color: #aa0000;
-}
-pre.rouge .gt {
-  color: #aa0000;
-}
-pre.rouge .gh {
-  color: #999999;
-}
-pre.rouge .go {
-  color: #888888;
-}
-pre.rouge .gp {
-  color: #555555;
-}
-pre.rouge .gs {
-  font-weight: bold;
-}
-pre.rouge .gu {
-  color: #aaaaaa;
-}
-pre.rouge .k, pre.rouge .kv {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kc {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kd {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kp {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kr {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kt {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kn {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .ow {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .o {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .mf {
-  color: #ae81ff;
-}
-pre.rouge .mh {
-  color: #ae81ff;
-}
-pre.rouge .il {
-  color: #ae81ff;
-}
-pre.rouge .mi {
-  color: #ae81ff;
-}
-pre.rouge .mo {
-  color: #ae81ff;
-}
-pre.rouge .m, pre.rouge .mb, pre.rouge .mx {
-  color: #ae81ff;
-}
-pre.rouge .se {
-  color: #ae81ff;
-}
-pre.rouge .sa {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .sb {
-  color: #e6db74;
-}
-pre.rouge .sc {
-  color: #e6db74;
-}
-pre.rouge .sd {
-  color: #e6db74;
-}
-pre.rouge .s2 {
-  color: #e6db74;
-}
-pre.rouge .sh {
-  color: #e6db74;
-}
-pre.rouge .si {
-  color: #e6db74;
-}
-pre.rouge .sx {
-  color: #e6db74;
-}
-pre.rouge .sr {
-  color: #e6db74;
-}
-pre.rouge .s1 {
-  color: #e6db74;
-}
-pre.rouge .ss {
-  color: #e6db74;
-}
-pre.rouge .s, pre.rouge .dl {
-  color: #e6db74;
-}
-pre.rouge .na {
-  color: #a6e22e;
-}
-pre.rouge .nc {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nd {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .ne {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nf, pre.rouge .fm {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .no {
-  color: #66d9ef;
-}
-pre.rouge .bp {
-  color: #f8f8f2;
-}
-pre.rouge .nb {
-  color: #f8f8f2;
-}
-pre.rouge .ni {
-  color: #f8f8f2;
-}
-pre.rouge .nn {
-  color: #f8f8f2;
-}
-pre.rouge .vc {
-  color: #f8f8f2;
-}
-pre.rouge .vg {
-  color: #f8f8f2;
-}
-pre.rouge .vi {
-  color: #f8f8f2;
-}
-pre.rouge .nv, pre.rouge .vm {
-  color: #f8f8f2;
-}
-pre.rouge .w {
-  color: #f8f8f2;
-}
-pre.rouge .nl {
-  color: #f8f8f2;
-  font-weight: bold;
-}
-pre.rouge .nt {
-  color: #f92672;
-}
-pre.rouge {
-  color: #f8f8f2;
-  background-color: #49483e;
-}
-</style>
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_idiosync" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html"><span class="toc-current">Appendix C: STklos Idiosyncrasies</span></a>
-<ul class="sectlevel2">
-<li><a href="_idiosync.html#_stklos_libraries">A.1. STklos libraries</a>
-</li>
-<li><a href="_idiosync.html#_stklos_compiler">A.2. STklos compiler</a>
-</li>
-</ul>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_idiosync">Appendix A: STklos Idiosyncrasies</h2>
-<div class="sectionbody">
-<div class="sect2">
-<h3 id="_stklos_libraries">A.1. STklos libraries</h3>
-<div class="paragraph">
-<p>This section describes the standard libraries provided by <strong><em>STklos</em></strong>.</p>
-</div>
-<div class="sect3">
-<h4 id="_the_scheme_libraries">A.1.1. The (scheme &#8230;&#8203;) Libraries</h4>
-<div class="sect4">
-<h5 id="_r7rs_small_libraries">R<sup>7</sup>RS Small Libraries</h5>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> offers all the libraries defined by R<sup>7</sup>RS:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>base</p>
-</li>
-<li>
-<p>case-lambda</p>
-</li>
-<li>
-<p>char</p>
-</li>
-<li>
-<p>complex</p>
-</li>
-<li>
-<p>cxr</p>
-</li>
-<li>
-<p>eval</p>
-</li>
-<li>
-<p>file</p>
-</li>
-<li>
-<p>inexact</p>
-</li>
-<li>
-<p>lazy</p>
-</li>
-<li>
-<p>load</p>
-</li>
-<li>
-<p>process-context</p>
-</li>
-<li>
-<p>r5rs</p>
-</li>
-<li>
-<p>read</p>
-</li>
-<li>
-<p>repl</p>
-</li>
-<li>
-<p>time</p>
-</li>
-<li>
-<p>write</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>See the <a href="_bibliography.html#R7RS">[R7RS]</a> document for more information.</p>
-</div>
-</div>
-<div class="sect4">
-<h5 id="_r7rs_large_libraries">R<sup>7</sup>RS Large Libraries</h5>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> supports some libraries of the (under development) R<sup>7</sup>RS Large editions.</p>
-</div>
-<div class="paragraph">
-<p>For now, supported libraries of the <strong>Red edition</strong> are</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>bytevector (R<sup>6</sup>RS bytevectors)</p>
-</li>
-<li>
-<p>box <em>(srfi 111)</em></p>
-</li>
-<li>
-<p>charset <em>(srfi 14)</em></p>
-</li>
-<li>
-<p>comparator <em>(srfi 128)</em></p>
-</li>
-<li>
-<p>generator <em>(srfi 158)</em>&#8201;&#8212;&#8201;Red edition included SRFI 121, but it was superseded by SRFI 158.</p>
-</li>
-<li>
-<p>hash-table <em>(srfi 125)</em></p>
-</li>
-<li>
-<p>ideque <em>(srfi 134)</em></p>
-</li>
-<li>
-<p>ilist <em>(srfi 116)</em></p>
-</li>
-<li>
-<p>list <em>(srfi 1)</em></p>
-</li>
-<li>
-<p>list-queue <em>(srfi 117)</em></p>
-</li>
-<li>
-<p>lseq <em>(srfi 127)</em></p>
-</li>
-<li>
-<p>set <em>(srfi 113)</em></p>
-</li>
-<li>
-<p>sort <em>(srfi 132)</em></p>
-</li>
-<li>
-<p>stream <em>(srfi 41)</em></p>
-</li>
-<li>
-<p>text <em>(srfi 135)</em></p>
-</li>
-<li>
-<p>vector <em>(srfi 133)</em></p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>For now, supported libraries of the <strong>Tangerine edition</strong> are</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>bitwise <em>(srfi 151)</em></p>
-</li>
-<li>
-<p>bytevector <em>(scheme bytevector)</em>- not a SRFI: this one is a chapter from R6RS.</p>
-</li>
-<li>
-<p>division <em>(srfi 141)</em></p>
-</li>
-<li>
-<p>fixnum <em>(srfi 143)</em></p>
-</li>
-<li>
-<p>flonum <em>(srfi 144)</em></p>
-</li>
-<li>
-<p>generator <em>(srfi 158)</em></p>
-</li>
-<li>
-<p>vector @ <em>(srfi 160)</em></p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p><strong>(scheme bytevector) functions</strong></p>
-</div>
-<div class="paragraph">
-<p>Importing <code>(scheme bytevector)</code> gives access to the supplemental following
-bytevector functions.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bytevector-s8-ref bytevector k)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>bytevector-s8-ref</code> procedure returns the byte at index <code>k</code> of
-<code>bytevector</code>, as a signed byte.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">b1</span> <span class="p">(</span><span class="nf">make-bytevector</span> <span class="mi">16</span> <span class="mi">-127</span><span class="p">))</span>
-      <span class="p">(</span><span class="nf">b2</span> <span class="p">(</span><span class="nf">make-bytevector</span> <span class="mi">16</span> <span class="mi">255</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">list</span>
-    <span class="p">(</span><span class="nf">bytevector-s8-ref</span> <span class="nv">b1</span> <span class="mi">0</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">bytevector-u8-ref</span> <span class="nv">b1</span> <span class="mi">0</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">bytevector-s8-ref</span> <span class="nv">b2</span> <span class="mi">0</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">bytevector-u8-ref</span> <span class="nv">b2</span> <span class="mi">0</span><span class="p">)))</span>
-<span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">-127</span> <span class="mi">129</span> <span class="mi">-1</span> <span class="mi">255</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bytevector-s8-set! bytevector k byte)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>K</code> must be a valid index of bytevector.
-The <code>bytevector-s8-set!</code> procedure stores the two’s-complement
-representation of <code>byte</code> in element <code>k</code> of <code>bytevector</code>.
-This procedure return an unspecified value.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">b</span> <span class="p">(</span><span class="nf">make-bytevector</span> <span class="mi">16</span> <span class="mi">-127</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">bytevector-s8-set!</span> <span class="nv">b</span> <span class="mi">0</span> <span class="mi">-126</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">bytevector-u8-set!</span> <span class="nv">b</span> <span class="mi">1</span> <span class="mi">246</span><span class="p">)</span>
-  <span class="p">(</span><span class="nb">list</span>
-    <span class="p">(</span><span class="nf">bytevector-s8-ref</span> <span class="nv">b</span> <span class="mi">0</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">bytevector-u8-ref</span> <span class="nv">b</span> <span class="mi">0</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">bytevector-s8-ref</span> <span class="nv">b</span> <span class="mi">1</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">bytevector-u8-ref</span> <span class="nv">b</span> <span class="mi">1</span><span class="p">)))</span>
-  <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">-126</span> <span class="mi">130</span> <span class="mi">-10</span> <span class="mi">246</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bytevector-fill! bytevector fill )</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>fill</code> argument is as in the description of the make-bytevector
-procedure. The <code>bytevector-fill!</code>  procedure stores <code>fill</code> in every
-element of bytevector and returns unspecified values. Analogous to
-<code>vector-fill!</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bytevector=? bytevector1 bytevector2 )</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns true if <code>bytevector1</code> and <code>bytevector2</code> are equal—that
-is, if they have the same length and equal bytes at all valid
-indices. It returns false otherwise.</p>
-</div>
-<div class="paragraph">
-<p>
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bytevector-uint-ref bytevector k endianness size)</code></strong><br>
-<strong><code>(bytevector-sint-ref bytevector k endianness size)</code></strong><br>
-<strong><code>(bytevector-uint-set! bytevector k n endianness size)</code></strong><br>
-<strong><code>(bytevector-sint-set! bytevector k n endianness size)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>bytevector-uint-ref</code> procedure retrieves the exact
-integer object corresponding to the unsigned representation
-of size <code>size</code> and specified by <code>endianness</code> at indices
-<code>k , &#8230;&#8203; , k + size − 1</code>.</p>
-</div>
-<div class="paragraph">
-<p>The <code>bytevector-sint-ref</code> procedure retrieves the exact
-integer object corresponding to the two’s-complement
-representation of size <code>size</code> and specified by <code>endianness</code>
-at indices <code>k , &#8230;&#8203; , k + size − 1</code>.</p>
-</div>
-<div class="paragraph">
-<p>For <code>bytevector-uint-set!</code>, <code>n</code> must be an exact integer
-object in the interval <code>{0, &#8230;&#8203; , 256^size − 1}</code>.</p>
-</div>
-<div class="paragraph">
-<p>The <code>bytevector-uint-set!</code> procedure stores the unsigned
-representation of size <code>size</code> and specified by <code>endianness</code>
-into <code>bytevector</code> at indices <code>k , &#8230;&#8203; , k + size − 1</code>.</p>
-</div>
-<div class="paragraph">
-<p>For bytevector-sint-set!, n must be an exact integer
-object in the interval <code>{−256^size /2, &#8230;&#8203; , 256^size /2 − 1}</code>.
-<code>Bytevector-sint-set!</code> stores the two’s-complement
-representation of size <code>size</code> and specified by <code>endianness</code>
-into <code>bytevector</code> at indices <code>k , &#8230;&#8203; , k + size − 1</code>.</p>
-</div>
-<div class="paragraph">
-<p>The <code>&#8230;&#8203;-set!</code> procedures return unspecified values.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">b</span> <span class="p">(</span><span class="nf">make-bytevector</span> <span class="mi">16</span> <span class="mi">-127</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">bytevector-uint-set!</span> <span class="nv">b</span> <span class="mi">0</span> <span class="p">(</span><span class="nb">-</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">2</span> <span class="mi">128</span><span class="p">)</span> <span class="mi">3</span><span class="p">)</span>
-                      <span class="p">(</span><span class="nf">endianness</span> <span class="nv">little</span><span class="p">)</span> <span class="mi">16</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">bytevector-uint-ref</span> <span class="nv">b</span> <span class="mi">0</span> <span class="p">(</span><span class="nf">endianness</span> <span class="nv">little</span><span class="p">)</span> <span class="mi">16</span><span class="p">)</span>
- <span class="nv">=&gt;</span> <span class="mh">#xfffffffffffffffffffffffffffffffd</span>
-
-<span class="p">(</span><span class="nf">bytevector-sint-ref</span> <span class="nv">b</span> <span class="mi">0</span> <span class="p">(</span><span class="nf">endianness</span> <span class="nv">little</span><span class="p">)</span> <span class="mi">16</span><span class="p">)</span>
- <span class="nv">=&gt;</span> <span class="mi">-3</span>
-
-<span class="p">(</span><span class="nf">bytevector-&gt;u8-list</span> <span class="nv">b</span><span class="p">)</span>
- <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">253</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span>
-     <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">bytevector-uint-set!</span> <span class="nv">b</span> <span class="mi">0</span> <span class="p">(</span><span class="nb">-</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">2</span> <span class="mi">128</span><span class="p">)</span> <span class="mi">3</span><span class="p">)</span>
-                      <span class="p">(</span><span class="nf">endianness</span> <span class="nv">big</span><span class="p">)</span> <span class="mi">16</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">bytevector-uint-ref</span> <span class="nv">b</span> <span class="mi">0</span> <span class="p">(</span><span class="nf">endianness</span> <span class="nv">big</span><span class="p">)</span> <span class="mi">16</span><span class="p">)</span>
- <span class="nv">=&gt;</span> <span class="mh">#xfffffffffffffffffffffffffffffffd</span>
-
-<span class="p">(</span><span class="nf">bytevector-sint-ref</span> <span class="nv">b</span> <span class="mi">0</span> <span class="p">(</span><span class="nf">endianness</span> <span class="nv">big</span><span class="p">)</span> <span class="mi">16</span><span class="p">)</span>
- <span class="nv">=&gt;-3</span>
-
-<span class="p">(</span><span class="nf">bytevector-&gt;u8-list</span> <span class="nv">b</span><span class="p">)</span>
- <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span>
-     <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">255</span> <span class="mi">253</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(endianness endianness-symbol)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The name of <code>endianness-symbol</code> must be a symbol describing an
-endianness.  An implementation must support at least the symbols big
-and little, but may support other endianness symbols.
-<code>(endianness endianness-symbol)</code> evaluates to the symbol named
-<code>endianness-symbol</code>. Whenever one of the procedures operating on
-bytevectors accepts an endianness as an argument, that argument must
-be one of these symbols. It is a syntax violation for <code>endianness-symbol</code>
-to be anything other than <code>little</code> or <code>big</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(native-endianness)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the endianness symbol of the underlying machine.</p>
-</div>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_the_srfi_libraries">A.1.2. The (srfi &#8230;&#8203;) Libraries</h4>
-<div class="paragraph">
-<p>All the SRFI supported by <strong><em>STklos</em></strong> are placed under
-the <code>srfi</code> meta library and their name is SRFI number. Hence, to use
-the exported symbols of <strong><a href="http://srfi.schemers.org/srfi-1/srfi-1.html">SRFI-1</a></strong>, you&#8217;ll have to import the
-<code>(srfi 1)</code> library.</p>
-</div>
-<div class="paragraph">
-<p>See  <em><a href="_srfis.html">Chapter 13</a></em> for more information</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_the_stklos_libraries">A.1.3. The (stklos &#8230;&#8203;) Libraries</h4>
-<div class="paragraph">
-<p>This section describes the standard libraries which are placed under
-the <code>stklos</code> meta library. Note that <strong><em>STklos</em></strong> extensions can add
-some libraries in the <code>stklos</code> meta library; they will be described in
-the extension documentation.</p>
-</div>
-<div class="sect4">
-<h5 id="_stklos_itrie_library">(stklos itrie) Library</h5>
-<div class="paragraph">
-<p>This library was designed by Jerônimo Pellegrini
-(<a href="https://github.com/jpellegrini">@jpellegrini</a>).</p>
-</div>
-<div class="admonitionblock important">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-important" title="Important"></i>
-</td>
-<td class="content">
-Small description needed
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>The symbols exported by <code>(stklos itrie)</code> are described below:</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(alist&#8594;fxmapping alist) → fxmapping</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated fxmapping containing the associations of
-alist. It is an error if the car of any pair in alist is not a
-fixnum. If an integer k appears as the key of multiple associations in
-alist (i.e. as the car of multiple pairs), then the first association
-for k is preferred.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxmapping-&gt;alist</span>
-  <span class="p">(</span><span class="nf">alist-&gt;fxmapping</span> <span class="o">'</span><span class="p">((</span><span class="nf">1</span> <span class="o">.</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span><span class="nf">0</span> <span class="o">.</span> <span class="nv">a</span><span class="p">)</span> <span class="p">(</span><span class="nf">2</span> <span class="o">.</span> <span class="nv">c</span><span class="p">))))</span>
- <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">0</span> <span class="o">.</span> <span class="nv">a</span><span class="p">)</span> <span class="p">(</span><span class="nf">1</span> <span class="o">.</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span><span class="nf">2</span> <span class="o">.</span> <span class="nv">c</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">fxmapping-&gt;alist</span>
-  <span class="p">(</span><span class="nf">alist-&gt;fxmapping</span> <span class="o">'</span><span class="p">((</span><span class="nf">-10</span> <span class="o">.</span> <span class="s">"yar"</span><span class="p">)</span> <span class="p">(</span><span class="nf">-10</span> <span class="o">.</span> <span class="s">"worf"</span><span class="p">))))</span>
- <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">-10</span> <span class="o">.</span> <span class="s">"yar"</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxmapping k1 v1 k2 v2 &#8230;&#8203; kn vn)</code></strong><br>
-<strong><code>(constant-fxmapping k1 v1 k2 v2 &#8230;&#8203; kn vn)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Builds a fixnum map containing the integer keys <code>k1</code>, <code>k2</code>, &#8230;&#8203;, <code>kn</code>
-with respective associated values <code>v1</code>, <code>v2</code>, &#8230;&#8203; <code>vn</code>.</p>
-</div>
-<div class="paragraph">
-<p>It is an error if any of the keys is not an integer, or if the
-number of arguments is not even.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset n1 n2 &#8230;&#8203; nk)</code></strong><br>
-<strong><code>(constant-iset n1 n2 &#8230;&#8203; nk)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Builds a fixnum set containing the fixnums  <code>n1</code>, <code>n2</code>, &#8230;&#8203;, <code>nk</code>.</p>
-</div>
-<div class="paragraph">
-<p>It is an error if any of the keys is not an integer.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxmapping-adjoin fxmap k1 obj1 k2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a fxmapping containing all of the associations of <code>fxmap</code> as
-well as the associations <code>(k1, obj1)</code>, <code>(k2, obj2)</code>, &#8230;&#8203; The number of
-key/value arguments must be even.</p>
-</div>
-<div class="paragraph">
-<p>If any of the keys already have associations in <code>fxmap</code>, the old
-associations are preserved.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxmapping-&gt;alist</span> <span class="p">(</span><span class="nf">fxmapping-adjoin</span> <span class="p">(</span><span class="nf">fxmapping</span> <span class="mi">1</span> <span class="ss">'b</span><span class="p">)</span> <span class="mi">0</span> <span class="ss">'a</span><span class="p">))</span>
- <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">0</span> <span class="o">.</span> <span class="nv">a</span><span class="p">)</span> <span class="p">(</span><span class="nf">1</span> <span class="o">.</span> <span class="nv">b</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxmapping-contains? map element)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns true if <code>map</code> contains an association for <code>element</code>, and false otherwise.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxmapping-empty? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> is <code>obj</code> is an empty fxmapping and <code>#f</code> if it
-is an fxmapping containing at least one key.
-If <code>obj</code> is not an fxmapping object, an error is sginaled.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxmapping-height trie)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the height of the internal trie of an fxmap. The
-expected running time of searches and insertions is
-proportional to this value.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxmapping-keys fxmap)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the keys of <code>fxmap</code> as a list in ascending numerical order.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxmapping-keys</span> <span class="p">(</span><span class="nf">fxmapping</span> <span class="mi">137</span> <span class="ss">'a</span> <span class="mi">-24</span> <span class="ss">'b</span> <span class="mi">-5072</span> <span class="ss">'c</span><span class="p">))</span>
- <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">-5072</span> <span class="mi">-24</span> <span class="mi">137</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxmapping-mutable? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> is <code>obj</code> is a mutable fxmapping and <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxmapping-ref/default map k obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>If an association <code>(k, v)</code> occurs in <code>map</code>, returns <code>v</code>. Otherwise, returns <code>obj</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxmapping-ref/default</span> <span class="p">(</span><span class="nf">fxmapping</span> <span class="mi">36864</span> <span class="ss">'zap</span><span class="p">)</span> <span class="mi">36864</span> <span class="no">#f</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="nv">zap</span>
-<span class="p">(</span><span class="nf">fxmapping-ref/default</span> <span class="p">(</span><span class="nf">fxmapping</span> <span class="mi">0</span> <span class="ss">'a</span><span class="p">)</span> <span class="mi">36864</span> <span class="no">#f</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxmapping-size trie)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the number of key/value pairs in an fxmap.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxmapping-values fxmap)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the values of <code>fxmap</code> as a list in ascending numerical order of
-key. That is, if <code>(k1, v1), &#8230;&#8203;, (kn, vn)</code> are the associations of <code>fxmap</code>
-ordered so that <code>k1 &#8656; … &#8656; kn</code>, then <code>(fxmapping-values fxmap)</code> produces
-the list <code>(v1 &#8230;&#8203; vn)</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxmapping-values</span> <span class="p">(</span><span class="nf">fxmapping</span> <span class="mi">0</span> <span class="s">"picard"</span> <span class="mi">1</span> <span class="s">"riker"</span> <span class="mi">2</span> <span class="s">"troi"</span><span class="p">))</span>
- <span class="nv">=&gt;</span> <span class="p">(</span><span class="s">"picard"</span> <span class="s">"riker"</span> <span class="s">"troi"</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxmapping-union fxmap1 fxmap2 fxmap3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(fxmapping-intersection fxmap1 fxmap2 fxmap3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(fxmapping-difference fxmap1 fxmap2 fxmap3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(fxmapping-xor fxmap1 fxmap2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return a fxmapping whose set of associations is the union,
-intersection, asymmetric difference, or symmetric difference of the
-sets of associations of the fxmaps. Asymmetric difference is extended
-to more than two fxmappings by taking the difference between the first
-fxmapping and the union of the others. Symmetric difference is not
-extended beyond two fxmappings. When comparing associations, only the
-keys are compared. In case of duplicate keys, associations in the
-result fxmapping are drawn from the first fxmapping in which they
-appear.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxmapping-&gt;alist</span> <span class="p">(</span><span class="nf">fxmapping-union</span> <span class="p">(</span><span class="nf">fxmapping</span> <span class="mi">0</span> <span class="ss">'a</span> <span class="mi">2</span> <span class="ss">'c</span><span class="p">)</span>
-                                  <span class="p">(</span><span class="nf">fxmapping</span> <span class="mi">1</span> <span class="ss">'b</span> <span class="mi">3</span> <span class="ss">'d</span><span class="p">)))</span>
-   <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">0</span> <span class="o">.</span> <span class="nv">a</span><span class="p">)</span> <span class="p">(</span><span class="nf">1</span> <span class="o">.</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span><span class="nf">2</span> <span class="o">.</span> <span class="nv">c</span><span class="p">)</span> <span class="p">(</span><span class="nf">3</span> <span class="o">.</span> <span class="nv">d</span><span class="p">))</span>
-
- <span class="p">(</span><span class="nf">fxmapping-&gt;alist</span>
-  <span class="p">(</span><span class="nf">fxmapping-intersection</span> <span class="p">(</span><span class="nf">fxmapping</span> <span class="mi">0</span> <span class="ss">'a</span> <span class="mi">2</span> <span class="ss">'c</span><span class="p">)</span>
-                          <span class="p">(</span><span class="nf">fxmapping</span> <span class="mi">1</span> <span class="ss">'b</span> <span class="mi">2</span> <span class="ss">'c</span> <span class="mi">3</span> <span class="ss">'d</span><span class="p">)</span>
-                          <span class="p">(</span><span class="nf">fxmapping</span> <span class="mi">2</span> <span class="ss">'c</span> <span class="mi">4</span> <span class="ss">'e</span><span class="p">)))</span>
-    <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">2</span> <span class="o">.</span> <span class="nv">c</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">fxmapping-&gt;alist</span>
- <span class="p">(</span><span class="nf">fxmapping-difference</span> <span class="p">(</span><span class="nf">fxmapping</span> <span class="mi">0</span> <span class="ss">'a</span> <span class="mi">1</span> <span class="ss">'b</span> <span class="mi">2</span> <span class="ss">'c</span><span class="p">)</span>
-                       <span class="p">(</span><span class="nf">fxmapping</span> <span class="mi">2</span> <span class="s">"worf"</span><span class="p">)</span>
-                       <span class="p">(</span><span class="nf">fxmapping</span> <span class="mi">1</span> <span class="s">"data"</span><span class="p">)))</span>
-    <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">0</span> <span class="o">.</span> <span class="nv">a</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxmapping? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> is <code>obj</code> is an fxmapping object and <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset=? iset1 iset2 iset3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(iset&lt;? iset1 iset2 iset3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(iset&gt;? iset1 iset2 iset3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(iset&#8656;? iset1 iset2 iset3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(iset&gt;=? iset1 iset2 iset3 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return true when each set is
-equal (<code>iset=?</code>) or a proper subset (<code>iset&lt;?</code>), a proper
-superset (<code>iset&gt;?</code>), a subset (<code>iset&#8656;?</code>) or a superset
-(<code>iset&gt;=?</code>) of the next one.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset=?</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">3</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span>           <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">iset&lt;?</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">3</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">4</span> <span class="mi">2</span> <span class="mi">1</span> <span class="mi">3</span><span class="p">))</span>         <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">iset&gt;=?</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">3</span> <span class="mi">0</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">0</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">0</span> <span class="mi">1</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset&#8594;list set)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated list containing the members of
-<code>set</code> in increasing numerical order.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-adjoin set element1 element2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(iset-adjoin! set element1 element2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>iset-adjoin</code> procedure returns a newly allocated iset that contains
-all the values of <code>set</code>, and in addition each element unless it is
-already equal to one of the existing or newly added members.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset-adjoin</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">1</span> <span class="mi">3</span> <span class="mi">5</span><span class="p">)</span> <span class="mi">0</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">1</span> <span class="mi">3</span> <span class="mi">5</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>iset-adjoin!</code> procedure is the linear update version of
-<code>iset-adjoin</code>. In STklos, it is an alias to <code>iset-adjoin</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-any? pred? set)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns true if at least one of the elements of <code>set</code> satisfies
-<code>pred?</code>. Note that this differs from the SRFI 1 analogue because
-it does not return an element of the iset.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-any</span> <span class="nv">odd?</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">10</span> <span class="mi">2</span> <span class="mi">-3</span> <span class="mi">4</span><span class="p">))</span>    <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">iset-any</span> <span class="nv">odd?</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">10</span> <span class="mi">2</span> <span class="mi">-8</span> <span class="mi">4</span> <span class="mi">0</span><span class="p">))</span>  <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-open-interval set low high)</code></strong><br>
-<strong><code>(iset-closed-interval set low high)</code></strong><br>
-<strong><code>(iset-open-closed-interval set low high)</code></strong><br>
-<strong><code>(iset-closed-open-interval set low high)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Procedures that return a subset of <code>set</code> contained in the interval from
-<code>low</code> to <code>high</code>. The interval may be open, closed, open below and closed
-above, or open above and closed below.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset-open-interval</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">)</span> <span class="mi">2</span> <span class="mi">7</span><span class="p">))</span>        <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">3</span> <span class="mi">5</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset-closed-interval</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">)</span> <span class="mi">2</span> <span class="mi">7</span><span class="p">))</span>      <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset-open-closed-interval</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">)</span> <span class="mi">2</span> <span class="mi">7</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">3</span> <span class="mi">5</span> <span class="mi">7</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset-closed-open-interval</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">)</span> <span class="mi">2</span> <span class="mi">7</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">3</span> <span class="mi">5</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-contains? set element)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns true if <code>set</code> contains <code>element</code>, and false otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-copy set)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated iset containing the elements of <code>set</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-count pred? set)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the number of elements of <code>set</code> that satisfy
-<code>pred?</code> as an exact integer.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-count</span> <span class="nv">odd?</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">10</span> <span class="mi">2</span> <span class="mi">1</span> <span class="mi">-3</span> <span class="mi">9</span> <span class="mi">4</span> <span class="mi">3</span><span class="p">))</span>  <span class="nv">=&gt;</span> <span class="mi">4</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-delete set element1 element2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(iset-delete! set element1 element2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(iset-delete-all set element-list)</code></strong><br>
-<strong><code>(iset-delete-all! set element-list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>iset-delete</code> procedure returns a newly allocated iset containing
-all the values of <code>set</code> except for any that are equal to one or more of
-the elements. Any element that is not equal to some member of the <code>set</code>
-is ignored.</p>
-</div>
-<div class="paragraph">
-<p>The <code>iset-delete!</code> procedure is the same as <code>iset-delete</code>.
-is permitted to mutate and return the iset argument rather than
-allocating a new iset&#8201;&#8212;&#8201;but in STklos, it doesn&#8217;t.</p>
-</div>
-<div class="paragraph">
-<p>The <code>iset-delete-all</code> and <code>iset-delete-all!</code> procedures are the same as
-<code>iset-delete</code> and <code>iset-delete!</code>, except that they accept a single
-argument which is a list of elements to be deleted.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset-delete</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">1</span> <span class="mi">3</span> <span class="mi">5</span><span class="p">)</span> <span class="mi">3</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">5</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset-delete-all</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">)</span>
-                             <span class="o">'</span><span class="p">(</span><span class="nf">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">)))</span>   <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-delete-min set)</code></strong><br>
-<strong><code>(iset-delete-min! set)</code></strong><br>
-<strong><code>(iset-delete-max set)</code></strong><br>
-<strong><code>(iset-delete-max! set)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns two values: the smallest/largest integer n in <code>set</code> and a
-newly-allocated iset that contains all elements of <code>set</code> except for
-n. It is an error if iset is empty.</p>
-</div>
-<div class="paragraph">
-<p>The <code>iset-delete-min!</code> and <code>iset-delete-max!</code> procedures are the same as
-<code>iset-delete-min</code> and <code>iset-delete-max</code>, respectively, except that they
-are permitted to mutate and return the <code>set</code> argument instead of
-allocating a new iset. In STklos, they do not.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">let-values</span> <span class="p">(((</span><span class="nf">n</span> <span class="nv">set</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset-delete-min</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nb">list</span> <span class="nv">n</span> <span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="nv">set</span><span class="p">)))</span>
-  <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">2</span> <span class="p">(</span><span class="nf">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">let-values</span> <span class="p">(((</span><span class="nf">n</span> <span class="nv">set</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset-delete-max</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nb">list</span> <span class="nv">n</span> <span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="nv">set</span><span class="p">)))</span>
-  <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">11</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-disjoint? iset1 iset2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>iset1</code> and <code>iset2</code> have no elements in common and <code>#f</code> otherwise.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-disjoint?</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">1</span> <span class="mi">3</span> <span class="mi">5</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">0</span> <span class="mi">2</span> <span class="mi">4</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">iset-disjoint?</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">1</span> <span class="mi">3</span> <span class="mi">5</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-empty? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> is <code>obj</code> is an empty iset and <code>#f</code> if it
-is an iset containing at least one key.
-If <code>obj</code> is not an iset object, an error is sginaled.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-every? predicate iset)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if every element of <code>set</code> satisfies <code>predicate</code>, or <code>#f</code>
-otherwise. Note that this differs from the SRFI 1 analogue because it
-does not return an element of the iset.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-every?</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">&lt;</span> <span class="nv">x</span> <span class="mi">5</span><span class="p">))</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">-2</span> <span class="mi">-1</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">iset-every?</span> <span class="nv">positive?</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">-2</span> <span class="mi">-1</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span>            <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-filter predicate set)</code></strong><br>
-<strong><code>(iset-filter! predicate set)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated iset containing just the elements
-of <code>set</code> that satisfy <code>predicate</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset-filter</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">&lt;</span> <span class="nv">x</span> <span class="mi">6</span><span class="p">))</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">)))</span>
- <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">3</span> <span class="mi">5</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>iset-filter!</code> is allowed to modify <code>set</code>, but in STklos it does not.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-find predicate set failure)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the smallest element of <code>set</code> that satisfies predicate, or
-the result of invoking <code>failure</code> with no arguments if there is none.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-find</span> <span class="nv">positive?</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">-1</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="no">#f</span><span class="p">))</span>  <span class="nv">=&gt;</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">iset-find</span> <span class="nv">zero?</span>     <span class="p">(</span><span class="nf">iset</span> <span class="mi">-1</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="no">#f</span><span class="p">))</span>  <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-fold proc nil set)</code></strong><br>
-<strong><code>(iset-fold-right proc nil set)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Invokes <code>proc</code> on each member of <code>set</code> in increasing/decreasing numerical
-order, passing the result of the previous invocation as a second
-argument. For the first invocation, <code>nil</code> is used as the second
-argument. Returns the result of the last invocation, or <code>nil</code> if there
-was no invocation.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-fold</span> <span class="nv">+</span> <span class="mi">0</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">))</span>            <span class="nv">=&gt;</span> <span class="mi">28</span>
-<span class="p">(</span><span class="nf">iset-fold</span> <span class="nv">cons</span> <span class="o">'</span><span class="p">()</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">))</span>       <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">11</span> <span class="mi">7</span> <span class="mi">5</span> <span class="mi">3</span> <span class="mi">2</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iset-fold-right</span> <span class="nv">cons</span> <span class="o">'</span><span class="p">()</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-for-each proc set)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Applies <code>proc</code> to <code>set</code> in increasing numerical order, discarding the
-returned values. Returns an unspecified result.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">sum</span> <span class="mi">0</span><span class="p">))</span>
-  <span class="p">(</span><span class="nf">iset-for-each</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="k">set!</span> <span class="nv">sum</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">sum</span> <span class="nv">x</span><span class="p">)))</span>
-                 <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">))</span>
-  <span class="nv">sum</span><span class="p">)</span>
-<span class="nv">=&gt;</span> <span class="mi">28</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-height trie)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the height of the internal trie of an iset. The
-expected running time of searches and insertions is
-proportional to this value.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-map proc set)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Applies <code>proc</code> to each element of <code>set</code> in arbitrary order and returns a
-newly allocated iset, created as if by iset, which contains the
-results of the applications. It is an error if <code>proc</code> returns a value
-that is not an exact integer.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-map</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">*</span> <span class="mi">10</span> <span class="nv">x</span><span class="p">))</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">1</span> <span class="mi">11</span> <span class="mi">21</span><span class="p">))</span>
-     <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">10</span> <span class="mi">110</span> <span class="mi">210</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iset-map</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">quotient</span> <span class="nv">x</span> <span class="mi">2</span><span class="p">))</span>
-         <span class="p">(</span><span class="nf">iset</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">))</span>
- <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">0</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-min set)</code></strong><br>
-<strong><code>(iset-max set)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the smallest or largest integer in <code>set</code>, or <code>#f</code> if there is none.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-min</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mi">2</span>
-<span class="p">(</span><span class="nf">iset-max</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mi">11</span>
-<span class="p">(</span><span class="nf">iset-max</span> <span class="p">(</span><span class="nf">iset</span><span class="p">))</span>            <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-member element set default)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the element of <code>set</code> that is equal to <code>element</code>. If <code>element</code> is not a member
-of <code>set</code>, then <code>default</code> is returned.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-mutable? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> is <code>obj</code> is a mutable iset and <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-partition predicate set)</code></strong><br>
-<strong><code>(iset-partition! predicate set)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns two values: a newly allocated iset that contains just the
-elements of <code>set</code> that satisfy <code>predicate</code> and another newly allocated
-iset that contains just the elements of <code>set</code> that do not satisfy
-<code>predicate</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">let-values</span> <span class="p">(((</span><span class="nf">low</span> <span class="nv">high</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset-partition</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">&lt;</span> <span class="nv">x</span> <span class="mi">6</span><span class="p">))</span>
-                                         <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nb">list</span> <span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="nv">low</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="nv">high</span><span class="p">)))</span>
- <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">2</span> <span class="mi">3</span> <span class="mi">5</span><span class="p">)</span> <span class="p">(</span><span class="nf">7</span> <span class="mi">11</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-remove predicate set)</code></strong><br>
-<strong><code>(iset-remove! predicate set)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated <code>set</code> containing just the elements of <code>set</code>
-that do not satisfy <code>predicate</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset-remove</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">&lt;</span> <span class="nv">x</span> <span class="mi">6</span><span class="p">))</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">)))</span>
- <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">7</span> <span class="mi">11</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Iset-remove!</code> is allowed to modify <code>set</code>, but in STklos it does not.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-search set element failure success)</code></strong><br>
-<strong><code>(iset-search! iset element failure success)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Set</code> is searched from lowest to highest value for <code>element</code>. If it
-is not found, then the <code>failure</code> procedure is tail-called with two
-continuation arguments, <code>insert</code> and <code>ignore</code>, and is expected to
-tail-call one of them. If <code>element</code> is found, then the <code>success</code> procedure
-is tail-called with the matching element of <code>set</code> and two
-continuations, <code>update</code> and <code>remove</code>, and is expected to tail-call one of
-them.</p>
-</div>
-<div class="paragraph">
-<p>The effects of the continuations are as follows (where <code>obj</code> is any
-Scheme object):</p>
-</div>
-<div class="paragraph">
-<p>Invoking <code>(insert obj)</code> causes <code>element</code> to be inserted into iset.</p>
-</div>
-<div class="paragraph">
-<p>Invoking <code>(ignore obj)</code> causes <code>set</code> to remain unchanged.</p>
-</div>
-<div class="paragraph">
-<p>Invoking <code>(update new-element obj)</code> causes <code>new-element</code> to be
-inserted into <code>set</code> in place of <code>element</code>.</p>
-</div>
-<div class="paragraph">
-<p>Invoking <code>(remove obj)</code> causes the matching element of <code>set</code> to
-be removed from it.</p>
-</div>
-<div class="paragraph">
-<p>In all cases, two values are returned: an iset and <code>obj</code>.</p>
-</div>
-<div class="paragraph">
-<p>The <code>iset-search!</code> procedure is the same as <code>iset-search</code>, except that it
-is permitted to mutate and return the iset argument rather than
-allocating a new iset. In STklos, it does not.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-size set)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the number of fixnums in <code>set</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-unfold stop? mapper successor seed)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Create a newly allocated iset as if by iset. If the result of
-applying the predicate <code>stop?</code> to <code>seed</code> is true, return the
-iset. Otherwise, apply the procedure <code>mapper</code> to <code>seed</code>. The
-value that <code>mapper</code> returns is added to the iset. Then get a
-new seed by applying the procedure <code>successor</code> to <code>seed</code>, and
-repeat this algorithm.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset-unfold</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">n</span><span class="p">)</span> <span class="p">(</span><span class="nb">&gt;</span> <span class="nv">n</span> <span class="mi">64</span><span class="p">))</span>
-                         <span class="nv">values</span>
-                         <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">n</span><span class="p">)</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">n</span> <span class="mi">2</span><span class="p">))</span>
-                         <span class="mi">2</span><span class="p">))</span>
-<span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">4</span> <span class="mi">8</span> <span class="mi">16</span> <span class="mi">32</span> <span class="mi">64</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset-union iset1 iset2 iset3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(iset-intersection iset1 iset2 iset3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(iset-difference iset1 iset2 iset3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(iset-xor iset1 iset2)</code></strong><br>
-<strong><code>(iset-union! iset1 iset2 iset3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(iset-intersection! iset1 iset2 iset3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(iset-difference! iset1 iset2 iset3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(iset-xor! iset1 iset2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return a newly allocated iset that is the union, intersection,
-asymmetric difference, or symmetric difference of the
-isets. Asymmetric difference is extended to more than two isets by
-taking the difference between the first iset and the union of the
-others. Symmetric difference is not extended beyond two
-isets. Elements in the result iset are drawn from the first iset in
-which they appear.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset-union</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">0</span> <span class="mi">1</span> <span class="mi">3</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">0</span> <span class="mi">2</span> <span class="mi">4</span><span class="p">)))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset-intersection</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">0</span> <span class="mi">1</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">0</span> <span class="mi">2</span> <span class="mi">4</span><span class="p">)))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">4</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset-difference</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">0</span> <span class="mi">1</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">0</span> <span class="mi">4</span><span class="p">)))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">3</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">iset-xor</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">0</span> <span class="mi">1</span> <span class="mi">3</span><span class="p">)</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">0</span> <span class="mi">2</span> <span class="mi">4</span><span class="p">)))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The procedures whose name end in <code>!</code> are linear update procedures.
-The specification says they may or may not alter their argument. In
-STklos they do not: in fact, they are aliases to the pure functional
-versions.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iset? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> is <code>obj</code> is an iset and <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(isubset= set k)</code></strong><br>
-<strong><code>(isubset&lt; set k)</code></strong><br>
-<strong><code>(isubset&#8656; set k)</code></strong><br>
-<strong><code>(isubset&gt; set k)</code></strong><br>
-<strong><code>(isubset&gt;= set k)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Procedures that return an integer set containing the elements of <code>set</code>
-that are equal to, less than, less than or equal to, greater than, or
-greater than or equal to <code>k</code>. Note that the result of <code>isubset=</code> contains
-at most one element.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">isubset=</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">)</span> <span class="mi">7</span><span class="p">))</span>  <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">7</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">isubset&lt;</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">)</span> <span class="mi">7</span><span class="p">))</span>  <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">3</span> <span class="mi">5</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">isubset&gt;=</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">7</span> <span class="mi">11</span><span class="p">)</span> <span class="mi">7</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">7</span> <span class="mi">11</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(list&#8594;iset list)</code></strong><br>
-<strong><code>(list&#8594;iset! set list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated iset, created as if by iset, that contains
-the elements of <code>list</code>. Duplicate elements are omitted.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">list-&gt;iset</span> <span class="o">'</span><span class="p">(</span><span class="nf">-3</span> <span class="mi">-1</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">))</span> <span class="nv">=</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">-3</span> <span class="mi">-1</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>list&#8594;iset!</code> may mutate <code>set</code> rather than allocating a new iset,
-but in STklos it does not.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">list-&gt;iset!</span> <span class="p">(</span><span class="nf">iset</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span><span class="p">)</span> <span class="o">'</span><span class="p">(</span><span class="nf">-3</span> <span class="mi">-1</span> <span class="mi">0</span><span class="p">)))</span> <span class="err">⇒</span> <span class="p">(</span><span class="nf">-3</span> <span class="mi">-1</span> <span class="mi">0</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-range-iset start end [step])</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated iset specified by an inclusive lower bound
-<code>start</code>, an exclusive upper bound `e`nd, and a step value (default 1), all
-of which are exact integers. This constructor produces an iset
-containing the sequence</p>
-</div>
-<div class="paragraph">
-<p><code>start, (+ start step), (+ start (* 2 step)), &#8230;&#8203;, (+ start (* n step))</code>,</p>
-</div>
-<div class="paragraph">
-<p>where <code>n</code> is the greatest integer such that <code>(+ start (* n step)) &lt; end</code>
-if <code>step</code> is positive, or such that <code>(+ start (* n step)) &gt; end</code> if <code>step</code>
-is negative. It is an error if <code>step</code> is zero.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">make-range-iset</span> <span class="mi">25</span> <span class="mi">30</span><span class="p">))</span>    <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">25</span> <span class="mi">26</span> <span class="mi">27</span> <span class="mi">28</span> <span class="mi">29</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iset-&gt;list</span> <span class="p">(</span><span class="nf">make-range-iset</span> <span class="mi">-10</span> <span class="mi">10</span> <span class="mi">6</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">-10</span> <span class="mi">-4</span> <span class="mi">2</span> <span class="mi">8</span><span class="p">)</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect4">
-<h5 id="_stklos_preproc_library">(stklos preproc) Library</h5>
-<div class="admonitionblock important">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-important" title="Important"></i>
-</td>
-<td class="content">
-This library  must be described
-</td>
-</tr>
-</table>
-</div>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_stklos_compiler">A.2. STklos compiler</h3>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> always compiles code into bytecode before executing&#8201;&#8212;&#8201;it
-is not an interpreter, but a bytecode compiler with an ad-hoc virtual
-machine. The compiler is available as a standalone tool, to be
-used in shell scripts, and also through primitive procedures.</p>
-</div>
-<div class="paragraph">
-<p>The command <code>stklos-compile</code> compiles a file into <strong><em>STklos</em></strong> bytecode.
-Please refer to its manpage for more information.</p>
-</div>
-<div class="paragraph">
-<p>Compiling files from Scheme programs can be done with the
-<code>compile-file</code> procedure.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(compile-file input output)</code></strong><br>
-<strong><code>(compile-file input output :prepend cmds)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Compiles the file whose name is <code>input</code> into a bytecode executable
-whose name is <code>output</code> (if <code>compile-file</code> fails, <code>output</code> file is
-deleted).</p>
-</div>
-<div class="paragraph">
-<p>If the <code>:prepend</code> keyword argument is given, it must be a list of
-expressions, which will be compiled before the rest of the input
-file. This can be used to define variables that the compiled program
-will use (but it does not affect the compiler itself).</p>
-</div>
-<div class="paragraph">
-<p>This procedure will not set the executable bit on the generated file.</p>
-</div>
-<div class="sect3">
-<h4 id="_compiler_flags">A.2.1. Compiler flags</h4>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> compiler behaviour can be customized by several parameters. Those parameters are described below.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(compiler:time-display)</code></strong><br>
-<strong><code>(compiler:time-display bool)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This parameter controls if the time used for compiling a file must be
-displayed or not. It defaults to <code>#t</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(compiler:gen-line-number)</code></strong><br>
-<strong><code>(compiler:gen-line-number bool)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This parameter controls if the compiled code must embed indications of
-the file location of the  of the source expressions. When set, this
-parameter makes programs slower and bigger. However, it can be useful
-when debugging a program. This parameter defaults to <code>#f</code> (but is set to
-<code>`#t</code> when <strong><em>STklos</em></strong> is launched in debug mode).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(compiler:show-assembly-code)</code></strong><br>
-<strong><code>(compiler:show-assembly-code bool)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This parameter controls if the object files produced by the <strong><em>STklos</em></strong> compiler
-code must embed a readable version of the code. The code is placed at the beginning
-of the produced file. This parameter defaults to <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(compiler:inline-common-functions)</code></strong><br>
-<strong><code>(compiler:inline-common-functions bool)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This parameter controls if the compiler must try to inline the most common Scheme
-primitives (simple arithmetic, main list or vector functions, &#8230;&#8203;). Code produced
-when this parameter is set is more efficient. Note that the compiler can sometimes be
-misleaded if those functions are redefined, hence the existence of this parameter.
-<code>compiler:inline-common-functions</code> is set by default to <code>#t</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="nv">&gt;</span> <span class="p">(</span><span class="nf">compiler:inline-common-functions</span> <span class="no">#t</span><span class="p">)</span>
-<span class="nv">&gt;</span> <span class="p">(</span><span class="nf">disassemble-expr</span> <span class="o">'</span><span class="p">(</span><span class="k">begin</span> <span class="p">(</span><span class="nb">car</span> <span class="o">'</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">))</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">a</span> <span class="mi">1</span><span class="p">))</span> <span class="no">#t</span><span class="p">)</span>
-
-<span class="mi">000</span><span class="nv">:</span>  <span class="nv">CONSTANT</span>             <span class="mi">0</span>
-<span class="mi">002</span><span class="nv">:</span>  <span class="nv">IN-CAR</span>
-<span class="mi">003</span><span class="nv">:</span>  <span class="nv">GLOBAL-REF</span>           <span class="mi">1</span>
-<span class="mi">005</span><span class="nv">:</span>  <span class="nv">IN-INCR</span>
-<span class="mi">006</span><span class="nv">:</span>
-
-<span class="nv">Constants:</span>
-<span class="mi">0</span><span class="nv">:</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>
-<span class="mi">1</span><span class="nv">:</span> <span class="nv">a</span></code></pre>
-</div>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="nv">&gt;</span> <span class="p">(</span><span class="nf">compiler:inline-common-functions</span> <span class="no">#f</span><span class="p">)</span>
-<span class="nv">&gt;</span> <span class="p">(</span><span class="nf">disassemble-expr</span> <span class="o">'</span><span class="p">(</span><span class="k">begin</span> <span class="p">(</span><span class="nb">car</span> <span class="o">'</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">))</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">a</span> <span class="mi">1</span><span class="p">))</span> <span class="no">#t</span><span class="p">)</span>
-
-<span class="mi">000</span><span class="nv">:</span>  <span class="nv">PREPARE-CALL</span>
-<span class="mi">001</span><span class="nv">:</span>  <span class="nv">CONSTANT-PUSH</span>        <span class="mi">0</span>
-<span class="mi">003</span><span class="nv">:</span>  <span class="nv">GREF-INVOKE</span>          <span class="mi">1</span> <span class="mi">1</span>
-<span class="mi">006</span><span class="nv">:</span>  <span class="nv">PREPARE-CALL</span>
-<span class="mi">007</span><span class="nv">:</span>  <span class="nv">GLOBAL-REF-PUSH</span>      <span class="mi">2</span>
-<span class="mi">009</span><span class="nv">:</span>  <span class="nv">ONE-PUSH</span>
-<span class="mi">010</span><span class="nv">:</span>  <span class="nv">GREF-INVOKE</span>          <span class="mi">3</span> <span class="mi">2</span>
-<span class="mi">013</span><span class="nv">:</span>
-
-<span class="nv">Constants:</span>
-<span class="mi">0</span><span class="nv">:</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>
-<span class="mi">1</span><span class="nv">:</span> <span class="nv">car</span>
-<span class="mi">2</span><span class="nv">:</span> <span class="nv">a</span>
-<span class="mi">3</span><span class="nv">:</span> <span class="nv">+</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(compiler:keep-formals)</code></strong><br>
-<strong><code>(compiler:keep-formals bool)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This parameter controls if the formal parameters of a user procedure is kept
-at runtime. The formal parameters can be accessed with the primitive
-&lt;&lt;"procedure-formals"&gt;&gt;.
-Default value for <code>compiler:keep-formals</code> is <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="nv">&gt;</span> <span class="p">(</span><span class="nf">compiler:keep-formals</span> <span class="no">#f</span><span class="p">)</span>
-<span class="nv">&gt;</span> <span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">foo</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span> <span class="nv">+</span> <span class="nv">a</span> <span class="nv">b</span> <span class="mi">1</span><span class="p">))</span>
-<span class="nv">&gt;</span> <span class="nv">foo</span>
-<span class="o">#</span><span class="p">[</span><span class="nf">closure</span> <span class="nv">foo</span><span class="p">]</span>
-<span class="nv">&gt;</span> <span class="p">(</span><span class="nf">procedure-formals</span> <span class="nv">foo</span><span class="p">)</span>
-<span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="nv">&gt;</span> <span class="p">(</span><span class="nf">compiler:keep-formals</span> <span class="no">#t</span><span class="p">)</span>
-<span class="nv">&gt;</span> <span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">foo</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span> <span class="nv">+</span> <span class="nv">a</span> <span class="nv">b</span> <span class="mi">1</span><span class="p">))</span>
-<span class="nv">&gt;</span> <span class="nv">foo</span>
-<span class="o">#</span><span class="p">[</span><span class="nf">closure</span> <span class="nv">foo</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)]</span>
-<span class="nv">&gt;</span> <span class="p">(</span><span class="nf">procedure-formals</span> <span class="nv">foo</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(compiler:keep-source)</code></strong><br>
-<strong><code>(compiler:keep-source bool)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This parameter controls if the source of a user procedure is kept
-at runtime. The source of a procedure can be accessed with the primitive
-&lt;&lt;"procedure-source"&gt;&gt;.
-Default value for <code>compiler:keep-source</code> is <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="nv">&gt;</span> <span class="p">(</span><span class="nf">compiler:keep-source</span> <span class="no">#t</span><span class="p">)</span>
-<span class="nv">&gt;</span> <span class="p">(</span><span class="k">define</span> <span class="nv">fib</span>
-     <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">n</span><span class="p">)</span> <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">&lt;</span> <span class="nv">n</span> <span class="mi">2</span><span class="p">)</span> <span class="nv">n</span> <span class="p">(</span><span class="nb">+</span> <span class="p">(</span><span class="nf">fib</span> <span class="p">(</span><span class="nb">-</span> <span class="nv">n</span> <span class="mi">1</span><span class="p">))</span> <span class="p">(</span><span class="nf">fib</span> <span class="p">(</span><span class="nb">-</span> <span class="nv">n</span> <span class="mi">2</span><span class="p">))))))</span>
-<span class="nv">&gt;</span> <span class="p">(</span><span class="nf">pretty-print</span> <span class="p">(</span><span class="nf">procedure-source</span> <span class="nv">fib</span><span class="p">))</span>
-<span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">n</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">&lt;</span> <span class="nv">n</span> <span class="mi">2</span><span class="p">)</span>
-    <span class="nv">n</span>
-    <span class="p">(</span><span class="nb">+</span> <span class="p">(</span><span class="nf">fib</span> <span class="p">(</span><span class="nb">-</span> <span class="nv">n</span> <span class="mi">1</span><span class="p">))</span>
-       <span class="p">(</span><span class="nf">fib</span> <span class="p">(</span><span class="nb">-</span> <span class="nv">n</span> <span class="mi">2</span><span class="p">)))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(compiler:unroll-iterations)</code></strong><br>
-<strong><code>(compiler:unroll-iterations n)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This parameter controls the number of iterations to be unrolled in
-loops. Currently, only <code>repeat</code> loops are unrolled. The argument
-<code>n</code> must be a positive integer.</p>
-</div>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_bibliography.html">Bibliography</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="FDL.html">Appendix B: GNU Free Documentation License</a> →</p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. In fact <code>define-module</code> on a given name defines a new module only the first time it is invoked on this name. By this way, interactively reloading a module does not define a new entity, and the other modules which use it are not altered.
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. This transcript uses the default toplevel loop             which displays the name of the current module in the evaluator             prompt.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Under Unix, you can simply connect to a listening socket with the <code>telnet</code> of <code>netcat</code> command. For the given example, this can be achieved with <code>netcat localhost 12345</code>
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. Port 13, if open, can be used for testing: making a connection to it permits to know the distant system&#8217;s idea of the time of day.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. The "pattern matching compiler" has been written by Jean-Marie Geffroy and is part of the Manuel Serrano&#8217;s Bigloo compiler since several years <a href="_bibliography.html#Bigloo">[Bigloo]</a>
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. This section is an adaptation of Jeff Dalton&#8217;s (<a href="mailto:J.Dalton@ed.ac.uk">J.Dalton@ed.ac.uk</a>) "<strong><em>Brief introduction to CLOS</em></strong>" which can be found at <a href="http://www.aiai.ed.ac.uk/~jeff/clos-guide.html" class="bare">http://www.aiai.ed.ac.uk/~jeff/clos-guide.html</a>
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_introduction.html b/doc/HTML/_introduction.html
deleted file mode 100644
index ec964e460..000000000
--- a/doc/HTML/_introduction.html
+++ /dev/null
@@ -1,1045 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<style>
-pre.rouge table td { padding: 5px; }
-pre.rouge table pre { margin: 0; }
-pre.rouge .c, pre.rouge .ch, pre.rouge .cd, pre.rouge .cpf {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cm {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .c1 {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cp {
-  color: #75715e;
-  font-weight: bold;
-}
-pre.rouge .cs {
-  color: #75715e;
-  font-weight: bold;
-  font-style: italic;
-}
-pre.rouge .err {
-  color: #960050;
-  background-color: #1e0010;
-}
-pre.rouge .gi {
-  color: #ffffff;
-  background-color: #324932;
-}
-pre.rouge .gd {
-  color: #ffffff;
-  background-color: #493131;
-}
-pre.rouge .ge {
-  color: #000000;
-  font-style: italic;
-}
-pre.rouge .gr {
-  color: #aa0000;
-}
-pre.rouge .gt {
-  color: #aa0000;
-}
-pre.rouge .gh {
-  color: #999999;
-}
-pre.rouge .go {
-  color: #888888;
-}
-pre.rouge .gp {
-  color: #555555;
-}
-pre.rouge .gs {
-  font-weight: bold;
-}
-pre.rouge .gu {
-  color: #aaaaaa;
-}
-pre.rouge .k, pre.rouge .kv {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kc {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kd {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kp {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kr {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kt {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kn {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .ow {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .o {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .mf {
-  color: #ae81ff;
-}
-pre.rouge .mh {
-  color: #ae81ff;
-}
-pre.rouge .il {
-  color: #ae81ff;
-}
-pre.rouge .mi {
-  color: #ae81ff;
-}
-pre.rouge .mo {
-  color: #ae81ff;
-}
-pre.rouge .m, pre.rouge .mb, pre.rouge .mx {
-  color: #ae81ff;
-}
-pre.rouge .se {
-  color: #ae81ff;
-}
-pre.rouge .sa {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .sb {
-  color: #e6db74;
-}
-pre.rouge .sc {
-  color: #e6db74;
-}
-pre.rouge .sd {
-  color: #e6db74;
-}
-pre.rouge .s2 {
-  color: #e6db74;
-}
-pre.rouge .sh {
-  color: #e6db74;
-}
-pre.rouge .si {
-  color: #e6db74;
-}
-pre.rouge .sx {
-  color: #e6db74;
-}
-pre.rouge .sr {
-  color: #e6db74;
-}
-pre.rouge .s1 {
-  color: #e6db74;
-}
-pre.rouge .ss {
-  color: #e6db74;
-}
-pre.rouge .s, pre.rouge .dl {
-  color: #e6db74;
-}
-pre.rouge .na {
-  color: #a6e22e;
-}
-pre.rouge .nc {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nd {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .ne {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nf, pre.rouge .fm {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .no {
-  color: #66d9ef;
-}
-pre.rouge .bp {
-  color: #f8f8f2;
-}
-pre.rouge .nb {
-  color: #f8f8f2;
-}
-pre.rouge .ni {
-  color: #f8f8f2;
-}
-pre.rouge .nn {
-  color: #f8f8f2;
-}
-pre.rouge .vc {
-  color: #f8f8f2;
-}
-pre.rouge .vg {
-  color: #f8f8f2;
-}
-pre.rouge .vi {
-  color: #f8f8f2;
-}
-pre.rouge .nv, pre.rouge .vm {
-  color: #f8f8f2;
-}
-pre.rouge .w {
-  color: #f8f8f2;
-}
-pre.rouge .nl {
-  color: #f8f8f2;
-  font-weight: bold;
-}
-pre.rouge .nt {
-  color: #f92672;
-}
-pre.rouge {
-  color: #f8f8f2;
-  background-color: #49483e;
-}
-</style>
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_introduction" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html"><span class="toc-current">1. Introduction</span></a>
-<ul class="sectlevel2">
-<li><a href="_introduction.html#_overview_of_stklos">1.1. Overview of <strong><em>STklos</em></strong></a>
-</li>
-<li><a href="_introduction.html#_lexical_conventions">1.2. Lexical Conventions</a>
-</li>
-</ul>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_introduction">1. Introduction</h2>
-<div class="sectionbody">
-<div class="sect2">
-<h3 id="_overview_of_stklos">1.1. Overview of <strong><em>STklos</em></strong></h3>
-<div class="paragraph">
-<p>
-
-<strong><em>STklos</em></strong> is the successor of <strong><em>STk</em></strong> <a href="_bibliography.html#STk">[STk]</a>,
-a Scheme interpreter which was tightly
-connected to the Tk graphical toolkit <a href="_bibliography.html#Tk">[Tk]</a>.
-<strong><em>STk</em></strong> had an object layer which was called <strong><em>STklos</em></strong>. At this
-time, <strong><em>STk</em></strong> was used to denote the base Scheme interpreter and
-<strong><em>STklos</em></strong> was used to denote its object layer, which was an
-extension.  For instance, when programming a GUI application,
-a user could access the widgets at the (low) Tk level, or access
-them using a neat hierarchy of classes wrapped in <strong><em>STklos</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p>Since the object layer is now more closely integrated with
-the language, the new system has been renamed <strong><em>STklos</em></strong> and
-<strong><em>STk</em></strong> is now used to designate the old system.</p>
-</div>
-<div class="paragraph">
-<p>
-<strong>Compatibility with STk</strong>:<br>
-<strong><em>STklos</em></strong> has been
-completely rewritten and as a consequence, due to new
-implementation choices, old <strong><em>STk</em></strong> programs are not fully
-compatible with the new system. However, these changes are very
-minor and adapting a <strong><em>STk</em></strong> program for the <strong><em>STklos</em></strong> system is
-generally quite easy. The only programs which need heavier work
-are programs which use Tk without objects, since the new
-preferred GUI system is now based on GTK+
-<a href="_bibliography.html#GTK">[GTK]</a>. Programmers used to GUI programming using
-<strong><em>STklos</em></strong> classes will find that both system, even if not
-identical in every points, share the same philosophy.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_lexical_conventions">1.2. Lexical Conventions</h3>
-<div class="sect3">
-<h4 id="_identifiers">1.2.1. Identifiers</h4>
-<div class="paragraph">
-<p>
-
-
-
-
-
-
-In <strong><em>STklos</em></strong>, by default, identifiers which start (or end) with a colon
-&#8220;:&#8221; are considered as keywords.  For instance <code>:foo</code> and
-<code>bar:</code> are <strong><em>STklos</em></strong> keywords, but <code>not:key</code> is not a
-keyword. Alternatively, to be compatible with other Scheme implementations,
-the notation <code>#:foo</code> is also available to denote the keyword of name
-<code>foo</code>. See <em><a href="_standard_procedures.html#_keywords">Section 4.14</a></em> for more information.</p>
-</div>
-<div class="paragraph">
-<p>The reader behavior, concerning keywords, can also be changed by the
-following directives:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>the <code>#!keyword-colon-position-none</code> tells the reader
-that colon in a symbol should not be interpreted as a keyword;</p>
-</li>
-<li>
-<p>the <code>#!keyword-colon-position-before</code> tells the reader
-that a symbol starting with a colon should be interpreted as a keyword;</p>
-</li>
-<li>
-<p>the <code>#!keyword-colon-position-after</code>  tells the reader
-that a symbol ending with a colon should be interpreted as
-a keyword;</p>
-</li>
-<li>
-<p>the <code>#!keyword-colon-position-both</code> tells the reader
-that a symbol starting or ending with a colon should be interpreted
-as a keyword</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>In any case, the notation <code>#:key</code> is always read as a keyword.</p>
-</div>
-<div class="paragraph">
-<p>By default, <strong><em>STklos</em></strong> is case sensitive as specified by R7RS. This
-behavior can be changed by</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>the <code>--case-insensitive</code> option used for the commands <code>stklos</code> or
-<code>stklos-compile</code></p>
-</li>
-<li>
-<p>the <code>&#35;!fold-case</code> directive which can appear anywhere comments are permitted but must be followed by a delimiter. This directive (and the <code>&#35;!no-fold-case</code>) are treated as comments, except that they affect the reading of subsequent data from the same port. The <code>&#35;!fold-case</code> directive causes subsequent identifiers and character names to be case-folded as if by <code>string-foldcase</code>. It has no effect on character literals. The <code>&#35;!no-fold-case</code> directive causes the reader to a non-folding behavior.</p>
-</li>
-</ul>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_comments">1.2.2. Comments</h4>
-<div class="paragraph">
-<p>
-
-
-There are four types of comments in <strong><em>STklos</em></strong>:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>a semicolon <code>;</code> indicates the start of a comment. This kind of
-comment extends to the end of the line (as described in R<sup>5</sup>RS).</p>
-</li>
-<li>
-<p>multi-lines comment use the classical Lisp convention: a comment begins with <code>&#35;|</code> and ends with <code>|&#35;</code>.  This form of comment is now defined by <strong><a href="http://srfi.schemers.org/srfi-30/srfi-30.html">SRFI-30</a></strong> (<em>Nested Multi-line Comments</em>).</p>
-</li>
-<li>
-<p>a sharp sign followed by a semicolon <code>&#35;;</code> comments the next Scheme
-expression. This is useful to comment a piece of code which spans
-multiple lines</p>
-</li>
-<li>
-<p>comments can also be introduced by <code>&#35;!</code>.  Such a comment extends to
-the end of the line which introduces it. This extension is particularly
-useful for building <strong><em>STklos</em></strong> scripts. On most Unix implementations,
-if the first line of a script looks like this:</p>
-</li>
-</ul>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>#!/usr/bin/env  stklos</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>then the script can be started directly as if it was a binary
-program. <strong><em>STklos</em></strong> is loaded behind the scene and
-executes the script as a Scheme program. This form is compatible with
-the notation introduced in <strong><a href="http://srfi.schemers.org/srfi-22/srfi-22.html">SRFI-22</a></strong> (<em>Running Scheme Scripts on Unix</em>).</p>
-</div>
-<div class="paragraph">
-<p>Note that, as a special case, that the sequences <code>&#35;!key</code>,
-<code>&#35;!optional</code> and <code>&#35;!rest</code> are respectively converted
-to the <strong><em>STklos</em></strong> keywords <code>&#35;:key</code>, <code>&#35;:optional</code> and
-<code>&#35;:rest</code>. This permits to Scheme lambdas, which accepts
-keywords and optional arguments, to be compatible with DSSSL lambdas
-<a href="_bibliography.html#DSSSL">[DSSSL]</a>.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_here_strings">1.2.3. Here Strings</h4>
-<div class="paragraph">
-<p>
-
-Here strings permit to easily enter multilines strings in programs.
-The sequence of characters <code>&#35;&lt;&lt;</code> starts a here string. The characters
-following this sequence <code>&#35;&lt;&lt;</code> until a newline character define a terminator for
-the here string. The content of the string includes all characters between
-the <code>&#35;&lt;&lt;</code> line and a line whose only content is the specified terminator.
-No escape sequences are recognized between the starting and terminating lines.</p>
-</div>
-<div class="paragraph">
-<p><strong>Example:</strong> the sequence</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="o">#</span><span class="nv">&lt;&lt;EOF</span>
-<span class="nv">abc</span>
-<span class="nv">def</span>
-  <span class="nv">ghi</span>
-<span class="nv">EOF</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is equivalent to the string</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="s">"abcndefn  ghi"</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_other_notations">1.2.4. Other Notations</h4>
-<div class="paragraph">
-<p>
-
-
-
-<strong><em>STk</em></strong> accepts all the notations defined in R<sup>5</sup>RS plus</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>#true</code> and <code>#false</code> are other names for
-the constants <code>#t</code> and <code>#f</code> as proposed by R<sup>7</sup>RS.</p>
-</li>
-<li>
-<p><code>[]</code> Brackets are equivalent to
-parentheses. They are used for grouping and to build lists. A
-list opened with a left square bracket must be closed with a
-right square bracket (see <em><a href="_standard_procedures.html#_pairs_and_lists">Section 4.4</a></em>).</p>
-</li>
-<li>
-<p><code>:</code> a colon at the beginning or the end of
-a symbol introduces a keyword.  Keywords are described in section
-Keywords (see _<a href="_standard_procedures.html#_keywords">Section 4.14</a>).</p>
-</li>
-<li>
-<p><code>&#35;n=</code> 
- is used to represent circular structures.  The value given of <code>n</code>
-must be a number. It is used as a label, which can be referenced
-later by a <code>&#35;n&#35;</code> notation
-(see below). The scope of the label is the expression being read by the
-outermost <code>read</code>.</p>
-</li>
-<li>
-<p><code>&#35;n&#35;</code> is used to reference some object previously
-labeled by a <code>&#35;n=</code> notation; that is, <code>&#35;n&#35;</code>
-represents a pointer to the object labeled exactly by
-<code>&#35;n=</code>. For instance, the object returned by the following
-expression</p>
-</li>
-</ul>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">a</span> <span class="p">(</span><span class="nb">list</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span>
-       <span class="p">(</span><span class="nf">b</span> <span class="p">(</span><span class="nb">cons</span> <span class="ss">'x</span> <span class="nv">a</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>can also be represented in this way:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="o">#</span><span class="mi">0</span><span class="nv">=</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nf">x</span> <span class="o">.</span> <span class="o">#</span><span class="mi">0</span><span class="o">#</span><span class="p">))</span></code></pre>
-</div>
-</div>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_preface.html">Preface</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_expressions.html">Expressions</a> →</p>
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_pattern_matching.html b/doc/HTML/_pattern_matching.html
deleted file mode 100644
index a9c15d01d..000000000
--- a/doc/HTML/_pattern_matching.html
+++ /dev/null
@@ -1,1088 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<style>
-pre.rouge table td { padding: 5px; }
-pre.rouge table pre { margin: 0; }
-pre.rouge .c, pre.rouge .ch, pre.rouge .cd, pre.rouge .cpf {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cm {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .c1 {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cp {
-  color: #75715e;
-  font-weight: bold;
-}
-pre.rouge .cs {
-  color: #75715e;
-  font-weight: bold;
-  font-style: italic;
-}
-pre.rouge .err {
-  color: #960050;
-  background-color: #1e0010;
-}
-pre.rouge .gi {
-  color: #ffffff;
-  background-color: #324932;
-}
-pre.rouge .gd {
-  color: #ffffff;
-  background-color: #493131;
-}
-pre.rouge .ge {
-  color: #000000;
-  font-style: italic;
-}
-pre.rouge .gr {
-  color: #aa0000;
-}
-pre.rouge .gt {
-  color: #aa0000;
-}
-pre.rouge .gh {
-  color: #999999;
-}
-pre.rouge .go {
-  color: #888888;
-}
-pre.rouge .gp {
-  color: #555555;
-}
-pre.rouge .gs {
-  font-weight: bold;
-}
-pre.rouge .gu {
-  color: #aaaaaa;
-}
-pre.rouge .k, pre.rouge .kv {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kc {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kd {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kp {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kr {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kt {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kn {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .ow {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .o {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .mf {
-  color: #ae81ff;
-}
-pre.rouge .mh {
-  color: #ae81ff;
-}
-pre.rouge .il {
-  color: #ae81ff;
-}
-pre.rouge .mi {
-  color: #ae81ff;
-}
-pre.rouge .mo {
-  color: #ae81ff;
-}
-pre.rouge .m, pre.rouge .mb, pre.rouge .mx {
-  color: #ae81ff;
-}
-pre.rouge .se {
-  color: #ae81ff;
-}
-pre.rouge .sa {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .sb {
-  color: #e6db74;
-}
-pre.rouge .sc {
-  color: #e6db74;
-}
-pre.rouge .sd {
-  color: #e6db74;
-}
-pre.rouge .s2 {
-  color: #e6db74;
-}
-pre.rouge .sh {
-  color: #e6db74;
-}
-pre.rouge .si {
-  color: #e6db74;
-}
-pre.rouge .sx {
-  color: #e6db74;
-}
-pre.rouge .sr {
-  color: #e6db74;
-}
-pre.rouge .s1 {
-  color: #e6db74;
-}
-pre.rouge .ss {
-  color: #e6db74;
-}
-pre.rouge .s, pre.rouge .dl {
-  color: #e6db74;
-}
-pre.rouge .na {
-  color: #a6e22e;
-}
-pre.rouge .nc {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nd {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .ne {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nf, pre.rouge .fm {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .no {
-  color: #66d9ef;
-}
-pre.rouge .bp {
-  color: #f8f8f2;
-}
-pre.rouge .nb {
-  color: #f8f8f2;
-}
-pre.rouge .ni {
-  color: #f8f8f2;
-}
-pre.rouge .nn {
-  color: #f8f8f2;
-}
-pre.rouge .vc {
-  color: #f8f8f2;
-}
-pre.rouge .vg {
-  color: #f8f8f2;
-}
-pre.rouge .vi {
-  color: #f8f8f2;
-}
-pre.rouge .nv, pre.rouge .vm {
-  color: #f8f8f2;
-}
-pre.rouge .w {
-  color: #f8f8f2;
-}
-pre.rouge .nl {
-  color: #f8f8f2;
-  font-weight: bold;
-}
-pre.rouge .nt {
-  color: #f92672;
-}
-pre.rouge {
-  color: #f8f8f2;
-  background-color: #49483e;
-}
-</style>
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_pattern_matching" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html"><span class="toc-current">6. Pattern Matching</span></a>
-<ul class="sectlevel2">
-<li><a href="_pattern_matching.html#_the_pattern_language">6.1. The Pattern Language</a>
-</li>
-<li><a href="_pattern_matching.html#_stklos_pattern_matching_facilities">6.2. <strong><em>STklos</em></strong> Pattern Matching Facilities</a>
-</li>
-</ul>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_pattern_matching">6. Pattern Matching</h2>
-<div class="sectionbody">
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph">
-<p>Pattern matching is a key feature of most modern functional
-programming languages since it allows clean and secure code to be
-written. Internally, "pattern-matching forms" should be translated
-(compiled) into cascades of "elementary tests" where code is made as
-efficient as possible, avoiding redundant tests; <strong><em>STklos</em></strong> "pattern
-matching compiler" provides this <sup class="footnote">[<a id="_footnoteref_1" class="footnote" href="#_footnotedef_1" title="View footnote.">1</a>]</sup>. The
-code (and documentation) included in <strong><em>STklos</em></strong> has been stolen from
-the Bigloo package v4.5 (the only difference between both package is
-the pattern matching of structures which is absent in <strong><em>STklos</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p>The technique used is described in details in C. Queinnec and
-J-M. Geffroy paper <a href="_bibliography.html#QuG92">[QuG92]</a>, and the code generated can be considered
-optimal</p>
-</div>
-<div class="paragraph">
-<p>The "pattern language" allows the expression of a wide variety of patterns,
-including:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>Non-linear patterns: pattern variables can appear more than
-once, allowing comparison of subparts of the datum (through <code>eq?</code>)</p>
-</li>
-<li>
-<p>Recursive patterns on lists: for example, checking that the
-datum is a list of zero or more <code>a</code>s followed by zero or more <code>`b</code>s.</p>
-</li>
-<li>
-<p>Pattern matching on lists as well as on vectors.</p>
-</li>
-</ul>
-</div>
-<div class="sect2">
-<h3 id="_the_pattern_language">6.1. The Pattern Language</h3>
-<div class="paragraph">
-<p>
-The syntax for <code>&lt;pattern&gt;</code> is:</p>
-</div>
-<div class="paragraph">
-<p>[:small]</p>
-</div>
-<table class="tableblock frame-all grid-all stretch">
-<colgroup>
-<col style="width: 50%;">
-<col style="width: 50%;">
-</colgroup>
-<thead>
-<tr>
-<th class="tableblock halign-left valign-top">&lt;pattern&gt;</th>
-<th class="tableblock halign-left valign-top">Matches:</th>
-</tr>
-</thead>
-<tbody>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">&lt;atom&gt;</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">the &lt;atom&gt;.</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">(kwote &lt;atom&gt;)</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">any expression eq? to &lt;atom&gt;.</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">(and &lt;pat<sub>1</sub>&gt; &#8230;&#8203; &lt;pat<sub>n</sub>&gt;)</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">if all of &lt;pati&gt; match.</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">(or &lt;pat<sub>1</sub>&gt; &#8230;&#8203; &#8230;&#8203;&lt;pat<sub>n</sub>&gt;)</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">if any of &lt;pat<sub>1</sub>&gt; through &lt;pat<sub>n</sub>&gt; matches.</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">(not &lt;pat&gt;)</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">if &lt;pat&gt; doesn&#8217;t match.</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">(? &lt;predicate&gt;)</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">if &lt;predicate&gt; is true.</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">(&lt;pat<sub>1</sub>&gt; &#8230;&#8203; &lt;pat<sub>n</sub>&gt;)</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">a list of n elements. Here, &#8230;&#8203; is a
-                                  meta-character denoting a finite repetition
-                                  of patterns.</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">&lt;pat&gt; &#8230;&#8203;</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">a (possibly empty) repetition
-                                  of &lt;pat&gt; in a list.</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">#(&lt;pat&gt; &#8230;&#8203; &lt;pat<sub>n</sub>&gt;)</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">a vector of n elements.</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">?&lt;id&gt;</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">anything, and binds id as a variable.</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">?-</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">anything.</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">??-</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">any (possibly empty) repetition of anything in a list.</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">???-</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">any end of list.</p></td>
-</tr>
-</tbody>
-</table>
-<div class="paragraph">
-<p><strong>Remark:</strong> <code>and</code>, <code>or</code>, <code>not</code> and <code>kwote</code> must be quoted in order to be treated
-as literals. This is the only justification for having the <code>kwote</code> pattern
-since, by convention, any atom which is not a keyword is quoted.</p>
-</div>
-<div class="paragraph">
-<p><strong>Explanations Through Examples</strong></p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>?-</code> matches any s-expr.</p>
-</li>
-<li>
-<p><code>a</code> matches the atom <code>'a</code>.</p>
-</li>
-<li>
-<p><code>?a</code> matches any expression, and binds the variable <code>a</code> to
-this expression.</p>
-</li>
-<li>
-<p><code>(? integer?)</code> matches any integer.</p>
-</li>
-<li>
-<p><code>(a (a b))</code> matches the only list <code>'(a (a b))</code>.</p>
-</li>
-<li>
-<p><code>???-</code> can only appear at the end of a list, and always succeeds.
-For instance, <code>(a ???-)</code> is equivalent to <code>(a . ?-)</code>.</p>
-</li>
-<li>
-<p>when occurring in a list, <code>??-</code> matches any
-sequence of anything: <code>(a ??- b)</code> matches any list whose
-<code>car</code> is <code>a</code> and last <code>car</code> is <code>b</code>.</p>
-</li>
-<li>
-<p><code>(a &#8230;&#8203;)</code> matches any list of `a&#8217;s, possibly empty.</p>
-</li>
-<li>
-<p><code>(?x ?x)</code> matches any list of length 2 whose <code>car</code> is <strong><em>eq</em></strong> to its <code>cadr</code>.</p>
-</li>
-<li>
-<p><code>((and (not a) ?x) ?x)</code> matches any list of length 2 whose <code>car</code> is
-not <strong><em>eq</em></strong> to <code>'a</code> but is <strong><em>eq</em></strong> to its <code>cadr</code>.</p>
-</li>
-<li>
-<p><code>#(?- ?- ???-)</code> matches any vector whose length is at least 2.</p>
-</li>
-</ul>
-</div>
-<div class="admonitionblock important">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-important" title="Important"></i>
-</td>
-<td class="content">
-<code>??-</code> and <code>&#8230;&#8203;</code> patterns can not appear inside a vector, where you
-should use <code>???-</code><br>
-For example, <code>&#35;(a ??- b)</code> or <code>#(a&#8230;&#8203;)</code> are invalid
-patterns, whereas <code>&#35;(a ???-)</code> is valid and matches any vector whose first
-element is the atom <code>a</code>.
-</td>
-</tr>
-</table>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_stklos_pattern_matching_facilities">6.2. <strong><em>STklos</em></strong> Pattern Matching Facilities</h3>
-<div class="paragraph">
-<p>Only two special forms are provided for this in <strong><em>STklos</em></strong>: <code>match-case</code> and
-<code>match-lambda</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(match-case &lt;key&gt; &lt;clause&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The argument key may be any expression and each clause has the form</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">&lt;pattern&gt;</span> <span class="nv">&lt;expression&gt;</span> <span class="o">...</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>A match-case expression is evaluated as follows: <code>&lt;key&gt;</code> is evaluated
-and the result is compared with each successive pattern. If the <code>&lt;pattern&gt;</code>
-in some clause yields a match, then the <code>&lt;expression&gt;</code>s in that clause are
-evaluated from left to right in an environment where the pattern variables
-are bound to the corresponding subparts of <code>&lt;key&gt;</code>, and the result of the
-last expression in that clause is returned as the result of the
-<code>match-case</code> expression. If no pattern in any clause matches the <code>&lt;key&gt;</code>,
-then, if there is an <code>else</code> clause, its expressions are evaluated and
-the result of the last is the result of the whole <code>match-case</code>
-expression; otherwise the result of the <code>match-case</code> expression
-is unspecified.</p>
-</div>
-<div class="paragraph">
-<p>The equality predicate used for tests is <code>eq?</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">match-case</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">a</span><span class="p">)</span>
-   <span class="p">((</span><span class="nf">?x</span> <span class="nv">?x</span><span class="p">)</span> <span class="ss">'foo</span><span class="p">)</span>
-   <span class="p">((</span><span class="nf">?x</span> <span class="nv">?-</span> <span class="nv">?x</span><span class="p">)</span> <span class="ss">'bar</span><span class="p">))</span>   <span class="nv">=&gt;</span> <span class="nv">bar</span>
-
-<span class="p">(</span><span class="nf">match-case</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span><span class="p">)</span> <span class="nv">d</span><span class="p">)</span>
-   <span class="p">((</span><span class="nf">?x</span> <span class="nv">?y</span><span class="p">)</span> <span class="p">(</span><span class="nb">list</span> <span class="ss">'length=2</span> <span class="nv">y</span> <span class="nv">x</span><span class="p">))</span>
-   <span class="p">((</span><span class="nf">?x</span> <span class="nv">?y</span> <span class="nv">?z</span><span class="p">)</span> <span class="p">(</span><span class="nb">list</span> <span class="ss">'length=3</span> <span class="nv">z</span> <span class="nv">y</span> <span class="nv">x</span><span class="p">)))</span>
-                        <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">length=3</span> <span class="nv">d</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span><span class="p">)</span> <span class="nv">a</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(match-lambda &lt;clause&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>match-lambda</code> expands into a lambda-expression expecting an argument
-which, once applied to an expression, behaves exactly like a
-<code>match-case</code> expression.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">((</span><span class="nf">match-lambda</span>
-  <span class="p">((</span><span class="nf">?x</span> <span class="nv">?x</span><span class="p">)</span> <span class="ss">'foo</span><span class="p">)</span>
-  <span class="p">((</span><span class="nf">?x</span> <span class="nv">?-</span> <span class="nv">?x</span><span class="p">)</span> <span class="ss">'bar</span><span class="p">))</span>
- <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">a</span><span class="p">))</span>           <span class="nv">=&gt;</span> <span class="nv">bar</span></code></pre>
-</div>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_regular_expressions.html">Regular Expressions</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_exceptions_and_conditions.html">Exceptions and Conditions</a> →</p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. In fact <code>define-module</code> on a given name defines a new module only the first time it is invoked on this name. By this way, interactively reloading a module does not define a new entity, and the other modules which use it are not altered.
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. This transcript uses the default toplevel loop             which displays the name of the current module in the evaluator             prompt.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Under Unix, you can simply connect to a listening socket with the <code>telnet</code> of <code>netcat</code> command. For the given example, this can be achieved with <code>netcat localhost 12345</code>
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. Port 13, if open, can be used for testing: making a connection to it permits to know the distant system&#8217;s idea of the time of day.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. The "pattern matching compiler" has been written by Jean-Marie Geffroy and is part of the Manuel Serrano&#8217;s Bigloo compiler since several years <a href="_bibliography.html#Bigloo">[Bigloo]</a>
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_preface.html b/doc/HTML/_preface.html
deleted file mode 100644
index 8d42fd87d..000000000
--- a/doc/HTML/_preface.html
+++ /dev/null
@@ -1,634 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_preface" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html"><span class="toc-current">Preface</span></a>
-<ul class="sectlevel2">
-<li><a href="_preface.html#_licences">Licences</a>
-</li>
-</ul>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_preface">Preface</h2>
-<div class="sectionbody">
-<div class="paragraph">
-<p>This document provides a complete list of procedures and special forms
-implemented in version <strong>1.70</strong> of <strong><em>STklos</em></strong>. Originally, the
-language implemented by <strong><em>STklos</em></strong> was (nearly) compliant with the
-language described in the Revised<sup>5</sup> Report on the Algorithmic
-Language Scheme (aka R<sup>5</sup>RS) <a href="_bibliography.html#R5RS">[R5RS]</a>. The fist public release of
-<strong><em>STklos</em></strong> was published in January 2001.</p>
-</div>
-<div class="paragraph">
-<p>Since the first <strong><em>STklos</em></strong> release, Scheme evolved and is now defined
-in the R<sup>7</sup>RS report <a href="_bibliography.html#R7RS">[R7RS]</a>. Consequently, the current version
-of <strong><em>STklos</em></strong> is compliant to this iteration of the language. Furthermore,
-<strong><em>STklos</em></strong> also offers most of the libraries defined in R<sup>7</sup>RS-large,
-a set of <em>standard</em> libraries.</p>
-</div>
-<div class="paragraph">
-<p>This document states the compliance of each construction relatively to
-these reports, or if it is a <strong><em>STklos</em></strong> extension.</p>
-</div>
-<div class="sect2">
-<h3 id="_licences">Licences</h3>
-<div class="ulist">
-<ul>
-<li>
-<p><strong><em>STklos</em></strong> program and supporting files are published under the terms of the
-<em>GNU General Public Licence version 2 or later</em>. This licence is available at the
-following URL: <a href="https://www.gnu.org/licenses/gpl-3.0.html" class="bare">https://www.gnu.org/licenses/gpl-3.0.html</a></p>
-</li>
-<li>
-<p>The manual you’re now reading is published under the terms of the
-<em>GNU Free Documentation License or later</em> (see <a href="FDL.html">Appendix B</a>).</p>
-</li>
-</ul>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph">
-<p>Copyright © 1999-2023 Erick Gallesio</p>
-</div>
-<div class="paragraph">
-<p>Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.3
-or any later version published by the Free Software Foundation;
-with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts.
-A copy of the license is included in the section entitled <a href="FDL.html">"GNU
-Free Documentation License"</a>.</p>
-</div>
-</div>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_introduction.html">Introduction</a> →</p>
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_program_structure.html b/doc/HTML/_program_structure.html
deleted file mode 100644
index eaee579cf..000000000
--- a/doc/HTML/_program_structure.html
+++ /dev/null
@@ -1,1818 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<style>
-pre.rouge table td { padding: 5px; }
-pre.rouge table pre { margin: 0; }
-pre.rouge .c, pre.rouge .ch, pre.rouge .cd, pre.rouge .cpf {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cm {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .c1 {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cp {
-  color: #75715e;
-  font-weight: bold;
-}
-pre.rouge .cs {
-  color: #75715e;
-  font-weight: bold;
-  font-style: italic;
-}
-pre.rouge .err {
-  color: #960050;
-  background-color: #1e0010;
-}
-pre.rouge .gi {
-  color: #ffffff;
-  background-color: #324932;
-}
-pre.rouge .gd {
-  color: #ffffff;
-  background-color: #493131;
-}
-pre.rouge .ge {
-  color: #000000;
-  font-style: italic;
-}
-pre.rouge .gr {
-  color: #aa0000;
-}
-pre.rouge .gt {
-  color: #aa0000;
-}
-pre.rouge .gh {
-  color: #999999;
-}
-pre.rouge .go {
-  color: #888888;
-}
-pre.rouge .gp {
-  color: #555555;
-}
-pre.rouge .gs {
-  font-weight: bold;
-}
-pre.rouge .gu {
-  color: #aaaaaa;
-}
-pre.rouge .k, pre.rouge .kv {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kc {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kd {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kp {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kr {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kt {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kn {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .ow {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .o {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .mf {
-  color: #ae81ff;
-}
-pre.rouge .mh {
-  color: #ae81ff;
-}
-pre.rouge .il {
-  color: #ae81ff;
-}
-pre.rouge .mi {
-  color: #ae81ff;
-}
-pre.rouge .mo {
-  color: #ae81ff;
-}
-pre.rouge .m, pre.rouge .mb, pre.rouge .mx {
-  color: #ae81ff;
-}
-pre.rouge .se {
-  color: #ae81ff;
-}
-pre.rouge .sa {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .sb {
-  color: #e6db74;
-}
-pre.rouge .sc {
-  color: #e6db74;
-}
-pre.rouge .sd {
-  color: #e6db74;
-}
-pre.rouge .s2 {
-  color: #e6db74;
-}
-pre.rouge .sh {
-  color: #e6db74;
-}
-pre.rouge .si {
-  color: #e6db74;
-}
-pre.rouge .sx {
-  color: #e6db74;
-}
-pre.rouge .sr {
-  color: #e6db74;
-}
-pre.rouge .s1 {
-  color: #e6db74;
-}
-pre.rouge .ss {
-  color: #e6db74;
-}
-pre.rouge .s, pre.rouge .dl {
-  color: #e6db74;
-}
-pre.rouge .na {
-  color: #a6e22e;
-}
-pre.rouge .nc {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nd {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .ne {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nf, pre.rouge .fm {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .no {
-  color: #66d9ef;
-}
-pre.rouge .bp {
-  color: #f8f8f2;
-}
-pre.rouge .nb {
-  color: #f8f8f2;
-}
-pre.rouge .ni {
-  color: #f8f8f2;
-}
-pre.rouge .nn {
-  color: #f8f8f2;
-}
-pre.rouge .vc {
-  color: #f8f8f2;
-}
-pre.rouge .vg {
-  color: #f8f8f2;
-}
-pre.rouge .vi {
-  color: #f8f8f2;
-}
-pre.rouge .nv, pre.rouge .vm {
-  color: #f8f8f2;
-}
-pre.rouge .w {
-  color: #f8f8f2;
-}
-pre.rouge .nl {
-  color: #f8f8f2;
-  font-weight: bold;
-}
-pre.rouge .nt {
-  color: #f92672;
-}
-pre.rouge {
-  color: #f8f8f2;
-  background-color: #49483e;
-}
-</style>
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_program_structure" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html"><span class="toc-current">3. Program structure</span></a>
-<ul class="sectlevel2">
-<li><a href="_program_structure.html#_modules">3.1. Modules</a>
-</li>
-<li><a href="_program_structure.html#_libraries">3.2. Libraries</a>
-</li>
-<li><a href="_program_structure.html#_variables_and_constants">3.3. Variables and Constants</a>
-</li>
-</ul>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_program_structure">3. Program structure</h2>
-<div class="sectionbody">
-<div class="paragraph">
-<p>
-
-
-
-</p>
-</div>
-<div class="paragraph">
-<p>Since its origin, <strong><em>STklos</em></strong> offers a module system which can be used
-to organize a program into separate environments (or <strong><em>name
-spaces</em></strong>). The module system is directly inherited from <strong><em>STk</em></strong>. This
-module system is largely inspired from the one of Tung and
-Dybvig exposed in Tung and Dybvig paper <a href="_bibliography.html#TuD96">[TuD96]</a>. As this module
-system, <strong><em>STk</em></strong> and <strong><em>STklos</em></strong> modules are defined to be easily used
-in an interactive environment.</p>
-</div>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> modules provide a clean way to organize and enforce the
-barriers between the components of a program. At this time, the
-current version of Scheme was R<sup>5</sup>RS which didn&#8217;t define a module
-system. However, since then, R<sup>7</sup>RS has defined the notion of
-libraries, which are similar, in the intent, to <strong><em>STklos</em></strong> modules.
-Consequently, <strong><em>STklos</em></strong> offers both systems: modules and libraries
-(the latter being implemented on top of the former).</p>
-</div>
-<div class="sect2">
-<h3 id="_modules">3.1. Modules</h3>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(define-module &lt;name&gt; &lt;expr1&gt; &lt;expr2&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Define-module</code> evaluates the expressions <code>&lt;expr1&gt;</code>, <code>&lt;expr2&gt;</code> &#8230;&#8203; which
-constitute the body of the module <code>&lt;name&gt;</code> in the environment of that module.
-<code>Name</code> must be a valid symbol or a list constitued of symbols or positive integers.
-If <code>name</code> has not already been used to define a module, a new module, named <code>name</code>,
-is created.  Otherwise, the expressions <code>&lt;expr1&gt;</code>, <code>&lt;expr2&gt;</code> &#8230;&#8203; are evaluated in
-the environment of the (old) module <code>&lt;name&gt;</code><sup class="footnote">[<a id="_footnoteref_1" class="footnote" href="#_footnotedef_1" title="View footnote.">1</a>]</sup></p>
-</div>
-<div class="paragraph">
-<p>Definitions done in a module are local to the module and do not interact with
-the definitions in other modules. Consider the following definitions,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-module</span> <span class="nv">M1</span>
-   <span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="mi">1</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">define-module</span> <span class="nv">M2</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="mi">2</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">b</span> <span class="p">(</span><span class="nb">*</span> <span class="mi">2</span> <span class="nv">x</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="nf">define-module</span> <span class="p">(</span><span class="nf">M2</span> <span class="nv">m</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="mi">100</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">x</span> <span class="mi">200</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Here, three modules are defined and they all bind the symbol <code>a</code> to a
-value. However, since <code>a</code> has been defined in distinct modules
-they denote three different locations.</p>
-</div>
-<div class="paragraph">
-<p>The <code>STklos</code> module, which is predefined, is a special module which
-contains all the <strong>global bindings</strong> of a R<sup>7</sup>RS program.  A symbol
-defined in the <code>STklos</code> module, if not hidden by a local definition, is
-always visible from inside a module. So, in the previous exemple, the
-<code>x</code> symbol refers the <code>x</code> symbol defined in the <code>STklos</code> module, which is
-of course different of the one defined in the module <code>(M2 m)</code>.</p>
-</div>
-<div class="paragraph">
-<p>The result of <code>define-module</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-Internally, modules name are always represented by a symbol. If the module
-name is given as a list, the internal name is built by appending all the components
-of the list, separated by a <code>'/'</code> symbol. So the third module can be referenced with the
-name <code>(M2 m)</code> of <code>M2/m</code>.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(find-module name)</code></strong><br>
-<strong><code>(find-module name default)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>STklos modules are first class objects and <code>find-module</code> returns the
-module object associated to <code>name</code>, if it exists. If there is no module
-associated to <code>name</code>, an error is signaled if no <code>default</code> is
-provided, otherwise <code>find-module</code> returns <code>default</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(module? object)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>object</code> is a module and <code>#f</code> otherwise.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">module?</span> <span class="p">(</span><span class="nf">find-module</span> <span class="ss">'STklos</span><span class="p">))</span>   <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">module?</span> <span class="ss">'STklos</span><span class="p">)</span>                 <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">module?</span> <span class="mi">123</span> <span class="ss">'no</span><span class="p">)</span>                 <span class="nv">=&gt;</span> <span class="nv">no</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(module-name module)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the internal name (a symbol) associated to a <code>module</code>. As said before,
-module name is always represented as a symbol, even if expressed as a list.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-module</span> <span class="p">(</span><span class="nf">M</span> <span class="nv">a</span><span class="p">)</span> <span class="p">)</span>   <span class="c1">; or M/a</span>
-<span class="p">(</span><span class="nf">define-module</span> <span class="p">(</span><span class="nf">M</span> <span class="nv">b</span><span class="p">)</span> <span class="p">)</span>   <span class="c1">; or M/b</span>
-<span class="p">(</span><span class="nf">define-module</span> <span class="nv">M/c</span>   <span class="p">)</span>   <span class="c1">; or (M c)</span>
-
-<span class="p">(</span><span class="nb">map</span> <span class="p">(</span><span class="k">lambda</span><span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nf">module-name</span> <span class="p">(</span><span class="nf">find-module</span> <span class="nv">x</span><span class="p">)))</span> <span class="o">'</span><span class="p">(</span> <span class="p">(</span><span class="nf">M</span> <span class="nv">a</span><span class="p">)</span> <span class="nv">M/b</span> <span class="p">(</span><span class="nf">M</span> <span class="nv">c</span><span class="p">)</span> <span class="p">))</span>
-                       <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">M/a</span> <span class="nv">M/b</span> <span class="nv">M/c</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(current-module)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the current module.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-module</span> <span class="nv">M</span>
-  <span class="p">(</span><span class="nb">display</span>
-      <span class="p">(</span><span class="nb">cons</span> <span class="p">(</span><span class="nb">eq?</span> <span class="p">(</span><span class="nf">current-module</span><span class="p">)</span> <span class="p">(</span><span class="nf">find-module</span> <span class="ss">'M</span><span class="p">))</span>
-            <span class="p">(</span><span class="nb">eq?</span> <span class="p">(</span><span class="nf">current-module</span><span class="p">)</span> <span class="p">(</span><span class="nf">find-module</span> <span class="ss">'STklos</span><span class="p">)))))</span>  <span class="nv">|-</span> <span class="p">(</span><span class="no">#t</span> <span class="o">.</span> <span class="no">#f</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(select-module &lt;name&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Changes the value of the current module to the module with the given <code>name</code>.
-The expressions evaluated after <code>select-module</code> will take place in
-module <code>name</code> environment.  Module <code>name</code> must have been created
-previously by a <code>define-module</code>. The result of <code>select-module</code> is
-<strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p><code>Select-module</code> is particularly useful when debugging since it
-allows to place toplevel evaluation in a particular module. The
-following transcript shows an usage of <code>select-module</code>.
-<sup class="footnote">[<a id="_footnoteref_2" class="footnote" href="#_footnotedef_2" title="View footnote.">2</a>]</sup>):</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="nv">stklos&gt;</span> <span class="p">(</span><span class="k">define</span> <span class="nv">foo</span> <span class="mi">1</span><span class="p">)</span>
-<span class="nv">stklos&gt;</span> <span class="p">(</span><span class="nf">define-module</span> <span class="nv">bar</span> <span class="p">(</span><span class="k">define</span> <span class="nv">foo</span> <span class="mi">2</span><span class="p">))</span>
-<span class="nv">stklos&gt;</span> <span class="nv">foo</span>
-<span class="mi">1</span>
-<span class="nv">stklos&gt;</span> <span class="p">(</span><span class="nf">select-module</span> <span class="nv">bar</span><span class="p">)</span>
-<span class="nv">bar&gt;</span> <span class="nv">foo</span>
-<span class="mi">2</span>
-<span class="nv">bar&gt;</span> <span class="p">(</span><span class="nf">select-module</span> <span class="nv">stklos</span><span class="p">)</span>
-<span class="nv">stklos&gt;</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(symbol-value symbol module)</code></strong><br>
-<strong><code>(symbol-value symbol module default)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the value bound to <code>symbol</code> in <code>module</code>. If <code>symbol</code> is not bound,
-an error is signaled if no <code>default</code> is provided, otherwise <code>symbol-value</code>
-returns <code>default</code>. <code>Module</code> can be an object module or a module name.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(symbol-value* symbol module)</code></strong><br>
-<strong><code>(symbol-value* symbol module default)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the value bound to <code>symbol</code> in <code>module</code>. If <code>symbol</code> is not bound,
-an error is signaled if no <code>default</code> is provided, otherwise <code>symbol-value</code>
-returns <code>default</code>.</p>
-</div>
-<div class="paragraph">
-<p>Note that this function searches the value of <code>symbol</code> in <code>module</code>
-<strong>and</strong> in the STklos module if module is not a R<sup>7</sup>RS library.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(symbol-bound? symb)</code></strong><br>
-<strong><code>(symbol-bound? symb module)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns #t is <code>symb</code> is bound in <code>module</code> and #f otherwise. If <code>module</code> is
-omitted it defaults to the current module.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(module-symbols module)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the list of symbols defined or imported in <code>module</code>. <code>Module</code>
-can be an object module or a module name.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(module-symbols* module)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the the list of symbols acessible in <code>module</code> (that is the symbols
-defined in <code>module</code> and the one defined in the <code>STklos</code> module if module
-is not a R<sup>7</sup>RS library.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(export &lt;export spec1&gt; &lt;export spec2&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Specifies the symbols which are exported (i.e. <strong>visible</strong> outside
-the current module). By default, symbols defined in a module are not
-visible outside this module, excepted if they appear in an <code>export</code>
-clause.</p>
-</div>
-<div class="paragraph">
-<p>An <code>&lt;export spec&gt;</code> takes one of the following forms:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>&lt;identifier&gt;</code></p>
-</li>
-<li>
-<p><code>(rename &lt;identifier1&gt; &lt;identifier2&gt;)</code></p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>In the first form, <code>&lt;identifier&gt;</code> names a single binding defined within or
-imported into the module, where the external name for the export is the same
-as the name of the binding  within the module.</p>
-</div>
-<div class="paragraph">
-<p>In the second form,  the binding defined within or imported into the module and
-named by <code>&lt;identifier1&gt;</code> in each <code>(&lt;identifier1&gt; &lt;identifier2&gt;)</code> pairing,
-using <code>&lt;identifier2&gt;</code> as the external name.</p>
-</div>
-<div class="paragraph">
-<p>The result of <code>export</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-the <code>export</code> form in <strong><em>STklos</em></strong> modules is compatible with the <code>export</code>
-clause in R<sup>7</sup>RS libraries.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(import &lt;import set1&gt; &lt;import set2&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>An import declaration provides a way to import identifiers
-exported by a module.  Each <code>&lt;import set&gt;</code> names a set of bindings
-from a module and possibly specifies local names for the
-imported bindings. It takes one of the following forms:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>&lt;module name&gt;</code></p>
-</li>
-<li>
-<p><code>(only &lt;import set&gt; &lt;identifier&gt; &#8230;&#8203;)</code></p>
-</li>
-<li>
-<p><code>(except &lt;import set&gt; &lt;identifier&gt; &#8230;&#8203;)</code></p>
-</li>
-<li>
-<p><code>(prefix &lt;import set&gt; &lt;identifier&gt;)</code></p>
-</li>
-<li>
-<p><code>(rename &lt;import set&gt; (&lt;identifier1&gt; &lt;identifier2&gt;) &#8230;&#8203;)</code></p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>In the first form, all of the identifiers in the named
-module&#8217;s export clauses are imported with the same names
-(or the exported names if exported with <code>rename</code>).</p>
-</div>
-<div class="paragraph">
-<p>The additional <code>import set</code> forms modify this set as follows:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>only</code> produces a subset of the given &lt;import set&gt;} including
-only the listed identifiers (after any renaming).  It is an
-error if any of the listed identifiers are not found in the
-original set.</p>
-</li>
-<li>
-<p><code>except</code> produces a subset of the given <code>&lt;import set&gt;</code>, excluding
-the listed identifiers (after any renaming). It is an error if
-any of the listed identifiers are not found in the original set.</p>
-</li>
-<li>
-<p><code>rename</code> modifies the given <code>&lt;import set&gt;</code>, replacing each
-instance of <code>&lt;identifier1&gt;</code> with <code>&lt;identifier2&gt;</code>. It is an
-error if any of the listed <code>&lt;identifiers&gt;</code> are not found in
-the original set.</p>
-</li>
-<li>
-<p><code>prefix</code> automatically renames all identifiers in the given
-<code>&lt;import set&gt;</code>, prefixing each with the specified <code>&lt;identifier&gt;</code>.</p>
-</li>
-</ul>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-module</span> <span class="nv">M1</span>
-  <span class="p">(</span><span class="nf">export</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="ss">'M1-a</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">b</span> <span class="ss">'M1-b</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">define-module</span> <span class="nv">M2</span>
-  <span class="p">(</span><span class="nf">export</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">b</span> <span class="ss">'M2-b</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">c</span> <span class="ss">'M2-c</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">d</span> <span class="ss">'M2-d</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">define-module</span> <span class="nv">M3</span>
-  <span class="p">(</span><span class="nf">import</span> <span class="nv">M1</span> <span class="nv">M2</span><span class="p">)</span>
-  <span class="p">(</span><span class="nb">display</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">)))</span>  <span class="nv">|-</span> <span class="p">(</span><span class="nf">M1-a</span> <span class="nv">M2-b</span> <span class="nv">M2-c</span> <span class="nv">M2-d</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">define-module</span> <span class="nv">M4</span>
-  <span class="p">(</span><span class="nf">import</span> <span class="nv">M2</span> <span class="nv">M1</span><span class="p">)</span>
-  <span class="p">(</span><span class="nb">display</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">)))</span>  <span class="nv">|-</span> <span class="p">(</span><span class="nf">M1-a</span> <span class="nv">M1-b</span> <span class="nv">M2-c</span> <span class="nv">M2-d</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-module</span> <span class="nv">M1</span>
-  <span class="p">(</span><span class="nf">export</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="mi">1</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">b</span> <span class="mi">2</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">c</span> <span class="mi">3</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">d</span> <span class="mi">4</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">define-module</span> <span class="nv">M2</span>
-  <span class="p">(</span><span class="nf">import</span> <span class="p">(</span><span class="nf">prefix</span> <span class="p">(</span><span class="nf">rename</span> <span class="p">(</span><span class="nf">except</span> <span class="nv">M1</span> <span class="nv">a</span><span class="p">)</span>
-                          <span class="p">(</span><span class="nf">b</span> <span class="nv">bb</span><span class="p">)</span> <span class="p">(</span><span class="nf">c</span> <span class="nv">cc</span><span class="p">))</span>
-                  <span class="nv">M1-</span><span class="p">))</span>
-  <span class="p">(</span><span class="nb">display</span> <span class="p">(</span><span class="nf">module-symbols</span> <span class="p">(</span><span class="nf">current-module</span><span class="p">))))</span>
-                             <span class="nv">|-</span> <span class="p">(</span><span class="nf">M1-bb</span> <span class="nv">M1-cc</span> <span class="nv">M1-d</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Here, <code>M1</code> module exports the symbols <code>a</code>, <code>b</code>, <code>c</code> and <code>d</code>. In the
-<code>M2</code> module, the <code>except</code> rule permits to import only <code>b</code>, <code>c</code> and
-<code>d</code>. With <code>rename</code>, identifiers <code>b</code> and <code>c</code> of <code>M1</code> are renamed <code>bb</code>
-and <code>cc</code>. Finally, with <code>prefix</code> alls identifier names are prefixed
-by <code>M1-</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-the <code>import</code> form in <strong><em>STklos</em></strong> modules is compatible with the
-<code>import</code> clause in R<sup>7</sup>RS libraries.
-</td>
-</tr>
-</table>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The module <code>STklos</code>, which contains the <em>global variables</em>
-is always implicitly imported from a module. Furthermore,
-this module is always placed at the end of the list of imported
-modules.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>Note that importing a module will try to load a file if the module
-is not already defined. For instance,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-module</span> <span class="nv">M</span>
-   <span class="p">(</span><span class="nf">import</span> <span class="p">(</span><span class="nf">srfi</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="nf">foo</span> <span class="nv">bar</span> <span class="nv">baz</span><span class="p">))</span>
-    <span class="o">...</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>will load the file <code>srfi/1</code> and <code>foo/bar/baz</code> modules (or libraries) if
-they are not yet defined (habitual rules on the load paths and the load
-suffixes applies to find  those files).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(module-imports module)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the list of modules that <code>module</code> imports (that is, the ones
-it depends on).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(module-exports module)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the list of symbols exported by <code>module</code>. Note that this function
-returns the list of symbols given in the module <code>export</code> clause and that
-some of these symbols can be not yet defined.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-module</span> <span class="nv">M</span>
-  <span class="p">(</span><span class="nf">export</span> <span class="nv">a</span> <span class="nv">b</span> <span class="p">(</span><span class="nf">rename</span> <span class="nv">c</span> <span class="nv">M-c</span><span class="p">))</span>
-  <span class="p">(</span><span class="nb">display</span> <span class="p">(</span><span class="nf">module-exports</span> <span class="p">(</span><span class="nf">current-module</span><span class="p">))))</span>
-                         <span class="nv">|-</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">M-c</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(module-immutable! mod)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Makes the module <code>mod</code> immutable, so that it will be impossible
-to define new symbols in it or change the value of already defined ones.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(module-mutable? mod)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>mod</code> is an immutable module and <code>#f</code>  otherwise.  Note that the
-<code>SCHEME</code> module, which contains the original bindings of the STklos at boot
-time, is immutable. The parameter <code>mod</code> can be a module object or a module name.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">module-mutable?</span> <span class="p">(</span><span class="nf">find-module</span> <span class="ss">'STklos</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">module-mutable?</span> <span class="p">(</span><span class="nf">find-module</span> <span class="ss">'SCHEME</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">module-mutable?</span> <span class="ss">'SCHEME</span><span class="p">)</span>               <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(in-module mod s)</code></strong><br>
-<strong><code>(in-module mod s default)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This form returns the value of symbol with name <code>s</code> in the module with name
-<code>mod</code>. If this symbol is not bound,  an error is signaled if no <code>default</code> is
-provided, otherwise <code>in-module</code> returns <code>default</code>. Note that the value of <code>s</code>
-is searched in <code>mod</code> and all the modules it imports.</p>
-</div>
-<div class="paragraph">
-<p>This form is in fact a shortcut. In effect,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">in-module</span> <span class="nv">my-module</span> <span class="nv">foo</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">symbol-value*</span> <span class="ss">'foo</span> <span class="p">(</span><span class="nf">find-module</span> <span class="ss">'my-module</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(all-modules)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the list of all the living modules (or libraries). Use
-<code>module-list</code> to obtain a list of modules without libraries.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(module-list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="literalblock">
-<div class="content">
-<pre>Returns the list of all the living modules.</pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_libraries">3.2. Libraries</h3>
-<div class="paragraph">
-<p>The library concept is defined in R<sup>7</sup>RS ans is supported in <strong><em>STklos</em></strong>.
-As said before, libraries are implemented with modules. Briefly
-stated, the library |(lib a b)| will be implemented with a module whose name
-is |lib/a/b| and the |STklos| module has been deleted from the import list.</p>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(define-library &lt;library name&gt; &lt;library declaration&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The form <code>define-library</code> is defined in R<sup>7</sup>RS. The <code>&lt;library name&gt;</code> can be
-a symbol or a list (as modules).</p>
-</div>
-<div class="paragraph">
-<p>A <code>&lt;library declaration&gt;</code> is any of</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>(export &lt;export spec&gt; &#8230;&#8203;)</code></p>
-</li>
-<li>
-<p><code>(import &lt;import set&gt; &#8230;&#8203;)</code></p>
-</li>
-<li>
-<p><code>(begin &lt;command or definition&gt; &#8230;&#8203;)</code></p>
-</li>
-<li>
-<p><code>(include &lt;filename1&gt; &lt;filename2&gt; &#8230;&#8203;)</code></p>
-</li>
-<li>
-<p><code>(include-ci &lt;filename1&gt; &lt;filename2&gt; &#8230;&#8203;)</code></p>
-</li>
-<li>
-<p><code>(include-library-declarations &lt;filename1&gt; &lt;filename2&gt; &#8230;&#8203;)</code></p>
-</li>
-<li>
-<p><code>(cond-expand &lt;clause1&gt; &lt;clause2&gt; &#8230;&#8203;)</code></p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>See R<sup>7</sup>RS for more information (or the specific entries in this document)
-about each <code>&lt;library declaration&gt;</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-R<sup>7</sup>RS permits to use library declarations only in
-a library definition; <strong><em>STklos</em></strong> permits to use them (except
-<code>include-library-declarations</code>) anywhere at toplevel.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(library? object)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>object</code> is a module defined as a R<sup>7</sup>RS library and <code>#f</code> otherwise.
-Note that R<sup>7</sup>RS libraries, since they are implemented using <strong><em>STklos</em></strong> modules, are
-also modules.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-module</span> <span class="nv">a</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">define-library</span> <span class="p">(</span><span class="nf">b</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">module?</span> <span class="p">(</span><span class="nf">find-module</span> <span class="ss">'a</span><span class="p">))</span>     <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">module?</span> <span class="p">(</span><span class="nf">find-module</span> <span class="o">'</span><span class="p">(</span><span class="nf">b</span><span class="p">)))</span>   <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">library?</span> <span class="p">(</span><span class="nf">find-module</span> <span class="ss">'a</span><span class="p">))</span>    <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">library?</span> <span class="p">(</span><span class="nf">find-module</span> <span class="o">'</span><span class="p">(</span><span class="nf">b</span><span class="p">)))</span>  <span class="nv">=&gt;</span> <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(library-name lib)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the name of <code>lib</code> if it was defined as an R<sup>7</sup>RS library,
-and <code>#f</code> if the library is anonymous. If <code>lib</code> is not a library,
-<code>library-name</code> raises an error. If a name is returned, it is
-as a list.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-library</span> <span class="p">(</span><span class="nf">example</span> <span class="nv">cool-library</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">library-name</span> <span class="p">(</span><span class="nf">find-module</span> <span class="ss">'example/cool-library</span><span class="p">))</span>   <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">example</span> <span class="nv">cool-library</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">library-name</span> <span class="p">(</span><span class="nf">find-module</span> <span class="o">'</span><span class="p">(</span><span class="nf">example</span> <span class="nv">cool-library</span><span class="p">)))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">example</span> <span class="nv">cool-library</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">module-name</span>  <span class="p">(</span><span class="nf">find-module</span> <span class="ss">'example/cool-library</span><span class="p">))</span>   <span class="nv">=&gt;</span> <span class="nv">example/cool-library</span>
-<span class="p">(</span><span class="nf">module-name</span>  <span class="p">(</span><span class="nf">find-module</span> <span class="o">'</span><span class="p">(</span><span class="nf">example</span> <span class="nv">cool-library</span><span class="p">)))</span> <span class="nv">=&gt;</span> <span class="nv">example/cool-library</span>
-
-<span class="p">(</span><span class="nf">define-module</span> <span class="nv">example/a-module</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">library-name</span> <span class="p">(</span><span class="nf">find-module</span> <span class="ss">'example/a-module</span><span class="p">))</span>     <span class="nv">=&gt;</span> <span class="nv">error</span>
-
-<span class="p">(</span><span class="nf">library-name</span> <span class="nv">quotient</span><span class="p">)</span>                            <span class="nv">=&gt;</span> <span class="nv">error</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(library-list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="literalblock">
-<div class="content">
-<pre>Returns the list of all the living libraries.</pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_variables_and_constants">3.3. Variables and Constants</h3>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(define &lt;variable&gt; &lt;expresssion&gt;)</code></strong><br>
-<strong><code>(define (&lt;variable&gt; &lt;formals&gt;) &lt;body&gt;)</code></strong><br>
-<strong><code>(define (&lt;variable&gt; . &lt;formal&gt;) &lt;body&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Theses forms bind an identifier to a a value.</p>
-</div>
-<div class="paragraph">
-<p>The first form binds the <code>&lt;variable&gt;</code> to the result of the evaluation of
-<code>&lt;expression&gt;</code>.</p>
-</div>
-<div class="paragraph">
-<p>The second form of <code>define</code> is equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">&lt;variable&gt;</span>
-        <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">&lt;formals&gt;</span><span class="p">)</span> <span class="nv">body</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The third <code>define</code> form, where <code>&lt;formal&gt;</code> is a single variable, is equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">&lt;variable&gt;</span>
-        <span class="p">(</span><span class="k">lambda</span> <span class="nv">&lt;formals&gt;</span> <span class="nv">body</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The <code>define</code> form accepts also the definition of higher order lambda as
-defined in <strong><a href="http://srfi.schemers.org/srfi-219/srfi-219.html">SRFI-219</a></strong> (<em>Define higher-order lambda</em>).
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(define-constant &lt;variable&gt; &lt;expression&gt;)</code></strong><br>
-<strong><code>(define-constant (&lt;variable&gt; &lt;formals&gt;) body)</code></strong><br>
-<strong><code>(define-constant (&lt;variable&gt; . &lt;formal&gt;) body)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This form is similar to <code>define</code>, except the binding of <code>&lt;variable&gt;</code> which
-is non mutable.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-constant</span> <span class="nv">a</span> <span class="ss">'hello</span><span class="p">)</span>
-<span class="p">(</span><span class="k">set!</span> <span class="nv">a</span> <span class="ss">'goodbye</span><span class="p">)</span>             <span class="nv">=&gt;</span> <span class="nv">error</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="mi">2</span><span class="p">)</span>                  <span class="c1">; is  ok (it's a new binding)</span>
-<span class="p">(</span><span class="nf">define-constant</span> <span class="p">((</span><span class="nf">foo</span> <span class="nv">a</span><span class="p">)</span> <span class="nv">b</span><span class="p">)</span>  <span class="c1">; foo is (lambda (a) (lambda (b) ...)))</span>
-    <span class="o">...</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(symbol-immutable! symb)</code></strong><br>
-<strong><code>(symbol-immutable! symb mod)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Makes the symbol <code>symb</code> in module <code>mod</code> immutable. If <code>mod</code> is not specified,
-the current module is used.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="mi">1</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">symbol-mutable?</span> <span class="ss">'a</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">symbol-immutable!</span> <span class="ss">'a</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">symbol-mutable?</span> <span class="ss">'a</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="k">set!</span> <span class="nv">a</span> <span class="mi">10</span><span class="p">)</span>              <span class="nv">=&gt;</span> <span class="nv">error</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(symbol-mutable? symb)</code></strong><br>
-<strong><code>(symbol-mutable? symb module)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>symb</code> is mutable in <code>module</code> and <code>#f</code> otherwise. If <code>module</code>
-is omitted it defaults to the current module. Note that imported symbols are
-always not mutable.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-module</span> <span class="nv">M</span>
-   <span class="p">(</span><span class="nf">export</span> <span class="nv">x</span><span class="p">)</span>
-   <span class="p">(</span><span class="k">define</span> <span class="nv">x</span> <span class="mi">1</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">symbol-mutable?</span> <span class="ss">'x</span> <span class="p">(</span><span class="nf">find-module</span> <span class="ss">'M</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">symbol-mutable?</span> <span class="ss">'x</span><span class="p">)</span>                  <span class="nv">=&gt;</span> <span class="nv">error,</span> <span class="nv">if</span> <span class="nv">not</span> <span class="nv">defined</span> <span class="nv">in</span> <span class="nv">current</span> <span class="nv">module</span>
-<span class="p">(</span><span class="nf">import</span> <span class="nv">M</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">symbol-mutable?</span> <span class="ss">'x</span><span class="p">)</span>                  <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_expressions.html">Expressions</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_standard_procedures.html">Standard Procedures</a> →</p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. In fact <code>define-module</code> on a given name defines a new module only the first time it is invoked on this name. By this way, interactively reloading a module does not define a new entity, and the other modules which use it are not altered.
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. This transcript uses the default toplevel loop             which displays the name of the current module in the evaluator             prompt.
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_regular_expressions.html b/doc/HTML/_regular_expressions.html
deleted file mode 100644
index 315d9bac6..000000000
--- a/doc/HTML/_regular_expressions.html
+++ /dev/null
@@ -1,2592 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<style>
-pre.rouge table td { padding: 5px; }
-pre.rouge table pre { margin: 0; }
-pre.rouge .c, pre.rouge .ch, pre.rouge .cd, pre.rouge .cpf {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cm {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .c1 {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cp {
-  color: #75715e;
-  font-weight: bold;
-}
-pre.rouge .cs {
-  color: #75715e;
-  font-weight: bold;
-  font-style: italic;
-}
-pre.rouge .err {
-  color: #960050;
-  background-color: #1e0010;
-}
-pre.rouge .gi {
-  color: #ffffff;
-  background-color: #324932;
-}
-pre.rouge .gd {
-  color: #ffffff;
-  background-color: #493131;
-}
-pre.rouge .ge {
-  color: #000000;
-  font-style: italic;
-}
-pre.rouge .gr {
-  color: #aa0000;
-}
-pre.rouge .gt {
-  color: #aa0000;
-}
-pre.rouge .gh {
-  color: #999999;
-}
-pre.rouge .go {
-  color: #888888;
-}
-pre.rouge .gp {
-  color: #555555;
-}
-pre.rouge .gs {
-  font-weight: bold;
-}
-pre.rouge .gu {
-  color: #aaaaaa;
-}
-pre.rouge .k, pre.rouge .kv {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kc {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kd {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kp {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kr {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kt {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kn {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .ow {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .o {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .mf {
-  color: #ae81ff;
-}
-pre.rouge .mh {
-  color: #ae81ff;
-}
-pre.rouge .il {
-  color: #ae81ff;
-}
-pre.rouge .mi {
-  color: #ae81ff;
-}
-pre.rouge .mo {
-  color: #ae81ff;
-}
-pre.rouge .m, pre.rouge .mb, pre.rouge .mx {
-  color: #ae81ff;
-}
-pre.rouge .se {
-  color: #ae81ff;
-}
-pre.rouge .sa {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .sb {
-  color: #e6db74;
-}
-pre.rouge .sc {
-  color: #e6db74;
-}
-pre.rouge .sd {
-  color: #e6db74;
-}
-pre.rouge .s2 {
-  color: #e6db74;
-}
-pre.rouge .sh {
-  color: #e6db74;
-}
-pre.rouge .si {
-  color: #e6db74;
-}
-pre.rouge .sx {
-  color: #e6db74;
-}
-pre.rouge .sr {
-  color: #e6db74;
-}
-pre.rouge .s1 {
-  color: #e6db74;
-}
-pre.rouge .ss {
-  color: #e6db74;
-}
-pre.rouge .s, pre.rouge .dl {
-  color: #e6db74;
-}
-pre.rouge .na {
-  color: #a6e22e;
-}
-pre.rouge .nc {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nd {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .ne {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nf, pre.rouge .fm {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .no {
-  color: #66d9ef;
-}
-pre.rouge .bp {
-  color: #f8f8f2;
-}
-pre.rouge .nb {
-  color: #f8f8f2;
-}
-pre.rouge .ni {
-  color: #f8f8f2;
-}
-pre.rouge .nn {
-  color: #f8f8f2;
-}
-pre.rouge .vc {
-  color: #f8f8f2;
-}
-pre.rouge .vg {
-  color: #f8f8f2;
-}
-pre.rouge .vi {
-  color: #f8f8f2;
-}
-pre.rouge .nv, pre.rouge .vm {
-  color: #f8f8f2;
-}
-pre.rouge .w {
-  color: #f8f8f2;
-}
-pre.rouge .nl {
-  color: #f8f8f2;
-  font-weight: bold;
-}
-pre.rouge .nt {
-  color: #f92672;
-}
-pre.rouge {
-  color: #f8f8f2;
-  background-color: #49483e;
-}
-</style>
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_regular_expressions" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html"><span class="toc-current">5. Regular Expressions</span></a>
-<ul class="sectlevel2">
-<li><a href="_regular_expressions.html#_backslash">5.1. Backslash</a>
-</li>
-<li><a href="_regular_expressions.html#_circumflex_and_dollar">5.2. Circumflex and Dollar</a>
-</li>
-<li><a href="_regular_expressions.html#_full_stop_period_dot">5.3. Full Stop (period, dot)</a>
-</li>
-<li><a href="_regular_expressions.html#_square_brackets">5.4. Square Brackets</a>
-</li>
-<li><a href="_regular_expressions.html#_posix_character_classes">5.5. POSIX character classes</a>
-</li>
-<li><a href="_regular_expressions.html#_vertical_bar">5.6. Vertical Bar</a>
-</li>
-<li><a href="_regular_expressions.html#_internal_option_setting">5.7. Internal Option Setting</a>
-</li>
-<li><a href="_regular_expressions.html#_subpatterns">5.8. Subpatterns</a>
-</li>
-<li><a href="_regular_expressions.html#_named_subpatterns">5.9. Named Subpatterns</a>
-</li>
-<li><a href="_regular_expressions.html#_repetition">5.10. Repetition</a>
-</li>
-<li><a href="_regular_expressions.html#_atomic_grouping_and_possessive_quantifiers">5.11. Atomic Grouping And Possessive Quantifiers</a>
-</li>
-<li><a href="_regular_expressions.html#_back_references">5.12. Back References</a>
-</li>
-<li><a href="_regular_expressions.html#_assertions">5.13. Assertions</a>
-</li>
-<li><a href="_regular_expressions.html#_conditional_subpatterns">5.14. Conditional Subpatterns</a>
-</li>
-<li><a href="_regular_expressions.html#_comments_2">5.15. Comments</a>
-</li>
-<li><a href="_regular_expressions.html#_subpatterns_as_subroutines">5.16. Subpatterns As Subroutines</a>
-</li>
-<li><a href="_regular_expressions.html#_regexp_procedures">5.17. Regexp Procedures</a>
-</li>
-</ul>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_regular_expressions">5. Regular Expressions</h2>
-<div class="sectionbody">
-<div class="paragraph">
-<p>
-
-<strong><em>STklos</em></strong> uses the Philip Hazel&#8217;s Perl-compatible Regular Expression (PCRE)
-library for implementing regexps <a href="_bibliography.html#PCRE">[PCRE]</a>.  Consequently, the <strong><em>STklos</em></strong> regular
-expression syntax is the same as PCRE, and Perl by the way.</p>
-</div>
-<div class="paragraph">
-<p>The following text is extracted from the PCRE package. However, to make things
-shorter, some of the original documentation as not been reported here. In
-particular some possibilities of PCRE have been completely occulted (those
-whose description was too long and which seems (at least to me), not too
-important). Read the documentation provided with PCRE for a complete
-description footnote{The latest release of PCRE is available from
-<a href="http://www.pcre.org/" class="bare">http://www.pcre.org/</a>.</p>
-</div>
-<div class="paragraph">
-<p>A regular expression is a pattern that is matched against a subject string
-from left to right. Most characters stand for themselves in a pattern, and
-match the corresponding characters in the subject. As a trivial example, the
-pattern</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>The quick brown fox</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches a portion of a subject string that is identical to itself.  The power
-of regular expressions comes from the ability to include alternatives and
-repetitions in the pattern. These are encoded in the pattern by the use of
-<em>meta-characters</em>, which do not stand for themselves but instead are
-interpreted in some special way.</p>
-</div>
-<div class="paragraph">
-<p>There are two different sets of meta-characters: those that are recognized
-anywhere in the pattern except within square brackets, and those that are
-recognized in square brackets. Outside square brackets, the meta-characters
-are as follows:</p>
-</div>
-<table class="tableblock frame-all grid-all stretch small">
-<colgroup>
-<col style="width: 50%;">
-<col style="width: 50%;">
-</colgroup>
-<tbody>
-<tr>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">general escape character with several uses</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">^</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">assert start of subject (or line, in multiline mode)</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">$</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">assert end of subject (or line, in multiline mode)</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">.</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">match any character except newline (by default)</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">[</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">start character class definition</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">start of alternative branch</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">(</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">start subpattern</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">)</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">end subpattern</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">?</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">extends the meaning of '('<br>
-also 0 or 1 quantifier<br>
-also quantifier minimizer</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">*</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">0 or more quantifier</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">+</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">1 or more quantifier</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">{</p></td>
-</tr>
-</tbody>
-</table>
-<div class="paragraph">
-<p>Part of a pattern that is in square brackets is called a "character
-class". In a character class the only meta-characters are:</p>
-</div>
-<table class="tableblock frame-all grid-all stretch small">
-<colgroup>
-<col style="width: 50%;">
-<col style="width: 50%;">
-</colgroup>
-<tbody>
-<tr>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">general escape character</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">^</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">negate the class, but only if the first character</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">-</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">indicates character range</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">[</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">POSIX character class (only if followed by POSIX syntax)</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">]</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">terminates the character class</p></td>
-</tr>
-</tbody>
-</table>
-<div class="paragraph">
-<p>The following sections describe the use of each of the meta-characters.</p>
-</div>
-<div class="sect2">
-<h3 id="_backslash">5.1. Backslash</h3>
-<div class="paragraph">
-<p>The backslash character has several uses. Firstly, if it is followed by a
-non-alphameric character, it takes away any special meaning that character may
-have. This use of backslash as an escape character applies both inside and
-outside character classes.</p>
-</div>
-<div class="paragraph">
-<p>For example, if you want to match a <code><strong></code> character, you write
-<code></strong></code> in the pattern.  This escaping action applies whether or not
-the following character would otherwise be interpreted as a
-meta-character, so it is always safe to precede a non-alphameric
-with backslash to specify that it stands for itself. In
-particular, if you want to match a backslash, you write <code>\</code>.</p>
-</div>
-<div class="paragraph">
-<p>If you want to remove the special meaning from a sequence of characters, you
-can do so by putting them between <code>Q</code> and <code>E</code>. This is different from Perl
-in that <code>$</code> and <code>@</code> are handled as literals in <code>Q</code>&#8230;&#8203;<code>E</code> sequences in PCRE,
-whereas in Perl, <code>`$</code> and <code>@</code> cause variable interpolation. Note the following
-examples:</p>
-</div>
-<table class="tableblock frame-all grid-all stretch">
-<colgroup>
-<col style="width: 33.3333%;">
-<col style="width: 33.3333%;">
-<col style="width: 33.3334%;">
-</colgroup>
-<thead>
-<tr>
-<th class="tableblock halign-left valign-top">Pattern</th>
-<th class="tableblock halign-left valign-top">PCRE matches</th>
-<th class="tableblock halign-left valign-top">Perl matches</th>
-</tr>
-</thead>
-<tbody>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Qabc$xyzE</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">abc$xyz</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">abc followed by the contents of $xyz</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Qabc$xyzE</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">abc$xyz</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">abc$xyz</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">QabcE$QxyzE</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">abc$xyz</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">abc$xyz</p></td>
-</tr>
-</tbody>
-</table>
-<div class="paragraph">
-<p>The <code>Q&#8230;&#8203;E</code> sequence is recognized both inside and outside character
-classes.</p>
-</div>
-<div class="paragraph">
-<p>A second use of backslash provides a way of encoding non-printing
-characters in patterns in a visible manner. There is no restriction on
-the appearance of non-printing characters, apart from the binary zero
-that terminates a pattern, but when a pattern is being prepared by
-text editing, it is usually easier to use one of the following escape
-sequences than the binary character it represents:</p>
-</div>
-<table class="tableblock frame-all grid-all stretch">
-<colgroup>
-<col style="width: 50%;">
-<col style="width: 50%;">
-</colgroup>
-<tbody>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">a</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">alarm, that is, the BEL character (hex 07)</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">cx</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><em>control-x</em>, where x is any character</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">e</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">escape (hex 1B)</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">f</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">formfeed (hex 0C)</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">n</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">newline (hex 0A)</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">r</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">carriage return (hex 0D)</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">t</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">tab (hex 09)</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">ddd</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">character with octal code ddd, or backreference</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">xhh</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">character with hex code hh</p></td>
-</tr>
-</tbody>
-</table>
-<div class="paragraph">
-<p>The precise effect of <code>x</code> is as follows: if <code>x</code> is a lower case
-letter, it is converted to upper case. Then bit 6 of the character
-(hex 40) is inverted.  Thus <code>cz</code> becomes hex 1A, but <code>c{</code> becomes
-hex 3B, while <code>c;</code> becomes hex 7B.</p>
-</div>
-<div class="paragraph">
-<p>The handling of a backslash followed by a digit other than 0 is
-complicated.  Outside a character class, PCRE reads it and any
-following digits as a decimal number. If the number is less than 10,
-or if there have been at least that many previous capturing left
-parentheses in the expression, the entire sequence is taken as a <em>back
-reference</em>. A description of how this works is given later, following
-the discussion of parenthesized subpatterns.</p>
-</div>
-<div class="paragraph">
-<p>The third use of backslash is for specifying generic character types:</p>
-</div>
-<table class="tableblock frame-all grid-all stretch">
-<colgroup>
-<col style="width: 50%;">
-<col style="width: 50%;">
-</colgroup>
-<tbody>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">d</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">any decimal digit</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">D</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">any character that is not a decimal digit</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">s</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">any whitespace character</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">S</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">any character that is not a whitespace character</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">w</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">any <em>word</em> character</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">W</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">any <em>non-word</em> character</p></td>
-</tr>
-</tbody>
-</table>
-<div class="paragraph">
-<p>Each pair of escape sequences partitions the complete set of
-characters into two disjoint sets. Any given character matches one,
-and only one, of each pair.</p>
-</div>
-<div class="paragraph">
-<p>For compatibility with Perl, <code>s</code> does not match the VT character
-(code 11).  This makes it different from the the POSIX "space"
-class. The <code>s</code> characters are HT (9), LF (10), FF (12), CR (13), and
-space (32).</p>
-</div>
-<div class="paragraph">
-<p>A <em>word</em> character is any letter or digit or the underscore character,
-that is, any character which can be part of a Perl <em>word</em>. The
-definition of letters and digits is controlled by PCRE&#8217;s character
-tables, and may vary if locale-specific matching is taking place.  For
-example, in the "fr" (French) locale, some character codes greater
-than 128 are used for accented letters, and these are matched by <code>w</code>.</p>
-</div>
-<div class="paragraph">
-<p>These character type sequences can appear both inside and outside
-character classes. They each match one character of the appropriate
-type. If the current matching point is at the end of the subject
-string, all of them fail, since there is no character to match.</p>
-</div>
-<div class="paragraph">
-<p>The fourth use of backslash is for certain simple assertions. An
-assertion specifies a condition that has to be met at a particular
-point in a match, without consuming any characters from the subject
-string. The use of subpatterns for more complicated assertions is
-described below. The backslashed assertions are</p>
-</div>
-<table class="tableblock frame-all grid-all stretch">
-<colgroup>
-<col style="width: 50%;">
-<col style="width: 50%;">
-</colgroup>
-<tbody>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">b</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">matches at a word boundary</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">B</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">matches when not at a word boundary</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">A</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">matches at start of subject</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Z</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">matches at end of subject or before newline at end</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">z</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">matches at end of subject</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">G</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">matches at first matching position in subject</p></td>
-</tr>
-</tbody>
-</table>
-<div class="paragraph">
-<p>These assertions may not appear in character classes (but note that
-<code>b</code> has a different meaning, namely the backspace character, inside a
-character class).</p>
-</div>
-<div class="paragraph">
-<p>A word boundary is a position in the subject string where the current
-character and the previous character do not both match <code>w</code>
-or <code>W</code> (i.e. one matches <code>w</code> and the other matches
-<code>W</code>), or the start or end of the string if the first or last
-character matches <code>w</code>, respectively.</p>
-</div>
-<div class="paragraph">
-<p>The <code>A</code>, <code>Z</code>, and <code>z</code> assertions differ from the traditional
-circumflex and dollar (described below) in that they only ever match
-at the very start and end of the subject string, whatever options
-are set. Thus, they are independent of multiline mode.</p>
-</div>
-<div class="paragraph">
-<p>The backslash character has several uses. Firstly, if it is followed by
-a non-alphameric character, it takes away any special meaning that
-character may have. This use of backslash as an escape character applies
-both inside and outside character classes.</p>
-</div>
-<div class="paragraph">
-<p>For example, if you want to match a "<strong>" character, you write "\</strong>"
-in the pattern. This applies whether or not the following character
-would otherwise be interpreted as a meta-character, so it is always
-safe to precede a non-alphameric with &#8220;`" to specify that it stands
-for itself. In particular, if you want to match a backslash, you write
-"`\&#8221;.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_circumflex_and_dollar">5.2. Circumflex and Dollar</h3>
-<div class="paragraph">
-<p>Outside a character class, in the default matching mode, the
-circumflex character is an assertion which is true only if the current
-matching point is at the start of the subject string. Inside a
-character class, circumflex has an entirely different meaning (see
-below).</p>
-</div>
-<div class="paragraph">
-<p>Circumflex need not be the first character of the pattern if a number
-of alternatives are involved, but it should be the first thing in each
-alternative in which it appears if the pattern is ever to match that
-branch. If all possible alternatives start with a circumflex, that is,
-if the pattern is constrained to match only at the start of the
-subject, it is said to be an "anchored" pattern. (There are also other
-constructs that can cause a pattern to be anchored.)</p>
-</div>
-<div class="paragraph">
-<p>A dollar character is an assertion which is true only if the current
-matching point is at the end of the subject string, or immediately
-before a newline character that is the last character in the string
-(by default). Dollar need not be the last character of the pattern if
-a number of alternatives are involved, but it should be the last item
-in any branch in which it appears.  Dollar has no special meaning in a
-character class.</p>
-</div>
-<div class="paragraph">
-<p>The meanings of the circumflex and dollar characters are changed if
-the <em>multiline</em> option is set. When this is the case, they match
-immediately after and immediately before an internal newline
-character, respectively, in addition to matching at the start and end
-of the subject string. For example, the pattern <code>^abc$</code> matches the
-subject string <code>"defnabc"</code> in multiline mode, but not otherwise.</p>
-</div>
-<div class="paragraph">
-<p>Note that the sequences <code>A</code>, <code>Z</code>, and <code>z</code> can be used to match the
-start and end of the subject in both modes, and if all branches of a
-pattern start with <code>A</code> it is always anchored, whether
-<em>multiline</em> is set or not.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_full_stop_period_dot">5.3. Full Stop (period, dot)</h3>
-<div class="paragraph">
-<p>Outside a character class, a dot in the pattern matches any
-one character in the subject, including a non-printing character,
-but not (by default) newline. If the <em>dotall</em> option is
-set, dots match newlines as well. The handling of dot is entirely
-independent of the handling of circumflex and dollar, the only
-relationship being that they both involve newline characters. Dot
-has no special meaning in a character class.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_square_brackets">5.4. Square Brackets</h3>
-<div class="paragraph">
-<p>An opening square bracket introduces a character class,
-terminated by a closing square bracket. A closing square bracket
-on its own is not special. If a closing square bracket is
-required as a member of the class, it should be the first data
-character in the class (after an initial circumflex, if present)
-or escaped with a backslash.</p>
-</div>
-<div class="paragraph">
-<p>A character class matches a single character in the
-subject. A matched character must be in the set of characters
-defined by the class, unless the first character in the class
-definition is a circumflex, in which case the subject character
-must not be in the set defined by the class. If a circumflex is
-actually required as a member of the class, ensure it is not the
-first character, or escape it with a backslash.</p>
-</div>
-<div class="paragraph">
-<p>For example, the character class <code>[aeiou]</code> matches any lower case
-vowel, while <code>[^aeiou]</code> matches any character that is not a lower case
-vowel. Note that a circumflex is just a convenient notation for
-specifying the characters which are in the class by enumerating those
-that are not. It is not an assertion: it still consumes a character
-from the subject string, and fails if the current pointer is at the
-end of the string.</p>
-</div>
-<div class="paragraph">
-<p>When caseless matching is set, any letters in a class represent both
-their upper case and lower case versions, so for example, a caseless
-<code>[aeiou]</code> matches "A" as well as "a", and a caseless <code>[^aeiou]</code>
-does not match "A", whereas a caseful version would.</p>
-</div>
-<div class="paragraph">
-<p>The newline character is never treated in any special way in character classes,
-whatever the setting of the <em>dotall</em> or <em>multiline</em> options is. A class
-such as <code>[^a]</code> will always match a newline.</p>
-</div>
-<div class="paragraph">
-<p>The minus (hyphen) character can be used to specify a range of characters in a
-character class. For example, [d-m] matches any letter between d and m,
-inclusive. If a minus character is required in a class, it must be escaped with
-a backslash or appear in a position where it cannot be interpreted as
-indicating a range, typically as the first or last character in the class.</p>
-</div>
-<div class="paragraph">
-<p>It is not possible to have the literal character "]" as the end
-character of a range. A pattern such as <code>[W-]46]</code> is interpreted as a
-class of two characters ("W" and "-") followed by a literal string
-"46]", so it would match "W46]" or "-46]". However, if the "]" is
-escaped with a backslash it is interpreted as the end of range, so
-<code>(W]46)</code> is interpreted as a single class containing a range followed
-by two separate characters. The octal or hexadecimal representation of
-"]" can also be used to end a range.</p>
-</div>
-<div class="paragraph">
-<p>Ranges operate in the collating sequence of character values. They can also be
-used for characters specified numerically, for example <code>[000-037]</code>.</p>
-</div>
-<div class="paragraph">
-<p>If a range that includes letters is used when caseless matching is set, it
-matches the letters in either case. For example, <code>[W-c]</code> is equivalent to
-<code>[][^_`wxyzabc]</code>, matched caselessly, and if character tables for the "fr"
-locale are in use, <code>[xc8-xcb]</code> matches accented E characters in both cases.</p>
-</div>
-<div class="paragraph">
-<p>The character types <code>d</code>, <code>D</code>, <code>s</code>, <code>S</code>, 'w`, and <code>W</code> may also appear in a
-character class, and add the characters that they match to the class. For
-example, <code>[dABCDEF]</code> matches any hexadecimal digit. A circumflex can
-conveniently be used with the upper case character types to specify a more
-restricted set of characters than the matching lower case type. For example,
-the class <code>[^W_]</code> matches any letter or digit, but not underscore.</p>
-</div>
-<div class="paragraph">
-<p>All non-alphameric characters other than <code>`, `-</code>, <code>^</code> (at the start) and the
-terminating <code>]</code> are non-special in character classes, but it does no harm if they
-are escaped.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_posix_character_classes">5.5. POSIX character classes</h3>
-<div class="paragraph">
-<p>Perl supports the POSIX notation for character classes, which
-uses names enclosed by [: and :] within the enclosing square
-brackets. <strong><em>STklos</em></strong> , thanks to PCRE, also supports this
-notation. For example,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>[01[:alpha:]%]</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches "0", "1", any alphabetic character, or "%". The supported
-class names are</p>
-</div>
-<table class="tableblock frame-all grid-all stretch">
-<colgroup>
-<col style="width: 50%;">
-<col style="width: 50%;">
-</colgroup>
-<tbody>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">alnum</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">letters and digits</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">alpha</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">letters</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">ascii</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">character codes 0 - 127</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">blank</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">space or tab only</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">cntrl</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">control characters</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">digit</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">decimal digits (same as d</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">graph</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">printing characters, excluding space</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">lower</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">lower case letters</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">print</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">printing characters, including space</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">punct</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">printing characters, excluding letters and digits</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">space</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">white space (not quite the same as s)</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">upper</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">upper case letters</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">word"</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock"><em>word</em> characters (same as w)</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">xdigit</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">hexadecimal digits</p></td>
-</tr>
-</tbody>
-</table>
-<div class="paragraph">
-<p>The <em>space</em> characters are HT (9), LF (10), VT (11), FF (12), CR (13), and
-space (32). Notice that this list includes the VT character (code 11). This
-makes "space" different to $backslash$s, which does not include VT (for Perl
-compatibility).</p>
-</div>
-<div class="paragraph">
-<p>The name <em>word</em> is a Perl extension, and <em>blank</em> is a GNU extension from Perl
-5.8. Another Perl extension is negation, which is indicated by a <code>^</code> character
-after the colon. For example,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>[12[:^digit:]]</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches "1", "2", or any non-digit. <strong><em>STklos</em></strong> (and Perl) also
-recognize the POSIX syntax <code>[.ch.]</code> and <code>[=ch=]</code> where "ch" is a
-"collating element", but these are not supported, and an error is
-given if they are encountered.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_vertical_bar">5.6. Vertical Bar</h3>
-<div class="paragraph">
-<p>Vertical bar characters are used to separate alternative patterns. For example,
-the pattern</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>gilbert|sullivan</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches either "gilbert" or "sullivan". Any number of alternatives may appear,
-and an empty alternative is permitted (matching the empty string).
-The matching process tries each alternative in turn, from left to right,
-and the first one that succeeds is used. If the alternatives are within a
-subpattern (defined below), "succeeds" means matching the rest of the main
-pattern as well as the alternative in the subpattern.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_internal_option_setting">5.7. Internal Option Setting</h3>
-<div class="paragraph">
-<p>The settings of the <em>caseless</em>, <em>multiline</em>, <em>dotall</em>, and
-<em>EXTENDED</em> options can be changed from within the pattern by a sequence of
-Perl option letters enclosed between "(?" and ")". The option letters are</p>
-</div>
-<table class="tableblock frame-all grid-all stretch">
-<colgroup>
-<col style="width: 50%;">
-<col style="width: 50%;">
-</colgroup>
-<tbody>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">i</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">for <em>caseless</em></p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">m</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">for <em>multiline</em></p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">s</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">for <em>dotall</em></p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">x</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">for <em>extended</em></p></td>
-</tr>
-</tbody>
-</table>
-<div class="paragraph">
-<p>For example, <code>(?im)</code> sets <em>caseless</em>, <em>multiline matching</em>. It is also possible to
-unset these options by preceding the letter with a hyphen, and a combined
-setting and unsetting such as <code>(?im-sx)</code>, which sets <em>caseless</em> and
-<em>multiline</em> while unsetting <em>dotall</em> and <em>extended</em>, is also
-permitted. If a letter appears both before and after the hyphen, the option is
-unset.</p>
-</div>
-<div class="paragraph">
-<p>When an option change occurs at top level (that is, not inside subpattern
-parentheses), the change applies to the remainder of the pattern that follows.
-If the change is placed right at the start of a pattern, PCRE extracts it into
-the global options</p>
-</div>
-<div class="paragraph">
-<p>An option change within a subpattern affects only that part of the current
-pattern that follows it, so</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(a(?i)b)c</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches <code>abc</code> and <code>aBc</code> and no other strings (assuming <em>caseless</em> is
-not used).By this means, options can be made to have different
-settings in different parts of the pattern. Any changes made in one
-alternative do carry on into subsequent branches within the same
-subpattern. For example,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(a(?i)b|c)</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches "ab", "aB", "c", and "C", even though when matching "C" the first
-branch is abandoned before the option setting. This is because the effects of
-option settings happen at compile time. There would be some very weird
-behaviour otherwise.</p>
-</div>
-<div class="paragraph">
-<p>The PCRE-specific options <em>ungreedy</em> and <em>extra</em> can be changed in
-the same way as the Perl-compatible options by using the characters
-<code>U</code> and <code>X</code> respectively. The <code>(?X)</code> flag setting is special in that
-it must always occur earlier in the pattern than any of the additional
-features it turns on, even when it is at top level. It is best put at
-the start.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_subpatterns">5.8. Subpatterns</h3>
-<div class="paragraph">
-<p>Subpatterns are delimited by parentheses (round brackets), which can be nested.
-Marking part of a pattern as a subpattern does two things:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>It localizes a set of alternatives. For example, the pattern</p>
-</li>
-</ul>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>cat(aract|erpillar|)</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches one of the words "cat", "cataract", or "caterpillar". Without the
-parentheses, it would match "cataract", "erpillar" or the empty string.</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>It sets up the subpattern as a capturing subpattern (as
-defined above).  When the whole pattern matches, that portion of
-the subject string that matched the subpattern is set so that it
-can be used in the regexp-replace or
-regexp-replace-all functions. Opening parentheses
-are counted from left to right (starting from 1) to obtain the
-numbers of the capturing subpatterns.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>For example, if the string "the red king" is matched against the pattern</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>the ((red|white) (king|queen))</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>the captured substrings are "red king", "red", and "king", and are numbered 1,
-2, and 3, respectively.</p>
-</div>
-<div class="paragraph">
-<p>The fact that plain parentheses fulfil two functions is not always helpful.
-There are often times when a grouping subpattern is required without a
-capturing requirement. If an opening parenthesis is followed by a question mark
-and a colon, the subpattern does not do any capturing, and is not counted when
-computing the number of any subsequent capturing subpatterns. For example, if
-the string "the white queen" is matched against the pattern</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>the ((?:red|white) (king|queen))</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>the captured substrings are "white queen" and "queen", and are
-numbered 1 and 2. The maximum number of capturing subpatterns is
-65535, and the maximum depth of nesting of all subpatterns, both
-capturing and non-capturing, is 200.</p>
-</div>
-<div class="paragraph">
-<p>As a convenient shorthand, if any option settings are required at the
-start of a non-capturing subpattern, the option letters may appear
-between the "?" and the ":".<br>
-Thus the two patterns</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?i:saturday|sunday)</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>and</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?:(?i)saturday|sunday)</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>match exactly the same set of strings. Because alternative branches are tried
-from left to right, and options are not reset until the end of the subpattern
-is reached, an option setting in one branch does affect subsequent branches, so
-the above patterns match "SUNDAY" as well as "Saturday".</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_named_subpatterns">5.9. Named Subpatterns</h3>
-<div class="paragraph">
-<p>Identifying capturing parentheses by number is simple, but it can be very hard
-to keep track of the numbers in complicated regular expressions. Furthermore,
-if an expression is modified, the numbers may change. To help with the
-difficulty, PCRE supports the naming of subpatterns, something that Perl does
-not provide. The Python syntax (?P&lt;name&gt;&#8230;&#8203;) is used. Names consist of
-alphanumeric characters and underscores, and must be unique within a pattern.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_repetition">5.10. Repetition</h3>
-<div class="paragraph">
-<p>Repetition is specified by quantifiers, which can follow any of the following
-items:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>a literal data character</p>
-</li>
-<li>
-<p>the <code>.</code> metacharacter</p>
-</li>
-<li>
-<p>the <code>C</code> escape sequence</p>
-</li>
-<li>
-<p>escapes such as <code>d</code> that match single characters</p>
-</li>
-<li>
-<p>a character class</p>
-</li>
-<li>
-<p>a back reference (see next section)</p>
-</li>
-<li>
-<p>a parenthesized subpattern (unless it is an assertion)</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>The general repetition quantifier specifies a minimum and maximum
-number of permitted matches, by giving the two numbers in curly
-brackets (braces), separated by a comma. The numbers must be less than
-65536, and the first must be less than or equal to the second. For
-example:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>z{2,4}</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches "zz", "zzz", or "zzzz". A closing brace on its own is not a special
-character. If the second number is omitted, but the comma is present, there is
-no upper limit; if the second number and the comma are both omitted, the
-quantifier specifies an exact number of required matches. Thus</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>[aeiou]{3,}</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches at least 3 successive vowels, but may match many more, while</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>d{8}</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches exactly 8 digits. An opening curly bracket that appears in a position
-where a quantifier is not allowed, or one that does not match the syntax of a
-quantifier, is taken as a literal character. For example, {,6} is not a
-quantifier, but a literal string of four characters.</p>
-</div>
-<div class="paragraph">
-<p>The quantifier {0} is permitted, causing the expression to behave as if the
-previous item and the quantifier were not present.</p>
-</div>
-<div class="paragraph">
-<p>For convenience (and historical compatibility) the three most common
-quantifiers have single-character abbreviations:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>*</code>    is equivalent to {0,}</p>
-</li>
-<li>
-<p><code>+</code>    is equivalent to {1,}</p>
-</li>
-<li>
-<p><code>?</code>    is equivalent to {0,1}</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>It is possible to construct infinite loops by following a subpattern that can
-match no characters with a quantifier that has no upper limit, for example:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(a?)*</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Earlier versions of Perl and PCRE used to give an error at compile time for
-such patterns. However, because there are cases where this can be useful, such
-patterns are now accepted, but if any repetition of the subpattern does in fact
-match no characters, the loop is forcibly broken.</p>
-</div>
-<div class="paragraph">
-<p>By default, the quantifiers are "greedy", that is, they match as much as
-possible (up to the maximum number of permitted times), without causing the
-rest of the pattern to fail. The classic example of where this gives problems
-is in trying to match comments in C programs. These appear between the
-sequences <code>/<strong></code> and <code></strong>/</code> and within the sequence, individual <code>*</code> and <code>/</code> characters may
-appear. An attempt to match C comments by applying the pattern</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>/*.**/</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>to the string</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>/* first command */  not comment  /* second comment */</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>fails, because it matches the entire string owing to the greediness of the <code>.*</code>
-item.</p>
-</div>
-<div class="paragraph">
-<p>However, if a quantifier is followed by a question mark, it ceases to be
-greedy, and instead matches the minimum number of times possible, so the
-pattern</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>/*.*?*/</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>does the right thing with the C comments. The meaning of the various
-quantifiers is not otherwise changed, just the preferred number of matches.
-Do not confuse this use of question mark with its use as a quantifier in its
-own right. Because it has two uses, it can sometimes appear doubled, as in</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>d??d</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>which matches one digit by preference, but can match two if that is the only
-way the rest of the pattern matches.</p>
-</div>
-<div class="paragraph">
-<p>If the <em>ungreedy</em> option is set (an option which is not available in
-Perl), the quantifiers are not greedy by default, but individual ones
-can be made greedy by following them with a question mark. In other
-words, it inverts the default behaviour.</p>
-</div>
-<div class="paragraph">
-<p>When a parenthesized subpattern is quantified with a minimum repeat
-count that is greater than 1 or with a limited maximum, more store is
-required for the compiled pattern, in proportion to the size of the
-minimum or maximum.</p>
-</div>
-<div class="paragraph">
-<p>If a pattern starts with <code>.*</code> or <code>.{0,}</code> and the <em>dotall</em> option (equivalent
-to Perl&#8217;s <code>/s</code>) is set, thus allowing the <code>.</code> to match newlines, the pattern is
-implicitly anchored, because whatever follows will be tried against every
-character position in the subject string, so there is no point in retrying the
-overall match at any position after the first. PCRE normally treats such a
-pattern as though it were preceded by <code>A</code>.</p>
-</div>
-<div class="paragraph">
-<p>In cases where it is known that the subject string contains no newlines, it is
-worth setting <em>dotall</em> in order to obtain this optimization, or
-alternatively using <code>^</code> to indicate anchoring explicitly.</p>
-</div>
-<div class="paragraph">
-<p>However, there is one situation where the optimization cannot be used. When <code>.*</code>
-is inside capturing parentheses that are the subject of a backreference
-elsewhere in the pattern, a match at the start may fail, and a later one
-succeed. Consider, for example:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(.*)abc1</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>If the subject is <code>"xyz123abc123"</code> the match point is the fourth character. For
-this reason, such a pattern is not implicitly anchored.</p>
-</div>
-<div class="paragraph">
-<p>When a capturing subpattern is repeated, the value captured is the substring
-that matched the final iteration. For example, after</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(tweedle[dume]{3}s*)+</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>has matched "tweedledum tweedledee" the value of the captured substring is
-"tweedledee". However, if there are nested capturing subpatterns, the
-corresponding captured values may have been set in previous iterations. For
-example, after</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(a|(b))+</code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_atomic_grouping_and_possessive_quantifiers">5.11. Atomic Grouping And Possessive Quantifiers</h3>
-<div class="paragraph">
-<p>With both maximizing and minimizing repetition, failure of what follows
-normally causes the repeated item to be re-evaluated to see if a different
-number of repeats allows the rest of the pattern to match. Sometimes it is
-useful to prevent this, either to change the nature of the match, or to cause
-it fail earlier than it otherwise might, when the author of the pattern knows
-there is no point in carrying on.</p>
-</div>
-<div class="paragraph">
-<p>Consider, for example, the pattern <code>d+foo</code> when applied to the subject line</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>123456bar</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>After matching all 6 digits and then failing to match "foo", the normal
-action of the matcher is to try again with only 5 digits matching the <code>d+</code>
-item, and then with 4, and so on, before ultimately failing. "Atomic grouping"
-(a term taken from Jeffrey Friedl&#8217;s book) provides the means for specifying
-that once a subpattern has matched, it is not to be re-evaluated in this way.</p>
-</div>
-<div class="paragraph">
-<p>If we use atomic grouping for the previous example, the matcher would give up
-immediately on failing to match "foo" the first time. The notation is a kind of
-special parenthesis, starting with (<code>?&gt;</code> as in this example:)</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?&gt;d+)foo</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>This kind of parenthesis "locks up" the  part of the pattern it contains once
-it has matched, and a failure further into the pattern is prevented from
-backtracking into it. Backtracking past it to previous items, however, works as
-normal.</p>
-</div>
-<div class="paragraph">
-<p>An alternative description is that a subpattern of this type matches the string
-of characters that an identical standalone pattern would match, if anchored at
-the current point in the subject string.</p>
-</div>
-<div class="paragraph">
-<p>Atomic grouping subpatterns are not capturing subpatterns. Simple
-cases such as the above example can be thought of as a maximizing
-repeat that must swallow everything it can. So, while both
-<code>d+</code> and <code>d+?</code> are prepared to adjust the number
-of digits they match in order to make the rest of the pattern match,
-<code>(?&gt;d+)</code> can only match an entire sequence of digits.</p>
-</div>
-<div class="paragraph">
-<p>Atomic groups in general can of course contain arbitrarily complicated
-subpatterns, and can be nested. However, when the subpattern for an atomic
-group is just a single repeated item, as in the example above, a simpler
-notation, called a "possessive quantifier" can be used. This consists of an
-additional <code>+</code> character following a quantifier. Using this notation, the
-previous example can be rewritten as</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>d++bar</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Possessive quantifiers are always greedy; the setting of the <em>ungreedy</em>
-option is ignored. They are a convenient notation for the simpler forms of
-atomic group. However, there is no difference in the meaning or processing of a
-possessive quantifier and the equivalent atomic group.</p>
-</div>
-<div class="paragraph">
-<p>The possessive quantifier syntax is an extension to the Perl syntax. It
-originates in Sun&#8217;s Java package.</p>
-</div>
-<div class="paragraph">
-<p>When a pattern contains an unlimited repeat inside a subpattern that can itself
-be repeated an unlimited number of times, the use of an atomic group is the
-only way to avoid some failing matches taking a very long time indeed. The
-pattern</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(D+|&lt;d+&gt;)*[!?]</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches an unlimited number of substrings that either consist of non-digits, or
-digits enclosed in &lt;&gt;, followed by either ! or ?. When it matches, it runs
-quickly. However, if it is applied to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>it takes a long time before reporting failure. This is because the string can
-be divided between the two repeats in a large number of ways, and all have to
-be tried. (The example used <code>[!?]</code> rather than a single character at the end,
-because both PCRE and Perl have an optimization that allows for fast failure
-when a single character is used. They remember the last single character that
-is required for a match, and fail early if it is not present in the string.)
-If the pattern is changed to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>((?&gt;D+)|&lt;d+&gt;)*[!?]</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>sequences of non-digits cannot be broken, and failure happens quickly.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_back_references">5.12. Back References</h3>
-<div class="paragraph">
-<p>Outside a character class, a backslash followed by a digit greater than 0 (and
-possibly further digits) is a back reference to a capturing subpattern earlier
-(that is, to its left) in the pattern, provided there have been that many
-previous capturing left parentheses.</p>
-</div>
-<div class="paragraph">
-<p>However, if the decimal number following the backslash is less than
-10, it is always taken as a back reference, and causes an error only
-if there are not that many capturing left parentheses in the entire
-pattern. In other words, the parentheses that are referenced need not
-be to the left of the reference for numbers less than 10. See the
-section entitled "Backslash" above for further details of the handling
-of digits following a backslash.</p>
-</div>
-<div class="paragraph">
-<p>A back reference matches whatever actually matched the capturing
-subpattern in the current subject string, rather than anything
-matching the subpattern itself (see below for a way of doing that). So
-the pattern</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(sens|respons)e and 1ibility</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches "sense and sensibility" and "response and responsibility", but not
-"sense and responsibility". If caseful matching is in force at the time of the
-back reference, the case of letters is relevant. For example,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>((?i)rah)s+1</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches "rah rah" and "RAH RAH", but not "RAH rah", even though the original
-capturing subpattern is matched caselessly.</p>
-</div>
-<div class="paragraph">
-<p>Back references to named subpatterns use the Python syntax <code>(?P=name)</code>. We could
-rewrite the above example as follows:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?&lt;p1&gt;(?i)rah)s+(?P=p1)</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>There may be more than one back reference to the same subpattern. If a
-subpattern has not actually been used in a particular match, any back
-references to it always fail. For example, the pattern</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(a|(bc))2</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>always fails if it starts to match "a" rather than "bc". Because there may be
-many capturing parentheses in a pattern, all digits following the backslash are
-taken as part of a potential back reference number. If the pattern continues
-with a digit character, some delimiter must be used to terminate the back
-reference. If the <em>extended</em> option is set, this can be whitespace.
-Otherwise an empty comment can be used.</p>
-</div>
-<div class="paragraph">
-<p>A back reference that occurs inside the parentheses to which it refers fails
-when the subpattern is first used, so, for example, (a1) never matches.
-However, such references can be useful inside repeated subpatterns. For
-example, the pattern</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(a|b1)+</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches any number of "a"s and also "aba", "ababbaa" etc. At each iteration of
-the subpattern, the back reference matches the character string corresponding
-to the previous iteration. In order for this to work, the pattern must be such
-that the first iteration does not need to match the back reference. This can be
-done using alternation, as in the example above, or by a quantifier with a
-minimum of zero.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_assertions">5.13. Assertions</h3>
-<div class="paragraph">
-<p>An assertion is a test on the characters following or preceding the current
-matching point that does not actually consume any characters. The simple
-assertions coded as <code>b</code>, <code>B</code>, <code>A</code>, <code>G</code>, <code>Z</code>, <code>z</code>, <code>^</code> and <code>$</code> are described above.
-More complicated assertions are coded as subpatterns. There are two kinds:
-those that look ahead of the current position in the subject string, and those
-that look behind it.</p>
-</div>
-<div class="paragraph">
-<p>An assertion subpattern is matched in the normal way, except that it does not
-cause the current matching position to be changed. Lookahead assertions start
-with <code>(?=</code> for positive assertions and <code>(?!</code> for negative assertions. For example,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>w+(?=;)</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches a word followed by a semicolon, but does not include the
-semicolon in the match, and</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>foo(?!bar)</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches any occurrence of "foo" that is not followed by "bar". Note
-that the apparently similar pattern</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?!foo)bar</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>does not find an occurrence of "bar" that is preceded by something other than
-"foo"; it finds any occurrence of "bar" whatsoever, because the assertion
-<code>(?!foo)</code> is always true when the next three characters are "bar". A
-lookbehind assertion is needed to achieve this effect.</p>
-</div>
-<div class="paragraph">
-<p>If you want to force a matching failure at some point in a pattern, the most
-convenient way to do it is with <code>(?!)</code> because an empty string always matches, so
-an assertion that requires there not to be an empty string must always fail.</p>
-</div>
-<div class="paragraph">
-<p>Lookbehind assertions start with <code>(?&#8656;</code> for positive assertions and <code>(?&lt;!</code> for
-negative assertions. For example,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?&lt;!foo)bar</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>does find an occurrence of "bar" that is not preceded by "foo". The contents of
-a lookbehind assertion are restricted such that all the strings it matches must
-have a fixed length. However, if there are several alternatives, they do not
-all have to have the same fixed length. Thus</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?&lt;=bullock|donkey)</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is permitted, but</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?&lt;!dogs?|cats?)</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>causes an error at compile time. Branches that match different length strings
-are permitted only at the top level of a lookbehind assertion. This is an
-extension compared with Perl (at least for 5.8), which requires all branches to
-match the same length of string. An assertion such as</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?&lt;=ab(c|de))</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is not permitted, because its single top-level branch can match two different
-lengths, but it is acceptable if rewritten to use two top-level branches:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?&lt;=abc|abde)</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The implementation of lookbehind assertions is, for each alternative, to
-temporarily move the current position back by the fixed width and then try to
-match. If there are insufficient characters before the current position, the
-match is deemed to fail.</p>
-</div>
-<div class="paragraph">
-<p>Atomic groups can be used in conjunction with lookbehind assertions to specify
-efficient matching at the end of the subject string. Consider a simple pattern
-such as</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>abcd$</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>when applied to a long string that does not match. Because matching proceeds
-from left to right, PCRE will look for each "a" in the subject and then see if
-what follows matches the rest of the pattern. If the pattern is specified as</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>^.*abcd$</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>the initial .* matches the entire string at first, but when this fails (because
-there is no following "a"), it backtracks to match all but the last character,
-then all but the last two characters, and so on. Once again the search for "a"
-covers the entire string, from right to left, so we are no better off. However,
-if the pattern is written as</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>^(?&gt;.*)(?&lt;=abcd)</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>or, equivalently,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>^.*+(?&lt;=abcd)</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>there can be no backtracking for the <code>.*</code> item; it can match only the entire
-string. The subsequent lookbehind assertion does a single test on the last four
-characters. If it fails, the match fails immediately. For long strings, this
-approach makes a significant difference to the processing time.</p>
-</div>
-<div class="paragraph">
-<p>Several assertions (of any sort) may occur in succession. For example,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?&lt;=d{3})(?&lt;!999)foo</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches "foo" preceded by three digits that are not "999". Notice that each of
-the assertions is applied independently at the same point in the subject
-string. First there is a check that the previous three characters are all
-digits, and then there is a check that the same three characters are not "999".
-This pattern does fInotfR match "foo" preceded by six characters, the first
-of which are digits and the last three of which are not "999". For example, it
-doesn&#8217;t match "123abcfoo". A pattern to do that is</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?&lt;=d{3}...)(?&lt;!999)foo</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>This time the first assertion looks at the preceding six characters, checking
-that the first three are digits, and then the second assertion checks that the
-preceding three characters are not "999".</p>
-</div>
-<div class="paragraph">
-<p>Assertions can be nested in any combination. For example,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?&lt;=(?&lt;!foo)bar)baz</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches an occurrence of "baz" that is preceded by "bar" which in turn is not
-preceded by "foo", while</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?&lt;=d{3}(?!999)...)foo</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is another pattern which matches "foo" preceded by three digits and any three
-characters that are not "999".</p>
-</div>
-<div class="paragraph">
-<p>Assertion subpatterns are not capturing subpatterns, and may not be repeated,
-because it makes no sense to assert the same thing several times. If any kind
-of assertion contains capturing subpatterns within it, these are counted for
-the purposes of numbering the capturing subpatterns in the whole pattern.
-However, substring capturing is carried out only for positive assertions,
-because it does not make sense for negative assertions.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_conditional_subpatterns">5.14. Conditional Subpatterns</h3>
-<div class="paragraph">
-<p>It is possible to cause the matching process to obey a subpattern
-conditionally or to choose between two alternative subpatterns, depending on
-the result of an assertion, or whether a previous capturing subpattern matched
-or not. The two possible forms of conditional subpattern are</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?(condition)yes-pattern)
-(?(condition)yes-pattern|no-pattern)</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>If the condition is satisfied, the yes-pattern is used; otherwise the
-no-pattern (if present) is used. If there are more than two
-alternatives in the subpattern, a compile-time error occurs.</p>
-</div>
-<div class="paragraph">
-<p>There are three kinds of condition. If the text between the parentheses
-consists of a sequence of digits, the condition is satisfied if the capturing
-subpattern of that number has previously matched. The number must be greater
-than zero. Consider the following pattern, which contains non-significant white
-space to make it more readable (assume the <em>extended</em> option) and to divide
-it into three parts for ease of discussion:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>( ( )?    [^()]+    (?(1) ) )</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The first part matches an optional opening parenthesis, and if that
-character is present, sets it as the first captured substring. The second part
-matches one or more characters that are not parentheses. The third part is a
-conditional subpattern that tests whether the first set of parentheses matched
-or not. If they did, that is, if subject started with an opening parenthesis,
-the condition is true, and so the yes-pattern is executed and a closing
-parenthesis is required. Otherwise, since no-pattern is not present, the
-subpattern matches nothing. In other words, this pattern matches a sequence of
-non-parentheses, optionally enclosed in parentheses.</p>
-</div>
-<div class="paragraph">
-<p>If the condition is the string <code>&#174;</code>, it is satisfied if a recursive call to the
-pattern or subpattern has been made. At "top level", the condition is false.
-This is a PCRE extension. See PCRE documentation for recursive patterns.</p>
-</div>
-<div class="paragraph">
-<p>If the condition is not a sequence of digits or <code>&#174;</code>, it must be an assertion.
-This may be a positive or negative lookahead or lookbehind assertion. Consider
-this pattern, again containing non-significant white space, and with the two
-alternatives on the second line:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(?(?=`(^a-z)*`(a-z))
-d{2}-`(a-z){3}-d{2}  |  d{2}-d{2}-d{2} )</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The condition is a positive lookahead assertion that matches an optional
-sequence of non-letters followed by a letter. In other words, it tests for the
-presence of at least one letter in the subject. If a letter is found, the
-subject is matched against the first alternative; otherwise it is matched
-against the second. This pattern matches strings in one of the two forms
-dd-aaa-dd or dd-dd-dd, where aaa are letters and dd are digits.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_comments_2">5.15. Comments</h3>
-<div class="paragraph">
-<p>The sequence <code>(?#</code> marks the start of a comment which continues up to the next
-closing parenthesis. Nested parentheses are not permitted. The characters
-that make up a comment play no part in the pattern matching at all.</p>
-</div>
-<div class="paragraph">
-<p>If the <em>extended</em> option is set, an unescaped <code>&#35;</code> character outside a
-character class introduces a comment that continues up to the next newline
-character in the pattern.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_subpatterns_as_subroutines">5.16. Subpatterns As Subroutines</h3>
-<div class="paragraph">
-<p>If the syntax for a recursive subpattern reference (either by number or by
-name) is used outside the parentheses to which it refers, it operates like a
-subroutine in a programming language. An earlier example pointed out that the
-pattern</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(sens|respons)e and 1ibility</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>matches "sense and sensibility" and "response and responsibility", but not
-"sense and responsibility". If instead the pattern</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(sens|respons)e and (?1)ibility</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is used, it does match "sense and responsibility" as well as the other two
-strings. Such references must, however, follow the subpattern to which they
-refer.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_regexp_procedures">5.17. Regexp Procedures</h3>
-<div class="paragraph">
-<p>This section lists the <strong><em>STklos</em></strong> functions that can use PCRE regexpr described
-before</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string&#8594;regexp string)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>String&#8594;regexp</code> takes a string representation of a regular
-expression and compiles it into a regexp value. Other regular
-expression procedures accept either a string or a regexp value as
-the matching pattern. If a regular expression string is used
-multiple times, it is faster to compile the string once to a regexp
-value and use it for repeated matches instead of using the string
-each time.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(regexp? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Regexp</code> returns <code>#t</code> if <code>obj</code> is a regexp value created by the <code>regexp</code>,
-otherwise <code>regexp</code> returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(regexp-match pattern str)</code></strong><br>
-<strong><code>(regexp-match-positions pattern str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These functions attempt to match <code>pattern</code> (a string or a regexp value)
-to <code>str</code>. If the match fails, <code>#f</code> is returned. If the match succeeds,
-a list (containing strings for <code>regexp-match</code> and positions for
-<code>regexp-match-positions</code>) is returned. The first string (or positions) in
-this list is the portion of string that matched pattern. If two portions
-of string can match pattern, then the earliest and longest match is found,
-by default.</p>
-</div>
-<div class="paragraph">
-<p>Additional strings or positions are returned in the list if pattern contains
-parenthesized sub-expressions; matches for the sub-expressions are provided
-in the order of the opening parentheses in pattern.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">regexp-match-positions</span> <span class="s">"ca"</span> <span class="s">"abracadabra"</span><span class="p">)</span>
-                 <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">4</span> <span class="mi">6</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">regexp-match-positions</span> <span class="s">"CA"</span> <span class="s">"abracadabra"</span><span class="p">)</span>
-                 <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">regexp-match-positions</span> <span class="s">"(?i)CA"</span> <span class="s">"abracadabra"</span><span class="p">)</span>
-                 <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">4</span> <span class="mi">6</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">regexp-match</span> <span class="s">"(a*)(b*)(c*)"</span> <span class="s">"abc"</span><span class="p">)</span>
-                 <span class="nv">=&gt;</span> <span class="p">(</span><span class="s">"abc"</span> <span class="s">"a"</span> <span class="s">"b"</span> <span class="s">"c"</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">regexp-match-positions</span> <span class="s">"(a*)(b*)(c*)"</span> <span class="s">"abc"</span><span class="p">)</span>
-                 <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">0</span> <span class="mi">3</span><span class="p">)</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">3</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">regexp-match-positions</span> <span class="s">"(a*)(b*)(c*)"</span> <span class="s">"c"</span><span class="p">)</span>
-                 <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">0</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">0</span><span class="p">)</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">0</span><span class="p">)</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">1</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">regexp-match-positions</span> <span class="s">"(?&lt;=\d{3})(?&lt;!999)foo"</span>
-                        <span class="s">"999foo and 123foo"</span><span class="p">)</span>
-                 <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">14</span> <span class="mi">17</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(regexp-replace pattern string substitution)</code></strong><br>
-<strong><code>(regexp-replace-all pattern string substitution)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Regexp-replace</code> matches the regular expression <code>pattern</code> against
-<code>string</code>. If there is a match, the portion of <code>string</code> which matches
-<code>pattern</code> is replaced by the <code>substitution</code> string. If there is no
-match, <code>regexp-replace</code> returns <code>string</code> unmodified. Note that the
-given <code>pattern</code> could be here either a string or a regular expression.</p>
-</div>
-<div class="paragraph">
-<p>If <code>pattern</code> contains <code>n</code> where <strong>n</strong> is a digit between 1 and 9,
-then it is replaced in the substitution with the portion of string that
-matched the <strong>n</strong>-th parenthesized subexpression of <code>pattern</code>. If
-<strong>n</strong> is equal to 0, then it is replaced in <code>substitution</code>
-with the portion of <code>string</code> that matched <code>pattern</code>.</p>
-</div>
-<div class="paragraph">
-<p><code>Regexp-replace</code> replaces the first occurrence of <code>pattern</code> in <code>string</code>.
-To replace <em>all</em> the occurrences of <code>pattern</code>, use <code>regexp-replace-all</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">regexp-replace</span> <span class="s">"a*b"</span> <span class="s">"aaabbcccc"</span> <span class="s">"X"</span><span class="p">)</span>
-                   <span class="nv">=&gt;</span> <span class="s">"Xbcccc"</span>
-<span class="p">(</span><span class="nf">regexp-replace</span> <span class="p">(</span><span class="nf">string-&gt;regexp</span> <span class="s">"a*b"</span><span class="p">)</span> <span class="s">"aaabbcccc"</span> <span class="s">"X"</span><span class="p">)</span>
-                   <span class="nv">=&gt;</span> <span class="s">"Xbcccc"</span>
-<span class="p">(</span><span class="nf">regexp-replace</span> <span class="s">"(a*)b"</span> <span class="s">"aaabbcccc"</span> <span class="s">"X\1Y"</span><span class="p">)</span>
-                   <span class="nv">=&gt;</span> <span class="s">"XaaaYbcccc"</span>
-<span class="p">(</span><span class="nf">regexp-replace</span> <span class="s">"f(.*)r"</span> <span class="s">"foobar"</span> <span class="s">"\1 \1"</span><span class="p">)</span>
-                   <span class="nv">=&gt;</span> <span class="s">"ooba ooba"</span>
-<span class="p">(</span><span class="nf">regexp-replace</span> <span class="s">"f(.*)r"</span> <span class="s">"foobar"</span> <span class="s">"\0 \0"</span><span class="p">)</span>
-                   <span class="nv">=&gt;</span> <span class="s">"foobar foobar"</span>
-
-<span class="p">(</span><span class="nf">regexp-replace</span> <span class="s">"a*b"</span> <span class="s">"aaabbcccc"</span> <span class="s">"X"</span><span class="p">)</span>
-                   <span class="nv">=&gt;</span> <span class="s">"Xbcccc"</span>
-<span class="p">(</span><span class="nf">regexp-replace-all</span> <span class="s">"a*b"</span> <span class="s">"aaabbcccc"</span> <span class="s">"X"</span><span class="p">)</span>
-                   <span class="nv">=&gt;</span> <span class="s">"XXcccc"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(regexp-quote str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Takes an arbitrary string and returns a string where characters of
-<code>str</code> that could serve as regexp metacharacters are escaped with a
-backslash, so that they safely match only themselves.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">regexp-quote</span> <span class="s">"cons"</span><span class="p">)</span>       <span class="nv">=&gt;</span> <span class="s">"cons"</span>
-<span class="p">(</span><span class="nf">regexp-quote</span> <span class="s">"list?"</span><span class="p">)</span>      <span class="nv">=&gt;</span> <span class="s">"list\?"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>regexp-quote</code> is useful when building a composite regexp from
-a mix of regexp strings and verbatim strings.</p>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_standard_procedures.html">Standard Procedures</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_pattern_matching.html">Pattern Matching</a> →</p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. In fact <code>define-module</code> on a given name defines a new module only the first time it is invoked on this name. By this way, interactively reloading a module does not define a new entity, and the other modules which use it are not altered.
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. This transcript uses the default toplevel loop             which displays the name of the current module in the evaluator             prompt.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Under Unix, you can simply connect to a listening socket with the <code>telnet</code> of <code>netcat</code> command. For the given example, this can be achieved with <code>netcat localhost 12345</code>
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. Port 13, if open, can be used for testing: making a connection to it permits to know the distant system&#8217;s idea of the time of day.
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_srfis.html b/doc/HTML/_srfis.html
deleted file mode 100644
index 42853c390..000000000
--- a/doc/HTML/_srfis.html
+++ /dev/null
@@ -1,4585 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<style>
-pre.rouge table td { padding: 5px; }
-pre.rouge table pre { margin: 0; }
-pre.rouge .c, pre.rouge .ch, pre.rouge .cd, pre.rouge .cpf {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cm {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .c1 {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cp {
-  color: #75715e;
-  font-weight: bold;
-}
-pre.rouge .cs {
-  color: #75715e;
-  font-weight: bold;
-  font-style: italic;
-}
-pre.rouge .err {
-  color: #960050;
-  background-color: #1e0010;
-}
-pre.rouge .gi {
-  color: #ffffff;
-  background-color: #324932;
-}
-pre.rouge .gd {
-  color: #ffffff;
-  background-color: #493131;
-}
-pre.rouge .ge {
-  color: #000000;
-  font-style: italic;
-}
-pre.rouge .gr {
-  color: #aa0000;
-}
-pre.rouge .gt {
-  color: #aa0000;
-}
-pre.rouge .gh {
-  color: #999999;
-}
-pre.rouge .go {
-  color: #888888;
-}
-pre.rouge .gp {
-  color: #555555;
-}
-pre.rouge .gs {
-  font-weight: bold;
-}
-pre.rouge .gu {
-  color: #aaaaaa;
-}
-pre.rouge .k, pre.rouge .kv {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kc {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kd {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kp {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kr {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kt {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kn {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .ow {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .o {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .mf {
-  color: #ae81ff;
-}
-pre.rouge .mh {
-  color: #ae81ff;
-}
-pre.rouge .il {
-  color: #ae81ff;
-}
-pre.rouge .mi {
-  color: #ae81ff;
-}
-pre.rouge .mo {
-  color: #ae81ff;
-}
-pre.rouge .m, pre.rouge .mb, pre.rouge .mx {
-  color: #ae81ff;
-}
-pre.rouge .se {
-  color: #ae81ff;
-}
-pre.rouge .sa {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .sb {
-  color: #e6db74;
-}
-pre.rouge .sc {
-  color: #e6db74;
-}
-pre.rouge .sd {
-  color: #e6db74;
-}
-pre.rouge .s2 {
-  color: #e6db74;
-}
-pre.rouge .sh {
-  color: #e6db74;
-}
-pre.rouge .si {
-  color: #e6db74;
-}
-pre.rouge .sx {
-  color: #e6db74;
-}
-pre.rouge .sr {
-  color: #e6db74;
-}
-pre.rouge .s1 {
-  color: #e6db74;
-}
-pre.rouge .ss {
-  color: #e6db74;
-}
-pre.rouge .s, pre.rouge .dl {
-  color: #e6db74;
-}
-pre.rouge .na {
-  color: #a6e22e;
-}
-pre.rouge .nc {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nd {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .ne {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nf, pre.rouge .fm {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .no {
-  color: #66d9ef;
-}
-pre.rouge .bp {
-  color: #f8f8f2;
-}
-pre.rouge .nb {
-  color: #f8f8f2;
-}
-pre.rouge .ni {
-  color: #f8f8f2;
-}
-pre.rouge .nn {
-  color: #f8f8f2;
-}
-pre.rouge .vc {
-  color: #f8f8f2;
-}
-pre.rouge .vg {
-  color: #f8f8f2;
-}
-pre.rouge .vi {
-  color: #f8f8f2;
-}
-pre.rouge .nv, pre.rouge .vm {
-  color: #f8f8f2;
-}
-pre.rouge .w {
-  color: #f8f8f2;
-}
-pre.rouge .nl {
-  color: #f8f8f2;
-  font-weight: bold;
-}
-pre.rouge .nt {
-  color: #f92672;
-}
-pre.rouge {
-  color: #f8f8f2;
-  background-color: #49483e;
-}
-</style>
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_srfis" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html"><span class="toc-current">13. SRFIs</span></a>
-<ul class="sectlevel2">
-<li><a href="_srfis.html#_supported_srfis">13.1. Supported SRFIs</a>
-</li>
-<li><a href="_srfis.html#_using_a_srfi">13.2. Using a SRFI</a>
-</li>
-<li><a href="_srfis.html#_misc_information">13.3. Misc. Information</a>
-</li>
-</ul>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_srfis">13. SRFIs</h2>
-<div class="sectionbody">
-<div class="paragraph">
-<p>
-Scheme Request For Implementation (<a href="http://srfi.schemers.org">SRFI</a>)
-process grew out of the Scheme Workshop held
-in Baltimore, MD, on September 26, 1998, where the attendees considered a
-number of proposals for standardized feature sets for inclusion in Scheme
-implementations. Many of the proposals received overwhelming support in a
-series of straw votes. Along with this there was concern that the next Revised
-Report would not be produced for several years and this would prevent the
-timely implementation of standardized approaches to several important problems
-and needs in the Scheme community.</p>
-</div>
-<div class="paragraph">
-<p>Only the implemented SRFIs are (briefly) presented here. For further
-information on each SRFI, please look at the official
-SRFI <a href="http://srfi.schemers.org">site</a>.</p>
-</div>
-<div class="sect2">
-<h3 id="_supported_srfis">13.1. Supported SRFIs</h3>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> supports <strong>122</strong> finalized SRFIS.
-Some of these SRFIS are <em>embedded</em> and some are <em>external</em>.</p>
-</div>
-<div class="paragraph">
-<p>An <em>embedded</em> SRFI can be directly used without any particular action,
-whereas an <em>external</em> needs to be loaded before use.</p>
-</div>
-<div class="paragraph">
-<p>The following SRFIS are implemented:</p>
-</div>
-<div class="paragraph small">
-<p>-  <strong><a href="http://srfi.schemers.org/srfi-0/srfi-0.html">SRFI-0</a></strong>&#8201;&#8212;&#8201;<em>Feature-based conditional expansion construct</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-1/srfi-1.html">SRFI-1</a></strong>&#8201;&#8212;&#8201;<em>List Library</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-2/srfi-2.html">SRFI-2</a></strong>&#8201;&#8212;&#8201;<em>AND-LET*: an AND with local bindings, a guarded LET* special form</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-4/srfi-4.html">SRFI-4</a></strong>&#8201;&#8212;&#8201;<em>Homogeneous numeric vector datatypes</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-5/srfi-5.html">SRFI-5</a></strong>&#8201;&#8212;&#8201;<em>A compatible let form with signatures and rest arguments</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-6/srfi-6.html">SRFI-6</a></strong>&#8201;&#8212;&#8201;<em>Basic String Ports</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-7/srfi-7.html">SRFI-7</a></strong>&#8201;&#8212;&#8201;<em>Feature-based program configuration language</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-8/srfi-8.html">SRFI-8</a></strong>&#8201;&#8212;&#8201;<em>Receive: Binding to multiple values</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-9/srfi-9.html">SRFI-9</a></strong>&#8201;&#8212;&#8201;<em>Defining Record Types</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-10/srfi-10.html">SRFI-10</a></strong>&#8201;&#8212;&#8201;<em>Sharp Comma External Form</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-11/srfi-11.html">SRFI-11</a></strong>&#8201;&#8212;&#8201;<em>Syntax for receiving multiple values</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-13/srfi-13.html">SRFI-13</a></strong>&#8201;&#8212;&#8201;<em>String Library</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-14/srfi-14.html">SRFI-14</a></strong>&#8201;&#8212;&#8201;<em>Character-Set Library</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-15/srfi-15.html">SRFI-15</a></strong>&#8201;&#8212;&#8201;<em>Syntax for dynamic scoping (withdrawn)</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-16/srfi-16.html">SRFI-16</a></strong>&#8201;&#8212;&#8201;<em>Syntax for procedures of variable arity</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-17/srfi-17.html">SRFI-17</a></strong>&#8201;&#8212;&#8201;<em>Generalized set!</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-18/srfi-18.html">SRFI-18</a></strong>&#8201;&#8212;&#8201;<em>Multithreading support</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-19/srfi-19.html">SRFI-19</a></strong>&#8201;&#8212;&#8201;<em>Time Data Types and Procedures</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-22/srfi-22.html">SRFI-22</a></strong>&#8201;&#8212;&#8201;<em>Running Scheme Scripts on Unix</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-23/srfi-23.html">SRFI-23</a></strong>&#8201;&#8212;&#8201;<em>Error reporting mechanism</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-25/srfi-25.html">SRFI-25</a></strong>&#8201;&#8212;&#8201;<em>Multi-dimensional Arrays</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-26/srfi-26.html">SRFI-26</a></strong>&#8201;&#8212;&#8201;<em>Notation for Specializing Parameters without Currying</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-27/srfi-27.html">SRFI-27</a></strong>&#8201;&#8212;&#8201;<em>Source of random bits</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-28/srfi-28.html">SRFI-28</a></strong>&#8201;&#8212;&#8201;<em>Basic Format Strings</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-29/srfi-29.html">SRFI-29</a></strong>&#8201;&#8212;&#8201;<em>Localization</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-30/srfi-30.html">SRFI-30</a></strong>&#8201;&#8212;&#8201;<em>Nested Multi-line Comments</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-31/srfi-31.html">SRFI-31</a></strong>&#8201;&#8212;&#8201;<em>A special form for recursive evaluation</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-34/srfi-34.html">SRFI-34</a></strong>&#8201;&#8212;&#8201;<em>Exception Handling for Programs</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-35/srfi-35.html">SRFI-35</a></strong>&#8201;&#8212;&#8201;<em>Conditions</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-36/srfi-36.html">SRFI-36</a></strong>&#8201;&#8212;&#8201;<em>I/O Conditions</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-37/srfi-37.html">SRFI-37</a></strong>&#8201;&#8212;&#8201;<em>args-fold: a program argument processor</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-38/srfi-38.html">SRFI-38</a></strong>&#8201;&#8212;&#8201;<em>External representation of shared structures</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-39/srfi-39.html">SRFI-39</a></strong>&#8201;&#8212;&#8201;<em>Parameters objects</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-41/srfi-41.html">SRFI-41</a></strong>&#8201;&#8212;&#8201;<em>Streams</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-43/srfi-43.html">SRFI-43</a></strong>&#8201;&#8212;&#8201;<em>Vector library</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-45/srfi-45.html">SRFI-45</a></strong>&#8201;&#8212;&#8201;<em>Primitives for Expressing Iterative Lazy Algorithms</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-46/srfi-46.html">SRFI-46</a></strong>&#8201;&#8212;&#8201;<em>Basic Syntax-rules Extensions</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-48/srfi-48.html">SRFI-48</a></strong>&#8201;&#8212;&#8201;<em>Intermediate Format Strings</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-51/srfi-51.html">SRFI-51</a></strong>&#8201;&#8212;&#8201;<em>Handling rest list</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-54/srfi-54.html">SRFI-54</a></strong>&#8201;&#8212;&#8201;<em>Formatting</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-55/srfi-55.html">SRFI-55</a></strong>&#8201;&#8212;&#8201;<em>Require-extension</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-59/srfi-59.html">SRFI-59</a></strong>&#8201;&#8212;&#8201;<em>Vicinity</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-60/srfi-60.html">SRFI-60</a></strong>&#8201;&#8212;&#8201;<em>Integers as bits</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-61/srfi-61.html">SRFI-61</a></strong>&#8201;&#8212;&#8201;<em>A more general COND clause</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-62/srfi-62.html">SRFI-62</a></strong>&#8201;&#8212;&#8201;<em>S-expression comments</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-64/srfi-64.html">SRFI-64</a></strong>&#8201;&#8212;&#8201;<em>A Scheme API for test suites</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-66/srfi-66.html">SRFI-66</a></strong>&#8201;&#8212;&#8201;<em>Octet Vectors</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-69/srfi-69.html">SRFI-69</a></strong>&#8201;&#8212;&#8201;<em>Basic Hash Tables</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-70/srfi-70.html">SRFI-70</a></strong>&#8201;&#8212;&#8201;<em>Numbers</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-74/srfi-74.html">SRFI-74</a></strong>&#8201;&#8212;&#8201;<em>Octet-Addressed Binary Blocks</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-87/srfi-87.html">SRFI-87</a></strong>&#8201;&#8212;&#8201;<em>&#8658; in case clauses</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-88/srfi-88.html">SRFI-88</a></strong>&#8201;&#8212;&#8201;<em>Keyword Objects</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-89/srfi-89.html">SRFI-89</a></strong>&#8201;&#8212;&#8201;<em>Optional Positional and Named Parameters</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-94/srfi-94.html">SRFI-94</a></strong>&#8201;&#8212;&#8201;<em>Type-Restricted Numerical Functions</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-95/srfi-95.html">SRFI-95</a></strong>&#8201;&#8212;&#8201;<em>Sorting and Merging</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-96/srfi-96.html">SRFI-96</a></strong>&#8201;&#8212;&#8201;<em>SLIB Prerequisites</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-98/srfi-98.html">SRFI-98</a></strong>&#8201;&#8212;&#8201;<em>Interface to access environment variables</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-100/srfi-100.html">SRFI-100</a></strong>&#8201;&#8212;&#8201;<em>define-lambda-object</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-111/srfi-111.html">SRFI-111</a></strong>&#8201;&#8212;&#8201;<em>Boxes</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-112/srfi-112.html">SRFI-112</a></strong>&#8201;&#8212;&#8201;<em>Environment Inquiry</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-113/srfi-113.html">SRFI-113</a></strong>&#8201;&#8212;&#8201;<em>Sets and Bags</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-116/srfi-116.html">SRFI-116</a></strong>&#8201;&#8212;&#8201;<em>Immutable List Library</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-117/srfi-117.html">SRFI-117</a></strong>&#8201;&#8212;&#8201;<em>Queues based on lists</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-118/srfi-118.html">SRFI-118</a></strong>&#8201;&#8212;&#8201;<em>Simple adjustable-size strings</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-125/srfi-125.html">SRFI-125</a></strong>&#8201;&#8212;&#8201;<em>Intermediate hash tables</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-127/srfi-127.html">SRFI-127</a></strong>&#8201;&#8212;&#8201;<em>Lazy Sequences</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-128/srfi-128.html">SRFI-128</a></strong>&#8201;&#8212;&#8201;<em>Comparators (reduced)</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-129/srfi-129.html">SRFI-129</a></strong>&#8201;&#8212;&#8201;<em>Titlecase procedures</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-130/srfi-130.html">SRFI-130</a></strong>&#8201;&#8212;&#8201;<em>Cursor-based string library</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-132/srfi-132.html">SRFI-132</a></strong>&#8201;&#8212;&#8201;<em>Sort Libraries</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-133/srfi-133.html">SRFI-133</a></strong>&#8201;&#8212;&#8201;<em>Vector Library (R7RS-compatible)</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-134/srfi-134.html">SRFI-134</a></strong>&#8201;&#8212;&#8201;<em>Immutable Deques</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-135/srfi-135.html">SRFI-135</a></strong>&#8201;&#8212;&#8201;<em>Immutable Texts</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-137/srfi-137.html">SRFI-137</a></strong>&#8201;&#8212;&#8201;<em>Minimal Unique Types</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-138/srfi-138.html">SRFI-138</a></strong>&#8201;&#8212;&#8201;<em>Compiling Scheme programs to executables</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-141/srfi-141.html">SRFI-141</a></strong>&#8201;&#8212;&#8201;<em>Integer Division</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-143/srfi-143.html">SRFI-143</a></strong>&#8201;&#8212;&#8201;<em>Fixnums</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-144/srfi-144.html">SRFI-144</a></strong>&#8201;&#8212;&#8201;<em>Flonums</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-145/srfi-145.html">SRFI-145</a></strong>&#8201;&#8212;&#8201;<em>Assumptions</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-151/srfi-151.html">SRFI-151</a></strong>&#8201;&#8212;&#8201;<em>Bitwise Operations</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-152/srfi-152.html">SRFI-152</a></strong>&#8201;&#8212;&#8201;<em>String Library (reduced)</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-154/srfi-154.html">SRFI-154</a></strong>&#8201;&#8212;&#8201;<em>First-class dynamic extents</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-156/srfi-156.html">SRFI-156</a></strong>&#8201;&#8212;&#8201;<em>Syntactic combiners for binary predicates</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-158/srfi-158.html">SRFI-158</a></strong>&#8201;&#8212;&#8201;<em>Generators and Accumulators</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-160/srfi-160.html">SRFI-160</a></strong>&#8201;&#8212;&#8201;<em>Homogeneous numeric vector libraries</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-161/srfi-161.html">SRFI-161</a></strong>&#8201;&#8212;&#8201;<em>Unifiable Boxes</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-162/srfi-162.html">SRFI-162</a></strong>&#8201;&#8212;&#8201;<em>Comparators sublibrary</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-169/srfi-169.html">SRFI-169</a></strong>&#8201;&#8212;&#8201;<em>Underscores in numbers</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-170/srfi-170.html">SRFI-170</a></strong>&#8201;&#8212;&#8201;<em>POSIX API</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-171/srfi-171.html">SRFI-171</a></strong>&#8201;&#8212;&#8201;<em>Transducers</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-173/srfi-173.html">SRFI-173</a></strong>&#8201;&#8212;&#8201;<em>Hooks</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-174/srfi-174.html">SRFI-174</a></strong>&#8201;&#8212;&#8201;<em>POSIX Timespecs</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-175/srfi-175.html">SRFI-175</a></strong>&#8201;&#8212;&#8201;<em>ASCII character library</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-176/srfi-176.html">SRFI-176</a></strong>&#8201;&#8212;&#8201;<em>Version flag</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-180/srfi-180.html">SRFI-180</a></strong>&#8201;&#8212;&#8201;<em>JSON</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-185/srfi-185.html">SRFI-185</a></strong>&#8201;&#8212;&#8201;<em>Linear adjustable-length strings</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-189/srfi-189.html">SRFI-189</a></strong>&#8201;&#8212;&#8201;<em>Maybe and Either: optional container types</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-190/srfi-190.html">SRFI-190</a></strong>&#8201;&#8212;&#8201;<em>Coroutines Generators</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-192/srfi-192.html">SRFI-192</a></strong>&#8201;&#8212;&#8201;<em>Port Positioning</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-193/srfi-193.html">SRFI-193</a></strong>&#8201;&#8212;&#8201;<em>Command line</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-195/srfi-195.html">SRFI-195</a></strong>&#8201;&#8212;&#8201;<em>Multiple-value boxes</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-196/srfi-196.html">SRFI-196</a></strong>&#8201;&#8212;&#8201;<em>Range Objects</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-207/srfi-207.html">SRFI-207</a></strong>&#8201;&#8212;&#8201;<em>String-notated bytevectors</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-208/srfi-208.html">SRFI-208</a></strong>&#8201;&#8212;&#8201;<em>NaN procedures</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-214/srfi-214.html">SRFI-214</a></strong>&#8201;&#8212;&#8201;<em>Flexvectors</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-215/srfi-215.html">SRFI-215</a></strong>&#8201;&#8212;&#8201;<em>Central Log Exchange</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-216/srfi-216.html">SRFI-216</a></strong>&#8201;&#8212;&#8201;<em>SICP Prerequisites (Portable)</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-217/srfi-217.html">SRFI-217</a></strong>&#8201;&#8212;&#8201;<em>Integer Sets</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-219/srfi-219.html">SRFI-219</a></strong>&#8201;&#8212;&#8201;<em>Define higher-order lambda</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-221/srfi-221.html">SRFI-221</a></strong>&#8201;&#8212;&#8201;<em>Generator/accumulator sub-library</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-222/srfi-222.html">SRFI-222</a></strong>&#8201;&#8212;&#8201;<em>Compound objects</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-223/srfi-223.html">SRFI-223</a></strong>&#8201;&#8212;&#8201;<em>Generalized binary search procedures</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-224/srfi-224.html">SRFI-224</a></strong>&#8201;&#8212;&#8201;<em>Integer Mappings</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-227/srfi-227.html">SRFI-227</a></strong>&#8201;&#8212;&#8201;<em>Optional Arguments</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-228/srfi-228.html">SRFI-228</a></strong>&#8201;&#8212;&#8201;<em>A further comparator library</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-229/srfi-229.html">SRFI-229</a></strong>&#8201;&#8212;&#8201;<em>Tagged Procedures</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-230/srfi-230.html">SRFI-230</a></strong>&#8201;&#8212;&#8201;<em>Atomic Operations</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-233/srfi-233.html">SRFI-233</a></strong>&#8201;&#8212;&#8201;<em>INI files</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-235/srfi-235.html">SRFI-235</a></strong>&#8201;&#8212;&#8201;<em>Combinators</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-236/srfi-236.html">SRFI-236</a></strong>&#8201;&#8212;&#8201;<em>Evaluating expressions in an unspecified order</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-238/srfi-238.html">SRFI-238</a></strong>&#8201;&#8212;&#8201;<em>Codesets</em><br>
--  <strong><a href="http://srfi.schemers.org/srfi-244/srfi-244.html">SRFI-244</a></strong>&#8201;&#8212;&#8201;<em>Multiple-value definitions</em><br></p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_using_a_srfi">13.2. Using a SRFI</h3>
-<div class="paragraph">
-<p>Using a particular SRFI can be done with the special form
-<code>cond-expand</code> defined in <strong><a href="http://srfi.schemers.org/srfi-0/srfi-0.html">SRFI-0</a></strong> which is fully supported
-by <strong><em>STklos</em></strong>. This form accepts features identifiers which are of the
-form <strong><em>srfi-n</em></strong> where <strong><em>n</em></strong> represents the number of the SRFI
-supported by the implementation (for instance <strong><em>srfi-1</em></strong> or
-<strong><em>srfi-30</em></strong>).</p>
-</div>
-<div class="paragraph">
-<p>For instance, to use <strong><em>srfi-n</em></strong>, you can use</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">cond-expand</span>
- <span class="p">(</span><span class="nf">srfi-n</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>This forms does nothing if <strong><em>srfi-n</em></strong> is an embedded SRFI and ensures that all
-the files needed by this SRFI will be properly loaded if it is an external
-SRFI.</p>
-</div>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> also offers the primitive <strong>require-feature</strong> which ensures
-(eventually) the loading of files needed to use a given SRFI. This primitive
-accepts several forms to ensure that the SRFI can be used.  For instance, to
-use <strong><a href="http://srfi.schemers.org/srfi-1/srfi-1.html">SRFI-1</a></strong> (<em>List Library</em>), the following forms are possible:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">require-feature</span> <span class="ss">'srfi-1</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">require-feature</span> <span class="s">"srfi-1"</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">require-feature</span> <span class="mi">1</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">require-feature</span> <span class="ss">'lists</span><span class="p">)</span>   <span class="c1">;; Since this feature name is an alias for SRFI-1</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The list of the aliases defined for the supported SRFIs is given in
-<a href="_srfis.html#feature_identifiers">Table 2</a>.</p>
-</div>
-<div class="sect3">
-<h4 id="_embedded_srfis">13.2.1. Embedded SRFIs</h4>
-<div class="paragraph">
-<p>As said before, an <em>embedded</em> SRFI can be used directly without loading a
-support file. (Note that using <strong>require-feature</strong> works too
-and permits to ignore if the SRFI is embedded).</p>
-</div>
-<div class="paragraph">
-<p><strong>List of embedded SRFIs:</strong>
- <code>srfi-0</code> <code>srfi-6</code> <code>srfi-8</code> <code>srfi-10</code> <code>srfi-11</code> <code>srfi-15</code> <code>srfi-16</code> <code>srfi-18</code> <code>srfi-22</code> <code>srfi-23</code> <code>srfi-28</code> <code>srfi-30</code> <code>srfi-31</code> <code>srfi-34</code> <code>srfi-38</code> <code>srfi-39</code> <code>srfi-45</code> <code>srfi-46</code> <code>srfi-55</code> <code>srfi-62</code> <code>srfi-70</code> <code>srfi-87</code> <code>srfi-88</code> <code>srfi-98</code> <code>srfi-111</code> <code>srfi-112</code> <code>srfi-118</code> <code>srfi-138</code> <code>srfi-143</code> <code>srfi-145</code> <code>srfi-169</code> <code>srfi-176</code> <code>srfi-192</code> <code>srfi-193</code> <code>srfi-195</code> <code>srfi-208</code> <code>srfi-219</code> <code>srfi-244</code></p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_external_srfis">13.2.2. External SRFIs</h4>
-<div class="paragraph">
-<p>An external SRFI needs to load at least one external file. This can be done
-with <strong>require</strong> or <strong>require-feature</strong>. As with embedded SRFIS, using
-<strong>require-feature</strong> permits to ignore if the SRFI is external.</p>
-</div>
-<div class="paragraph">
-<p><strong>List of external SRFIs:</strong>
-<code>srfi-1</code> <code>srfi-2</code> <code>srfi-4</code> <code>srfi-5</code> <code>srfi-7</code> <code>srfi-9</code> <code>srfi-13</code> <code>srfi-14</code> <code>srfi-17</code> <code>srfi-19</code> <code>srfi-25</code> <code>srfi-26</code> <code>srfi-27</code> <code>srfi-29</code> <code>srfi-35</code> <code>srfi-36</code> <code>srfi-37</code> <code>srfi-41</code> <code>srfi-43</code> <code>srfi-48</code> <code>srfi-51</code> <code>srfi-54</code> <code>srfi-59</code> <code>srfi-60</code> <code>srfi-61</code> <code>srfi-64</code> <code>srfi-66</code> <code>srfi-69</code> <code>srfi-74</code> <code>srfi-89</code> <code>srfi-94</code> <code>srfi-95</code> <code>srfi-96</code> <code>srfi-100</code> <code>srfi-113</code> <code>srfi-116</code> <code>srfi-117</code> <code>srfi-125</code> <code>srfi-127</code> <code>srfi-128</code> <code>srfi-129</code> <code>srfi-130</code> <code>srfi-132</code> <code>srfi-133</code> <code>srfi-134</code> <code>srfi-135</code> <code>srfi-137</code> <code>srfi-141</code> <code>srfi-144</code> <code>srfi-151</code> <code>srfi-152</code> <code>srfi-154</code> <code>srfi-156</code> <code>srfi-158</code> <code>srfi-160</code> <code>srfi-161</code> <code>srfi-162</code> <code>srfi-170</code> <code>srfi-171</code> <code>srfi-173</code> <code>srfi-174</code> <code>srfi-175</code> <code>srfi-180</code> <code>srfi-185</code> <code>srfi-189</code> <code>srfi-190</code> <code>srfi-196</code> <code>srfi-207</code> <code>srfi-214</code> <code>srfi-215</code> <code>srfi-216</code> <code>srfi-217</code> <code>srfi-221</code> <code>srfi-222</code> <code>srfi-223</code> <code>srfi-224</code> <code>srfi-227</code> <code>srfi-228</code> <code>srfi-229</code> <code>srfi-230</code> <code>srfi-233</code> <code>srfi-235</code> <code>srfi-236</code> <code>srfi-238</code></p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_features">13.2.3. SRFI features</h4>
-<div class="paragraph">
-<p>For some SRFIs, <strong><em>STklos</em></strong> accepts that uses them with a name. This names
-are given <a href="_srfis.html#feature_identifiers">Table 2</a>.</p>
-</div>
-<table id="feature_identifiers" class="tableblock frame-all grid-all stretch small">
-<caption class="title">Table 2. Feature identifiers</caption>
-<colgroup>
-<col style="width: 50%;">
-<col style="width: 50%;">
-</colgroup>
-<thead>
-<tr>
-<th class="tableblock halign-left valign-top">symbol</th>
-<th class="tableblock halign-left valign-top">require SRFI(s)</th>
-</tr>
-</thead>
-<tbody>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">lists</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-1</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">and-let*</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-2</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">hvectors</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-4</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">program</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-7</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">records</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-9</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">case-lambda</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-16</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">error</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-23</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">random</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-27</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">args-fold</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-37</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">parameters</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-39</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">streams</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-41</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">rest-list</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-51</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">formatting</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-54</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">testing</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-64</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">hash-tables</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-69</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">boxes</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-111</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">sets-bags</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-113</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">immutable-lists</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-116</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">queues-as-lists</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-117</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">adjustable-strings</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-118</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">hash-table</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-125</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">lazy-sequences</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-127</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">comparators-reduced</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-128</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">titlecase</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-129</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">sort</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-132</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">vector</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-133</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">immutable-deques</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-134</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">immutable-texts</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-135</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">integer-division</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-141</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">bitwise-ops</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-151</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">posix</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-170</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">transducers</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-171</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">hooks</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-173</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">posix-timespecs</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-174</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">ascii</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-175</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">JSON</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-180</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">maybe-either</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-189</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">ini-files</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-233</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">combinators</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-235</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">conditions</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-35 srfi-36</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">generators</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">srfi-158 srfi-190</p></td>
-</tr>
-</tbody>
-</table>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_misc_information">13.3. Misc. Information</h3>
-<div class="paragraph">
-<p>Previous section described the general way to use the SRFIS implemented in
-<strong><em>STklos</em></strong>.  This section concentrates on information not given above.</p>
-</div>
-<div class="sect3">
-<h4 id="_srfi_0feature_based_conditional_expansion_construct">srfi-0&#8201;&#8212;&#8201;Feature-based conditional expansion construct</h4>
-<div class="paragraph">
-<p>
-<strong><a href="http://srfi.schemers.org/srfi-0/srfi-0.html">SRFI-0</a></strong> defines the <code>cond-expand</code> special form. It is fully
-supported by <strong><em>STklos</em></strong>. <strong><em>STklos</em></strong> defines several features identifiers which
-are of the form <em>srfi-n</em> where <em>n</em> represents the number of the SRFI
-supported by the implementation (for instance <em>srfi-1</em> or <em>srfi-30</em>).</p>
-</div>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> <code>cond-expand</code> accepts also some feature identifiers which are the
-same that the ones defined in <a href="_srfis.html#feature_identifiers">Table 2</a>, such as
-<em>case_lambda</em> or <em>generators</em>.</p>
-</div>
-<div class="paragraph">
-<p>Furthermore, the feature identifier <strong><em>stklos</em></strong> and <strong><em>STklos</em></strong> are defined for
-applications which need to know on which Scheme implementation they are
-running on.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_4homogeneous_numeric_vector_datatypes">srfi-4&#8201;&#8212;&#8201;Homogeneous numeric vector datatypes</h4>
-<div class="paragraph">
-<p>
-
-<strong><a href="http://srfi.schemers.org/srfi-4/srfi-4.html">SRFI-4</a></strong> is fully supported and is extended to provide the
-additional <strong>c64vector</strong> and <strong>c128vector</strong> types of <strong><a href="http://srfi.schemers.org/srfi-160/srfi-160.html">SRFI-160</a></strong> (<em>Homogeneous numeric vector libraries</em>).
-
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(uvector? uv)</code></strong><br>
-<strong><code>(uvector-length uv)</code></strong><br>
-<strong><code>(uvector-ref uv k)</code></strong><br>
-<strong><code>(uvector-set! uv k val)</code></strong><br>
-<strong><code>(uvector&#8594;list uv)</code></strong><br>
-<strong><code>(uvector-tag uv)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These primitives extend <strong><a href="http://srfi.schemers.org/srfi-4/srfi-4.html">SRFI-4</a></strong>. They can be called with any type
-of uniform (homogeneous) vector.  The primitive <code>uvector-tag</code> returns the tag
-of the uniform vector, as a symbol</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">uvector?</span> <span class="o">#</span><span class="nv">s16</span><span class="p">(</span><span class="nf">-1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">))</span>    <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">uvector-length</span> <span class="o">#</span><span class="nv">u32</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mi">2</span>
-<span class="p">(</span><span class="nf">uvector-length</span> <span class="o">#</span><span class="nv">s64</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mi">2</span>
-<span class="p">(</span><span class="nf">uvector-tag</span> <span class="o">#</span><span class="nv">u8</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">))</span>   <span class="nv">=&gt;</span> <span class="nv">u8</span>
-<span class="p">(</span><span class="nf">uvector-tag</span> <span class="o">#</span><span class="nv">c32</span><span class="p">())</span>       <span class="nv">=&gt;</span> <span class="nv">c32</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_10sharp_comma_external_form">srfi-10&#8201;&#8212;&#8201;Sharp Comma External Form</h4>
-<div class="paragraph">
-<p>
-
-<strong><a href="http://srfi.schemers.org/srfi-10/srfi-10.html">SRFI-10</a></strong> is fully supported. This SRFI extends the
-STklos reader with the <code>#,</code> notation which is fully described in
-this document (see <em><a href="_standard_procedures.html#readerctor">primitive <code>define-reader-ctor</code></a></em>).</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_16syntax_for_procedures_of_variable_arity">srfi-16&#8201;&#8212;&#8201;Syntax for procedures of variable arity</h4>
-<div class="paragraph">
-<p>
-
-
-<strong><a href="http://srfi.schemers.org/srfi-16/srfi-16.html">SRFI-16</a></strong> is fully supported. Note that <code>case-lambda</code> is now defined in R<sup>7</sup>RS.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_17generalized_set">srfi-17&#8201;&#8212;&#8201;Generalized set!</h4>
-<div class="paragraph">
-<p></p>
-</div>
-<div id="setter" class="paragraph">
-<p>
-
-
-<strong><a href="http://srfi.schemers.org/srfi-17/srfi-17.html">SRFI-17</a></strong> is fully supported. See the documentation of procedures <code>set!</code>
-and <code>setter</code>. However, requiring explicitly <code>srfi-17</code> permits
-to define the setters for the (numerous) <code>cXXXXr</code> list procedures.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_19time_data_types_and_procedures">srfi-19&#8201;&#8212;&#8201;Time Data Types and Procedures</h4>
-<div class="paragraph">
-<p>
-
-<strong><a href="http://srfi.schemers.org/srfi-19/srfi-19.html">SRFI-19</a></strong> is fully supported. STklos offers, as an extension,
-the procedures <code>date=?</code>, <code>date&lt;?</code>, <code>date&gt;?</code>, <code>date&#8656;?</code> and <code>date&gt;=?</code>. These
-will compare dates by first normalizing them to make the time zone offset
-irrelevant, so "2000 Nov 12 03:30:10 GMT-2" will be taken as equal to
-"2000 Nov 12 02:30:10 GMT-1".</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(time-difference time1 time2)</code></strong><br>
-<strong><code>(time-difference! time1 time2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These SRFI-19 procedures return the time duration (as an object of type <code>time-duration</code>)
-between <code>time1</code> and <code>time2</code>. It is an error if <code>time1</code> and <code>time2</code> are of different time types.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<code>time-difference</code> creates a new time object, while <code>time-difference!</code> may use <code>time1</code> to
-create the resulting object.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(time&#8656;? time1 time2)</code></strong><br>
-<strong><code>(time&lt;? time1 time2)</code></strong><br>
-<strong><code>(time=? time1 time2)</code></strong><br>
-<strong><code>(time&gt;=? time1 time2)</code></strong><br>
-<strong><code>(time&gt;? time1 time2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These are SRFI-19 predicates used to compare times. They return:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>time&#8656;?</code> : <code>#t</code> if <code>time1</code> is before or at (less than or equal to) <code>time2</code>,
-<code>#f</code> otherwise.</p>
-</li>
-<li>
-<p><code>time&lt;?</code> :  <code>#t</code> if <code>time1</code> is before (less than) <code>time2</code>, <code>#f</code> otherwise.</p>
-</li>
-<li>
-<p><code>time=?</code> :  <code>#t</code> if <code>time1</code> at (equal) <code>time2</code>, <code>#f</code> otherwise.</p>
-</li>
-<li>
-<p><code>time&gt;=?</code> : <code>#t</code> if <code>time1</code> is at or after (greater than or equal to) <code>time2</code>,
-<code>#f</code> otherwise.</p>
-</li>
-<li>
-<p><code>time&gt;?</code> :  <code>#t</code> if <code>time1</code> is after (greater than) <code>time2</code>, <code>#f</code> otherwise.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>An attempt to compare times of different type will raise an error.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(time-resolution [time-type])</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Clock resolution, in nanoseconds, of the system clock of type type
-<code>time-type</code>, which defaults to <code>TIME-UTC</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">time-resolution</span><span class="p">)</span>              <span class="nv">=&gt;</span> <span class="mi">1000000</span>
-<span class="p">(</span><span class="nf">time-resolution</span> <span class="nv">time-process</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">1000000</span>
-<span class="p">(</span><span class="nf">time-resolution</span> <span class="nv">time-tai</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mi">1000000</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_22running_scheme_scripts_on_unix">srfi-22&#8201;&#8212;&#8201;Running Scheme Scripts on Unix</h4>
-<div class="paragraph">
-<p>
-
-<strong><a href="http://srfi.schemers.org/srfi-22/srfi-22.html">SRFI-22</a></strong> describes basic prerequisites for running Scheme
-programs as Unix scripts in a uniform way. Specifically, it describes:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>the syntax of Unix scripts written in Scheme,</p>
-</li>
-<li>
-<p>a uniform convention for calling the Scheme script interpreter, and</p>
-</li>
-<li>
-<p>a method for accessing the Unix command line arguments from within the
-Scheme script.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p><strong><a href="http://srfi.schemers.org/srfi-22/srfi-22.html">SRFI-22</a></strong> (<em>Running Scheme Scripts on Unix</em>)  recommends to invoke the Scheme script interpreter from the
-script via a /usr/bin/env trampoline, like this:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>#!/usr/bin/env stklos</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Here is an example of the classical <code>echo</code> command (without option) in Scheme:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="o">#</span><span class="nv">!/usr/bin/env</span> <span class="nv">stklos</span>
-
-<span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">main</span> <span class="nv">arguments</span><span class="p">)</span>
-  <span class="p">(</span><span class="nb">for-each</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">display</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">display</span> <span class="o">#</span><span class="nv">space</span><span class="p">))</span>
-            <span class="p">(</span><span class="nb">cdr</span> <span class="nv">arguments</span><span class="p">))</span>
-  <span class="p">(</span><span class="nb">newline</span><span class="p">)</span>
-  <span class="mi">0</span><span class="p">)</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_23error_reporting_mechanism">srfi-23&#8201;&#8212;&#8201;Error reporting mechanism</h4>
-<div class="paragraph">
-<p>
-
-<strong><a href="http://srfi.schemers.org/srfi-23/srfi-23.html">SRFI-23</a></strong> is fully supported.  Note that the <strong><em>STklos</em></strong> <strong>error</strong>
-is more general than the one defined in SRFI-23.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_25multi_dimensional_arrays">srfi-25&#8201;&#8212;&#8201;Multi-dimensional Arrays</h4>
-<div class="paragraph">
-<p>
-
-<strong><em>STklos</em></strong> implements the arrays of <strong><a href="http://srfi.schemers.org/srfi-25/srfi-25.html">SRFI-25</a></strong>. All the
-forms defined in the SRFI are implemented in <strong><em>STklos</em></strong>, but some other
-functions, not present in the SRFI, are documented here.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(shape? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Checks if <code>obj</code> is an array shape. SRFI-25 dictates that a
-shape is an ordinary array, with rank two and shape <code>(0 r 0 2)</code>,
-where <code>r</code> is the rank of the array that the shape describes.
-So, any array of shape <code>(0 r 0 2</code> is a shape, for any non-negative
-integer <code>r</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(shared-array? array)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Will return <code>#t</code> when the array has its data shared with other
-arrays, and <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(shape-for-each shape proc [index-object])</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure will apply proc to all valid sequences of
-indices in <code>shape</code>, in row-major order.</p>
-</div>
-<div class="paragraph">
-<p>If <code>index-object</code> is not provided, then <code>proc</code> must accept
-as many arguments as the number of dimensions that the shape
-describes.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">shape-for-each</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">1</span> <span class="mi">3</span> <span class="mi">10</span> <span class="mi">12</span><span class="p">)</span>
-                <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)</span>
-                  <span class="p">(</span><span class="nf">format</span> <span class="no">#t</span> <span class="s">"[~a ~a]~%"</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)))</span>
-        <span class="nv">|-</span> <span class="p">[</span><span class="nf">1</span> <span class="mi">10</span><span class="p">]</span>
-           <span class="p">[</span><span class="nf">1</span> <span class="mi">11</span><span class="p">]</span>
-           <span class="p">[</span><span class="nf">2</span> <span class="mi">10</span><span class="p">]</span>
-           <span class="p">[</span><span class="nf">2</span> <span class="mi">11</span><span class="p">]</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>If <code>index-object</code> is provided, it is used as a place to store the
-indices, so proc must accept either a vector or an array (this is to
-avoid pushing and popping too many values when calling <code>proc</code>).
-<code>index-object</code>, when present, must be aither a vector or array.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">vec</span> <span class="p">(</span><span class="nb">make-vector</span> <span class="mi">2</span> <span class="no">#f</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">shape-for-each</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">1</span> <span class="mi">3</span> <span class="mi">10</span> <span class="mi">12</span><span class="p">)</span>
-                  <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">o</span><span class="p">)</span>
-                    <span class="p">(</span><span class="nf">format</span> <span class="no">#t</span> <span class="s">"[~a ~a]~%"</span>
-                    <span class="p">(</span><span class="nb">vector-ref</span> <span class="nv">o</span> <span class="mi">0</span><span class="p">)</span>
-                    <span class="p">(</span><span class="nb">vector-ref</span> <span class="nv">o</span> <span class="mi">1</span><span class="p">)))</span>
-                  <span class="nv">vec</span><span class="p">))</span>
-        <span class="nv">|-</span> <span class="p">[</span><span class="nf">1</span> <span class="mi">10</span><span class="p">]</span>
-           <span class="p">[</span><span class="nf">1</span> <span class="mi">11</span><span class="p">]</span>
-           <span class="p">[</span><span class="nf">2</span> <span class="mi">10</span><span class="p">]</span>
-           <span class="p">[</span><span class="nf">2</span> <span class="mi">11</span><span class="p">]</span>
-
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">arr</span> <span class="p">(</span><span class="nf">make-array</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nf">shape-for-each</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">1</span> <span class="mi">3</span> <span class="mi">10</span> <span class="mi">12</span><span class="p">)</span>
-                  <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">o</span><span class="p">)</span>
-                    <span class="p">(</span><span class="nf">format</span> <span class="no">#t</span> <span class="s">"[~a ~a]~%"</span>
-                    <span class="p">(</span><span class="nf">array-ref</span> <span class="nv">o</span> <span class="mi">0</span><span class="p">)</span>
-                    <span class="p">(</span><span class="nf">array-ref</span> <span class="nv">o</span> <span class="mi">1</span><span class="p">)))</span>
-                  <span class="nv">arr</span><span class="p">))</span>
-         <span class="nv">|-</span> <span class="p">[</span><span class="nf">1</span> <span class="mi">10</span><span class="p">]</span>
-            <span class="p">[</span><span class="nf">1</span> <span class="mi">11</span><span class="p">]</span>
-            <span class="p">[</span><span class="nf">2</span> <span class="mi">10</span><span class="p">]</span>
-            <span class="p">[</span><span class="nf">2</span> <span class="mi">11</span><span class="p">]</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(share-nths a d n)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Share-nths</code> takes every <code>n`th slice along dimension `d</code> into a shared array.
-This preserves the origin.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="p">(</span><span class="nf">array</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">0</span> <span class="mi">4</span> <span class="mi">0</span> <span class="mi">4</span><span class="p">)</span>
-                 <span class="mi">-1</span> <span class="mi">-2</span> <span class="mi">-3</span> <span class="mi">-4</span>
-                 <span class="mi">-5</span> <span class="mi">-6</span> <span class="mi">-7</span> <span class="mi">-8</span>
-                 <span class="mi">-9</span> <span class="mi">-10</span> <span class="mi">-11</span> <span class="mi">-12</span>
-                 <span class="mi">-13</span> <span class="mi">-14</span> <span class="mi">-15</span> <span class="mi">-16</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">share-nths</span> <span class="nv">a</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span>
- <span class="nv">=&gt;</span> <span class="o">#,</span><span class="p">(</span><span class="nf">&lt;array&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">4</span><span class="p">)</span> <span class="mi">-1</span>  <span class="mi">-2</span>  <span class="mi">-3</span>  <span class="mi">-4</span>
-                         <span class="mi">-9</span> <span class="mi">-10</span> <span class="mi">-11</span> <span class="mi">-12</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">share-nths</span> <span class="nv">a</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span>
- <span class="nv">=&gt;</span> <span class="o">#,</span><span class="p">(</span><span class="nf">&lt;array&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">4</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span> <span class="mi">-1</span>  <span class="mi">-3</span>  <span class="mi">-5</span>  <span class="mi">-7</span>
-                         <span class="mi">-9</span> <span class="mi">-11</span> <span class="mi">-13</span> <span class="mi">-15</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(share-column arr k)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Shares whatever the second index is about. The result has one dimension less.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="p">(</span><span class="nf">array</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span> <span class="mi">-1</span> <span class="mi">-2</span> <span class="mi">-3</span> <span class="mi">-4</span> <span class="mi">-5</span> <span class="mi">-6</span> <span class="mi">-7</span> <span class="mi">-8</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">share-column</span> <span class="nv">a</span> <span class="mi">1</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="o">#,</span><span class="p">(</span><span class="nf">&lt;array&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span> <span class="mi">-3</span> <span class="mi">-4</span> <span class="mi">-7</span> <span class="mi">-8</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">share-column</span> <span class="nv">a</span> <span class="mi">0</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="o">#,</span><span class="p">(</span><span class="nf">&lt;array&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span> <span class="mi">-1</span> <span class="mi">-2</span> <span class="mi">-5</span> <span class="mi">-6</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(share-row arr k)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Shares whatever the first index is about. The result has one dimension less.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="p">(</span><span class="nf">array</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span> <span class="mi">-1</span> <span class="mi">-2</span> <span class="mi">-3</span> <span class="mi">-4</span> <span class="mi">-5</span> <span class="mi">-6</span> <span class="mi">-7</span> <span class="mi">-8</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">share-row</span> <span class="nv">a</span> <span class="mi">0</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="o">#,</span><span class="p">(</span><span class="nf">&lt;array&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span> <span class="mi">-1</span> <span class="mi">-2</span> <span class="mi">-3</span> <span class="mi">-4</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">share-row</span> <span class="nv">a</span> <span class="mi">1</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="o">#,</span><span class="p">(</span><span class="nf">&lt;array&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span> <span class="mi">-5</span> <span class="mi">-6</span> <span class="mi">-7</span> <span class="mi">-8</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(share-array/origin arr k &#8230;&#8203;)</code></strong><br>
-<strong><code>(share-array/origin arr index)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>change the origin of <code>arr</code> to <code>k</code> &#8230;&#8203;, with <code>index</code> a vector or zero-based
-one-dimensional array that contains k &#8230;&#8203;</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="p">(</span><span class="nf">array</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">2</span> <span class="p">)</span> <span class="mi">-1</span> <span class="mi">-2</span> <span class="mi">-3</span> <span class="mi">-4</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">share-array/origin</span>  <span class="nv">a</span> <span class="mi">1</span> <span class="mi">1</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="o">#,</span><span class="p">(</span><span class="nf">&lt;array&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">3</span> <span class="mi">1</span> <span class="mi">3</span><span class="p">)</span> <span class="mi">-1</span> <span class="mi">-2</span> <span class="mi">-3</span> <span class="mi">-4</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(array-copy+share array)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a copy of <code>array</code>.
-If array does not have its own internal data, but was built using
-share-array, then the new array will be similar&#8201;&#8212;&#8201;it will be a copy of
-array, sharing the elements in the same way.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(array-size array)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the number of elements in <code>array</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(array-shape array)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the shape of <code>array</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(array&#8594;list array)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a list that contains a copy of the elements of <code>array</code>,
-in row-major order.
-This is not recursive, and will not flatten the array.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(array&#8594;vector array)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a vector that contains a copy of the elements of <code>array</code>,
-in row-major order. The new vector does not share elements with
-the original array (it is a fresh copy).
-This is not recursive, and will not flatten the array.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(array-length array dim)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the length of dimension <code>dim</code> in array <code>array</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(array-map [shape] proc arr<sub>0</sub> arr<sub>1</sub> &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure is similar to <code>map</code> for lists:
-it will run <code>proc</code> on an element of each of the
-<code>arr<sub>0</sub></code>, <code>arr<sub>1</sub></code>, &#8230;&#8203; arguments, storing the result in
-the equivalent position of a newly created array.</p>
-</div>
-<div class="paragraph">
-<p>The shapes of the arrays must be the same.</p>
-</div>
-<div class="paragraph">
-<p>The procedure will create a new array with shape <code>shape</code>
-(or <code>arr<sub>0</sub></code>'s shape, if <code>shape</code> was not specified).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(array-map! array [shape] proc arr<sub>0</sub> arr<sub>1</sub> &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>For each valid index <code>idx</code>, applies proc to the corresponding
-position in <code>arr<sub>0</sub></code>, <code>arr<sub>1</sub></code>, &#8230;&#8203;  and then sets the same
-place in <code>array</code> to the result.</p>
-</div>
-<div class="paragraph">
-<p>If <code>shape</code> is specified, it should specify a subarray of
-<code>array</code>, and only that section will be mapped.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(array-append dim arr<sub>1</sub> arr<sub>2</sub> &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Appends arrays <code>arr<sub>1</sub></code>, <code>arr<sub>2</sub></code>, &#8230;&#8203; along the specified dimension <code>dim</code>.
-The arrays must have equally many dimensions and all other dimensions
-equally long.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="p">(</span><span class="nf">array</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">3</span><span class="p">)</span> <span class="mi">11</span> <span class="mi">22</span> <span class="mi">33</span> <span class="mi">44</span> <span class="mi">55</span> <span class="mi">66</span><span class="p">))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">b</span> <span class="p">(</span><span class="nf">array</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">0</span> <span class="mi">3</span> <span class="mi">0</span> <span class="mi">3</span><span class="p">)</span> <span class="mi">-11</span> <span class="mi">-22</span> <span class="mi">-33</span> <span class="mi">-44</span> <span class="mi">-55</span> <span class="mi">-66</span> <span class="mi">-77</span> <span class="mi">-88</span> <span class="mi">-99</span><span class="p">))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">c</span> <span class="p">(</span><span class="nf">array</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">0</span> <span class="mi">1</span> <span class="mi">0</span> <span class="mi">3</span><span class="p">)</span> <span class="ss">'a</span> <span class="ss">'b</span> <span class="ss">'c</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">array-append</span> <span class="mi">0</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span> <span class="nv">=&gt;</span>  <span class="o">#,</span><span class="p">(</span><span class="nf">&lt;array&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">6</span> <span class="mi">0</span> <span class="mi">3</span><span class="p">)</span>
-                                      <span class="mi">11</span>  <span class="mi">22</span>  <span class="mi">33</span>
-                                      <span class="mi">44</span>  <span class="mi">55</span>  <span class="mi">66</span>
-                                     <span class="mi">-11</span> <span class="mi">-22</span> <span class="mi">-33</span>
-                                     <span class="mi">-44</span> <span class="mi">-55</span> <span class="mi">-66</span>
-                                     <span class="mi">-77</span> <span class="mi">-88</span> <span class="mi">-99</span>
-                                       <span class="nv">a</span>   <span class="nv">b</span>   <span class="nv">c</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(array-share-count array)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the number of arrays that were built sharing <code>array</code>'s
-elements through <code>(share-array array shape proc)</code>, and that were not
-yet garbage collected.
-Note that it may take a long time for an object to be garbage
-collected automatically. It is possible to force a garbage
-collection pass by calling <code>(gc)</code>, but even that does not guarantee that
-a specific object will be collected.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(array-copy array)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a copy of <code>array</code>.
-The new copy will have no data shared with any other array, even if the
-argument <code>array</code> did.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(array-for-each-index arr proc [index-object])</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Will loop through all valid indices of <code>array</code>, applying <code>proc</code>
-to those indices.</p>
-</div>
-<div class="paragraph">
-<p>If <code>index-object</code> is not provided, then <code>proc</code> must accept
-as many arguments as the number of dimensions that the shape
-describes.</p>
-</div>
-<div class="paragraph">
-<p>If <code>index-object</code> is provided, it is used as a place to store the
-indices, so <code>proc</code> must accept a vector or an array (this is to avoid
-pushing and popping too many values when calling proc).
-<code>index-object</code>, when present, must be aither a vector or array.</p>
-</div>
-<div class="paragraph">
-<p>See the documentation of <code>shape-for-each</code> for more information
-on <code>index-object</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(tabulate-array shape proc)</code></strong><br>
-<strong><code>(tabulate-array shape proc idx)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a new array of shape <code>shape</code>, populated according
-to <code>proc</code>. Each valid index in <code>shape</code> is passed to <code>proc</code>,
-and the result is place in the according array position.</p>
-</div>
-<div class="paragraph">
-<p><code>idx</code> is an object that may be used to store the indices, and
-it may be either a vector or an array. If it is not present, or
-if it is <code>#f</code>, then an index vector will be created internally.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(array-retabulate! arr shp proc [index-object])</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Sets the elements of <code>arr</code> in <code>shape</code> to the value of <code>proc</code> at that
-index, using <code>index-object</code> if provided. This is similar to
-<code>tabulate-array!</code>, except that the array is given by the user.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">arr</span> <span class="p">(</span><span class="nf">array</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span> <span class="ss">'a</span> <span class="ss">'b</span> <span class="ss">'c</span> <span class="ss">'d</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">array-retabulate!</span> <span class="nv">arr</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)</span> <span class="p">(</span><span class="nb">+</span> <span class="mi">1</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)))</span>
-<span class="nv">arr</span> <span class="nv">=&gt;</span> <span class="o">#,</span><span class="p">(</span><span class="nf">&lt;array&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(transpose arr k &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Shares <code>arr</code> with permuted dimensions. Each dimension from 0
-inclusive to rank exclusive must appear once in <code>k</code> &#8230;&#8203;</p>
-</div>
-<div class="paragraph">
-<p>This is a generalized transpose. It can permute the dimensions any which
-way. The permutation is provided by a permutation matrix: a square matrix
-of zeros and ones, with exactly one one in each row and column, or a
-permutation of the rows of an identity matrix; the size of the matrix
-must match the number of dimensions of the array.</p>
-</div>
-<div class="paragraph">
-<p>The default permutation is <code>[ 0 1 , 1 0 ]</code> of course, but any permutation
-array can be specified, and the shape array of the original array is then
-multiplied with it, and index column vectors of the new array with its
-inverse, from left, to permute the rows appropriately.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">transpose</span> <span class="p">(</span><span class="nf">array</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">0</span> <span class="mi">4</span> <span class="mi">0</span> <span class="mi">4</span><span class="p">)</span>
-                  <span class="mi">-1</span>  <span class="mi">-2</span>   <span class="mi">-3</span>  <span class="mi">-4</span>
-                  <span class="mi">-5</span>  <span class="mi">-6</span>   <span class="mi">-7</span>  <span class="mi">-8</span>
-                  <span class="mi">-9</span>  <span class="mi">-10</span> <span class="mi">-11</span> <span class="mi">-12</span>
-                  <span class="mi">-13</span> <span class="mi">-14</span> <span class="mi">-15</span> <span class="mi">-16</span><span class="p">))</span>
- <span class="nv">=&gt;</span> <span class="o">#,</span><span class="p">(</span><span class="nf">&lt;array&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">4</span> <span class="mi">0</span> <span class="mi">4</span><span class="p">)</span>
-              <span class="mi">-1</span> <span class="mi">-5</span>  <span class="mi">-9</span> <span class="mi">-13</span>
-              <span class="mi">-2</span> <span class="mi">-6</span> <span class="mi">-10</span> <span class="mi">-14</span>
-              <span class="mi">-3</span> <span class="mi">-7</span> <span class="mi">-11</span> <span class="mi">-15</span>
-              <span class="mi">-4</span> <span class="mi">-8</span> <span class="mi">-12</span> <span class="mi">-16</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">transpose</span> <span class="p">(</span><span class="nf">array</span> <span class="p">(</span><span class="nf">shape</span> <span class="mi">0</span> <span class="mi">3</span> <span class="mi">0</span> <span class="mi">3</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span>
-                  <span class="mi">-1</span> <span class="mi">-2</span>
-                  <span class="mi">-3</span> <span class="mi">-4</span>
-                  <span class="mi">-5</span> <span class="mi">-6</span>
-
-                  <span class="mi">-7</span> <span class="mi">-8</span>
-                  <span class="mi">-9</span> <span class="mi">-10</span>
-                  <span class="mi">-11</span> <span class="mi">-12</span>
-
-                  <span class="mi">-13</span> <span class="mi">-14</span>
-                  <span class="mi">-15</span> <span class="mi">-16</span>
-                  <span class="mi">-17</span> <span class="mi">-18</span><span class="p">))</span>
- <span class="nv">=&gt;</span> <span class="o">#,</span><span class="p">(</span><span class="nf">&lt;array&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">2</span> <span class="mi">0</span> <span class="mi">3</span> <span class="mi">0</span> <span class="mi">3</span><span class="p">)</span>
-               <span class="mi">-1</span>  <span class="mi">-7</span> <span class="mi">-13</span>
-               <span class="mi">-3</span>  <span class="mi">-9</span> <span class="mi">-15</span>
-               <span class="mi">-5</span> <span class="mi">-11</span> <span class="mi">-17</span>
-
-               <span class="mi">-2</span>  <span class="mi">-8</span> <span class="mi">-14</span>
-               <span class="mi">-4</span> <span class="mi">-10</span> <span class="mi">-16</span>
-               <span class="mi">-6</span> <span class="mi">-12</span> <span class="mi">-18</span><span class="p">)</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_27source_of_random_bits">srfi-27&#8201;&#8212;&#8201;Source of random bits</h4>
-<div class="paragraph">
-<p>
-
-
-<strong><a href="http://srfi.schemers.org/srfi-27/srfi-27.html">SRFI-27</a></strong> is fully supported. Using primitives
-<code>random-integer</code> or <code>random-real</code> automatically load this SRFI.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_28basic_format_strings">srfi-28&#8201;&#8212;&#8201;Basic Format Strings</h4>
-<div class="paragraph">
-<p>
-
-<strong><a href="http://srfi.schemers.org/srfi-28/srfi-28.html">SRFI-28</a></strong> is fully supported. Note that <strong><em>STklos</em></strong> <code>format</code>
-is more general than the one defined this SRFI.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_35conditions">srfi-35&#8201;&#8212;&#8201;Conditions</h4>
-<div class="paragraph">
-<p>
-
-<strong><a href="http://srfi.schemers.org/srfi-35/srfi-35.html">SRFI-35</a></strong> is fully supported.
-See <em><a href="_exceptions_and_conditions.html#_predefined_conditions">Section 7.3</a></em> for the predefined conditions
-and when it is required to load this file.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_36io_conditions">srfi-36&#8201;&#8212;&#8201;I/O Conditions</h4>
-<div class="paragraph">
-<p>
-
-<strong><a href="http://srfi.schemers.org/srfi-36/srfi-36.html">SRFI-36</a></strong> is fully supported.  See <em><a href="_exceptions_and_conditions.html#_predefined_conditions">Section 7.3</a></em>
-Conditions) for the predefined conditions and when it is required to
-load this file.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_55require_extension">srfi-55&#8201;&#8212;&#8201;Require-extension</h4>
-<div class="paragraph">
-<p>
-
-<strong><a href="http://srfi.schemers.org/srfi-55/srfi-55.html">SRFI-55</a></strong> is fully supported. Furthermore, <strong><em>STklos</em></strong>
-also accepts the symbols defined in <a href="_srfis.html#feature_identifiers">Table 2</a>
-in a <em>require-extension</em> clause.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_69basic_hash_tables">srfi-69&#8201;&#8212;&#8201;Basic Hash Tables</h4>
-<div class="paragraph">
-<p>
-
-<strong><a href="http://srfi.schemers.org/srfi-69/srfi-69.html">SRFI-69</a></strong> is fully supported. Note that the default
-comparison function in <strong><em>STklos</em></strong> is <code>eq?</code> whereas it is <code>equal?</code> for
-the SRFI. Furthermore the hash functions defined in the SRFI are not
-defined by default in <strong><em>STklos</em></strong>. To have a fully compliant SRFI-69
-behaviour, you need use a <code>require-feature</code> in your code.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_88keyword_objects">srfi-88&#8201;&#8212;&#8201;Keyword Objects</h4>
-<div class="paragraph">
-<p>
-<strong><a href="http://srfi.schemers.org/srfi-88/srfi-88.html">SRFI-88</a></strong> is fully
-supported. The only difference between the keywords defined in the
-SRFI document and the <strong><em>STklos</em></strong> keywords is on the zero-length
-keyword: For <strong><em>STklos</em></strong>, <code>:</code> is equivalent to the keyword <code>#:||</code>,
-whereas the SRFI considers that <code>:</code> is not a keyword but a symbol.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-To obtain the symbol <code>:</code> in <strong><em>STklos</em></strong>, you must use <code>|:|</code>.
-</td>
-</tr>
-</table>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_116immutable_list_library">srfi-116&#8201;&#8212;&#8201;Immutable List Library</h4>
-<div class="paragraph">
-<p>
-
-<strong><em>STklos</em></strong> implements the arrays of <strong><a href="http://srfi.schemers.org/srfi-116/srfi-116.html">SRFI-116</a></strong>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ipair a d)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated <code>ipair</code> whose <code>icar</code> is <code>a</code> and whose <code>icdr</code> is <code>d</code>.
-The ipair is guaranteed to be different (in the sense of <code>eqv?</code>)
-from every existing object.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ilist obj &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated ilist of its arguments.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nf">ilist</span> <span class="ss">'a</span> <span class="p">(</span><span class="nb">+</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span> <span class="ss">'c</span><span class="p">)</span>            <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="mi">7</span> <span class="nv">c</span><span class="p">)</span>
-   <span class="p">(</span><span class="nf">ilist</span><span class="p">)</span>                          <span class="nv">=&gt;</span>  <span class="p">()</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Being an ilist, its CAR, CDR and all sublists are immutable.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(xipair d a)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The same as <code>(lambda (d a) (ipair a d))</code></p>
-</div>
-<div class="paragraph">
-<p>Of utility only as a value to be conveniently passed to
-higher-order procedures.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">xipair</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span> <span class="ss">'a</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The name stands for "eXchanged Immutable PAIR."</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ipair</strong> obj &#8230;&#8203;)</code>*<br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>ipair*</code> is like <code>ilist</code> except that the last argument to <code>ipair*</code> is
-used as the ,(emph "cdr") of the last pair constructed.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nf">ipair*</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="o">.</span> <span class="mi">3</span><span class="p">)</span>
-   <span class="p">(</span><span class="nf">ipair*</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="o">'</span><span class="p">(</span><span class="nf">4</span> <span class="mi">5</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">)</span>
-   <span class="p">(</span><span class="nf">ipair*</span><span class="p">)</span>              <span class="nv">=&gt;</span> <span class="p">()</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-ilist n [fill])</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns an n-element ilist, whose elements are all the value
-fill. If the fill argument is not given, the elements of the
-ilist may be arbitrary values.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">make-ilist</span> <span class="mi">4</span> <span class="ss">'c</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">c</span> <span class="nv">c</span> <span class="nv">c</span> <span class="nv">c</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ilist-tabulate n init-proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns an n-element ilist. Element i of the ilist,
-where 0 &#8656; i &lt; n, is produced by <code>(init-proc i)</code>.
-No guarantee is made about the dynamic order in which
-<code>init-proc</code> is applied to these indices.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ilist-tabulate</span> <span class="mi">4</span> <span class="nv">values</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ilist-copy lst)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Copies the spine of the argument, including the ilist tail.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iiota count [ start step ]</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns an ilist containing the elements</p>
-</div>
-<div class="paragraph">
-<p><code>(start start+step &#8230;&#8203; start+(count-1)*step)</code></p>
-</div>
-<div class="paragraph">
-<p>The <code>start</code> and <code>step</code> parameters default to 0 and 1,
-respectively. This procedure takes its name from the APL
-primitive.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iiota</span> <span class="mi">5</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iiota</span> <span class="mi">5</span> <span class="mi">0</span> <span class="mf">-0.1</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mf">-0.1</span> <span class="mf">-0.2</span> <span class="mf">-0.3</span> <span class="mf">-0.4</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(icar ipair)</code></strong><br>
-<strong><code>(icdr ipair)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return the contents of the icar and icdr
-field of their argument, respectively. Note that it is an
-error to apply them to the empty ilist.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">icar</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>       <span class="nv">=&gt;</span>  <span class="nv">a</span>          <span class="p">(</span><span class="nf">icdr</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>     <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">icar</span> <span class="p">(</span><span class="nf">iq</span> <span class="p">(</span><span class="nf">a</span><span class="p">)</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">))</span>   <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span><span class="p">)</span>        <span class="p">(</span><span class="nf">icdr</span> <span class="p">(</span><span class="nf">iq</span> <span class="p">(</span><span class="nf">a</span><span class="p">)</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">))</span> <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">icar</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span>      <span class="nv">=&gt;</span>  <span class="mi">1</span>          <span class="p">(</span><span class="nf">icdr</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span>    <span class="nv">=&gt;</span>  <span class="mi">2</span>
-<span class="p">(</span><span class="nf">icar</span> <span class="o">'</span><span class="p">())</span>              <span class="nv">=&gt;</span>  <span class="nv">*error*</span>    <span class="p">(</span><span class="nf">icdr</span> <span class="o">'</span><span class="p">())</span>            <span class="nv">=&gt;</span>  <span class="nv">*error*</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ipair? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns true and only if <code>x</code> is a proper ilist — that is,
-a ()-terminated ilist.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(proper-ilist? x)</code></strong><br>
-<strong><code>(ilist? x)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These identifiers are bound either to the same procedure.
-In either case, true is returned iff <code>x</code> is a proper ilist
-— a ()-terminated ilist.</p>
-</div>
-<div class="paragraph">
-<p>More carefully: The empty list is a proper ilist. An ipair
-whose icdr is a proper ilist is also a proper ilist. Everything
-else is a dotted ilist. This includes non-ipair, non-() values
-(e.g. symbols, numbers, mutable pairs), which are considered to
-be dotted ilists of length 0.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(dotted-ilist? x)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns true if <code>x</code> is a finite, non-nil-terminated ilist. That is,
-there exists an n &gt;= 0 such that <code>icdrn(x)</code> is neither an ipair nor
-<code>()</code>. This includes non-ipair, non-() values (e.g. symbols, numbers),
-which are considered to be dotted ilists of length 0.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">dotted-ilist?</span> <span class="nv">x</span><span class="p">)</span> <span class="nv">=</span> <span class="p">(</span><span class="nb">not</span> <span class="p">(</span><span class="nf">proper-ilist?</span> <span class="nv">x</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(not-ipair? x)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This is the same as <code>(lambda (x) (not (ipair? x)))</code></p>
-</div>
-<div class="paragraph">
-<p>Provided as a procedure as it can be useful as the termination
-condition for ilist-processing procedures that wish to handle
-all ilists, both proper and dotted.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(null-ilist? lst)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Ilist is a proper ilist. This procedure returns true if the argument
-is the empty list <code>()</code>, and false otherwise. It is an error to pass this
-procedure a value which is not a proper ilist. This procedure is
-recommended as the termination condition for ilist-processing
-procedures that are not defined on dotted ilists.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ilist= elt= ilist1 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Determines ilist equality, given an element-equality procedure. Proper
-ilist A equals proper ilist B if they are of the same length, and
-their corresponding elements are equal, as determined by <code>elt=</code>. If the
-element-comparison procedure&#8217;s first argument is from ilisti, then
-its second argument is from ilisti+1, i.e. it is always called as
-<code>(elt= a b)</code> for <code>a</code> an element of ilist A, and <code>b</code> an element of ilist B.</p>
-</div>
-<div class="paragraph">
-<p>In the n-ary case, every ilisti is compared to ilisti+1 (as opposed,
-for example, to comparing ilist1 to ilisti, for i&gt;1). If there are no
-ilist arguments at all, <code>ilist=</code> simply returns true.</p>
-</div>
-<div class="paragraph">
-<p>It is an error to apply ilist= to anything except proper ilists. It
-cannot reasonably be extended to dotted ilists, as it provides no way
-to specify an equality procedure for comparing the ilist terminators.</p>
-</div>
-<div class="paragraph">
-<p>Note that the dynamic order in which the elt= procedure is applied to
-pairs of elements is not specified. For example, if ilist= is applied
-to three ilists, A, B, and C, it may first completely compare A to B,
-then compare B to C, or it may compare the first elements of A and B,
-then the first elements of B and C, then the second elements of A and
-B, and so forth.</p>
-</div>
-<div class="paragraph">
-<p>The equality procedure must be consistent with <code>eq?</code>. That is, it must
-be the case that</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">eq?</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">elt=</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Note that this implies that two ilists which are <code>eq?</code> are always ilist=,
-as well; implementations may exploit this fact to "short-cut" the
-element-by-element comparisons.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ilist=</span> <span class="nv">eq?</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="no">#t</span>       <span class="c1">; Trivial cases</span>
-<span class="p">(</span><span class="nf">ilist=</span> <span class="nv">eq?</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(list-immutable+! lst)</code></strong><br>
-<strong><code>(list-immutable! lst)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Destructive versions of <code>list&#8594;ilist</code>: both procedures change their
-argument so it will become an immutable list.
-<code>List-immutable+!</code> returns the list, while <code>list-immutable!</code> returns <code>#void</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ifirst   ipair)</code></strong><br>
-<strong><code>(isecond  ipair)</code></strong><br>
-<strong><code>(ithird   ipair)</code></strong><br>
-<strong><code>(ifourth  ipair)</code></strong><br>
-<strong><code>(ififth   ipair)</code></strong><br>
-<strong><code>(isixth   ipair)</code></strong><br>
-<strong><code>(iseventh ipair)</code></strong><br>
-<strong><code>(ieighth  ipair)</code></strong><br>
-<strong><code>(ininth   ipair)</code></strong><br>
-<strong><code>(itenth   ipair)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Synonyms for car, cadr, caddr, &#8230;&#8203;</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ithird</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span> <span class="nv">e</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="nv">c</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(icar+icdr ip)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The fundamental ipair deconstructor. Returns two values:
-the icar and the icdrif <code>ip</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(itake x i)</code></strong><br>
-<strong><code>(idrop x i)</code></strong><br>
-<strong><code>(ilist-tail x i)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>itake</code> returns the first i elements of ilist <code>x</code>.
-<code>idrop</code> returns all but the first i elements of ilist <code>x</code>.
-<code>ilist-tail</code> is either the same procedure as idrop or else a procedure
-with the same behavior.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"> <span class="p">(</span><span class="nf">itake</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span> <span class="nv">e</span><span class="p">)</span>  <span class="mi">2</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)</span>
- <span class="p">(</span><span class="nf">idrop</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span> <span class="nv">e</span><span class="p">)</span>  <span class="mi">2</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">c</span> <span class="nv">d</span> <span class="nv">e</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>x</code> may be any value — a proper or dotted ilist:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">itake</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">1</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">2</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">3</span> <span class="ss">'d</span><span class="p">)))</span>    <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">idrop</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">1</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">2</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">3</span> <span class="ss">'d</span><span class="p">)))</span> <span class="mi">2</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">3</span> <span class="o">.</span> <span class="nv">d</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">itake</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">1</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">2</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">3</span> <span class="ss">'d</span><span class="p">)))</span> <span class="mi">3</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">idrop</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">1</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">2</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">3</span> <span class="ss">'d</span><span class="p">)))</span> <span class="mi">3</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="nv">d</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>For a legal <code>i</code>, itake and idrop partition the ilist in a manner
-which can be inverted with iappend:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iappend</span> <span class="p">(</span><span class="nf">itake</span> <span class="nv">x</span> <span class="nv">i</span><span class="p">)</span> <span class="p">(</span><span class="nf">idrop</span> <span class="nv">x</span> <span class="nv">i</span><span class="p">))</span> <span class="nv">=</span> <span class="nv">x</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>idrop is exactly equivalent to performing i icdr operations on <code>x</code>;
-the returned value shares a common tail with <code>x</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(itake-right dilist i)</code></strong><br>
-<strong><code>(idrop-right dilist i)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Itake-right</code> returns the last <code>i</code> elements of <code>dilist</code>.
-<code>Idrop-right</code> returns all but the last <code>i</code> elements of <code>dilist</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">itake-right</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span> <span class="nv">e</span><span class="p">)</span> <span class="mi">2</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">d</span> <span class="nv">e</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">idrop-right</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span> <span class="nv">e</span><span class="p">)</span> <span class="mi">2</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The returned ilist may share a common tail with the argument <code>ilist</code>.</p>
-</div>
-<div class="paragraph">
-<p><code>dilist</code> may be any ilist, either proper or dotted:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">itake-right</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">ipair</span> <span class="mi">1</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">2</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">3</span> <span class="ss">'d</span><span class="p">)))</span> <span class="mi">2</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">3</span> <span class="o">.</span> <span class="nv">d</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">idrop-right</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">1</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">2</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">3</span> <span class="ss">'d</span><span class="p">)))</span> <span class="mi">2</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">itake-right</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">1</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">2</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">3</span> <span class="ss">'d</span><span class="p">)))</span> <span class="mi">0</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="nv">d</span>
-<span class="p">(</span><span class="nf">idrop-right</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">1</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">2</span> <span class="p">(</span><span class="nf">ipair</span> <span class="mi">3</span> <span class="ss">'d</span><span class="p">)))</span> <span class="mi">0</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>For a legal <code>i</code>, <code>itake-right</code> and <code>idrop-right</code> partition the ilist
-in a manner which can be inverted with <code>iappend</code>:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>(iappend (itake dilist i) (idrop dilist i)) = dilist</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Itake-right</code>'s return value is guaranteed to share a common tail
-with <code>dilist</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(isplit-at  x i)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Isplit-at</code> splits the ilist <code>x</code> at index <code>i</code>, returning an
-ilist of the first <code>i</code> elements, and the remaining tail. It is
-equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">values</span> <span class="p">(</span><span class="nf">itake</span> <span class="nv">x</span> <span class="nv">i</span><span class="p">)</span> <span class="p">(</span><span class="nf">idrop</span> <span class="nv">x</span> <span class="nv">i</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ilast ipair)</code></strong><br>
-<strong><code>(last-ipair ipair)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Ilast</code> returns the last element of the non-empty, possibly
-dotted, ilist ipair.
-<code>Last-ipair</code> returns the last ipair in the non-empty ilist pair.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ilast</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>      <span class="nv">=&gt;</span> <span class="nv">c</span>
-<span class="p">(</span><span class="nf">last-ipair</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">c</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ilength  ilist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the length of its argument. It is an error to pass a value
-to <code>ilength</code> which is not a proper ilist (()-terminated).</p>
-</div>
-<div class="paragraph">
-<p>The length of a proper ilist is a non-negative integer n such that
-<code>icdr</code> applied n times to the ilist produces the empty list.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iappend ilist1 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns an ilist consisting of the elements of ilist1 followed by the elements of the other ilist parameters.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iappend</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">y</span><span class="p">))</span>        <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iappend</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span><span class="p">)</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">))</span>    <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iappend</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="p">(</span><span class="nf">b</span><span class="p">))</span> <span class="p">(</span><span class="nf">iq</span> <span class="p">(</span><span class="nf">c</span><span class="p">)))</span>  <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="p">(</span><span class="nf">b</span><span class="p">)</span> <span class="p">(</span><span class="nf">c</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The resulting ilist is always newly allocated, except that it
-shares structure with the final ilisti argument. This last argument
-may be any value at all; an improper ilist results if it is not a
-proper ilist. All other arguments must be proper ilists.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iappend</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span><span class="nf">ipair</span> <span class="ss">'c</span> <span class="ss">'d</span><span class="p">))</span>  <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="o">.</span> <span class="nv">d</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iappend</span> <span class="o">'</span><span class="p">()</span> <span class="ss">'a</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="nv">a</span>
-<span class="p">(</span><span class="nf">iappend</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">))</span>         <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iappend</span><span class="p">)</span>                  <span class="nv">=&gt;</span>  <span class="p">()</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iconcatenate  ilist-of-ilists)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Appends the elements of its argument together. That is, <code>iconcatenate</code>
-returns the same as</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iapply</span> <span class="nv">iappend</span> <span class="nv">ilist-of-ilists</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>or, equivalently,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ireduce-right</span> <span class="nv">iappend</span> <span class="o">'</span><span class="p">()</span> <span class="nv">ilist-of-ilists</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>As with <code>iappend</code>, the last element of the input list may be any
-value at all.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ireverse  ilist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated ilist consisting of the elements of <code>ilist</code>
-in reverse order.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ireverse</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>              <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">c</span> <span class="nv">b</span> <span class="nv">a</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">ireverse</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span><span class="p">)</span> <span class="nv">d</span> <span class="p">(</span><span class="nf">e</span> <span class="p">(</span><span class="nf">f</span><span class="p">))))</span>  <span class="nv">=&gt;</span>  <span class="p">((</span><span class="nf">e</span> <span class="p">(</span><span class="nf">f</span><span class="p">))</span> <span class="nv">d</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span><span class="p">)</span> <span class="nv">a</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iappend-reverse  rev-head tail)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Iappend-reverse</code> returns <code>(iappend (ireverse rev-head) tail)</code>.
-It is provided because it is a common operation — a common list-processing
-style calls for this exact operation to transfer values accumulated in
-reverse order onto the front of another ilist, and because the
-implementation is significantly more efficient than the simple
-composition it replaces. (But note that this pattern of iterative
-computation followed by a reverse can frequently be rewritten as a
-recursion, dispensing with the reverse and iappend-reverse steps, and
-shifting temporary, intermediate storage from the heap to the stack,
-which is typically a win for reasons of cache locality and eager
-storage reclamation.)</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(izip ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the same as <code>(lambda ilists (iapply imap ilist ilists))</code></p>
-</div>
-<div class="paragraph">
-<p>If <code>izip</code> is passed n ilists, it returns an ilist as long as the shortest
-of these ilists, each element of which is an n-element ilist comprised of
-the corresponding elements from the parameter ilists.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">izip</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">one</span> <span class="nv">two</span> <span class="nv">three</span><span class="p">)</span>
-     <span class="p">(</span><span class="nf">iq</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>
-     <span class="p">(</span><span class="nf">iq</span> <span class="nv">odd</span> <span class="nv">even</span> <span class="nv">odd</span> <span class="nv">even</span> <span class="nv">odd</span> <span class="nv">even</span> <span class="nv">odd</span> <span class="nv">even</span><span class="p">))</span>
-    <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">one</span> <span class="mi">1</span> <span class="nv">odd</span><span class="p">)</span> <span class="p">(</span><span class="nf">two</span> <span class="mi">2</span> <span class="nv">even</span><span class="p">)</span> <span class="p">(</span><span class="nf">three</span> <span class="mi">3</span> <span class="nv">odd</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">izip</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">1</span><span class="p">)</span> <span class="p">(</span><span class="nf">2</span><span class="p">)</span> <span class="p">(</span><span class="nf">3</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iunzip1 ilist)</code></strong><br>
-<strong><code>(iunzip2 ilist)</code></strong><br>
-<strong><code>(iunzip3 ilist)</code></strong><br>
-<strong><code>(iunzip4 ilist)</code></strong><br>
-<strong><code>(iunzip5 ilist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Iunzip1</code> takes an ilist of ilists, where every ilist must
-contain at least one element, and returns an ilist containing
-the initial element of each such ilist. That is, it returns
-<code>(imap icar ilists)</code>. <code>Iunzip2</code> takes an ilist of ilists, where
-every ilist must contain at least two elements, and returns two
-values: an ilist of the first elements, and an ilist of the second
-elements. <code>Iunzip3</code> does the same for the first three elements of
-the ilists, and so forth.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iunzip2</span> <span class="p">(</span><span class="nf">iq</span> <span class="p">(</span><span class="nf">1</span> <span class="nv">one</span><span class="p">)</span> <span class="p">(</span><span class="nf">2</span> <span class="nv">two</span><span class="p">)</span> <span class="p">(</span><span class="nf">3</span> <span class="nv">three</span><span class="p">)))</span> <span class="nv">=&gt;</span>
-    <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">one</span> <span class="nv">two</span> <span class="nv">three</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(icount pred ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Pred</code> is a procedure taking as many arguments as there are ilists and
-returning a single value. It is applied element-wise to the elements
-of the ilists, and a count is tallied of the number of elements that
-produce a true value. This count is returned. count is "iterative" in
-that it is guaranteed to apply pred to the ilist elements in a
-left-to-right order. The counting stops when the shortest ilist
-expires.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">icount</span> <span class="nv">even?</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">3</span> <span class="mi">1</span> <span class="mi">4</span> <span class="mi">1</span> <span class="mi">5</span> <span class="mi">9</span> <span class="mi">2</span> <span class="mi">5</span> <span class="mi">6</span><span class="p">))</span>            <span class="nv">=&gt;</span> <span class="mi">3</span>
-<span class="p">(</span><span class="nf">icount</span> <span class="nv">&lt;</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">4</span> <span class="mi">8</span><span class="p">)</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">2</span> <span class="mi">4</span> <span class="mi">6</span> <span class="mi">8</span> <span class="mi">10</span> <span class="mi">12</span> <span class="mi">14</span> <span class="mi">16</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mi">3</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(imap proc ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>proc is a procedure taking as many arguments as there are ilist
-arguments and returning a single value. imap applies proc element-wise
-to the elements of the ilists and returns an ilist of the results, in
-order. The dynamic order in which proc is applied to the elements of
-the ilists is unspecified.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">imap</span> <span class="nv">icadr</span> <span class="p">(</span><span class="nf">iq</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span><span class="nf">d</span> <span class="nv">e</span><span class="p">)</span> <span class="p">(</span><span class="nf">g</span> <span class="nv">h</span><span class="p">)))</span> <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">b</span> <span class="nv">e</span> <span class="nv">h</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">imap</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">n</span><span class="p">)</span> <span class="p">(</span><span class="nb">expt</span> <span class="nv">n</span> <span class="nv">n</span><span class="p">))</span>
-     <span class="p">(</span><span class="nf">iq</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">))</span>
-    <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">1</span> <span class="mi">4</span> <span class="mi">27</span> <span class="mi">256</span> <span class="mi">3125</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">imap</span> <span class="nv">+</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">4</span> <span class="mi">5</span> <span class="mi">6</span><span class="p">))</span> <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">5</span> <span class="mi">7</span> <span class="mi">9</span><span class="p">)</span>
-
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">count</span> <span class="mi">0</span><span class="p">))</span>
-  <span class="p">(</span><span class="nf">imap</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">ignored</span><span class="p">)</span>
-         <span class="p">(</span><span class="k">set!</span> <span class="nv">count</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">count</span> <span class="mi">1</span><span class="p">))</span>
-         <span class="nv">count</span><span class="p">)</span>
-       <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">)))</span> <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span><span class="p">)</span> <span class="nv">or</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">1</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ifor-each proc ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The arguments to <code>ifor-each</code> are like the arguments to <code>imap</code>, but
-<code>ifor-each</code> calls <code>proc</code> for its side effects rather than for its
-values. Unlike <code>imap</code>, <code>ifor-each</code> is guaranteed to call proc on the
-elements of the ilists in order from the first element(s) to the last,
-and the value returned by <code>ifor-each</code> is unspecified.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">v</span> <span class="p">(</span><span class="nb">make-vector</span> <span class="mi">5</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">ifor-each</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">i</span><span class="p">)</span>
-              <span class="p">(</span><span class="nb">vector-set!</span> <span class="nv">v</span> <span class="nv">i</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">i</span> <span class="nv">i</span><span class="p">)))</span>
-            <span class="p">(</span><span class="nf">iq</span> <span class="mi">0</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">))</span>
-  <span class="nv">v</span><span class="p">)</span>  <span class="nv">=&gt;</span>  <span class="o">#</span><span class="p">(</span><span class="nf">0</span> <span class="mi">1</span> <span class="mi">4</span> <span class="mi">9</span> <span class="mi">16</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ifold kons knil ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The fundamental ilist iterator.</p>
-</div>
-<div class="paragraph">
-<p>First, consider the single ilist-parameter case. If
-<code>ilist1</code> = <code>(e1 e2 &#8230;&#8203; en)</code>, then this procedure returns</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="nf">kons</span> <span class="nv">en</span> <span class="o">...</span> <span class="p">(</span><span class="nf">kons</span> <span class="nv">e2</span> <span class="p">(</span><span class="nf">kons</span> <span class="nv">e1</span> <span class="nv">knil</span><span class="p">))</span> <span class="o">...</span> <span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>That is, it obeys the (tail) recursion</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ifold</span> <span class="nv">kons</span> <span class="nv">knil</span> <span class="nv">lis</span><span class="p">)</span> <span class="nv">=</span> <span class="p">(</span><span class="nf">ifold</span> <span class="nv">kons</span> <span class="p">(</span><span class="nf">kons</span> <span class="p">(</span><span class="nf">icar</span> <span class="nv">lis</span><span class="p">)</span> <span class="nv">knil</span><span class="p">)</span> <span class="p">(</span><span class="nf">icdr</span> <span class="nv">lis</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">ifold</span> <span class="nv">kons</span> <span class="nv">knil</span> <span class="o">'</span><span class="p">())</span> <span class="nv">=</span> <span class="nv">knil</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Examples:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="nf">ifold</span> <span class="nv">+</span> <span class="mi">0</span> <span class="nv">lis</span><span class="p">)</span>                    <span class="c1">; Add up the elements of LIS.</span>
-  <span class="p">(</span><span class="nf">ifold</span> <span class="nv">ipair</span> <span class="o">'</span><span class="p">()</span> <span class="nv">lis</span><span class="p">)</span>              <span class="c1">; Reverse LIS.</span>
-  <span class="p">(</span><span class="nf">ifold</span> <span class="nv">ipair</span> <span class="nv">tail</span> <span class="nv">rev-head</span><span class="p">)</span>        <span class="c1">; See APPEND-REVERSE.</span></code></pre>
-</div>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="c1">;; How many symbols in LIS?</span>
-<span class="p">(</span><span class="nf">ifold</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">count</span><span class="p">)</span> <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">symbol?</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">count</span> <span class="mi">1</span><span class="p">)</span> <span class="nv">count</span><span class="p">))</span>
-      <span class="mi">0</span>
-      <span class="nv">lis</span><span class="p">)</span>
-
-<span class="c1">;; Length of the longest string in LIS:</span>
-<span class="p">(</span><span class="nf">ifold</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">s</span> <span class="nv">max-len</span><span class="p">)</span> <span class="p">(</span><span class="nb">max</span> <span class="nv">max-len</span> <span class="p">(</span><span class="nb">string-length</span> <span class="nv">s</span><span class="p">)))</span>
-      <span class="mi">0</span>
-      <span class="nv">lis</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>If n <code>ilist</code> arguments are provided, then the <code>kons</code> function must take
-n+1 parameters: one element from each ilist, and the "seed" or fold
-state, which is initially knil. The fold operation terminates when the
-shortest ilist runs out of values:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ifold</span> <span class="nv">ipair*</span> <span class="o">'</span><span class="p">()</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">c</span> <span class="mi">3</span> <span class="nv">b</span> <span class="mi">2</span> <span class="nv">a</span> <span class="mi">1</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iunfold p f g seed [tail-gen])</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Iunfold</code> is best described by its basic recursion:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iunfold</span> <span class="nv">p</span> <span class="nv">f</span> <span class="nv">g</span> <span class="nv">seed</span><span class="p">)</span> <span class="nv">=</span>
-    <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nf">p</span> <span class="nv">seed</span><span class="p">)</span> <span class="p">(</span><span class="nf">tail-gen</span> <span class="nv">seed</span><span class="p">)</span>
-        <span class="p">(</span><span class="nf">ipair</span> <span class="p">(</span><span class="nf">f</span> <span class="nv">seed</span><span class="p">)</span>
-              <span class="p">(</span><span class="nf">iunfold</span> <span class="nv">p</span> <span class="nv">f</span> <span class="nv">g</span> <span class="p">(</span><span class="nf">g</span> <span class="nv">seed</span><span class="p">))))</span></code></pre>
-</div>
-</div>
-<div class="literalblock">
-<div class="content">
-<pre>p        Determines when to stop unfolding.
-f        Maps each seed value to the corresponding ilist element.
-g        Maps each seed value to next seed value.
-seed     The "state" value for the unfold.
-tail-gen Creates the tail of the ilist; defaults to (lambda (x) '())</pre>
-</div>
-</div>
-<div class="paragraph">
-<p>In other words, we use g to generate a sequence of seed values
- seed, g(seed), g2(seed), g3(seed), &#8230;&#8203;
- These seed values are mapped to ilist elements by f, producing
-the elements of the result ilist in a left-to-right order. P says when
-to stop.</p>
-</div>
-<div class="paragraph">
-<p><code>Iunfold</code> is the fundamental recursive ilist constructor, just as
-<code>ifold-right</code> is the fundamental recursive ilist consumer. While
-<code>iunfold</code> may seem a bit abstract to novice functional programmers,
-it can be used in a number of ways:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="c1">;; Ilist of squares: 1^2 ... 10^2</span>
-<span class="p">(</span><span class="nf">iunfold</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">&gt;</span> <span class="nv">x</span> <span class="mi">10</span><span class="p">))</span>
-         <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">x</span> <span class="nv">x</span><span class="p">))</span>
-         <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">x</span> <span class="mi">1</span><span class="p">))</span>
-         <span class="mi">1</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">iunfold</span> <span class="nv">null-ilist?</span> <span class="nv">icar</span> <span class="nv">icdr</span> <span class="nv">lis</span><span class="p">)</span> <span class="c1">; Copy a proper ilist.</span>
-
-<span class="c1">;; Read current input port into an ilist of values.</span>
-<span class="p">(</span><span class="nf">iunfold</span> <span class="nv">eof-object?</span> <span class="nv">values</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">read</span><span class="p">))</span> <span class="p">(</span><span class="nb">read</span><span class="p">))</span>
-
-<span class="c1">;; Copy a possibly non-proper ilist:</span>
-<span class="p">(</span><span class="nf">iunfold</span> <span class="nv">not-ipair?</span> <span class="nv">icar</span> <span class="nv">icdr</span> <span class="nv">lis</span>
-         <span class="nv">values</span><span class="p">)</span>
-
-<span class="c1">;; Append HEAD onto TAIL:</span>
-<span class="p">(</span><span class="nf">iunfold</span> <span class="nv">null-ilist?</span> <span class="nv">icar</span> <span class="nv">icdr</span> <span class="nv">head</span>
-        <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="nv">tail</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Interested functional programmers may enjoy noting that ifold-right and
-iunfold are in some sense inverses. That is, given operations <code>knull?</code>,
-<code>kar</code>, <code>kdr</code>, <code>kons</code>, and <code>knil</code> satisfying</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">kons</span> <span class="p">(</span><span class="nf">kar</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nf">kdr</span> <span class="nv">x</span><span class="p">))</span> <span class="nv">=</span> <span class="nv">x</span> <span class="nv">and</span> <span class="p">(</span><span class="nf">knull?</span> <span class="nv">knil</span><span class="p">)</span> <span class="nv">=</span> <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>then</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ifold-right</span> <span class="nv">kons</span> <span class="nv">knil</span> <span class="p">(</span><span class="nf">iunfold</span> <span class="nv">knull?</span> <span class="nv">kar</span> <span class="nv">kdr</span> <span class="nv">x</span><span class="p">))</span> <span class="nv">=</span> <span class="nv">x</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>and</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iunfold</span> <span class="nv">knull?</span> <span class="nv">kar</span> <span class="nv">kdr</span> <span class="p">(</span><span class="nf">ifold-right</span> <span class="nv">kons</span> <span class="nv">knil</span> <span class="nv">x</span><span class="p">))</span> <span class="nv">=</span> <span class="nv">x</span><span class="o">.</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>This combinator sometimes is called an "anamorphism;" when an explicit
-tail-gen procedure is supplied, it is called an "apomorphism."</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ipair-fold kons knil ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Analogous to fold, but kons is applied to successive sub-ilists of the
-ilists, rather than successive elements — that is, kons is applied to
-the ipairs making up the lists, giving this (tail) recursion:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ipair-fold</span> <span class="nv">kons</span> <span class="nv">knil</span> <span class="nv">lis</span><span class="p">)</span> <span class="nv">=</span> <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">tail</span> <span class="p">(</span><span class="nf">icdr</span> <span class="nv">lis</span><span class="p">)))</span>
-                              <span class="p">(</span><span class="nf">ipair-fold</span> <span class="nv">kons</span> <span class="p">(</span><span class="nf">kons</span> <span class="nv">lis</span> <span class="nv">knil</span><span class="p">)</span> <span class="nv">tail</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">ipair-fold</span> <span class="nv">kons</span> <span class="nv">knil</span> <span class="o">'</span><span class="p">())</span> <span class="nv">=</span> <span class="nv">knil</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Example:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ipair-fold</span> <span class="nv">ipair</span> <span class="o">'</span><span class="p">()</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">c</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span><span class="p">)</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ireduce f ridentity ilist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Ireduce</code> is a variant of <code>ifold</code>.</p>
-</div>
-<div class="paragraph">
-<p><code>Ridentity</code> should be a "right identity" of the procedure <code>f</code>
-— that is, for any value <code>x</code> acceptable to <code>f</code>,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"> <span class="p">(</span><span class="nf">f</span> <span class="nv">x</span> <span class="nv">ridentity</span><span class="p">)</span> <span class="nv">=</span> <span class="nv">x</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Ireduce</code> has the following definition:</p>
-</div>
-<div class="literalblock">
-<div class="content">
-<pre>If ilist = (), return ridentity;
-Otherwise, return (ifold f (icar ilist) (icdr ilist)).</pre>
-</div>
-</div>
-<div class="paragraph">
-<p>&#8230;&#8203;in other words, we compute <code>(ifold f ridentity ilist)</code>.</p>
-</div>
-<div class="paragraph">
-<p>Note that ridentity is used only in the empty-list case. You typically
-use ireduce when applying <code>f</code> is expensive and you&#8217;d like to avoid the
-extra application incurred when ifold applies <code>f</code> to the head of <code>ilist</code>
-and the identity value, redundantly producing the same value passed in
-to <code>f</code>. For example, if <code>f</code> involves searching a file directory or
-performing a database query, this can be significant. In general,
-however, <code>ifold</code> is useful in many contexts where <code>ireduce</code> is
-not (consider the examples given in the ifold definition — only one of
-the five folds uses a function with a right identity. The other four
-may not be performed with ireduce).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="c1">;; take the max of an ilist of non-negative integers.</span>
-<span class="p">(</span><span class="nf">ireduce</span> <span class="nv">max</span> <span class="mi">0</span> <span class="nv">nums</span><span class="p">)</span> <span class="c1">; i.e., (iapply max 0 nums)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ifold-right kons knil ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The fundamental ilist recursion operator.</p>
-</div>
-<div class="paragraph">
-<p>First, consider the single ilist-parameter case. If
-<code>ilist1 = (e1 e2 &#8230;&#8203; en)</code>, then this procedure returns
-<code>(kons e1 (kons e2 &#8230;&#8203; (kons en knil)))</code></p>
-</div>
-<div class="paragraph">
-<p>That is, it obeys the recursion</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ifold-right</span> <span class="nv">kons</span> <span class="nv">knil</span> <span class="nv">lis</span><span class="p">)</span> <span class="nv">=</span> <span class="p">(</span><span class="nf">kons</span> <span class="p">(</span><span class="nf">icar</span> <span class="nv">lis</span><span class="p">)</span> <span class="p">(</span><span class="nf">ifold-right</span> <span class="nv">kons</span> <span class="nv">knil</span> <span class="p">(</span><span class="nf">icdr</span> <span class="nv">lis</span><span class="p">)))</span>
-<span class="p">(</span><span class="nf">ifold-right</span> <span class="nv">kons</span> <span class="nv">knil</span> <span class="o">'</span><span class="p">())</span> <span class="nv">=</span> <span class="nv">knil</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Examples:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ifold-right</span> <span class="nv">ipair</span> <span class="o">'</span><span class="p">()</span> <span class="nv">lis</span><span class="p">)</span>          <span class="c1">; Copy LIS.</span>
-
-<span class="c1">;; Filter the even numbers out of LIS.</span>
-<span class="p">(</span><span class="nf">ifold-right</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">l</span><span class="p">)</span> <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">even?</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nf">ipair</span> <span class="nv">x</span> <span class="nv">l</span><span class="p">)</span> <span class="nv">l</span><span class="p">))</span> <span class="o">'</span><span class="p">()</span> <span class="nv">lis</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>If n ilist arguments are provided, then the <code>kons</code> procedure must take
-n+1 parameters: one element from each ilist, and the "seed" or fold
-state, which is initially <code>knil</code>. The fold operation terminates when the
-shortest ilist runs out of values:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ifold-right</span> <span class="nv">ipair*</span> <span class="o">'</span><span class="p">()</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">a</span> <span class="mi">1</span> <span class="nv">b</span> <span class="mi">2</span> <span class="nv">c</span> <span class="mi">3</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iunfold-right p f g seed [tail])</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Iunfold-right</code> constructs an ilist with the following loop:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="nv">lp</span> <span class="p">((</span><span class="nf">seed</span> <span class="nv">seed</span><span class="p">)</span> <span class="p">(</span><span class="nf">lis</span> <span class="nv">tail</span><span class="p">))</span>
-  <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nf">p</span> <span class="nv">seed</span><span class="p">)</span> <span class="nv">lis</span>
-      <span class="p">(</span><span class="nf">lp</span> <span class="p">(</span><span class="nf">g</span> <span class="nv">seed</span><span class="p">)</span>
-          <span class="p">(</span><span class="nf">ipair</span> <span class="p">(</span><span class="nf">f</span> <span class="nv">seed</span><span class="p">)</span> <span class="nv">lis</span><span class="p">))))</span></code></pre>
-</div>
-</div>
-<div class="literalblock">
-<div class="content">
-<pre>p         Determines when to stop unfolding.
-f         Maps each seed value to the corresponding ilist element.
-g         Maps each seed value to next seed value.
-seed      The "state" value for the unfold.
-tail      ilist terminator; defaults to '().</pre>
-</div>
-</div>
-<div class="paragraph">
-<p>In other words, we use g to generate a sequence of seed values</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="nv">seed,</span> <span class="nv">g</span><span class="p">(</span><span class="nf">seed</span><span class="p">)</span><span class="o">,</span> <span class="nv">g2</span><span class="p">(</span><span class="nf">seed</span><span class="p">)</span><span class="o">,</span> <span class="nv">g3</span><span class="p">(</span><span class="nf">seed</span><span class="p">)</span><span class="o">,</span> <span class="o">...</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>These seed values are mapped to ilist elements by <code>f</code>, producing the
-elements of the result ilist in a right-to-left order. P says when to
-stop.</p>
-</div>
-<div class="paragraph">
-<p><code>Iunfold-right</code> is the fundamental iterative ilist constructor, just as
-<code>ifold</code> is the fundamental iterative ilist consumer. While <code>iunfold-right</code>
-may seem a bit abstract to novice functional programmers, it can be
-used in a number of ways:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="c1">;; Ilist of squares: 1^2 ... 10^2</span>
-<span class="p">(</span><span class="nf">iunfold-right</span> <span class="nv">zero?</span>
-              <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">x</span> <span class="nv">x</span><span class="p">))</span>
-              <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">-</span> <span class="nv">x</span> <span class="mi">1</span><span class="p">))</span>
-              <span class="mi">10</span><span class="p">)</span>
-
-<span class="c1">;; Reverse a proper ilist.</span>
-<span class="p">(</span><span class="nf">iunfold-right</span> <span class="nv">null-ilist?</span> <span class="nv">icar</span> <span class="nv">icdr</span> <span class="nv">lis</span><span class="p">)</span>
-
-<span class="c1">;; Read current input port into an ilist of values.</span>
-<span class="p">(</span><span class="nf">iunfold-right</span> <span class="nv">eof-object?</span> <span class="nv">values</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">read</span><span class="p">))</span> <span class="p">(</span><span class="nb">read</span><span class="p">))</span>
-
-<span class="c1">;; (iappend-reverse rev-head tail)</span>
-<span class="p">(</span><span class="nf">iunfold-right</span> <span class="nv">null-ilist?</span> <span class="nv">icar</span> <span class="nv">icdr</span> <span class="nv">rev-head</span> <span class="nv">tail</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Interested functional programmers may enjoy noting that ifold and
-<code>iunfold-right</code> are in some sense inverses. That is, given operations
-<code>knull?</code>, <code>kar</code>, <code>kdr</code>, <code>kons</code>, and <code>knil</code> satisfying</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">kons</span> <span class="p">(</span><span class="nf">kar</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nf">kdr</span> <span class="nv">x</span><span class="p">))</span> <span class="nv">=</span> <span class="nv">x</span> <span class="nv">and</span> <span class="p">(</span><span class="nf">knull?</span> <span class="nv">knil</span><span class="p">)</span> <span class="nv">=</span> <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>then</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ifold</span> <span class="nv">kons</span> <span class="nv">knil</span> <span class="p">(</span><span class="nf">iunfold-right</span> <span class="nv">knull?</span> <span class="nv">kar</span> <span class="nv">kdr</span> <span class="nv">x</span><span class="p">))</span> <span class="nv">=</span> <span class="nv">x</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>and</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iunfold-right</span> <span class="nv">knull?</span> <span class="nv">kar</span> <span class="nv">kdr</span> <span class="p">(</span><span class="nf">ifold</span> <span class="nv">kons</span> <span class="nv">knil</span> <span class="nv">x</span><span class="p">))</span> <span class="nv">=</span> <span class="nv">x</span><span class="o">.</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ipair-fold-right kons knil ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Holds the same relationship with <code>ifold-right</code> that <code>ipair-fold</code>
-holds with <code>ifold</code>. Obeys the recursion</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"> <span class="p">(</span><span class="nf">ipair-fold-right</span> <span class="nv">kons</span> <span class="nv">knil</span> <span class="nv">lis</span><span class="p">)</span> <span class="nv">=</span>
-     <span class="p">(</span><span class="nf">kons</span> <span class="nv">lis</span> <span class="p">(</span><span class="nf">ipair-fold-right</span> <span class="nv">kons</span> <span class="nv">knil</span> <span class="p">(</span><span class="nf">icdr</span> <span class="nv">lis</span><span class="p">)))</span>
- <span class="p">(</span><span class="nf">ipair-fold-right</span> <span class="nv">kons</span> <span class="nv">knil</span> <span class="o">'</span><span class="p">())</span> <span class="nv">=</span> <span class="nv">knil</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Example:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ipair-fold-right</span> <span class="nv">ipair</span> <span class="o">'</span><span class="p">()</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span><span class="p">)</span> <span class="p">(</span><span class="nf">c</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ireduce-right f ridentity ilist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Ireduce-right</code> is the <code>fold-right</code> variant of <code>ireduce</code>. It obeys the
-following definition:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ireduce-right</span> <span class="nv">f</span> <span class="nv">ridentity</span> <span class="o">'</span><span class="p">())</span> <span class="nv">=</span> <span class="nv">ridentity</span>
-<span class="p">(</span><span class="nf">ireduce-right</span> <span class="nv">f</span> <span class="nv">ridentity</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">e1</span><span class="p">))</span> <span class="nv">=</span> <span class="p">(</span><span class="nf">f</span> <span class="nv">e1</span> <span class="nv">ridentity</span><span class="p">)</span> <span class="nv">=</span> <span class="nv">e1</span>
-<span class="p">(</span><span class="nf">ireduce-right</span> <span class="nv">f</span> <span class="nv">ridentity</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">e1</span> <span class="nv">e2</span> <span class="o">...</span><span class="p">))</span> <span class="nv">=</span>
-    <span class="p">(</span><span class="nf">f</span> <span class="nv">e1</span> <span class="p">(</span><span class="nf">ireduce</span> <span class="nv">f</span> <span class="nv">ridentity</span> <span class="p">(</span><span class="nf">e2</span> <span class="o">...</span><span class="p">)))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>&#8230;&#8203;in other words, we compute <code>(ifold-right f ridentity ilist)</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="c1">;; Append a bunch of ilists together.</span>
-<span class="c1">;; I.e., (iapply iappend ilist-of-ilists)</span>
-<span class="p">(</span><span class="nf">ireduce-right</span> <span class="nv">iappend</span> <span class="o">'</span><span class="p">()</span> <span class="nv">ilist-of-ilists</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iappend-map  f ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iapply</span> <span class="nv">iappend</span> <span class="p">(</span><span class="nf">imap</span> <span class="nv">f</span> <span class="nv">ilist1</span> <span class="nv">ilist2</span> <span class="o">...</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>and</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iapply</span> <span class="nv">iappend</span> <span class="p">(</span><span class="nf">imap</span> <span class="nv">f</span> <span class="nv">ilist1</span> <span class="nv">ilist2</span> <span class="o">...</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Map f over the elements of the ilists, just as in the <code>imap</code>
-function. However, the results of the applications are appended
-together (using <code>iappend</code>) to make the final result.</p>
-</div>
-<div class="paragraph">
-<p>The dynamic order in which the various applications of <code>f</code> are made is
-not specified.</p>
-</div>
-<div class="paragraph">
-<p>Example:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iappend-map</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nf">ilist</span> <span class="nv">x</span> <span class="p">(</span><span class="nb">-</span> <span class="nv">x</span><span class="p">)))</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">1</span> <span class="mi">3</span> <span class="mi">8</span><span class="p">))</span>
-    <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">-1</span> <span class="mi">3</span> <span class="mi">-3</span> <span class="mi">8</span> <span class="mi">-8</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ipair-for-each f ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Like <code>ifor-each</code>, but <code>f</code> is applied to successive sub-ilists of the
-argument <code>ilists</code>. That is, <code>f</code> is applied to the cells of the ilists,
-rather than the ilists' elements. These applications occur in
-left-to-right order.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ipair-for-each</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">ipair</span><span class="p">)</span> <span class="p">(</span><span class="nb">display</span> <span class="nv">ipair</span><span class="p">)</span> <span class="p">(</span><span class="nb">newline</span><span class="p">))</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span> <span class="nv">==&gt;</span>
-    <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">c</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ifilter-map f ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Like <code>imap</code>, but only true values are saved.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ifilter-map</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="k">and</span> <span class="p">(</span><span class="nb">number?</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">x</span> <span class="nv">x</span><span class="p">)))</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="mi">1</span> <span class="nv">b</span> <span class="mi">3</span> <span class="nv">c</span> <span class="mi">7</span><span class="p">))</span>
-    <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">9</span> <span class="mi">49</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The dynamic order in which the various applications of <code>f</code> are made is
-not specified.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(imap-in-order f ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>A variant of the <code>imap</code> procedure that guarantees to apply <code>f</code> across the
-elements of the <code>ilisti</code> arguments in a left-to-right order. This is
-useful for mapping procedures that both have side effects and return
-useful values.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ifilter pred ilist )</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return all the elements of <code>ilist</code> that satisfy predicate <code>pred</code>. The
-ilist is not disordered — elements that appear in the result ilist
-occur in the same order as they occur in the argument <code>ilist</code>. The
-returned ilist may share a common tail with the argument ilist. The
-dynamic order in which the various applications of pred are made is
-not specified.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ifilter</span> <span class="nv">even?</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">0</span> <span class="mi">7</span> <span class="mi">8</span> <span class="mi">8</span> <span class="mi">43</span> <span class="mi">-4</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">8</span> <span class="mi">8</span> <span class="mi">-4</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ipartition pred ilist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Partitions the elements of <code>ilist</code> with predicate <code>pred</code>, and returns two
-values: the ilist of in-elements and the ilist of out-elements. The
-ilist is not disordered — elements occur in the result ilists in the
-same order as they occur in the argument ilist. The dynamic order in
-which the various applications of <code>pred</code> are made is not specified. One
-of the returned ilists may share a common tail with the argument
-ilist.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ipartition</span> <span class="nv">symbol?</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">one</span> <span class="mi">2</span> <span class="mi">3</span> <span class="nv">four</span> <span class="nv">five</span> <span class="mi">6</span><span class="p">))</span> <span class="nv">=&gt;</span>
-    <span class="p">(</span><span class="nf">one</span> <span class="nv">four</span> <span class="nv">five</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">2</span> <span class="mi">3</span> <span class="mi">6</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iremove pred ilist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns ilist without the elements that satisfy predicate pred,
-similar to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">pred</span> <span class="nv">ilist</span><span class="p">)</span> <span class="p">(</span><span class="nf">ifilter</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">not</span> <span class="p">(</span><span class="nf">pred</span> <span class="nv">x</span><span class="p">)))</span> <span class="nv">ilist</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The ilist is not disordered — elements that appear in the result
-ilist occur in the same order as they occur in the argument ilist. The
-returned ilist may share a common tail with the argument ilist. The
-dynamic order in which the various applications of <code>pred</code> are made is
-not specified.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iremove</span> <span class="nv">even?</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">0</span> <span class="mi">7</span> <span class="mi">8</span> <span class="mi">8</span> <span class="mi">43</span> <span class="mi">-4</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">7</span> <span class="mi">43</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(imember x ilist [=])</code></strong><br>
-<strong><code>(imemq x ilist)</code></strong><br>
-<strong><code>(imemv x ilist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return the first sub-ilist of <code>ilis`t whose icar is `x</code>,
-where the sub-ilists of ilist are the non-empty ilists returned
-by <code>(idrop ilist i)</code> for <code>i</code> less than the length of ilist. If <code>x</code> does not
-occur in <code>ilist</code>, then false is returned. <code>Imemq</code> uses <code>eq?</code> to compare <code>x</code> with
-the elements of <code>ilist</code>, while <code>imemv</code> uses <code>eqv?</code>, and <code>imember</code> uses <code>equal?</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">imemq</span> <span class="ss">'a</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>           <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">imemq</span> <span class="ss">'b</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>           <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">imemq</span> <span class="ss">'a</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">))</span>           <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nf">imemq</span> <span class="p">(</span><span class="nb">list</span> <span class="ss">'a</span><span class="p">)</span>
-        <span class="p">(</span><span class="nf">ilist</span> <span class="ss">'b</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span><span class="p">)</span> <span class="ss">'c</span><span class="p">))</span>     <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nf">imember</span> <span class="p">(</span><span class="nb">list</span> <span class="ss">'a</span><span class="p">)</span>
-        <span class="p">(</span><span class="nf">ilist</span> <span class="ss">'b</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span><span class="p">)</span> <span class="ss">'c</span><span class="p">)))</span>    <span class="nv">=&gt;</span>  <span class="p">((</span><span class="nf">a</span><span class="p">)</span> <span class="nv">c</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">imemq</span> <span class="mi">101</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">100</span> <span class="mi">101</span> <span class="mi">102</span><span class="p">))</span>    <span class="nv">=&gt;</span>  <span class="nv">*unspecified*</span>
-<span class="p">(</span><span class="nf">imemv</span> <span class="mi">101</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">100</span> <span class="mi">101</span> <span class="mi">102</span><span class="p">))</span>    <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">101</span> <span class="mi">102</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The comparison procedure is used to compare the elements <code>ei</code> of <code>ilist</code>
-to the key <code>x</code> in this way:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">=</span> <span class="nv">x</span> <span class="nv">ei</span><span class="p">)</span> <span class="c1">; ilist is (E1 ... En)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>That is, the first argument is always <code>x</code>, and the second argument is
-one of the ilist elements. Thus one can reliably find the first
-element of ilist that is greater than five with <code>(imember 5 ilist &lt;)</code></p>
-</div>
-<div class="paragraph">
-<p>Note that fully general ilist searching may be performed with the
-<code>ifind-tail</code> and <code>ifind</code> procedures, e.g.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ifind-tail</span> <span class="nv">even?</span> <span class="nv">ilist</span><span class="p">)</span> <span class="c1">; Find the first elt with an even key.</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ifind pred ilist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the first element of ilist that satisfies predicate <code>pred</code>;
-false if no element does.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ifind</span> <span class="nv">even?</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">3</span> <span class="mi">1</span> <span class="mi">4</span> <span class="mi">1</span> <span class="mi">5</span> <span class="mi">9</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mi">4</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Note that ifind has an ambiguity in its lookup semantics — if ifind
-returns false, you cannot tell (in general) if it found a false element
-that satisfied <code>pred</code>, or if it did not find any element at all. In many
-situations, this ambiguity cannot arise — either the ilist being
-searched is known not to contain any false elements, or the ilist is
-guaranteed to have an element satisfying pred. However, in cases where
-this ambiguity can arise, you should use <code>ifind-tail</code> instead of <code>ifind</code>,
-since <code>ifind-tail</code> has no such ambiguity:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">cond</span> <span class="p">((</span><span class="nf">ifind-tail</span> <span class="nv">pred</span> <span class="nv">lis</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">ipair</span><span class="p">)</span> <span class="o">...</span><span class="p">))</span> <span class="c1">; Handle (icar ipair)</span>
-      <span class="p">(</span><span class="k">else</span> <span class="o">...</span><span class="p">))</span> <span class="c1">; Search failed.</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ifind-tail pred ilist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the first ipair of ilist whose icar satisfies <code>pred</code>. If no
-ipair does, return false.</p>
-</div>
-<div class="paragraph">
-<p><code>Ifind-tail</code> can be viewed as a general-predicate variant of the
-<code>imember</code> function.</p>
-</div>
-<div class="paragraph">
-<p>Examples:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">ifind-tail</span> <span class="nv">even?</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">3</span> <span class="mi">1</span> <span class="mi">37</span> <span class="mi">-8</span> <span class="mi">-5</span> <span class="mi">0</span> <span class="mi">0</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">-8</span> <span class="mi">-5</span> <span class="mi">0</span> <span class="mi">0</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">ifind-tail</span> <span class="nv">even?</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">3</span> <span class="mi">1</span> <span class="mi">37</span> <span class="mi">-5</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="no">#f</span>
-
-<span class="c1">;; IMEMBER X LIS:</span>
-<span class="p">(</span><span class="nf">ifind-tail</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">elt</span><span class="p">)</span> <span class="p">(</span><span class="nb">equal?</span> <span class="nv">x</span> <span class="nv">elt</span><span class="p">))</span> <span class="nv">lis</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Ifind-tail</code> is essentially <code>idrop-while</code>, where the sense of the
-predicate is inverted: <code>Ifind-tail</code> searches until it finds an element
-satisfying the predicate; <code>idrop-while</code> searches until it finds an
-element that doesn&#8217;t satisfy the predicate.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iany pred ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Applies the predicate across the ilists, returning true if the
-predicate returns true on any application.</p>
-</div>
-<div class="paragraph">
-<p>If there are n ilist arguments <code>ilist1 &#8230;&#8203; ilistn</code>, then <code>pred</code> must
-be a procedure taking n arguments and returning a boolean result.</p>
-</div>
-<div class="paragraph">
-<p><code>Iany</code> applies <code>pred</code> to the first elements of the <code>ilisti</code>
-parameters. If this application returns a true value, iany immediately
-returns that value. Otherwise, it iterates, applying pred to the
-second elements of the <code>ilisti</code> parameters, then the third, and so
-forth. The iteration stops when a true value is produced or one of the
-ilists runs out of values; in the latter case, iany returns false. The
-application of <code>pred</code> to the last element of the ilists is a tail call.</p>
-</div>
-<div class="paragraph">
-<p>Note the difference between <code>ifind</code> and <code>iany</code> — <code>ifind</code> returns the
-element that satisfied the predicate; iany returns the true value that
-the predicate produced.</p>
-</div>
-<div class="paragraph">
-<p>Like <code>ievery</code>, `iany&#8217;s name does not end with a question mark — this
-is to indicate that it does not return a simple boolean (true or false),
-but a general value.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">iany</span> <span class="nv">integer?</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="mi">3</span> <span class="nv">b</span> <span class="mf">2.7</span><span class="p">))</span>   <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">iany</span> <span class="nv">integer?</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="mf">3.1</span> <span class="nv">b</span> <span class="mf">2.7</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">iany</span> <span class="nv">&lt;</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">3</span> <span class="mi">1</span> <span class="mi">4</span> <span class="mi">1</span> <span class="mi">5</span><span class="p">)</span>
-       <span class="p">(</span><span class="nf">iq</span> <span class="mi">2</span> <span class="mi">7</span> <span class="mi">1</span> <span class="mi">8</span> <span class="mi">2</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ievery pred ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Applies the predicate across the ilists, returning true if the
-predicate returns true on every application.</p>
-</div>
-<div class="paragraph">
-<p>If there are n ilist arguments <code>ilist1 &#8230;&#8203; ilistn</code>, then <code>pred</code> must be a
-procedure taking n arguments and returning a boolean result.</p>
-</div>
-<div class="paragraph">
-<p><code>Ievery</code> applies <code>pred</code> to the first elements of the <code>ilisti</code> parameters. If
-this application returns false, ievery immediately returns
-false. Otherwise, it iterates, applying pred to the second elements of
-the ilisti parameters, then the third, and so forth. The iteration
-stops when a false value is produced or one of the ilists runs out of
-values. In the latter case, ievery returns the true value produced by
-its final application of <code>pred</code>. The application of pred to the last
-element of the ilists is a tail call.</p>
-</div>
-<div class="paragraph">
-<p>If one of the <code>ilisti</code> has no elements, ievery simply returns true.</p>
-</div>
-<div class="paragraph">
-<p>Like <code>iany</code>, `ievery&#8217;s name does not end with a question mark — this is
-to indicate that it does not return a simple boolean (true or false), but a
-general value.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ilist-index pred ilist1 ilist2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the index of the leftmost element that satisfies <code>pred</code>.</p>
-</div>
-<div class="paragraph">
-<p>If there are n ilist arguments <code>ilist1 &#8230;&#8203; ilistn</code>, then <code>pred</code> must be a
-function taking n arguments and returning a boolean result.</p>
-</div>
-<div class="paragraph">
-<p><code>Ilist-index</code> applies <code>pred</code> to the first elements of the <code>ilisti</code>
-parameters. If this application returns true, <code>ilist-index</code> immediately
-returns zero. Otherwise, it iterates, applying <code>pred</code> to the second
-elements of the <code>ilisti</code> parameters, then the third, and so forth. When
-it finds a tuple of ilist elements that cause <code>pred</code> to return true, it
-stops and returns the zero-based index of that position in the ilists.</p>
-</div>
-<div class="paragraph">
-<p>The iteration stops when one of the ilists runs out of values; in this
-case, <code>ilist-index</code> returns false.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="nv">ilist-index</span> <span class="nv">even?</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">3</span> <span class="mi">1</span> <span class="mi">4</span> <span class="mi">1</span> <span class="mi">5</span> <span class="mi">9</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mi">2</span>
-<span class="nv">ilist-index</span> <span class="nv">&lt;</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">3</span> <span class="mi">1</span> <span class="mi">4</span> <span class="mi">1</span> <span class="mi">5</span> <span class="mi">9</span> <span class="mi">2</span> <span class="mi">5</span> <span class="mi">6</span><span class="p">)</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">2</span> <span class="mi">7</span> <span class="mi">1</span> <span class="mi">8</span> <span class="mi">2</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mi">1</span>
-<span class="nv">ilist-index</span> <span class="nv">=</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">3</span> <span class="mi">1</span> <span class="mi">4</span> <span class="mi">1</span> <span class="mi">5</span> <span class="mi">9</span> <span class="mi">2</span> <span class="mi">5</span> <span class="mi">6</span><span class="p">)</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">2</span> <span class="mi">7</span> <span class="mi">1</span> <span class="mi">8</span> <span class="mi">2</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(itake-while  pred ilist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the longest initial prefix of ilist whose elements all
-satisfy the predicate <code>pred</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">itake-while</span> <span class="nv">even?</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">2</span> <span class="mi">18</span> <span class="mi">3</span> <span class="mi">10</span> <span class="mi">22</span> <span class="mi">9</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">18</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(idrop-while pred ilist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Drops the longest initial prefix of <code>ilist</code> whose elements all
-satisfy the predicate <code>pred</code>, and returns the rest of the ilist.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">idrop-while</span> <span class="nv">even?</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">2</span> <span class="mi">18</span> <span class="mi">3</span> <span class="mi">10</span> <span class="mi">22</span> <span class="mi">9</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">3</span> <span class="mi">10</span> <span class="mi">22</span> <span class="mi">9</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ispan   pred ilist)</code></strong><br>
-<strong><code>(ibreak  pred ilist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Ispan</code> splits the ilist into the longest initial prefix whose
-elements all satisfy <code>pred</code>, and the remaining tail. <code>Ibreak</code> inverts the
-sense of the predicate: the tail commences with the first element of
-the input ilist that satisfies the predicate.</p>
-</div>
-<div class="paragraph">
-<p>In other words: <code>ispan</code> finds the initial span of elements
-satisfying <code>pred</code>, and <code>ibreak</code> breaks the ilist at the first element
-satisfying <code>pred</code>.</p>
-</div>
-<div class="paragraph">
-<p><code>Ispan</code> is equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">values</span> <span class="p">(</span><span class="nf">itake-while</span> <span class="nv">pred</span> <span class="nv">ilist</span><span class="p">)</span>
-        <span class="p">(</span><span class="nf">idrop-while</span> <span class="nv">pred</span> <span class="nv">ilist</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">ispan</span> <span class="nv">even?</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">2</span> <span class="mi">18</span> <span class="mi">3</span> <span class="mi">10</span> <span class="mi">22</span> <span class="mi">9</span><span class="p">))</span> <span class="nv">=&gt;</span>
-  <span class="p">(</span><span class="nf">2</span> <span class="mi">18</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">3</span> <span class="mi">10</span> <span class="mi">22</span> <span class="mi">9</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">ibreak</span> <span class="nv">even?</span> <span class="p">(</span><span class="nf">iq</span> <span class="mi">3</span> <span class="mi">1</span> <span class="mi">4</span> <span class="mi">1</span> <span class="mi">5</span> <span class="mi">9</span><span class="p">))</span> <span class="nv">=&gt;</span>
-  <span class="p">(</span><span class="nf">3</span> <span class="mi">1</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">4</span> <span class="mi">1</span> <span class="mi">5</span> <span class="mi">9</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(idelete  x ilist [=])</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Idelete</code> uses the comparison procedure <code>=</code>, which defaults to <code>equal?</code>,
-to find all elements of ilist that are equal to <code>x</code>, and deletes them from
-<code>ilist</code>. The dynamic order in which the various applications of = are
-made is not specified.</p>
-</div>
-<div class="paragraph">
-<p>The ilist is not disordered — elements that appear in the result
-ilist occur in the same order as they occur in the argument ilist. The
-result may share a common tail with the argument ilist.</p>
-</div>
-<div class="paragraph">
-<p>Note that fully general element deletion can be performed with the
-iremove procedures, e.g.:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="c1">;; idelete all the even elements from LIS:</span>
-<span class="p">(</span><span class="nf">iremove</span> <span class="nv">even?</span> <span class="nv">lis</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The comparison procedure is used in this way: <code>(= x ei)</code>. That is, <code>x</code>
-is always the first argument, and an ilist element is always the
-second argument. The comparison procedure will be used to compare each
-element of ilist exactly once; the order in which it is applied to the
-various ei is not specified. Thus, one can reliably remove all the
-numbers greater than five from an ilist with <code>(idelete 5 ilist &lt;)</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ialist-cons key datum ialist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Constructs a new ialist entry mapping key &#8594; datum onto ialist.
-This is the same as</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">key</span> <span class="nv">datum</span> <span class="nv">ialist</span><span class="p">)</span> <span class="p">(</span><span class="nf">ipair</span> <span class="p">(</span><span class="nf">ipair</span> <span class="nv">key</span> <span class="nv">datum</span><span class="p">)</span> <span class="nv">ialist</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(idelete-duplicates  ilist [=])</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Idelete-duplicates</code> removes duplicate elements from the <code>ilist</code>
-argument. If there are multiple equal elements in the argument <code>ilist</code>,
-the result ilist only contains the first or leftmost of these elements
-in the result. The order of these surviving elements is the same as in
-the original ilist — <code>idelete-duplicates</code> does not disorder the
-ilist (hence it is useful for "cleaning up" immutable association
-lists).</p>
-</div>
-<div class="paragraph">
-<p>The <code>=</code> parameter is used to compare the elements of the ilist; it
-defaults to equal?. If x comes before y in ilist, then the comparison
-is performed <code>(= x y)</code>. The comparison procedure will be used to compare
-each pair of elements in ilist no more than once; the order in which
-it is applied to the various pairs is not specified.</p>
-</div>
-<div class="paragraph">
-<p>Although  <code>idelete-duplicates</code> can be implemented so it runs in time
-O(n2) for n-element ilists, the STklos implementation runs in linear
-expected time.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">idelete-duplicates</span> <span class="p">(</span><span class="nf">iq</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">a</span> <span class="nv">c</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">z</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">z</span><span class="p">)</span>
-
-<span class="c1">;; Clean up an ialist:</span>
-<span class="p">(</span><span class="nf">idelete-duplicates</span> <span class="p">(</span><span class="nf">iq</span> <span class="p">(</span><span class="nf">a</span> <span class="o">.</span> <span class="mi">3</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="o">.</span> <span class="mi">7</span><span class="p">)</span> <span class="p">(</span><span class="nf">a</span> <span class="o">.</span> <span class="mi">9</span><span class="p">)</span> <span class="p">(</span><span class="nf">c</span> <span class="o">.</span> <span class="mi">1</span><span class="p">))</span>
-                   <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)</span> <span class="p">(</span><span class="nb">eq?</span> <span class="p">(</span><span class="nf">icar</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nf">icar</span> <span class="nv">y</span><span class="p">))))</span>
-    <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">a</span> <span class="o">.</span> <span class="mi">3</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="o">.</span> <span class="mi">7</span><span class="p">)</span> <span class="p">(</span><span class="nf">c</span> <span class="o">.</span> <span class="mi">1</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iassoc key ialist [=] &#8594; ipair or #f</code></strong><br>
-<strong><code>(iassq key ialist &#8594; ipair or #f</code></strong><br>
-<strong><code>(iassv key ialist &#8594; ipair or #f</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Ialist</code> must be an immutable association list — an ilist of
-ipairs. These procedures find the first ipair in ialist whose icar
-field is key, and returns that ipair. If no ipair in ialist has key as
-its icar, then false is returned. <code>Iassq</code> uses <code>eq?</code> to compare key with the
-icar fields of the ipairs in ialist, while <code>iassv</code> uses <code>eqv?</code> and <code>iassoc</code>
-uses <code>equal?</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">e</span> <span class="p">(</span><span class="nf">iq</span> <span class="p">(</span><span class="nf">a</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nf">c</span> <span class="mi">3</span><span class="p">)))</span>
-<span class="p">(</span><span class="nf">iassq</span> <span class="ss">'a</span> <span class="nv">e</span><span class="p">)</span>                               <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="mi">1</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iassq</span> <span class="ss">'b</span> <span class="nv">e</span><span class="p">)</span>                               <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">b</span> <span class="mi">2</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">iassq</span> <span class="ss">'d</span> <span class="nv">e</span><span class="p">)</span>                               <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nf">iassq</span> <span class="p">(</span><span class="nf">ilist</span> <span class="ss">'a</span><span class="p">)</span> <span class="p">(</span><span class="nf">iq</span> <span class="p">((</span><span class="nf">a</span><span class="p">))</span> <span class="p">((</span><span class="nf">b</span><span class="p">))</span> <span class="p">((</span><span class="nf">c</span><span class="p">))))</span>  <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nf">iassoc</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span><span class="p">)</span> <span class="p">(</span><span class="nf">ilist</span> <span class="o">'</span><span class="p">((</span><span class="nf">a</span><span class="p">))</span> <span class="o">'</span><span class="p">((</span><span class="nf">b</span><span class="p">))</span> <span class="o">'</span><span class="p">((</span><span class="nf">c</span><span class="p">))))</span> <span class="nv">=&gt;</span>  <span class="p">((</span><span class="nf">a</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">iassq</span> <span class="mi">5</span> <span class="p">(</span><span class="nf">iq</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">3</span><span class="p">)</span> <span class="p">(</span><span class="nf">5</span> <span class="mi">7</span><span class="p">)</span> <span class="p">(</span><span class="nf">11</span> <span class="mi">13</span><span class="p">)))</span>         <span class="nv">=&gt;</span>  <span class="nv">*unspecified*</span>
-<span class="p">(</span><span class="nf">iassv</span> <span class="mi">5</span> <span class="p">(</span><span class="nf">iq</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">3</span><span class="p">)</span> <span class="p">(</span><span class="nf">5</span> <span class="mi">7</span><span class="p">)</span> <span class="p">(</span><span class="nf">11</span> <span class="mi">13</span><span class="p">)))</span>         <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">5</span> <span class="mi">7</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The comparison procedure is used to compare the elements <code>ei</code> of ilist
-to the key parameter in this way:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">=</span> <span class="nv">key</span> <span class="p">(</span><span class="nf">icar</span> <span class="nv">ei</span><span class="p">))</span> <span class="c1">; ilist is (E1 ... En)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>That is, the first argument is always key, and the second argument
-is one of the ilist elements. Thus one can reliably find the first
-entry of ialist whose key is greater than five with
-<code>(iassoc 5 ialist &lt;)</code>.</p>
-</div>
-<div class="paragraph">
-<p>Note that fully general ialist searching may be performed with the
-ifind-tail and ifind procedures, e.g.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="c1">;; Look up the first association in ialist with an even key:</span>
-<span class="p">(</span><span class="nf">ifind</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">a</span><span class="p">)</span> <span class="p">(</span><span class="nb">even?</span> <span class="p">(</span><span class="nf">icar</span> <span class="nv">a</span><span class="p">)))</span> <span class="nv">ialist</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ialist-delete  key ialist [=])</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Ialist-delete</code> deletes all associations from ialist with the given
-key, using key-comparison procedure <code>=</code>, which defaults to <code>equal?</code>. The
-dynamic order in which the various applications of <code>=</code> are made is not
-specified.</p>
-</div>
-<div class="paragraph">
-<p>Return values may share common tails with the ialist argument. The
-ialist is not disordered — elements that appear in the result ialist
-occur in the same order as they occur in the argument ialist.</p>
-</div>
-<div class="paragraph">
-<p>The comparison procedure is used to compare the element keys ki of
-ialist&#8217;s entries to the key parameter in this way: <code>(= key ki)</code>. Thus,
-one can reliably remove all entries of ialist whose key is greater
-than five with <code>(ialist-delete 5 ialist &lt;)</code></p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(replace-icar ipair object)</code></strong><br>
-<strong><code>(replace-icdr ipair object)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Replace-icar</code> returns an ipair with object in the icar field and
-the icdr of ipair in the icdr field.</p>
-</div>
-<div class="paragraph">
-<p><code>Replace-icdr</code> returns an ipair with object in the icdr field and
-the icar of ipair in the icar field.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(list&#8594;ilist lst)</code></strong><br>
-<strong><code>(ilist&#8594;list lst)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return an ilist and a list respectively that have
-the same elements as the argument. The tails of dotted (i)lists are
-preserved in the result, which makes the procedures not inverses
-when the tail of a dotted ilist is a list or vice versa. The empty
-list is converted to itself.</p>
-</div>
-<div class="paragraph">
-<p>It is an error to apply list&#8594;ilist to a circular list.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(pair&#8594;ipair pair)</code></strong><br>
-<strong><code>(ipair&#8594;pair ipair)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures, which are inverses, return an ipair and
-a pair respectively that have the same (i)car and (i)cdr
-fields as the argument.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(tree&#8594;itree object)</code></strong><br>
-<strong><code>(itree&#8594;tree object)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures walk a tree of pairs or ipairs respectively and
-make a deep copy of it, returning an isomorphic tree containing
-ipairs or pairs respectively. The result may share structure with
-the argument. If the argument is not of the expected type, it is
-returned.</p>
-</div>
-<div class="paragraph">
-<p>These procedures are not inverses in the general case. For example,
-a pair of ipairs would be converted by <code>tree&#8594;itree</code> to an ipair of
-ipairs, which if converted by <code>itree&#8594;tree</code> would produce a pair of
-pairs.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(gtree&#8594;itree object)</code></strong><br>
-<strong><code>(gtree&#8594;tree object)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures walk a generalized tree consisting of pairs,
-ipairs, or a combination of both, and make a deep copy of it,
-returning an isomorphic tree containing only ipairs or pairs
-respectively. The result may share structure with the argument.
-If the argument is neither a pair nor an ipair, it is returned.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(iapply procedure object &#8230;&#8203; ilist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>iapply</code> procedure is an analogue of <code>apply</code> whose last argument
-is an ilist rather than a list. It is equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">apply</span> <span class="nv">procedure</span> <span class="nv">object</span> <span class="o">...</span> <span class="p">(</span><span class="nf">ilist-&gt;list</span> <span class="nv">ilist</span><span class="p">))</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_138compiling_scheme_programs_to_executables">srfi-138&#8201;&#8212;&#8201;Compiling Scheme programs to executables</h4>
-<div class="paragraph">
-<p>
-
-<strong><a href="http://srfi.schemers.org/srfi-138/srfi-138.html">SRFI-138</a></strong> is fully supported.  The <code>stklos-compile</code>
-program conforms to SRFI 138, accepting all the required command line
-options.</p>
-</div>
-<div class="paragraph">
-<p>The -D x flag of <code>stklos-compile</code> will define a feature named <code>x</code> for
-use with <code>cond-expand</code> in the compiled code only. It will not include
-<code>x</code> in the features list of the runtime.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_145assumptions">srfi-145&#8201;&#8212;&#8201;Assumptions</h4>
-<div class="paragraph">
-<p>
-
-<strong><a href="http://srfi.schemers.org/srfi-145/srfi-145.html">SRFI-145</a></strong> is fully supported. See the
-<em><a href="_standard_procedures.html#assume"><code>assume</code> special form</a></em>.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_169underscores_in_numbers">srfi-169&#8201;&#8212;&#8201;Underscores in numbers</h4>
-<div class="paragraph">
-<p>
-
-
-
-<strong><a href="http://srfi.schemers.org/srfi-169/srfi-169.html">SRFI-169</a></strong> is fully supported. See <em><a href="_stklos_customization.html#srfi169">parameter <code>accept-srfi-169-numbers</code></a></em> to eventually forbid the usage of
-underscores in numbers.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_216sicp_prerequisites_portable">srfi-216&#8201;&#8212;&#8201;SICP Prerequisites (Portable)</h4>
-<div class="paragraph">
-<p>
-
-<strong><a href="http://srfi.schemers.org/srfi-216/srfi-216.html">SRFI-216</a></strong> is fully supported. However, it defines the constant <code>stream-null</code> and the predicate
-<code>stream-null?</code> which are incompatible with the ones defined in the <code>(stream primitive)</code> library used by
-<strong><a href="http://srfi.schemers.org/srfi-41/srfi-41.html">SRFI-41</a></strong> or <strong><a href="http://srfi.schemers.org/srfi-221/srfi-221.html">SRFI-221</a></strong>. Prefix the imported symbols of this SRFI, if you plan to
-use it with one of the previous libraries.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_srfi_238codesets">srfi-238&#8201;&#8212;&#8201;Codesets</h4>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph">
-<p><strong><a href="http://srfi.schemers.org/srfi-238/srfi-238.html">SRFI-238</a></strong> is fully supported. Furthermore, <strong><em>STklos</em></strong>
-adds the functions <code>codeset-list</code> and <code>make-codeset</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(codeset-list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Retuns a list of known codeset names.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">codeset-list</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">errno</span> <span class="nv">signal</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-codeset name lst)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>returns a new codeset object of the given <code>name</code> (a symbol). The  list <code>lst</code>
-is a list of triplets (code-number symbol message) where <code>symbol</code> and
-<code>message</code>  can be <code>#f</code> if <code>code-number</code> has no associated name or message.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"> <span class="p">(</span><span class="k">define</span> <span class="nv">cs</span>
-     <span class="p">(</span><span class="nf">make-codeset</span> <span class="ss">'foo</span>
-                   <span class="o">'</span><span class="p">((</span><span class="nf">1</span>   <span class="nv">OK</span>    <span class="s">"Everything is OK"</span><span class="p">)</span>
-                     <span class="p">(</span><span class="nf">1</span>   <span class="nv">YES</span>   <span class="no">#f</span><span class="p">)</span>                  <span class="c1">; Other name for OK</span>
-                     <span class="p">(</span><span class="nf">2</span>   <span class="nv">KO</span>    <span class="s">"We have a problem"</span><span class="p">)</span>
-                     <span class="p">(</span><span class="nf">2</span>   <span class="nv">NO</span>    <span class="no">#f</span><span class="p">)</span>                  <span class="c1">; Other name for KO</span>
-                     <span class="p">(</span><span class="nf">3</span>   <span class="nv">MAYBE</span> <span class="s">"To be determined"</span><span class="p">)</span>
-                     <span class="p">(</span><span class="nf">404</span> <span class="no">#f</span>    <span class="s">"Not found"</span><span class="p">))))</span>      <span class="c1">; No symbolic name</span></code></pre>
-</div>
-</div>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_using_the_slib_package.html">Using the SLIB package</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_bibliography.html">Bibliography</a> →</p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. In fact <code>define-module</code> on a given name defines a new module only the first time it is invoked on this name. By this way, interactively reloading a module does not define a new entity, and the other modules which use it are not altered.
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. This transcript uses the default toplevel loop             which displays the name of the current module in the evaluator             prompt.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Under Unix, you can simply connect to a listening socket with the <code>telnet</code> of <code>netcat</code> command. For the given example, this can be achieved with <code>netcat localhost 12345</code>
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. Port 13, if open, can be used for testing: making a connection to it permits to know the distant system&#8217;s idea of the time of day.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. The "pattern matching compiler" has been written by Jean-Marie Geffroy and is part of the Manuel Serrano&#8217;s Bigloo compiler since several years <a href="_bibliography.html#Bigloo">[Bigloo]</a>
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. This section is an adaptation of Jeff Dalton&#8217;s (<a href="mailto:J.Dalton@ed.ac.uk">J.Dalton@ed.ac.uk</a>) "<strong><em>Brief introduction to CLOS</em></strong>" which can be found at <a href="http://www.aiai.ed.ac.uk/~jeff/clos-guide.html" class="bare">http://www.aiai.ed.ac.uk/~jeff/clos-guide.html</a>
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_standard_procedures.html b/doc/HTML/_standard_procedures.html
deleted file mode 100644
index 255b176c9..000000000
--- a/doc/HTML/_standard_procedures.html
+++ /dev/null
@@ -1,15902 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<style>
-pre.rouge table td { padding: 5px; }
-pre.rouge table pre { margin: 0; }
-pre.rouge .c, pre.rouge .ch, pre.rouge .cd, pre.rouge .cpf {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cm {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .c1 {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cp {
-  color: #75715e;
-  font-weight: bold;
-}
-pre.rouge .cs {
-  color: #75715e;
-  font-weight: bold;
-  font-style: italic;
-}
-pre.rouge .err {
-  color: #960050;
-  background-color: #1e0010;
-}
-pre.rouge .gi {
-  color: #ffffff;
-  background-color: #324932;
-}
-pre.rouge .gd {
-  color: #ffffff;
-  background-color: #493131;
-}
-pre.rouge .ge {
-  color: #000000;
-  font-style: italic;
-}
-pre.rouge .gr {
-  color: #aa0000;
-}
-pre.rouge .gt {
-  color: #aa0000;
-}
-pre.rouge .gh {
-  color: #999999;
-}
-pre.rouge .go {
-  color: #888888;
-}
-pre.rouge .gp {
-  color: #555555;
-}
-pre.rouge .gs {
-  font-weight: bold;
-}
-pre.rouge .gu {
-  color: #aaaaaa;
-}
-pre.rouge .k, pre.rouge .kv {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kc {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kd {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kp {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kr {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kt {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kn {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .ow {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .o {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .mf {
-  color: #ae81ff;
-}
-pre.rouge .mh {
-  color: #ae81ff;
-}
-pre.rouge .il {
-  color: #ae81ff;
-}
-pre.rouge .mi {
-  color: #ae81ff;
-}
-pre.rouge .mo {
-  color: #ae81ff;
-}
-pre.rouge .m, pre.rouge .mb, pre.rouge .mx {
-  color: #ae81ff;
-}
-pre.rouge .se {
-  color: #ae81ff;
-}
-pre.rouge .sa {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .sb {
-  color: #e6db74;
-}
-pre.rouge .sc {
-  color: #e6db74;
-}
-pre.rouge .sd {
-  color: #e6db74;
-}
-pre.rouge .s2 {
-  color: #e6db74;
-}
-pre.rouge .sh {
-  color: #e6db74;
-}
-pre.rouge .si {
-  color: #e6db74;
-}
-pre.rouge .sx {
-  color: #e6db74;
-}
-pre.rouge .sr {
-  color: #e6db74;
-}
-pre.rouge .s1 {
-  color: #e6db74;
-}
-pre.rouge .ss {
-  color: #e6db74;
-}
-pre.rouge .s, pre.rouge .dl {
-  color: #e6db74;
-}
-pre.rouge .na {
-  color: #a6e22e;
-}
-pre.rouge .nc {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nd {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .ne {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nf, pre.rouge .fm {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .no {
-  color: #66d9ef;
-}
-pre.rouge .bp {
-  color: #f8f8f2;
-}
-pre.rouge .nb {
-  color: #f8f8f2;
-}
-pre.rouge .ni {
-  color: #f8f8f2;
-}
-pre.rouge .nn {
-  color: #f8f8f2;
-}
-pre.rouge .vc {
-  color: #f8f8f2;
-}
-pre.rouge .vg {
-  color: #f8f8f2;
-}
-pre.rouge .vi {
-  color: #f8f8f2;
-}
-pre.rouge .nv, pre.rouge .vm {
-  color: #f8f8f2;
-}
-pre.rouge .w {
-  color: #f8f8f2;
-}
-pre.rouge .nl {
-  color: #f8f8f2;
-  font-weight: bold;
-}
-pre.rouge .nt {
-  color: #f92672;
-}
-pre.rouge {
-  color: #f8f8f2;
-  background-color: #49483e;
-}
-</style>
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_standard_procedures" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html"><span class="toc-current">4. Standard Procedures</span></a>
-<ul class="sectlevel2">
-<li><a href="_standard_procedures.html#_equivalence_predicates">4.1. Equivalence predicates</a>
-</li>
-<li><a href="_standard_procedures.html#_numbers">4.2. Numbers</a>
-</li>
-<li><a href="_standard_procedures.html#_booleans">4.3. Booleans</a>
-</li>
-<li><a href="_standard_procedures.html#_pairs_and_lists">4.4. Pairs and lists</a>
-</li>
-<li><a href="_standard_procedures.html#_symbols">4.5. Symbols</a>
-</li>
-<li><a href="_standard_procedures.html#_characters">4.6. Characters</a>
-</li>
-<li><a href="_standard_procedures.html#_strings">4.7. Strings</a>
-</li>
-<li><a href="_standard_procedures.html#_vectors">4.8. Vectors</a>
-</li>
-<li><a href="_standard_procedures.html#_structures">4.9. Structures</a>
-</li>
-<li><a href="_standard_procedures.html#_bytevectors">4.10. Bytevectors</a>
-</li>
-<li><a href="_standard_procedures.html#_control_features">4.11. Control features</a>
-</li>
-<li><a href="_standard_procedures.html#_input_and_output">4.12. Input and Output</a>
-</li>
-<li><a href="_standard_procedures.html#_system_interface">4.13. System interface</a>
-</li>
-<li><a href="_standard_procedures.html#_keywords">4.14. Keywords</a>
-</li>
-<li><a href="_standard_procedures.html#_hash_tables">4.15. Hash Tables</a>
-</li>
-<li><a href="_standard_procedures.html#_dates_and_times">4.16. Dates and Times</a>
-</li>
-<li><a href="_standard_procedures.html#_boxes">4.17. Boxes</a>
-</li>
-<li><a href="_standard_procedures.html#_processes">4.18. Processes</a>
-</li>
-<li><a href="_standard_procedures.html#_sockets">4.19. Sockets</a>
-</li>
-<li><a href="_standard_procedures.html#_signals">4.20. Signals</a>
-</li>
-<li><a href="_standard_procedures.html#_parameter_objects">4.21. Parameter Objects</a>
-</li>
-<li><a href="_standard_procedures.html#_misc">4.22. Misc</a>
-</li>
-</ul>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_standard_procedures">4. Standard Procedures</h2>
-<div class="sectionbody">
-<div class="sect2">
-<h3 id="_equivalence_predicates">4.1. Equivalence predicates</h3>
-<div class="paragraph">
-<p>A predicate is a procedure that always returns a boolean value
-(<code>#t</code> or <code>#f</code>). An equivalence predicate is the
-computational analogue of a mathematical equivalence relation (it
-is symmetric, reflexive, and transitive).  Of the equivalence
-predicates described in this section, <code>eq?</code> is the finest
-or most discriminating, and <code>equal?</code> is the coarsest.
-<code>Eqv?</code> is slightly less discriminating than <code>eq?</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(eqv? obj1 obj2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>eqv?</code> procedure defines a useful equivalence relation on objects.
-Briefly, it returns <code>#t</code> if <code>obj1</code> and <code>obj2</code> should normally be regarded
-as the same object. This relation is left slightly open to interpretation,
-but the following partial specification of <code>eqv?</code> holds for all
-implementations of Scheme.</p>
-</div>
-<div class="paragraph">
-<p>The <code>eqv?</code> procedure returns <code>#t</code> if:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>obj1</code> and <code>obj2</code> are both <code>#t</code> or both <code>#f</code>.</p>
-</li>
-<li>
-<p><code>obj1</code> and <code>obj2</code> are both symbols and</p>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">string=?</span> <span class="p">(</span><span class="nb">symbol-&gt;string</span> <span class="nv">obj1</span><span class="p">)</span>
-          <span class="p">(</span><span class="nb">symbol-&gt;string</span> <span class="nv">obj2</span><span class="p">))</span>     <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This assumes that neither <code>obj1</code> nor <code>obj2</code> is an
-"uninterned symbol".
-</td>
-</tr>
-</table>
-</div>
-</li>
-<li>
-<p><code>obj1</code> and <code>obj2</code> are both keywords and</p>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">string=?</span> <span class="p">(</span><span class="nf">keyword-&gt;string</span> <span class="nv">obj1</span><span class="p">)</span>
-          <span class="p">(</span><span class="nf">keyword-&gt;string</span> <span class="nv">obj2</span><span class="p">))</span>    <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-</li>
-<li>
-<p><code>obj1</code> and <code>obj2</code> are both numbers, are <em><a href="_standard_procedures.html#numeq">numerically equal</a></em>,
-and are either both exact or both inexact.</p>
-</li>
-<li>
-<p><code>obj1</code> and <code>obj2</code> are both characters and are the same character
-according to the <em><a href="_standard_procedures.html#chareq"><code>char=?</code> procedure</a>`</em>.</p>
-</li>
-<li>
-<p>both <code>obj1</code> and <code>obj2</code> are the empty list.</p>
-</li>
-<li>
-<p><code>obj1</code> and <code>obj2</code> are pairs, vectors, or strings that denote
-the same locations in the store.</p>
-</li>
-<li>
-<p><code>obj1</code> and <code>obj2</code> are procedures whose location tags are equal.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>STklos extends R<sup>5</sup>RS <code>eqv?</code> to take into account
-the keyword type. Here are some examples:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">eqv?</span> <span class="ss">'a</span> <span class="ss">'a</span><span class="p">)</span>                     <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">eqv?</span> <span class="ss">'a</span> <span class="ss">'b</span><span class="p">)</span>                     <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nb">eqv?</span> <span class="mi">2</span> <span class="mi">2</span><span class="p">)</span>                       <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">eqv?</span> <span class="nv">:foo</span> <span class="nv">:foo</span><span class="p">)</span>                 <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">eqv?</span> <span class="o">#</span><span class="nv">:foo</span> <span class="nv">:foo</span><span class="p">)</span>                <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">eqv?</span> <span class="nv">:foo</span> <span class="nv">:bar</span><span class="p">)</span>                 <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nb">eqv?</span> <span class="o">'</span><span class="p">()</span> <span class="o">'</span><span class="p">())</span>                   <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">eqv?</span> <span class="mi">100000000</span> <span class="mi">100000000</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">eqv?</span> <span class="p">(</span><span class="nb">cons</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nb">cons</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span>     <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nb">eqv?</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="mi">1</span><span class="p">)</span>
-      <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="mi">2</span><span class="p">))</span>             <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nb">eqv?</span> <span class="no">#f</span> <span class="ss">'nil</span><span class="p">)</span>                   <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">p</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="nv">x</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">eqv?</span> <span class="nv">p</span> <span class="nv">p</span><span class="p">))</span>                    <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The following examples illustrate cases in which the above rules do
-not fully specify the behavior of <code>eqv?</code>. All that can be said about
-such cases is that the value returned by eqv? must be a boolean.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">eqv?</span> <span class="s">""</span> <span class="s">""</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="nv">unspecified</span>
-<span class="p">(</span><span class="nb">eqv?</span> <span class="o">'#</span><span class="p">()</span> <span class="o">'#</span><span class="p">())</span>         <span class="nv">=&gt;</span>  <span class="nv">unspecified</span>
-<span class="p">(</span><span class="nb">eqv?</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="nv">x</span><span class="p">)</span>
-      <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="nv">x</span><span class="p">))</span>    <span class="nv">=&gt;</span>  <span class="nv">unspecified</span>
-<span class="p">(</span><span class="nb">eqv?</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="nv">x</span><span class="p">)</span>
-      <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">y</span><span class="p">)</span> <span class="nv">y</span><span class="p">))</span>    <span class="nv">=&gt;</span>  <span class="nv">unspecified</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-In fact, the value returned by STklos depends on
-the way code is entered and can yield <code>#t</code> in some cases and <code>#f</code>
-in others.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>See R<sup>5</sup>RS for more details on <code>eqv?</code>.</p>
-</div>
-<div id="eqprim" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(eq? obj1 obj2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Eq?</code> is similar to <code>eqv?</code> except that in some cases it is capable of
-discerning distinctions finer than those detectable by <code>eqv?</code>.</p>
-</div>
-<div class="paragraph">
-<p><code>Eq?</code> and <code>eqv?</code> are guaranteed to have the same behavior on symbols,
-keywords, booleans, the empty list, pairs, procedures, and non-empty strings
-and vectors. <code>Eq?</code>'s behavior on numbers and characters is
-implementation-dependent, but it will always return either true or false,
-and will return true only when <code>eqv?</code> would also return true.
-<code>Eq?</code> may also behave differently from <code>eqv?</code> on empty vectors
-and empty strings.<br>
-Note that:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>STklos extends R<sup>5</sup>RS <code>eq?</code> to take into account  the keyword type.</p>
-</li>
-<li>
-<p>In STklos, comparison of character returns <code>#t</code> for identical
-characters and <code>#f</code> otherwise.</p>
-</li>
-</ul>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">eq?</span> <span class="ss">'a</span> <span class="ss">'a</span><span class="p">)</span>                     <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">eq?</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span><span class="p">)</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span><span class="p">))</span>                 <span class="nv">=&gt;</span>  <span class="nv">unspecified</span>
-<span class="p">(</span><span class="nb">eq?</span> <span class="p">(</span><span class="nb">list</span> <span class="ss">'a</span><span class="p">)</span> <span class="p">(</span><span class="nb">list</span> <span class="ss">'a</span><span class="p">))</span>       <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nb">eq?</span> <span class="s">"a"</span> <span class="s">"a"</span><span class="p">)</span>                   <span class="nv">=&gt;</span>  <span class="nv">unspecified</span>
-<span class="p">(</span><span class="nb">eq?</span> <span class="s">""</span> <span class="s">""</span><span class="p">)</span>                     <span class="nv">=&gt;</span>  <span class="nv">unspecified</span>
-<span class="p">(</span><span class="nb">eq?</span> <span class="nv">:foo</span> <span class="nv">:foo</span><span class="p">)</span>                 <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">eq?</span> <span class="nv">:foo</span> <span class="nv">:bar</span><span class="p">)</span>                 <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nb">eq?</span> <span class="o">'</span><span class="p">()</span> <span class="o">'</span><span class="p">())</span>                   <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">eq?</span> <span class="mi">2</span> <span class="mi">2</span><span class="p">)</span>                       <span class="nv">=&gt;</span>  <span class="nv">unspecified</span>
-<span class="p">(</span><span class="nb">eq?</span> <span class="o">#</span><span class="nv">A</span> <span class="o">#</span><span class="nv">A</span><span class="p">)</span>                   <span class="nv">=&gt;</span>  <span class="no">#t</span> <span class="p">(</span><span class="nf">unspecified</span> <span class="nv">in</span> <span class="nv">r5rs</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">eq?</span> <span class="nv">car</span> <span class="nv">car</span><span class="p">)</span>                   <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">n</span> <span class="p">(</span><span class="nb">+</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">eq?</span> <span class="nv">n</span> <span class="nv">n</span><span class="p">))</span>                    <span class="nv">=&gt;</span>  <span class="no">#t</span> <span class="p">(</span><span class="nf">unspecified</span> <span class="nv">in</span> <span class="nv">r5rs</span><span class="p">)</span>
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">x</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">eq?</span> <span class="nv">x</span> <span class="nv">x</span><span class="p">))</span>                    <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">x</span> <span class="o">'#</span><span class="p">()))</span>
-  <span class="p">(</span><span class="nb">eq?</span> <span class="nv">x</span> <span class="nv">x</span><span class="p">))</span>                    <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">p</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="nv">x</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">eq?</span> <span class="nv">p</span> <span class="nv">p</span><span class="p">))</span>                    <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">eq?</span> <span class="nv">:foo</span> <span class="nv">:foo</span><span class="p">)</span>                 <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">eq?</span> <span class="nv">:bar</span> <span class="nv">bar:</span><span class="p">)</span>                 <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">eq?</span> <span class="nv">:bar</span> <span class="nv">:foo</span><span class="p">)</span>                 <span class="nv">=&gt;</span>  <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(equal? obj1 obj2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Equal?</code> recursively compares the contents of pairs, vectors, and
-strings, applying <code>eqv?</code> on other objects such as numbers and symbols.
-A rule of thumb is that objects are generally <code>equal?</code> if they print the
-same. <code>Equal?</code> always terminates even if its arguments are circular
-data structures.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">equal?</span> <span class="ss">'a</span> <span class="ss">'a</span><span class="p">)</span>                  <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">equal?</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span><span class="p">)</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span><span class="p">))</span>              <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">equal?</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="p">(</span><span class="nf">b</span><span class="p">)</span> <span class="nv">c</span><span class="p">)</span>
-        <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="p">(</span><span class="nf">b</span><span class="p">)</span> <span class="nv">c</span><span class="p">))</span>             <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">equal?</span> <span class="s">"abc"</span> <span class="s">"abc"</span><span class="p">)</span>            <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">equal?</span> <span class="mi">2</span> <span class="mi">2</span><span class="p">)</span>                    <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">equal?</span> <span class="p">(</span><span class="nb">make-vector</span> <span class="mi">5</span> <span class="ss">'a</span><span class="p">)</span>
-        <span class="p">(</span><span class="nb">make-vector</span> <span class="mi">5</span> <span class="ss">'a</span><span class="p">))</span>     <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">equal?</span> <span class="o">'#</span><span class="mi">1</span><span class="nv">=</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="o">.</span> <span class="o">#</span><span class="mi">1</span><span class="o">#</span><span class="p">)</span>
-        <span class="o">'#</span><span class="mi">2</span><span class="nv">=</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">a</span> <span class="nv">b</span> <span class="o">.</span> <span class="o">#</span><span class="mi">2</span><span class="o">#</span><span class="p">))</span>    <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-A rule of thumb is that objects are generally
-<code>equal?</code> if they print the same.
-</td>
-</tr>
-</table>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_numbers">4.2. Numbers</h3>
-<div class="paragraph">
-<p>R<sup>5</sup>RS description of numbers is quite long and will not be given here.
-STklos support the full number tower as described in R<sup>5</sup>RS; see this
-document for a complete description.</p>
-</div>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> extends the number syntax of R5RS with the following
-inexact numerical constants: <code>+inf.0</code> (infinity), <code>-inf.0</code> (negative
-infinity), <code>+nan.0</code> (not a number), and <code>-nan.0</code> (not a number).</p>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(number? obj)</code></strong><br>
-<strong><code>(complex? obj)</code></strong><br>
-<strong><code>(real? obj)</code></strong><br>
-<strong><code>(rational? obj)</code></strong><br>
-<strong><code>(integer? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These numerical type predicates can be applied to any kind of
-argument, including non-numbers. They return <code>#t</code> if the object is of
-the named type, and otherwise they return <code>#f</code>. In general, if a type
-predicate is true for a number then all higher type predicates are
-also true for that number. Consequently, if a type predicate is
-false of a number, then all lower type predicates are also false of
-that number.</p>
-</div>
-<div class="paragraph">
-<p>If <code>z</code> is an inexact complex number, then <code>(real? z)</code> is true if and
-only if <code>(zero? (imag-part z))</code> is true. If <code>x</code> is an inexact real
-number, then <code>(integer? x)</code> is true if and only if
-<code>(and (finite? x) (= x (round x)))</code></p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="nb">complex?</span> <span class="mi">3</span><span class="nv">+4i</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nb">complex?</span> <span class="mi">3</span><span class="p">)</span>            <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nb">real?</span> <span class="mi">3</span><span class="p">)</span>               <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nb">real?</span> <span class="mf">-2.5</span><span class="nv">+0</span><span class="o">.</span><span class="mi">0</span><span class="nv">i</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nb">real?</span> <span class="mx">#e1</span><span class="nv">e10</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nb">rational?</span> <span class="mi">6</span><span class="nv">/10</span><span class="p">)</span>        <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nb">rational?</span> <span class="mi">6</span><span class="nv">/3</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nb">integer?</span> <span class="mi">3</span><span class="nv">+0i</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nb">integer?</span> <span class="mf">3.0</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nb">integer?</span> <span class="mf">3.2</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nb">integer?</span> <span class="mi">8</span><span class="nv">/4</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nb">integer?</span> <span class="s">"no"</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nb">complex?</span> <span class="m">+inf.0</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nb">real?</span> <span class="m">-inf.0</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nb">rational?</span> <span class="m">+inf.0</span><span class="p">)</span>      <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nb">integer?</span> <span class="m">-inf.0</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(exact? z)</code></strong><br>
-<strong><code>(inexact? z)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These numerical predicates provide tests for the exactness of a
-quantity. For any Scheme number, precisely one of these predicates
-is true.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(inexact z)</code></strong><br>
-<strong><code>(exact z)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These R<sup>7</sup>RS procedures correspond to the R<sup>5</sup>RS <code>exact&#8594;inexact</code>
-and <code>inexact&#8594;exact</code> procedure respectively</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(exact&#8594;integer? z)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns  <code>#t</code> if z is both exact and an integer; otherwise returns <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">exact-integer?</span> <span class="mi">32</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">exact-integer?</span> <span class="mf">32.0</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">exact-integer?</span> <span class="mi">32</span><span class="nv">/5</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bignum? x)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This predicates returns <code>#t</code> if <code>x</code> is an integer number too large to be
-represented with a native integer.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">bignum?</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">2</span> <span class="mi">300</span><span class="p">))</span>     <span class="nv">=&gt;</span> <span class="o">`</span><span class="no">#t</span><span class="o">`</span>   <span class="c1">;; (very likely)</span>
-<span class="p">(</span><span class="nf">bignum?</span> <span class="mi">12</span><span class="p">)</span>               <span class="nv">=&gt;</span> <span class="o">`</span><span class="no">#f</span><span class="o">`</span>
-<span class="p">(</span><span class="nf">bignum?</span> <span class="s">"no"</span><span class="p">)</span>             <span class="nv">=&gt;</span> <span class="o">`</span><span class="no">#f</span><span class="o">`</span></code></pre>
-</div>
-</div>
-<div id="numeq" class="paragraph">
-<p>
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(= z1 z2 z3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(&lt; x1 x2 x3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(&gt; x1 x2 x3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(&#8656; x1 x2 x3 &#8230;&#8203;)</code></strong><br>
-<strong><code>(&gt;= x1 x2 x3 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return <code>#t</code> if their arguments are (respectively):
-equal, monotonically increasing, monotonically decreasing,
-monotonically nondecreasing, or monotonically nonincreasing.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">=</span> <span class="m">+inf.0</span> <span class="m">+inf.0</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">=</span> <span class="m">-inf.0</span> <span class="m">+inf.0</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nb">=</span> <span class="m">-inf.0</span> <span class="m">-inf.0</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>For any finite real number x:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">&lt;</span> <span class="m">-inf.0</span> <span class="nv">x</span> <span class="m">+inf.0</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">&gt;</span> <span class="m">+inf.0</span> <span class="nv">x</span> <span class="m">-inf.0</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(finite? z)</code></strong><br>
-<strong><code>(infinite? z)</code></strong><br>
-<strong><code>(zero? z)</code></strong><br>
-<strong><code>(positive? x)</code></strong><br>
-<strong><code>(negative? x)</code></strong><br>
-<strong><code>(odd? n)</code></strong><br>
-<strong><code>(even? n)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These numerical predicates test a number for a particular property,
-returning <code>#t</code> or <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">positive?</span> <span class="m">+inf.0</span><span class="p">)</span>          <span class="nv">==&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">negative?</span> <span class="m">-inf.0</span><span class="p">)</span>          <span class="nv">==&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nf">finite?</span> <span class="m">-inf.0</span><span class="p">)</span>            <span class="nv">==&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nf">infinite?</span> <span class="m">+inf.0</span><span class="p">)</span>          <span class="nv">==&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(nan? z)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>nan?</code> procedure returns #t on <code>+nan.0</code>, and on complex
-numbers if their real or imaginary parts or both are <code>+nan.0</code>.
-Otherwise it returns #f.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">nan?</span> <span class="nv">+nan</span><span class="o">.</span><span class="mi">0</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nf">nan?</span> <span class="mi">32</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nf">nan?</span> <span class="nv">+nan</span><span class="o">.</span><span class="mi">0</span><span class="nv">+5</span><span class="o">.</span><span class="mi">0</span><span class="nv">i</span><span class="p">)</span>     <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nf">nan?</span> <span class="mi">1</span><span class="nv">+2i</span><span class="p">)</span>            <span class="nv">=&gt;</span>  <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-nan negative? quiet? payload)</code></strong><br>
-<strong><code>(make-nan negative? quiet? payload float)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a NaN whose sign bit is equal to <code>negative?</code>  (<code>#t</code> for negative,
-<code>#f</code> for positive), whose quiet bit is equal to quiet? (<code>#t</code> for quiet,
-<code>#f</code> for signaling), and whose payload is the positive exact integer payload.
-It is an error if payload is larger than a NaN can hold.</p>
-</div>
-<div class="paragraph">
-<p>The optional parameter <code>float</code>, is never used in <strong><em>STklos</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p>This function is defined in <strong><a href="http://srfi.schemers.org/srfi-208/srfi-208.html">SRFI-208</a></strong>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(nan-negative? nan)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>returns <code>#t</code> if the sign bit of <code>nan</code> is set and <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(nan-quiet? nan)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>returns <code>#t</code> if <code>nan</code> is a quiet NaN.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(nan-payload nan)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>returns  the payload bits of <code>nan</code> as a positive exact integer.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(nan=? nan1 nan2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>nan1</code> and <code>nan2</code> have the same sign, quiet bit,
-and payload; and <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(max x1 x2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(min x1 x2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return the maximum or minimum of their arguments.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">max</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="mi">4</span>    <span class="c1">; exact</span>
-<span class="p">(</span><span class="nb">max</span> <span class="mf">3.9</span> <span class="mi">4</span><span class="p">)</span>            <span class="nv">=&gt;</span>  <span class="mf">4.0</span>  <span class="c1">; inexact</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>For any real number x:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">max</span> <span class="m">+inf.0</span> <span class="nv">x</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="m">+inf.0</span>
-<span class="p">(</span><span class="nb">min</span> <span class="m">-inf.0</span> <span class="nv">x</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="m">-inf.0</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-If any argument is inexact, then the result will also be
-inexact
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(floor/ n1 n2)</code></strong><br>
-<strong><code>(floor-quotient n1 n2)</code></strong><br>
-<strong><code>(floor-remainder n1 n2)</code></strong><br>
-<strong><code>(truncate/ n1 n2)</code></strong><br>
-<strong><code>(truncate-quotient n1 n2)</code></strong><br>
-<strong><code>(truncate-remainder n1 n2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures implement number-theoretic (integer) division.  It is
-an error if <code>n2</code> is zero. The procedures ending in '/' return two integers;
-the other procedures return an integer.  All the procedures compute a
-quotient <code>q</code> and remainder <code>r</code> such that <code>n1=n2*q+r</code>.</p>
-</div>
-<div class="paragraph">
-<p>See R<sup>7</sup>RS for more information.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">floor/</span> <span class="mi">5</span> <span class="mi">2</span><span class="p">)</span>         <span class="nv">=&gt;</span> <span class="mi">2</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">floor/</span> <span class="mi">-5</span> <span class="mi">2</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="mi">-3</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">floor/</span> <span class="mi">5</span> <span class="mi">-2</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="mi">-3</span> <span class="mi">-1</span>
-<span class="p">(</span><span class="nf">floor/</span> <span class="mi">-5</span> <span class="mi">-2</span><span class="p">)</span>       <span class="nv">=&gt;</span> <span class="mi">2</span> <span class="mi">-1</span>
-<span class="p">(</span><span class="nf">truncate/</span> <span class="mi">5</span> <span class="mi">2</span><span class="p">)</span>      <span class="nv">=&gt;</span> <span class="mi">2</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">truncate/</span> <span class="mi">-5</span> <span class="mi">2</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mi">-2</span> <span class="mi">-1</span>
-<span class="p">(</span><span class="nf">truncate/</span> <span class="mi">5</span> <span class="mi">-2</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mi">-2</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">truncate/</span> <span class="mi">-5</span> <span class="mi">-2</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="mi">2</span> <span class="mi">-1</span>
-<span class="p">(</span><span class="nf">truncate/</span> <span class="mf">-5.0</span> <span class="mi">-2</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mf">2.0</span> <span class="mf">-1.0</span><span class="nv">%</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(+ z1 &#8230;&#8203;)</code></strong><br>
-<strong><code>(</strong> z1 &#8230;&#8203;)</code>*<br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return the sum or product of their arguments.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">+</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span>                 <span class="nv">=&gt;</span>  <span class="mi">7</span>
-<span class="p">(</span><span class="nb">+</span> <span class="mi">3</span><span class="p">)</span>                   <span class="nv">=&gt;</span>  <span class="mi">3</span>
-<span class="p">(</span><span class="nb">+</span><span class="p">)</span>                     <span class="nv">=&gt;</span>  <span class="mi">0</span>
-<span class="p">(</span><span class="nb">+</span> <span class="m">+inf.0</span> <span class="m">+inf.0</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="m">+inf.0</span>
-<span class="p">(</span><span class="nb">+</span> <span class="m">+inf.0</span> <span class="m">-inf.0</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="nv">+nan</span><span class="o">.</span><span class="mi">0</span>
-<span class="p">(</span><span class="nb">*</span> <span class="mi">4</span><span class="p">)</span>                   <span class="nv">=&gt;</span>  <span class="mi">4</span>
-<span class="p">(</span><span class="nb">*</span><span class="p">)</span>                     <span class="nv">=&gt;</span>  <span class="mi">1</span>
-<span class="p">(</span><span class="nb">*</span> <span class="mi">5</span> <span class="m">+inf.0</span><span class="p">)</span>            <span class="nv">=&gt;</span>  <span class="m">+inf.0</span>
-<span class="p">(</span><span class="nb">*</span> <span class="mi">-5</span> <span class="m">+inf.0</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="m">-inf.0</span>
-<span class="p">(</span><span class="nb">*</span> <span class="m">+inf.0</span> <span class="m">+inf.0</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="m">+inf.0</span>
-<span class="p">(</span><span class="nb">*</span> <span class="m">+inf.0</span> <span class="m">-inf.0</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="m">-inf.0</span>
-<span class="p">(</span><span class="nb">*</span> <span class="mi">0</span> <span class="m">+inf.0</span><span class="p">)</span>            <span class="nv">=&gt;</span>  <span class="nv">+nan</span><span class="o">.</span><span class="mi">0</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-For any finite number z:
-</td>
-</tr>
-</table>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">      <span class="p">(</span><span class="nb">+</span> <span class="m">+inf.0</span> <span class="nv">z</span><span class="p">)</span>      <span class="nv">=&gt;</span>  <span class="m">+inf.0</span>
-      <span class="p">(</span><span class="nb">+</span> <span class="m">-inf.0</span> <span class="nv">z</span><span class="p">)</span>      <span class="nv">=&gt;</span>  <span class="m">-inf.0</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(- z)</code></strong><br>
-<strong><code>(- z1 z2)</code></strong><br>
-<strong><code>(/ z)</code></strong><br>
-<strong><code>(/ z1 z2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>With two or more arguments, these procedures return the difference or quotient
-of their arguments, associating to the left. With one argument, however,
-they return the additive or multiplicative inverse of their argument.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">-</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span>                 <span class="nv">=&gt;</span>  <span class="mi">-1</span>
-<span class="p">(</span><span class="nb">-</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">)</span>               <span class="nv">=&gt;</span>  <span class="mi">-6</span>
-<span class="p">(</span><span class="nb">-</span> <span class="mi">3</span><span class="p">)</span>                   <span class="nv">=&gt;</span>  <span class="mi">-3</span>
-<span class="p">(</span><span class="nb">-</span> <span class="m">+inf.0</span> <span class="m">+inf.0</span><span class="p">)</span>       <span class="nv">=&gt;</span> <span class="nv">+nan</span><span class="o">.</span><span class="mi">0</span>
-<span class="p">(</span><span class="nb">/</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">)</span>               <span class="nv">=&gt;</span>  <span class="mi">3</span><span class="nv">/20</span>
-<span class="p">(</span><span class="nb">/</span> <span class="mi">3</span><span class="p">)</span>                   <span class="nv">=&gt;</span>  <span class="mi">1</span><span class="nv">/3</span>
-<span class="p">(</span><span class="nb">/</span> <span class="mf">0.0</span><span class="p">)</span>                 <span class="nv">=&gt;</span> <span class="m">+inf.0</span>
-<span class="p">(</span><span class="nb">/</span> <span class="mi">0</span><span class="p">)</span>                   <span class="nv">=&gt;</span> <span class="nv">error</span> <span class="p">(</span><span class="nf">division</span> <span class="nv">by</span> <span class="mi">0</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(abs x)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Abs</code> returns the absolute value of its argument.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">abs</span> <span class="mi">-7</span><span class="p">)</span>                <span class="nv">=&gt;</span>  <span class="mi">7</span>
-<span class="p">(</span><span class="nb">abs</span> <span class="m">-inf.0</span><span class="p">)</span>            <span class="nv">=&gt;</span> <span class="m">+inf.0</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(quotient n1 n2)</code></strong><br>
-<strong><code>(remainder n1 n2)</code></strong><br>
-<strong><code>(modulo n1 n2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures implement number-theoretic (integer) division. n2 should
-be non-zero. All three procedures return integers.</p>
-</div>
-<div class="paragraph">
-<p>If <code>n1/n2</code> is an integer:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">quotient</span> <span class="nv">n1</span> <span class="nv">n2</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="nv">n1/n2</span>
-<span class="p">(</span><span class="nb">remainder</span> <span class="nv">n1</span> <span class="nv">n2</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mi">0</span>
-<span class="p">(</span><span class="nb">modulo</span> <span class="nv">n1</span> <span class="nv">n2</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mi">0</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>If n1/n2 is not an integer:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">quotient</span> <span class="nv">n1</span> <span class="nv">n2</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="nv">nq</span>
-<span class="p">(</span><span class="nb">remainder</span> <span class="nv">n1</span> <span class="nv">n2</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="nv">nr</span>
-<span class="p">(</span><span class="nb">modulo</span> <span class="nv">n1</span> <span class="nv">n2</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="nv">nm</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>where <code>nq</code> is <code>n1/n2</code> rounded towards zero, 0 &lt; abs(nr) &lt; abs(n2),
-0 &lt; abs(nm) &lt; abs(n2), <code>nr</code> and <code>nm</code> differ from n1 by a multiple of n2,
-<code>nr</code> has the same sign as n1, and <code>nm</code> has the same sign as n2.</p>
-</div>
-<div class="paragraph">
-<p>From this we can conclude that for integers <code>n1</code> and <code>n2</code> with <code>n2</code> not
-equal to 0,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"> <span class="p">(</span><span class="nb">=</span> <span class="nv">n1</span> <span class="p">(</span><span class="nb">+</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">n2</span> <span class="p">(</span><span class="nb">quotient</span> <span class="nv">n1</span> <span class="nv">n2</span><span class="p">))</span>
-          <span class="p">(</span><span class="nb">remainder</span> <span class="nv">n1</span> <span class="nv">n2</span><span class="p">)))</span>   <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>provided all numbers involved in that computation are exact.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">modulo</span> <span class="mi">13</span> <span class="mi">4</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="mi">1</span>
-<span class="p">(</span><span class="nb">remainder</span> <span class="mi">13</span> <span class="mi">4</span><span class="p">)</span>        <span class="nv">=&gt;</span>  <span class="mi">1</span>
-
-<span class="p">(</span><span class="nb">modulo</span> <span class="mi">-13</span> <span class="mi">4</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="mi">3</span>
-<span class="p">(</span><span class="nb">remainder</span> <span class="mi">-13</span> <span class="mi">4</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="mi">-1</span>
-
-<span class="p">(</span><span class="nb">modulo</span> <span class="mi">13</span> <span class="mi">-4</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="mi">-3</span>
-<span class="p">(</span><span class="nb">remainder</span> <span class="mi">13</span> <span class="mi">-4</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="mi">1</span>
-
-<span class="p">(</span><span class="nb">modulo</span> <span class="mi">-13</span> <span class="mi">-4</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="mi">-1</span>
-<span class="p">(</span><span class="nb">remainder</span> <span class="mi">-13</span> <span class="mi">-4</span><span class="p">)</span>      <span class="nv">=&gt;</span>  <span class="mi">-1</span>
-
-<span class="p">(</span><span class="nb">remainder</span> <span class="mi">-13</span> <span class="mf">-4.0</span><span class="p">)</span>    <span class="nv">=&gt;</span>  <span class="mf">-1.0</span>  <span class="c1">; inexact</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(gcd n1 &#8230;&#8203;)</code></strong><br>
-<strong><code>(lcm n1 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return the greatest common divisor or least common
-multiple of their arguments. The result is always non-negative.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">gcd</span> <span class="mi">32</span> <span class="mi">-36</span><span class="p">)</span>            <span class="nv">=&gt;</span>  <span class="mi">4</span>
-<span class="p">(</span><span class="nb">gcd</span><span class="p">)</span>                   <span class="nv">=&gt;</span>  <span class="mi">0</span>
-<span class="p">(</span><span class="nb">lcm</span> <span class="mi">32</span> <span class="mi">-36</span><span class="p">)</span>            <span class="nv">=&gt;</span>  <span class="mi">288</span>
-<span class="p">(</span><span class="nb">lcm</span> <span class="mf">32.0</span> <span class="mi">-36</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="mf">288.0</span>  <span class="c1">; inexact</span>
-<span class="p">(</span><span class="nb">lcm</span><span class="p">)</span>                   <span class="nv">=&gt;</span>  <span class="mi">1</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(numerator q)</code></strong><br>
-<strong><code>(denominator q)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return the numerator or denominator of their argument; the
-result is computed as if the argument was represented as a fraction in
-lowest terms. The denominator is always positive. The denominator of
-0 is defined to be 1.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">numerator</span> <span class="p">(</span><span class="nb">/</span> <span class="mi">6</span> <span class="mi">4</span><span class="p">))</span>  <span class="nv">=&gt;</span>  <span class="mi">3</span>
-<span class="p">(</span><span class="nb">denominator</span> <span class="p">(</span><span class="nb">/</span> <span class="mi">6</span> <span class="mi">4</span><span class="p">))</span>  <span class="nv">=&gt;</span>  <span class="mi">2</span>
-<span class="p">(</span><span class="nb">denominator</span>
-<span class="p">(</span><span class="nb">exact-&gt;inexact</span> <span class="p">(</span><span class="nb">/</span> <span class="mi">6</span> <span class="mi">4</span><span class="p">)))</span> <span class="nv">=&gt;</span> <span class="mf">2.0</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(floor x)</code></strong><br>
-<strong><code>(ceiling x)</code></strong><br>
-<strong><code>(truncate x)</code></strong><br>
-<strong><code>(round x)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return integers. <code>Floor</code> returns the largest integer not
-larger than <code>x</code>. <code>Ceiling</code> returns the smallest integer not smaller than <code>x</code>.
-<code>Truncate</code> returns the integer closest to <code>x</code> whose absolute value is not
-larger than the absolute value of <code>x</code>. <code>Round</code> returns the closest integer
-to <code>x</code>, rounding to even when <code>x</code> is halfway between two integers.</p>
-</div>
-<div class="admonitionblock important">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-important" title="Important"></i>
-</td>
-<td class="content">
-<code>Round</code> rounds to even for consistency with the default
-rounding mode specified by the IEEE floating point standard.
-</td>
-</tr>
-</table>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-If the argument to one of these procedures is inexact, then the
-result will also be inexact. If an exact value is needed, the result should
-be passed to the <code>inexact&#8594;exact</code> procedure.
-</td>
-</tr>
-</table>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">floor</span> <span class="mf">-4.3</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="mf">-5.0</span>
-<span class="p">(</span><span class="nb">ceiling</span> <span class="mf">-4.3</span><span class="p">)</span>        <span class="nv">=&gt;</span>  <span class="mf">-4.0</span>
-<span class="p">(</span><span class="nb">truncate</span> <span class="mf">-4.3</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="mf">-4.0</span>
-<span class="p">(</span><span class="nb">round</span> <span class="mf">-4.3</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="mf">-4.0</span>
-
-<span class="p">(</span><span class="nb">floor</span> <span class="mf">3.5</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="mf">3.0</span>
-<span class="p">(</span><span class="nb">ceiling</span> <span class="mf">3.5</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="mf">4.0</span>
-<span class="p">(</span><span class="nb">truncate</span> <span class="mf">3.5</span><span class="p">)</span>        <span class="nv">=&gt;</span>  <span class="mf">3.0</span>
-<span class="p">(</span><span class="nb">round</span> <span class="mf">3.5</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="mf">4.0</span>  <span class="c1">; inexact</span>
-
-<span class="p">(</span><span class="nb">round</span> <span class="mi">7</span><span class="nv">/2</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="mi">4</span>    <span class="c1">; exact</span>
-<span class="p">(</span><span class="nb">round</span> <span class="mi">7</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="mi">7</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(rationalize x y)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Rationalize returns the simplest rational number differing from <code>x</code>
-by no more than <code>y</code>. A rational number <code>r1</code> is simpler than another
-rational number <code>r2</code> if <code>r1</code> = <code>p1/q1</code> and <code>r2</code> = <code>p2/q2</code> (in lowest
-terms) and abs(p1) &#8656; abs(p2) and abs(q1) &#8656; abs(q2). Thus <code>3/5</code> is
-simpler than <code>4/7</code>. Although not all rationals are comparable in
-this ordering  (consider <code>2/7</code> and <code>3/5</code>) any interval contains a
-rational number that
-is simpler than every other rational number in that interval (the
-simpler <code>2/5</code> lies between <code>2/7</code> and <code>3/5</code>). Note that <code>0</code> = <code>0/1</code> is the
-simplest rational of all.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">rationalize</span>
-   <span class="p">(</span><span class="nb">inexact-&gt;exact</span> <span class="o">.</span><span class="mi">3</span><span class="p">)</span> <span class="mi">1</span><span class="nv">/10</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mi">1</span><span class="nv">/3</span>    <span class="c1">; exact</span>
-<span class="p">(</span><span class="nb">rationalize</span> <span class="o">.</span><span class="mi">3</span> <span class="mi">1</span><span class="nv">/10</span><span class="p">)</span>         <span class="nv">=&gt;</span> <span class="mx">#i1</span><span class="nv">/3</span>  <span class="c1">; inexact</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(exp z)</code></strong><br>
-<strong><code>(log z)</code></strong><br>
-<strong><code>(log z b)</code></strong><br>
-<strong><code>(sin z)</code></strong><br>
-<strong><code>(cos z)</code></strong><br>
-<strong><code>(tan z)</code></strong><br>
-<strong><code>(asin z)</code></strong><br>
-<strong><code>(acos z)</code></strong><br>
-<strong><code>(atan z)</code></strong><br>
-<strong><code>(atan y x)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures compute the usual transcendental functions. <code>Log</code> computes the
-natural logarithm of z (not the base ten logarithm). <code>Asin</code>, <code>acos</code>,
-and <code>atan</code> compute arcsine, arccosine, and  arctangent, respectively.
-The two-argument variant of <code>log</code> computes the logarithm of x in base b as</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">/</span> <span class="p">(</span><span class="nb">log</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">log</span> <span class="nv">b</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The two-argument variant of <code>atan</code> computes</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">angle</span> <span class="p">(</span><span class="nb">make-rectangular</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>When it is possible these procedures produce a real result from a real
-argument.</p>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(sinh z)</code></strong><br>
-<strong><code>(cosh z)</code></strong><br>
-<strong><code>(tanh z)</code></strong><br>
-<strong><code>(asinh z)</code></strong><br>
-<strong><code>(acosh z)</code></strong><br>
-<strong><code>(atanh z)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures compute the hyperbolic trigonometric functions.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">sinh</span> <span class="mi">1</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mf">1.1752011936438</span>
-<span class="p">(</span><span class="nf">sinh</span> <span class="mi">0</span><span class="nv">+1i</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mf">0.0</span><span class="nv">+0</span><span class="o">.</span><span class="mi">841470984807897</span><span class="nv">i</span>
-<span class="p">(</span><span class="nf">cosh</span> <span class="mi">1</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mf">1.54308063481524</span>
-<span class="p">(</span><span class="nf">cosh</span> <span class="mi">0</span><span class="nv">+1i</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mf">0.54030230586814</span>
-<span class="p">(</span><span class="nf">tanh</span> <span class="mi">1</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mf">0.761594155955765</span>
-<span class="p">(</span><span class="nf">tanh</span> <span class="mi">0</span><span class="nv">+1i</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mf">0.0</span><span class="nv">+1</span><span class="o">.</span><span class="mi">5574077246549</span><span class="nv">i</span>
-<span class="p">(</span><span class="nf">asinh</span> <span class="mi">1</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="mf">0.881373587019543</span>
-<span class="p">(</span><span class="nf">asinh</span> <span class="mi">0</span><span class="nv">+1i</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">0</span><span class="nv">+1</span><span class="o">.</span><span class="mi">5707963267949</span><span class="nv">i</span>
-<span class="p">(</span><span class="nf">acosh</span> <span class="mi">0</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="mi">0</span><span class="nv">+1</span><span class="o">.</span><span class="mi">5707963267949</span><span class="nv">i</span>
-<span class="p">(</span><span class="nf">acosh</span> <span class="mi">0</span><span class="nv">+1i</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mf">1.23340311751122</span><span class="nv">+1</span><span class="o">.</span><span class="mi">5707963267949</span><span class="nv">i</span>
-<span class="p">(</span><span class="nf">atanh</span> <span class="mi">1</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="nv">error</span>
-<span class="p">(</span><span class="nf">atanh</span> <span class="mi">0</span><span class="nv">+1i</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mf">0.0</span><span class="nv">+0</span><span class="o">.</span><span class="mi">785398163397448</span><span class="nv">i</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>In general, <code>(asinh (sinh x))</code> and similar compositions should be
-equal to <code>x</code>, except for inexactness due to the internal floating
-point number approximation for real numbers.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">sinh</span> <span class="p">(</span><span class="nf">asinh</span> <span class="mi">0</span><span class="nv">+1i</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mf">0.0</span><span class="nv">+1</span><span class="o">.</span><span class="mi">0</span><span class="nv">i</span>
-<span class="p">(</span><span class="nf">cosh</span> <span class="p">(</span><span class="nf">acosh</span> <span class="mi">0</span><span class="nv">+1i</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mf">8.65956056235493</span><span class="nv">e-17+1</span><span class="o">.</span><span class="mi">0</span><span class="nv">i</span>
-<span class="p">(</span><span class="nf">tanh</span> <span class="p">(</span><span class="nf">atanh</span> <span class="mi">0</span><span class="nv">+1i</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mf">0.0</span><span class="nv">+1</span><span class="o">.</span><span class="mi">0</span><span class="nv">i</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>These functions will always return an exact result for the following
-arguments:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">sinh</span> <span class="mf">0.0</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mi">0</span>
-<span class="p">(</span><span class="nf">cosh</span> <span class="mf">0.0</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">tanh</span> <span class="mf">0.0</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mi">0</span>
-<span class="p">(</span><span class="nf">asinh</span> <span class="mf">0.0</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="mi">0</span>
-<span class="p">(</span><span class="nf">acosh</span> <span class="mf">1.0</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="mi">0</span>
-<span class="p">(</span><span class="nf">atanh</span> <span class="mf">0.0</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="mi">0</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(radians&#8594;degrees r)</code></strong><br>
-<strong><code>(degrees&#8594;radians d)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures convert angles from radians into degrees and
-from degrees into radians.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(sqrt z)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the principal square root of <code>z</code>. The result will have either
-positive real part, or zero real part and non-negative imaginary part.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(square z)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the square of <code>z</code>. This is equivalent to <code>(* z z)</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">square</span> <span class="mi">42</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mi">1764</span>
-<span class="p">(</span><span class="nf">square</span> <span class="mf">2.0</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="mf">4.0</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(exact-integer-sqrt k)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns two non negatives integers <code>s</code> and <code>r</code> where
-<code>k=s<strong>2+r</code> and <code>k&lt;(s+1)</strong>2</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">exact-integer-sqrt</span> <span class="mi">4</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mi">2</span> <span class="mi">0</span>
-<span class="p">(</span><span class="nf">exact-integer-sqrt</span> <span class="mi">5</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mi">2</span> <span class="mi">1</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(expt z1 z2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>z1</code> raised to the power <code>z2</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<code>0,(sup "z")</code> is 1 if <code>z = 0</code> and <code>0</code> otherwise.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-rectangular x1 x2)</code></strong><br>
-<strong><code>(make-polar x3 x)</code></strong><br>
-<strong><code>(real-part z)</code></strong><br>
-<strong><code>(imag-part z)</code></strong><br>
-<strong><code>(magnitude z)</code></strong><br>
-<strong><code>(angle z)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>If x1, x2, x3, and x4 are real numbers and z is a complex number such that</p>
-</div>
-<div class="paragraph">
-<p><code>z = x1 + x2.i = x3 . e,(sup "i.x4")</code></p>
-</div>
-<div class="paragraph">
-<p>Then</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">make-rectangular</span> <span class="nv">x1</span> <span class="nv">x2</span><span class="p">)</span>       <span class="nv">=&gt;</span> <span class="nv">z</span>
-<span class="p">(</span><span class="nb">make-polar</span> <span class="nv">x3</span> <span class="nv">x4</span><span class="p">)</span>             <span class="nv">=&gt;</span> <span class="nv">z</span>
-<span class="p">(</span><span class="nb">real-part</span> <span class="nv">z</span><span class="p">)</span>                  <span class="nv">=&gt;</span> <span class="nv">x1</span>
-<span class="p">(</span><span class="nb">imag-part</span> <span class="nv">z</span><span class="p">)</span>                  <span class="nv">=&gt;</span> <span class="nv">x2</span>
-<span class="p">(</span><span class="nb">magnitude</span> <span class="nv">z</span><span class="p">)</span>                  <span class="nv">=&gt;</span> <span class="nv">abs</span><span class="p">(</span><span class="nf">x3</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">angle</span> <span class="nv">z</span><span class="p">)</span>                      <span class="nv">=&gt;</span> <span class="nv">xa</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>where
-<code>-,(symbol "pi") &lt; xa &#8656; ,(symbol "pi")</code> with <code>xa = x4 + 2,(symbol "pi")n</code>
-for some integer n.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">angle</span> <span class="m">+inf.0</span><span class="p">)</span>                 <span class="nv">=&gt;</span> <span class="mf">0.0</span>
-<span class="p">(</span><span class="nb">angle</span> <span class="m">-inf.0</span><span class="p">)</span>                 <span class="nv">=&gt;</span> <span class="mf">3.14159265358979</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<code>Magnitude</code> is the same as <code>abs</code> for a real argument.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(exact&#8594;inexact z)</code></strong><br>
-<strong><code>(inexact&#8594;exact z)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Exact&#8594;inexact</code> returns an inexact representation of z.
-The value returned is the inexact number that is numerically closest to
-the argument.
-<code>Inexact&#8594;exact</code> returns an exact representation of z.
-The value returned is the exact number that is numerically closest to
-the argument.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(number&#8594;string z)</code></strong><br>
-<strong><code>(number&#8594;string z radix)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Radix</code> must be an exact integer, either 2, 8, 10, or 16. If omitted, radix
-defaults to 10. The procedure <code>number&#8594;string</code> takes a number and a radix
-and returns as a string an external representation of the given number in
-the given radix such that</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">number</span> <span class="nv">number</span><span class="p">)</span>
-      <span class="p">(</span><span class="nf">radix</span> <span class="nv">radix</span><span class="p">))</span>
-  <span class="p">(</span><span class="nb">eqv?</span> <span class="nv">number</span>
-       <span class="p">(</span><span class="nb">string-&gt;number</span> <span class="p">(</span><span class="nb">number-&gt;string</span> <span class="nv">number</span> <span class="nv">radix</span><span class="p">)</span> <span class="nv">radix</span><span class="p">)))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is true. It is an error if no possible result makes this expression true.</p>
-</div>
-<div class="paragraph">
-<p>If <code>z</code> is inexact, the radix is 10, and the above expression can be
-satisfied by a result that contains a decimal point, then the result
-contains a decimal point and is expressed using the minimum number of digits
-(exclusive of exponent and trailing zeroes) needed to make the above expression
-true; otherwise the format of the result is unspecified.</p>
-</div>
-<div class="paragraph">
-<p>The result returned by <code>number&#8594;string</code> never contains an explicit radix
-prefix.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The error case can occur only when <code>z</code> is not a complex number or
-is a complex number with a non-rational real or imaginary part.
-</td>
-</tr>
-</table>
-</div>
-<div class="admonitionblock important">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-important" title="Important"></i>
-</td>
-<td class="content">
-If <code>z</code> is an inexact number represented using flonums, and
-the radix is 10, then the above expression is normally satisfied by a result
-containing a decimal point. The unspecified case allows for infinities,
-NaNs, and non-flonum representations.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string&#8594;number string)</code></strong><br>
-<strong><code>(string&#8594;number string radix)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a number of the maximally precise representation expressed by the
-given <code>string</code>. <code>Radix</code> must be an exact integer, either 2, 8, 10, or 16.
-If supplied, <code>radix</code> is a default radix that may be overridden by an explicit
-radix prefix in <code>string</code> (e.g. ,(code ""#o177"")). If <code>radix</code> is not
- supplied, then
-the default radix is 10. If <code>string</code> is not a syntactically valid notation
-for a number, then <code>string&#8594;number</code> returns <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">string-&gt;number</span> <span class="s">"100"</span><span class="p">)</span>        <span class="nv">=&gt;</span>  <span class="mi">100</span>
-<span class="p">(</span><span class="nb">string-&gt;number</span> <span class="s">"100"</span> <span class="mi">16</span><span class="p">)</span>     <span class="nv">=&gt;</span>  <span class="mi">256</span>
-<span class="p">(</span><span class="nb">string-&gt;number</span> <span class="s">"1e2"</span><span class="p">)</span>        <span class="nv">=&gt;</span>  <span class="mf">100.0</span>
-<span class="p">(</span><span class="nb">string-&gt;number</span> <span class="s">"15##"</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="mf">1500.0</span>
-<span class="p">(</span><span class="nb">string-&gt;number</span> <span class="s">"+inf.0"</span><span class="p">)</span>     <span class="nv">=&gt;</span>  <span class="m">+inf.0</span>
-<span class="p">(</span><span class="nb">string-&gt;number</span> <span class="s">"-inf.0"</span><span class="p">)</span>     <span class="nv">=&gt;</span>  <span class="m">-inf.0</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bit-and n1 n2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(bit-or n1 n2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(bit-xor n1 n2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(bit-not n)</code></strong><br>
-<strong><code>(bit-shift n m)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures allow the manipulation of integers as bit fields.
-The integers can be of arbitrary length. <code>Bit-and</code>, <code>bit-or</code> and
-<code>bit-xor</code> respectively compute the bitwise ,(emph "and"), inclusive and
-exclusive ,(emph "or"). <code>bit-not</code> returns the bitwise ,(emph "not") of <code>n</code>.
-<code>bit-shift</code> returns the bitwise ,(emph "shift") of <code>n</code>. The integer <code>n</code>
-is shifted left by <code>m</code> bits; If <code>m</code> is negative, <code>n</code> is shifted right by
-<code>-m</code> bits.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">bit-or</span> <span class="mi">5</span> <span class="mi">3</span><span class="p">)</span>       <span class="nv">=&gt;</span> <span class="mi">7</span>
-<span class="p">(</span><span class="nf">bit-xor</span> <span class="mi">5</span> <span class="mi">3</span><span class="p">)</span>      <span class="nv">=&gt;</span> <span class="mi">6</span>
-<span class="p">(</span><span class="nf">bit-and</span> <span class="mi">5</span> <span class="mi">3</span><span class="p">)</span>      <span class="nv">=&gt;</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">bit-not</span> <span class="mi">5</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="mi">-6</span>
-<span class="p">(</span><span class="nf">bit-or</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">4</span> <span class="mi">8</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="mi">15</span>
-<span class="p">(</span><span class="nf">bit-shift</span> <span class="mi">5</span> <span class="mi">3</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="mi">40</span>
-<span class="p">(</span><span class="nf">bit-shift</span> <span class="mi">5</span> <span class="mi">-1</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="mi">2</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(random-integer n)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return an integer in the range [0, &#8230;&#8203;, <code>n</code>[.  Subsequent results of
-this procedure appear to be independent uniformly distributed over
-the range [0, &#8230;&#8203;, <code>n</code>[. The argument <code>n</code> must be a positive integer,
-otherwise an error is signaled. This function is equivalent to the eponym
-function of <strong><a href="http://srfi.schemers.org/srfi-27/srfi-27.html">SRFI-27</a></strong> (<em>Source of random bits</em>).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(random-real)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return a real number <code>r</code> such that <code>0 &lt; r &lt; 1</code>.
-Subsequent results of this procedure appear to be independent uniformly
-distributed. This function is equivalent to the eponym
-function of  <strong><a href="http://srfi.schemers.org/srfi-27/srfi-27.html">SRFI-27</a></strong> (<em>Source of random bits</em>).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(decode-float n)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>decode-float</code> returns three exact integers: <code>significand</code>, <code>exponent</code>
-and <code>sign</code> (where <code>-1 &#8656; sign &#8656; 1</code>). The values returned by
-<code>decode-float</code> satisfy:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="nv">n</span> <span class="nv">=</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">sign</span> <span class="nv">significand</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">2</span> <span class="nv">exponent</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Here is an example of <code>decode-float</code> usage.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">receive</span> <span class="nv">l</span> <span class="p">(</span><span class="nf">decode-float</span> <span class="mf">-1.234</span><span class="p">)</span> <span class="nv">l</span><span class="p">)</span>
-                    <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">5557441940175192</span> <span class="mi">-52</span> <span class="mi">-1</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">exact-&gt;inexact</span> <span class="p">(</span><span class="nb">*</span> <span class="mi">-1</span>
-                    <span class="mi">5557441940175192</span>
-                    <span class="p">(</span><span class="nb">expt</span> <span class="mi">2</span> <span class="mi">-52</span><span class="p">)))</span>
-                    <span class="nv">=&gt;</span> <span class="mf">-1.234</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(encode-float significand exponent sign)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>encode-float</code> does the inverse work of <code>decode-float</code>: it accepts three
-numbers, <code>significand</code>, <code>exponent</code> and <code>sign</code>, and returns the floating
-point number represented by them.</p>
-</div>
-<div class="paragraph">
-<p>When <code>significand</code> is <code>#f</code>, a NaN will be returned.
-When <code>significand</code> is <code>#t</code>, positive or negative infinity is returned,
-depending on the value of <code>sign</code>.</p>
-</div>
-<div class="paragraph">
-<p>Otherwise, the number returned is</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="nv">n</span> <span class="nv">=</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">sign</span> <span class="nv">significand</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">2</span> <span class="nv">exponent</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Both <code>significand</code> and <code>exponent</code> must be within their proper ranges:</p>
-</div>
-<div class="paragraph">
-<p>0 &lt; <code>significand</code> &#8656; <code>float-max-significand</code>, and</p>
-</div>
-<div class="paragraph">
-<p><code>float-min-exponent</code> &#8656; <code>exponent</code> &#8656;  <code>float-max-exponent</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">encode-float</span> <span class="p">(</span><span class="no">#t</span> <span class="mi">0</span>  <span class="mi">1</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="m">+inf.0</span>
-<span class="p">(</span><span class="nf">encode-float</span> <span class="p">(</span><span class="no">#t</span> <span class="mi">0</span> <span class="mi">-1</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="m">-inf.0</span>
-<span class="p">(</span><span class="nf">encode-float</span> <span class="p">(</span><span class="no">#f</span> <span class="mi">0</span>  <span class="mi">1</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="nv">+nan</span><span class="o">.</span><span class="mi">0</span>
-
-<span class="p">(</span><span class="nf">decode-float</span> <span class="mf">-0.01</span><span class="p">)</span>
-<span class="nv">=&gt;</span> <span class="mi">5764607523034235</span>
-<span class="nv">=&gt;</span> <span class="mi">-59</span>
-<span class="nv">=&gt;</span> <span class="mi">-1</span>
-<span class="p">(</span><span class="nf">inexact</span> <span class="p">(</span><span class="nf">encode-float</span> <span class="mi">5764607523034235</span> <span class="mi">-59</span> <span class="mi">-1</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mf">-0.01</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(float-max-significand)</code></strong><br>
-<strong><code>(float-min-exponent)</code></strong><br>
-<strong><code>(float-max-exponent)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return the maximum significand value and the
-minimum and maximum values for the exponent when calling
-the <code>encode-float</code> procedure.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(integer-length n)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Integer-length</code> returns the necessary number of bits to represent <code>n</code>
-in 2&#8217;s complement, assuming a leading 1 bit when <code>n</code> is negative. When
-<code>n</code> is zero, the procedure returns zero.
-This procedure works for any type of integer (fixnums and bignums).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">integer-length</span> <span class="mi">-3</span><span class="p">)</span>            <span class="nv">=&gt;</span> <span class="mi">2</span>
-<span class="p">(</span><span class="nf">integer-length</span> <span class="mi">-2</span><span class="p">)</span>            <span class="nv">=&gt;</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">integer-length</span> <span class="mi">-1</span><span class="p">)</span>            <span class="nv">=&gt;</span> <span class="mi">0</span>
-<span class="p">(</span><span class="nf">integer-length</span> <span class="mi">0</span><span class="p">)</span>             <span class="nv">=&gt;</span> <span class="mi">0</span>
-<span class="p">(</span><span class="nf">integer-length</span> <span class="mi">1</span><span class="p">)</span>             <span class="nv">=&gt;</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">integer-length</span> <span class="mi">2</span><span class="p">)</span>             <span class="nv">=&gt;</span> <span class="mi">2</span>
-<span class="p">(</span><span class="nf">integer-length</span> <span class="mi">3</span><span class="p">)</span>             <span class="nv">=&gt;</span> <span class="mi">2</span>
-<span class="p">(</span><span class="nf">integer-length</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">2</span> <span class="mi">5000</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mi">5001</span></code></pre>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_fixnums">4.2.1. Fixnums</h4>
-<div class="paragraph">
-<p>
-<strong><em>STklos</em></strong> defines small integers as fixnums. Operations on fixnums
-are generally faster than operations which accept general numbers.
-Fixnums operations, as described below, may produce results which are incorrect
-if some temporary computation falls outside the range of fixnum. These
-functions should be used only when speed really matters.</p>
-</div>
-<div class="paragraph">
-<p>The functions defined in this section are conform to the ones defined in
-<strong><a href="http://srfi.schemers.org/srfi-143/srfi-143.html">SRFI-143</a></strong> (<em>Fixnums</em>)</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fixnum? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if obj is an exact integer within the fixnum range,
-<code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fixnum-width)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the number of bits used to represent a fixnum number.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(least-fixnum)</code></strong><br>
-<strong><code>(greatest-fixnum)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return the minimum value and the maximum value of
-the fixnum range.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxzero? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>fxzero?</code> returns <code>#t</code> if <code>obj</code> is the fixnum zero and returns
-<code>#f</code> if it is a non-zero fixnum.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="nf">fxzero?</span> <span class="no">#f</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="nv">error</span>
-  <span class="p">(</span><span class="nf">fxzero?</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">100</span> <span class="mi">100</span><span class="p">))</span> <span class="nv">=&gt;</span>  <span class="nv">error</span>
-  <span class="p">(</span><span class="nf">fxzero?</span> <span class="mi">0</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nf">fxzero?</span> <span class="mi">1</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxpositive? obj)</code></strong><br>
-<strong><code>(fxnegative? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>fxpositive?</code> returns <code>#t</code> if <code>obj</code> is a positive fixnum and returns
-<code>#f</code> if it is a non-positive fixnum. <code>fxnegative?</code> can be used to test
-if a fixnum is negative.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="nf">fxpositive?</span> <span class="no">#f</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="nv">error</span>
-  <span class="p">(</span><span class="nf">fxpositive?</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">100</span> <span class="mi">100</span><span class="p">))</span> <span class="nv">=&gt;</span>  <span class="nv">error</span>
-  <span class="p">(</span><span class="nf">fxpositive?</span> <span class="mi">0</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nf">fxpositive?</span> <span class="mi">1</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nf">fxpositive?</span> <span class="mi">-1</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nf">fxnegative?</span> <span class="mi">0</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nf">fxnegative?</span> <span class="mi">1</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nf">fxnegative?</span> <span class="mi">-1</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxodd? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>fxodd?</code> returns <code>#t</code> if <code>obj</code> is a odd fixnum and returns
-<code>#f</code> if it is an even fixnum.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="nf">fxodd?</span> <span class="no">#f</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="nv">error</span>
-  <span class="p">(</span><span class="nf">fxodd?</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">100</span> <span class="mi">100</span><span class="p">))</span> <span class="nv">=&gt;</span>  <span class="nv">error</span>
-  <span class="p">(</span><span class="nf">fxodd?</span> <span class="mi">0</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nf">fxodd?</span> <span class="mi">1</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nf">fxodd?</span> <span class="mi">4</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nf">fxeven?</span> <span class="mi">0</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nf">fxeven?</span> <span class="mi">1</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nf">fxeven?</span> <span class="mi">4</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fx+ fx1 fx2)</code></strong><br>
-<strong><code>(fx- fx1 fx2)</code></strong><br>
-<strong><code>(fx</strong> fx1 fx2)</code>*<br>
-<strong><code>(fxquotient fx1 fx2)</code></strong><br>
-<strong><code>(fxremainder fx1 fx2)</code></strong><br>
-<strong><code>(fxmodulo fx1 fx2)</code></strong><br>
-<strong><code>(fxabs fx)</code></strong><br>
-<strong><code>(fxneg fx)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures compute (respectively) the sum, the difference, the product,
-the quotient and the remainder and modulo of the fixnums <code>fx1</code> and <code>fx2</code>.
-The call of  <code>fx-</code> with one parameter <code>fx</code> computes the opposite of <code>fx</code>, and
-is equivalent in a call of <code>fxneg</code> with this parameter. <code>fxabs</code>
-computes the absolute value of <code>fx</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxsquare fx1)</code></strong><br>
-<strong><code>(fxsqrt fx1)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures compute (respectively) the square and the square root
-of the fixnum <code>fx1</code>.
-<code>fxsqrt</code> id semantically equivalent to exact-integer-sqrt (not sqrt), so
-that <code>(fxsqrt n)</code> returns two values <code>a</code>, <code>b</code>, such that <code>a*a+b</code>=<code>n</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="nf">fxsqrt</span> <span class="no">#f</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="nv">error</span>
-  <span class="p">(</span><span class="nf">fxsqrt</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">100</span> <span class="mi">100</span><span class="p">))</span> <span class="nv">=&gt;</span>  <span class="nv">error</span>
-  <span class="p">(</span><span class="nf">fxsqrt</span> <span class="mi">-1</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="nv">error</span>
-  <span class="p">(</span><span class="nf">fxsqrt</span> <span class="mi">0</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="mi">0</span><span class="o">,</span> <span class="mi">0</span>
-  <span class="p">(</span><span class="nf">fxsqrt</span> <span class="mi">1</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="mi">1</span><span class="o">,</span> <span class="mi">0</span>
-  <span class="p">(</span><span class="nf">fxsqrt</span> <span class="mi">6</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="mi">2</span><span class="o">,</span> <span class="mi">2</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxmax fx1 fx2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(fxmin fx1 fx2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return the maximum or minimum of their fixnum arguments.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxmax</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span>              <span class="nv">=&gt;</span>  <span class="mi">4</span>
-<span class="p">(</span><span class="nf">fxmax</span> <span class="mf">3.9</span> <span class="mi">4</span><span class="p">)</span>            <span class="nv">=&gt;</span>  <span class="nv">error</span>
-<span class="p">(</span><span class="nf">fxmax</span><span class="p">)</span>                  <span class="nv">=&gt;</span>  <span class="nv">error</span>
-<span class="p">(</span><span class="nf">fxmax</span> <span class="mi">2</span> <span class="mi">-1</span> <span class="mi">3</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="mi">3</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fx&lt;? fx1 fx2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(fx&#8656;? fx1 fx2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(fx&gt;? fx1 fx2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(fx&gt;=? fx1 fx2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(fx=? fx1 fx2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These are SRFI-143 procedures that compare the fixnums <code>fx1</code>, <code>fx2</code>, and so on.
-<code>fx&lt;?</code> and <code>fx&gt;?</code> return <code>#t</code> if the arguments are in strictly
-increasing/decreasing order;
-<code>fx&#8656;?</code> and <code>fx&gt;=?</code> do the same, but admit equal neighbors;
-<code>fx=?</code> returns <code>#t</code> if the arguments are all equal.</p>
-</div>
-<div class="paragraph">
-<p>
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxnot fx1)</code></strong><br>
-<strong><code>(fxand fx &#8230;&#8203;)</code></strong><br>
-<strong><code>(fxior fx &#8230;&#8203;)</code></strong><br>
-<strong><code>(fxxor fx &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures are specified in SRFI-143, and they return
-(respectively) the bitwise not, and, inclusive or and exclusive
-or of their arguments, which must be fixnums.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxnot</span> <span class="mi">1</span><span class="p">)</span>              <span class="nv">=&gt;</span> <span class="mi">-2</span>
-<span class="p">(</span><span class="nf">fxnot</span> <span class="mi">0</span><span class="p">)</span>              <span class="nv">=&gt;</span> <span class="mi">-1</span>
-<span class="p">(</span><span class="nf">fxand</span> <span class="mh">#x1010</span> <span class="mh">#x1011</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mi">4112</span>  <span class="c1">; = #x1010</span>
-<span class="p">(</span><span class="nf">fxior</span> <span class="mh">#x1010</span> <span class="mh">#x1011</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mi">4113</span>  <span class="c1">; = #x1011</span>
-<span class="p">(</span><span class="nf">fxxor</span> <span class="mh">#x1010</span> <span class="mh">#x1011</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mi">1</span>     <span class="c1">; = #x0001</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxarithmetic-shift-right fx count)</code></strong><br>
-<strong><code>(fxarithmetic-shift-left fx count)</code></strong><br>
-<strong><code>(fxarithmetic-shift fx count)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures are specified in SRFI-143, and they perform
-bitwise right-shift, left-shft and shift with arbitrary direction
-on fixnums. The strictly left and right shifts are more efficient.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxarithmetic-shift-right</span> <span class="mb">#b100110</span> <span class="mi">3</span><span class="p">)</span> <span class="nv">=&gt;</span>   <span class="mi">4</span> <span class="c1">; = #b100</span>
-<span class="p">(</span><span class="nf">fxarithmetic-shift-left</span>  <span class="mb">#b100110</span> <span class="mi">3</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">304</span> <span class="c1">; = #b100110000</span>
-<span class="p">(</span><span class="nf">fxarithmetic-shift</span> <span class="mb">#b101</span> <span class="mi">2</span><span class="p">)</span>          <span class="nv">=&gt;</span> <span class="mi">20</span>  <span class="c1">; = #b10100</span>
-<span class="p">(</span><span class="nf">fxarithmetic-shift</span> <span class="mb">#b101</span> <span class="mi">-2</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="mi">1</span>  <span class="c1">; =#b1</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxlength fx)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This is a SRFI-143 procedure that returns the length of the fixnum in
-bits (that is, the number of bits necessary to represent the number).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxlength</span> <span class="mb">#b101</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="mi">3</span>
-<span class="p">(</span><span class="nf">fxlength</span> <span class="mb">#b1101</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="mi">4</span>
-<span class="p">(</span><span class="nf">fxlength</span> <span class="mb">#b0101</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="mi">3</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxif mask fx1 fx2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This is a SRFI-143 procedure that merge the fixnum bitstrings <code>fx1</code> and <code>fx2</code>, with
-bitstring  mask determining from which string to take each bit. That is, if the kth bit
-of mask is 1, then the kth bit of the result is the kth bit of <code>fx1</code>, otherwise the kth
-bit of <code>fx2</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxif</span> <span class="mi">3</span> <span class="mi">1</span> <span class="mi">8</span><span class="p">)</span>                            <span class="nv">=&gt;</span> <span class="mi">9</span>
-<span class="p">(</span><span class="nf">fxif</span> <span class="mi">3</span> <span class="mi">8</span> <span class="mi">1</span><span class="p">)</span>                            <span class="nv">=&gt;</span> <span class="mi">0</span>
-<span class="p">(</span><span class="nf">fxif</span> <span class="mi">1</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span>                            <span class="nv">=&gt;</span> <span class="mi">3</span>
-<span class="p">(</span><span class="nf">fxif</span> <span class="mb">#b00111100</span> <span class="mb">#b11110000</span> <span class="mb">#b00001111</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mb">#b00110011</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxbit-set? index fx)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This is a SRFI-143 procedure that returns <code>#t</code> if the <code>index</code>-th bit of
-<code>fx</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxbit-set?</span> <span class="mi">1</span> <span class="mi">3</span><span class="p">)</span>          <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">fxbit-set?</span> <span class="mi">2</span> <span class="mi">7</span><span class="p">)</span>          <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">fxbit-set?</span> <span class="mi">3</span> <span class="mi">6</span><span class="p">)</span>          <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">fxbit-set?</span> <span class="mi">5</span> <span class="mb">#b00111100</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxcopy-bit index fx value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This is a SRFI-143 procedure that sets the <code>index</code>-th bit if <code>fx</code>
-to one if <code>value</code> is <code>#t</code>, and to zero if <code>value</code> is <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxcopy-bit</span> <span class="mi">2</span> <span class="mi">3</span> <span class="no">#t</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="mi">7</span>
-<span class="p">(</span><span class="nf">fxcopy-bit</span> <span class="mi">2</span> <span class="mi">7</span> <span class="no">#f</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="mi">3</span>
-<span class="p">(</span><span class="nf">fxcopy-bit</span> <span class="mi">5</span> <span class="mb">#b00111100</span> <span class="no">#f</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">28</span> <span class="c1">; = #b00011100</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxbit-count fx1)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This is a SRFI-143 procedure that returns the quantity of bits equal to one in
-the fixnum <code>fx</code> (that is, computes its Hamming weight).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxbit-count</span> <span class="mi">8</span><span class="p">)</span>                         <span class="nv">=&gt;</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">fxbit-count</span> <span class="mi">3</span><span class="p">)</span>                         <span class="nv">=&gt;</span> <span class="mi">2</span>
-<span class="p">(</span><span class="nf">fxbit-count</span> <span class="mi">7</span><span class="p">)</span>                         <span class="nv">=&gt;</span> <span class="mi">3</span>
-<span class="p">(</span><span class="nf">fxbit-count</span> <span class="mb">#b00111010</span><span class="p">)</span>                <span class="nv">=&gt;</span> <span class="mi">4</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxfirst-set-bit fx1)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This is a SRFI-143 procedure that returns the index of the first (smallest index)
-1 bit in bitstring <code>fx</code>. Returns -1 if <code>fx</code> contains no 1 bits (i.e., if <code>fx</code>
-is zero).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxfirst-set-bit</span>  <span class="mi">8</span><span class="p">)</span>                         <span class="nv">=&gt;</span> <span class="mi">3</span>
-<span class="p">(</span><span class="nf">fxfirst-set-bit</span>  <span class="mi">3</span><span class="p">)</span>                         <span class="nv">=&gt;</span> <span class="mi">0</span>
-<span class="p">(</span><span class="nf">fxfirst-set-bit</span>  <span class="mi">7</span><span class="p">)</span>                         <span class="nv">=&gt;</span> <span class="mi">0</span>
-<span class="p">(</span><span class="nf">fxfirst-set-bit</span>  <span class="mb">#b10110000</span><span class="p">)</span>                <span class="nv">=&gt;</span> <span class="mi">4</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxbit-field fx1 start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This is a SRFI-143 procedure that extracts a bit field from the fixnum <code>fx1</code>.
-The bit field is the sequence of bits between <code>start</code> (including) and <code>end</code>
-(excluding)</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxbit-field</span>  <span class="mb">#b10110000</span> <span class="mi">3</span> <span class="mi">5</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mi">6</span> <span class="c1">; = #b110</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxbit-field-rotate fx)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This is a SRFI-143 procedure that returns fx with the field cyclically permuted
-by count bits towards high-order.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxbit-field-rotate</span> <span class="mb">#b101011100</span> <span class="mi">-2</span> <span class="mi">1</span> <span class="mi">5</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mi">342</span>  <span class="nv">=</span> <span class="mb">#b101010110</span>
-<span class="p">(</span><span class="nf">fxbit-field-rotate</span> <span class="mb">#b101011011110</span> <span class="mi">-3</span> <span class="mi">2</span> <span class="mi">10</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">3034</span> <span class="nv">=</span> <span class="mb">#b101111011010</span>
-<span class="p">(</span><span class="nf">fxbit-field-rotate</span> <span class="mb">#b101011011110</span> <span class="mi">3</span> <span class="mi">2</span> <span class="mi">10</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mi">2806</span> <span class="nv">=</span> <span class="mb">#b101011110110</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fxbit-field-reverse fx)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This is a SRFI-143 procedure that returns fx with the order of the bits in the
-field reversed.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">fxbit-field-reverse</span> <span class="mb">#b101011100</span> <span class="mi">1</span> <span class="mi">5</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mb">#b101001110</span>
-<span class="p">(</span><span class="nf">fxbit-field-reverse</span> <span class="mb">#b101011011110</span> <span class="mi">2</span> <span class="mi">10</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mb">#b101110110110</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fx+/carry i j k)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns two values: <code>i</code>`j`<code>k</code>, and carry: it is the value of the computation</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">let*-values</span> <span class="p">(((</span><span class="nf">s</span><span class="p">)</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">i</span> <span class="nv">j</span> <span class="nv">k</span><span class="p">))</span>
-              <span class="p">((</span><span class="nf">q</span> <span class="nv">r</span><span class="p">)</span> <span class="p">(</span><span class="nf">balanced/</span> <span class="nv">s</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">2</span> <span class="nv">fx-width</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nb">values</span> <span class="nv">r</span> <span class="nv">q</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fx-/carry i j k)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns two values: <code>i</code>-<code>j</code>-<code>k</code>, and carry: it is the value of the computation</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">let*-values</span> <span class="p">(((</span><span class="nf">s</span><span class="p">)</span> <span class="p">(</span><span class="nb">-</span> <span class="nv">i</span> <span class="nv">j</span> <span class="nv">k</span><span class="p">))</span>
-              <span class="p">((</span><span class="nf">q</span> <span class="nv">r</span><span class="p">)</span> <span class="p">(</span><span class="nf">balanced/</span> <span class="nv">s</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">2</span> <span class="nv">fx-width</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nb">values</span> <span class="nv">r</span> <span class="nv">q</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fx</strong>/carry i j k)</code>*<br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns two values: <code>i</code>*<code>j</code>+<code>k</code>, and carry: it is the value of the computation</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">let*-values</span> <span class="p">(((</span><span class="nf">s</span><span class="p">)</span> <span class="p">(</span><span class="nb">+</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">i</span> <span class="nv">j</span><span class="p">)</span> <span class="nv">k</span><span class="p">))</span>
-              <span class="p">((</span><span class="nf">q</span> <span class="nv">r</span><span class="p">)</span> <span class="p">(</span><span class="nf">balanced/</span> <span class="nv">s</span> <span class="p">(</span><span class="nb">expt</span> <span class="mi">2</span> <span class="nv">fx-width</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nb">values</span> <span class="nv">r</span> <span class="nv">q</span><span class="p">))</span></code></pre>
-</div>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_booleans">4.3. Booleans</h3>
-<div class="paragraph">
-<p>
-
-
-Of all the standard Scheme values, only <code>#f</code> counts as false in
-conditional expressions.  Except for <code>#f</code>, all standard Scheme values,
-including <code>#t</code>, pairs, the empty list, symbols, numbers, strings,
-vectors, and procedures, count as true.</p>
-</div>
-<div class="paragraph">
-<p>Boolean constants evaluate to themselves, so they do not need to be
-quoted in programs.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(not obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Not returns <code>#t</code> if <code>obj</code> is false, and returns <code>#f</code> otherwise.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="nb">not</span> <span class="no">#t</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nb">not</span> <span class="mi">3</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nb">not</span> <span class="p">(</span><span class="nb">list</span> <span class="mi">3</span><span class="p">))</span>   <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nb">not</span> <span class="no">#f</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nb">not</span> <span class="o">'</span><span class="p">())</span>        <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nb">not</span> <span class="p">(</span><span class="nb">list</span><span class="p">))</span>     <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nb">not</span> <span class="ss">'nil</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(boolean? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Boolean?</code> returns <code>#t</code> if <code>obj</code> is either <code>#t</code> or <code>#f</code> and returns
-<code>#f</code> otherwise.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="p">(</span><span class="nb">boolean?</span> <span class="no">#f</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="no">#t</span>
-  <span class="p">(</span><span class="nb">boolean?</span> <span class="mi">0</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="no">#f</span>
-  <span class="p">(</span><span class="nb">boolean?</span> <span class="o">'</span><span class="p">())</span>        <span class="nv">=&gt;</span>  <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(boolean=? boolean1 boolean2  &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if all the arguments are booleans and all are <code>#t</code> or all are <code>#f</code>.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_pairs_and_lists">4.4. Pairs and lists</h3>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(pair? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Pair?</code> returns <code>#t</code> if <code>obj</code> is a pair, and otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(cons obj1 obj2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated pair whose car is obj1 and whose cdr is obj2.
-The pair is guaranteed to be different (in the sense of eqv?) from every
-existing object.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">    <span class="p">(</span><span class="nb">cons</span> <span class="ss">'a</span> <span class="o">'</span><span class="p">())</span>           <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span><span class="p">)</span>
-    <span class="p">(</span><span class="nb">cons</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span><span class="p">)</span> <span class="o">'</span><span class="p">(</span><span class="nf">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">))</span>    <span class="nv">=&gt;</span>  <span class="p">((</span><span class="nf">a</span><span class="p">)</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">)</span>
-    <span class="p">(</span><span class="nb">cons</span> <span class="s">"a"</span> <span class="o">'</span><span class="p">(</span><span class="nf">b</span> <span class="nv">c</span><span class="p">))</span>       <span class="nv">=&gt;</span>  <span class="p">(</span><span class="s">"a"</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span>
-    <span class="p">(</span><span class="nb">cons</span> <span class="ss">'a</span> <span class="mi">3</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="o">.</span> <span class="mi">3</span><span class="p">)</span>
-    <span class="p">(</span><span class="nb">cons</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)</span> <span class="ss">'c</span><span class="p">)</span>        <span class="nv">=&gt;</span>  <span class="p">((</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)</span> <span class="o">.</span> <span class="nv">c</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(car pair)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the contents of the car field of pair.
-Note that it is an error to take the <code>car</code> of the empty list.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">    <span class="p">(</span><span class="nb">car</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>          <span class="nv">=&gt;</span>  <span class="nv">a</span>
-    <span class="p">(</span><span class="nb">car</span> <span class="o">'</span><span class="p">((</span><span class="nf">a</span><span class="p">)</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">))</span>      <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span><span class="p">)</span>
-    <span class="p">(</span><span class="nb">car</span> <span class="o">'</span><span class="p">(</span><span class="nf">1</span> <span class="o">.</span> <span class="mi">2</span><span class="p">))</span>          <span class="nv">=&gt;</span>  <span class="mi">1</span>
-    <span class="p">(</span><span class="nb">car</span> <span class="o">'</span><span class="p">())</span>               <span class="nv">=&gt;</span>  <span class="nv">error</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(cdr pair)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the contents of the cdr field of pair.
-Note that it is an error to take the <code>cdr</code> of the empty list.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">    <span class="p">(</span><span class="nb">cdr</span> <span class="o">'</span><span class="p">((</span><span class="nf">a</span><span class="p">)</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">))</span>      <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">)</span>
-    <span class="p">(</span><span class="nb">cdr</span> <span class="o">'</span><span class="p">(</span><span class="nf">1</span> <span class="o">.</span> <span class="mi">2</span><span class="p">))</span>          <span class="nv">=&gt;</span>  <span class="mi">2</span>
-    <span class="p">(</span><span class="nb">cdr</span> <span class="o">'</span><span class="p">())</span>               <span class="nv">=&gt;</span>  <span class="nv">error</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(set-car! pair obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Stores <code>obj</code> in the car field of <code>pair</code>.
-The value returned by <code>set-car!</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">f</span><span class="p">)</span> <span class="p">(</span><span class="nb">list</span> <span class="ss">'not-a-constant-list</span><span class="p">))</span>
-   <span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">g</span><span class="p">)</span> <span class="o">'</span><span class="p">(</span><span class="nf">constant-list</span><span class="p">))</span>
-   <span class="p">(</span><span class="nb">set-car!</span> <span class="p">(</span><span class="nf">f</span><span class="p">)</span> <span class="mi">3</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">set-car!</span> <span class="p">(</span><span class="nf">g</span><span class="p">)</span> <span class="mi">3</span><span class="p">)</span>             <span class="nv">=&gt;</span>  <span class="nv">error</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(set-cdr! pair obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Stores <code>obj</code> in the cdr field of <code>pair</code>.
-The value returned by <code>set-cdr!</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(caar pair)</code></strong><br>
-<strong><code>(cadr pair)</code></strong><br>
-<strong><code>&#8230;&#8203;</code></strong><br>
-<strong><code>(cdddar pair)</code></strong><br>
-<strong><code>(cddddr pair)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures are compositions of <code>car</code> and <code>cdr</code>, where for example
-<code>caddr</code> could be defined by</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="k">define</span> <span class="nv">caddr</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">car</span> <span class="p">(</span><span class="nb">cdr</span> <span class="p">(</span><span class="nb">cdr</span> <span class="nv">x</span><span class="p">)))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Arbitrary compositions, up to four deep, are provided.
-There are twenty-eight of these procedures in all.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(null? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is the empty list, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(pair-mutable? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a mutable pair, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">pair-mutable?</span> <span class="o">'</span><span class="p">(</span><span class="nf">1</span> <span class="o">.</span> <span class="mi">2</span><span class="p">))</span>    <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">pair-mutable?</span> <span class="p">(</span><span class="nb">cons</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span>  <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">pair-mutable?</span> <span class="mi">12</span><span class="p">)</span>          <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(list? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a list, otherwise returns <code>#f</code>. By definition,
-all lists have finite length and are terminated by the empty list.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nb">list?</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>     <span class="nv">=&gt;</span>  <span class="no">#t</span>
-   <span class="p">(</span><span class="nb">list?</span> <span class="o">'</span><span class="p">())</span>          <span class="nv">=&gt;</span>  <span class="no">#t</span>
-   <span class="p">(</span><span class="nb">list?</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="o">.</span> <span class="nv">b</span><span class="p">))</span>     <span class="nv">=&gt;</span>  <span class="no">#f</span>
-   <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">x</span> <span class="p">(</span><span class="nb">list</span> <span class="ss">'a</span><span class="p">)))</span>
-     <span class="p">(</span><span class="nb">set-cdr!</span> <span class="nv">x</span> <span class="nv">x</span><span class="p">)</span>
-     <span class="p">(</span><span class="nb">list?</span> <span class="nv">x</span><span class="p">))</span>         <span class="nv">=&gt;</span>  <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-list k)</code></strong><br>
-<strong><code>(make-list k fill)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated list of k elements. If a second
-argument is given, then each element is initialized to fill .
-Otherwise the initial contents of each element is unspecified.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(list obj &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated list of its arguments.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nb">list</span> <span class="ss">'a</span> <span class="p">(</span><span class="nb">+</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span> <span class="ss">'c</span><span class="p">)</span>            <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="mi">7</span> <span class="nv">c</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">list</span><span class="p">)</span>                          <span class="nv">=&gt;</span>  <span class="p">()</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(list</strong> obj &#8230;&#8203;)</code>*<br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>list*</code> is like <code>list</code> except that the last argument to <code>list*</code> is
-used as the ,(emph "cdr") of the last pair constructed.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nf">list*</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="o">.</span> <span class="mi">3</span><span class="p">)</span>
-   <span class="p">(</span><span class="nf">list*</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="o">'</span><span class="p">(</span><span class="nf">4</span> <span class="mi">5</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">)</span>
-   <span class="p">(</span><span class="nf">list*</span><span class="p">)</span>              <span class="nv">=&gt;</span> <span class="p">()</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(length list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the length of <code>list</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nb">length</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>               <span class="nv">=&gt;</span>  <span class="mi">3</span>
-   <span class="p">(</span><span class="nb">length</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="p">(</span><span class="nf">b</span><span class="p">)</span> <span class="p">(</span><span class="nf">c</span> <span class="nv">d</span> <span class="nv">e</span><span class="p">)))</span>       <span class="nv">=&gt;</span>  <span class="mi">3</span>
-   <span class="p">(</span><span class="nb">length</span> <span class="o">'</span><span class="p">())</span>                    <span class="nv">=&gt;</span>  <span class="mi">0</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(append list &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a list consisting of the elements of the first list
-followed by the elements of the other lists.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nb">append</span> <span class="o">'</span><span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="o">'</span><span class="p">(</span><span class="nf">y</span><span class="p">))</span>              <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">append</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span><span class="p">)</span> <span class="o">'</span><span class="p">(</span><span class="nf">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">))</span>          <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">append</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="p">(</span><span class="nf">b</span><span class="p">))</span> <span class="o">'</span><span class="p">((</span><span class="nf">c</span><span class="p">)))</span>        <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="p">(</span><span class="nf">b</span><span class="p">)</span> <span class="p">(</span><span class="nf">c</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The resulting list is always newly allocated, except that it shares
-structure with the last list argument. The last argument may actually
-be any object; an improper list results if the last argument is not a
-proper list.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nb">append</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)</span> <span class="o">'</span><span class="p">(</span><span class="nf">c</span> <span class="o">.</span> <span class="nv">d</span><span class="p">))</span>        <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="o">.</span> <span class="nv">d</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">append</span> <span class="o">'</span><span class="p">()</span> <span class="ss">'a</span><span class="p">)</span>                 <span class="nv">=&gt;</span>  <span class="nv">a</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(append! list &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a list consisting of the elements of the first list
-followed by the elements of the other lists.
-Contrarily to <code>append</code>, the parameter lists (except the last one) are
-physically modified: their last pair is changed to the value of the next
-list in the <code>append!</code> formal parameter list.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">l1</span> <span class="p">(</span><span class="nb">list</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span>
-       <span class="p">(</span><span class="nf">l2</span> <span class="p">(</span><span class="nb">list</span> <span class="mi">3</span><span class="p">))</span>
-       <span class="p">(</span><span class="nf">l3</span> <span class="p">(</span><span class="nb">list</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">))</span>
-       <span class="p">(</span><span class="nf">l4</span> <span class="p">(</span><span class="nf">append!</span> <span class="nv">l1</span> <span class="nv">l2</span> <span class="nv">l3</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">list</span> <span class="nv">l1</span> <span class="nv">l2</span> <span class="nv">l3</span> <span class="nv">l4</span><span class="p">))</span>  <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">)</span> <span class="p">(</span><span class="nf">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">)</span> <span class="p">(</span><span class="nf">4</span> <span class="mi">5</span><span class="p">)</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>An error is signaled if one of the given lists is a constant list.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(reverse list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated list consisting of the elements of <code>list</code> in
-reverse order.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nb">reverse</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>              <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">c</span> <span class="nv">b</span> <span class="nv">a</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">reverse</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span><span class="p">)</span> <span class="nv">d</span> <span class="p">(</span><span class="nf">e</span> <span class="p">(</span><span class="nf">f</span><span class="p">))))</span>  <span class="nv">=&gt;</span>  <span class="p">((</span><span class="nf">e</span> <span class="p">(</span><span class="nf">f</span><span class="p">))</span> <span class="nv">d</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span><span class="p">)</span> <span class="nv">a</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(reverse! list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a list consisting of the elements of <code>list</code> in reverse order.
-Contrarily to <code>reverse</code>, the returned value is not newly allocated but
-computed "in place".</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">l</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">list</span> <span class="p">(</span><span class="nf">reverse!</span> <span class="nv">l</span><span class="p">)</span> <span class="nv">l</span><span class="p">))</span>        <span class="nv">=&gt;</span>  <span class="p">((</span><span class="nf">c</span> <span class="nv">b</span> <span class="nv">a</span><span class="p">)</span> <span class="p">(</span><span class="nf">a</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">reverse!</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">constant</span> <span class="nv">list</span><span class="p">))</span>   <span class="nv">=&gt;</span>  <span class="nv">error</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(list-tail list k)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the sublist of <code>list</code> obtained by omitting the first <code>k</code> elements.
-It is an error if list has fewer than <code>k</code> elements. List-tail could
-be defined by</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="k">define</span> <span class="nv">list-tail</span>
-      <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">k</span><span class="p">)</span>
-         <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">zero?</span> <span class="nv">k</span><span class="p">)</span>
-            <span class="nv">x</span>
-            <span class="p">(</span><span class="nb">list-tail</span> <span class="p">(</span><span class="nb">cdr</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">-</span> <span class="nv">k</span> <span class="mi">1</span><span class="p">)))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(last-pair list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the last pair of <code>list</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">last-pair</span> <span class="o">'</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">))</span>   <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">3</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">last-pair</span> <span class="o">'</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="o">.</span> <span class="mi">3</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">2</span> <span class="o">.</span> <span class="mi">3</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(list-ref list k)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the <code>k`th element of `list</code>. (This is the same as the car
-of <code>(list-tail list k)</code>.) It is an error if list has fewer than <code>k</code>
-elements.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nb">list-ref</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">)</span> <span class="mi">2</span><span class="p">)</span>                 <span class="nv">=&gt;</span>  <span class="nv">c</span>
-   <span class="p">(</span><span class="nb">list-ref</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">)</span>
-             <span class="p">(</span><span class="nb">inexact-&gt;exact</span> <span class="p">(</span><span class="nb">round</span> <span class="mf">1.8</span><span class="p">)))</span> <span class="nv">=&gt;</span>  <span class="nv">c</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(list-set! list k obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>list-set!</code> procedure stores <code>obj</code> in element <code>k</code> of <code>list</code>.
-It is an error if <code>k</code> is not a valid index of <code>list</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">ls</span> <span class="p">(</span><span class="nb">list</span> <span class="ss">'one</span> <span class="ss">'two</span> <span class="ss">'five!</span><span class="p">)))</span>
-   <span class="p">(</span><span class="nf">list-set!</span> <span class="nv">ls</span> <span class="mi">2</span> <span class="ss">'three</span><span class="p">)</span>
-   <span class="nv">ls</span><span class="p">)</span>                              <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">one</span> <span class="nv">two</span> <span class="nv">three</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">list-set!</span> <span class="o">'</span><span class="p">(</span><span class="nf">0</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span> <span class="mi">1</span> <span class="s">"oops"</span><span class="p">)</span>       <span class="nv">=&gt;</span> <span class="nv">error</span> <span class="p">(</span><span class="nf">constant</span> <span class="nv">list</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS / R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(memq obj list)</code></strong><br>
-<strong><code>(memv obj list)</code></strong><br>
-<strong><code>(member obj list)</code></strong><br>
-<strong><code>(member obj list compare)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return the first sublist of list whose car is <code>obj</code>,
-where the sublists of list are the non-empty lists returned by
-<code>(list-tail list k)</code> for <code>k</code> less than the length of list.
-If <code>obj</code> does not occur in <code>list</code>, then <code>#f</code> (not the empty list) is
-returned. <code>Memq</code> uses <code>eq?</code> to compare obj with the elements of list,
-while <code>memv</code> uses <code>eqv?</code> and <code>member</code> uses <code>compare</code>, if given, and
-<code>equal?</code> otherwise.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nb">memq</span> <span class="ss">'a</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>              <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">memq</span> <span class="ss">'b</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>              <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">b</span> <span class="nv">c</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">memq</span> <span class="ss">'a</span> <span class="o">'</span><span class="p">(</span><span class="nf">b</span> <span class="nv">c</span> <span class="nv">d</span><span class="p">))</span>              <span class="nv">=&gt;</span>  <span class="no">#f</span>
-   <span class="p">(</span><span class="nb">memq</span> <span class="p">(</span><span class="nb">list</span> <span class="ss">'a</span><span class="p">)</span> <span class="o">'</span><span class="p">(</span><span class="nf">b</span> <span class="p">(</span><span class="nf">a</span><span class="p">)</span> <span class="nv">c</span><span class="p">))</span>     <span class="nv">=&gt;</span>  <span class="no">#f</span>
-   <span class="p">(</span><span class="nb">member</span> <span class="p">(</span><span class="nb">list</span> <span class="ss">'a</span><span class="p">)</span>
-           <span class="o">'</span><span class="p">(</span><span class="nf">b</span> <span class="p">(</span><span class="nf">a</span><span class="p">)</span> <span class="nv">c</span><span class="p">))</span>             <span class="nv">=&gt;</span>  <span class="p">((</span><span class="nf">a</span><span class="p">)</span> <span class="nv">c</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">member</span> <span class="s">"B"</span>
-           <span class="err">’</span><span class="p">(</span><span class="s">"a"</span> <span class="s">"b"</span> <span class="s">"c"</span><span class="p">)</span>
-           <span class="nv">string-ci=?</span><span class="p">)</span>            <span class="nv">=&gt;</span> <span class="p">(</span><span class="s">"b"</span> <span class="s">"c"</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">memv</span> <span class="mi">101</span> <span class="o">'</span><span class="p">(</span><span class="nf">100</span> <span class="mi">101</span> <span class="mi">102</span><span class="p">))</span>       <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">101</span> <span class="mi">102</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-As in R<sup>7</sup>RS, the <code>member</code> function accepts also a
-comparison function.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS / R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(assq obj alist)</code></strong><br>
-<strong><code>(assv obj alist)</code></strong><br>
-<strong><code>(assoc obj alist)</code></strong><br>
-<strong><code>(assoc obj alist compare)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Alist</code> (for "association list") must be a list of pairs. These procedures
-find the first pair in <code>alist</code> whose car field is <code>obj</code>, and returns that
-pair. If no pair in <code>alist</code> has <code>obj</code> as its car, then <code>#f</code> (not the empty
-list) is returned. <code>Assq</code> uses <code>eq?</code> to compare <code>obj</code> with the car fields
-of the pairs in <code>alist</code>, while <code>assv</code> uses <code>eqv?</code> and <code>assoc</code> uses <code>equal?</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="k">define</span> <span class="nv">e</span> <span class="o">'</span><span class="p">((</span><span class="nf">a</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nf">c</span> <span class="mi">3</span><span class="p">)))</span>
-   <span class="p">(</span><span class="nb">assq</span> <span class="ss">'a</span> <span class="nv">e</span><span class="p">)</span>                <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">a</span> <span class="mi">1</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">assq</span> <span class="ss">'b</span> <span class="nv">e</span><span class="p">)</span>                <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">b</span> <span class="mi">2</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">assq</span> <span class="ss">'d</span> <span class="nv">e</span><span class="p">)</span>                <span class="nv">=&gt;</span>  <span class="no">#f</span>
-   <span class="p">(</span><span class="nb">assq</span> <span class="p">(</span><span class="nb">list</span> <span class="ss">'a</span><span class="p">)</span> <span class="o">'</span><span class="p">(((</span><span class="nf">a</span><span class="p">))</span> <span class="p">((</span><span class="nf">b</span><span class="p">))</span> <span class="p">((</span><span class="nf">c</span><span class="p">))))</span>
-                              <span class="nv">=&gt;</span>  <span class="no">#f</span>
-   <span class="p">(</span><span class="nb">assoc</span> <span class="p">(</span><span class="nb">list</span> <span class="ss">'a</span><span class="p">)</span> <span class="o">'</span><span class="p">(((</span><span class="nf">a</span><span class="p">))</span> <span class="p">((</span><span class="nf">b</span><span class="p">))</span> <span class="p">((</span><span class="nf">c</span><span class="p">))))</span>
-                              <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">a</span><span class="p">))</span>
-   <span class="p">(</span><span class="nb">assoc</span> <span class="mf">2.0</span> <span class="o">'</span><span class="p">((</span><span class="nf">1</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">4</span><span class="p">)</span> <span class="p">(</span><span class="nf">3</span> <span class="mi">9</span><span class="p">))</span> <span class="nv">=</span><span class="p">)</span>
-                              <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">4</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">assv</span> <span class="mi">5</span> <span class="o">'</span><span class="p">((</span><span class="nf">2</span> <span class="mi">3</span><span class="p">)</span> <span class="p">(</span><span class="nf">5</span> <span class="mi">7</span><span class="p">)</span> <span class="p">(</span><span class="nf">11</span> <span class="mi">13</span><span class="p">)))</span>
-                              <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">5</span> <span class="mi">7</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock important">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-important" title="Important"></i>
-</td>
-<td class="content">
-Although they are ordinarily used as predicates,
-<code>memq</code>, <code>memv</code>, <code>member</code>, <code>assq</code>, <code>assv</code>, and <code>assoc</code> do not have question
-marks in their names because they return useful values rather than just
-<code>#t</code> or #<code>f</code>.
-</td>
-</tr>
-</table>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-As in R<sup>7</sup>RS, the <code>assoc</code> function accepts also a
-comparison function.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(list-copy obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>list-copy</code> recursively copies trees of pairs. If <code>obj</code> is
-not a pair, it is returned; otherwise the result is a new pair whose
-<code>car</code> and <code>cdr</code> are obtained by calling <code>list-copy</code> on
-the <code>car</code> and <code>cdr</code> of <code>obj</code>, respectively.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(filter  pred list)</code></strong><br>
-<strong><code>(filter! pred list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Filter</code> returns all the elements of <code>list</code> that satisfy predicate
-<code>pred</code>. The <code>list</code> is not disordered: elements that appear in the
-result list occur in the same order as they occur in the argument
-list. <code>Filter!</code> does the same job as <code>filter</code> by physically
-modifying its <code>list</code> argument</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">filter</span> <span class="nv">even?</span> <span class="o">'</span><span class="p">(</span><span class="nf">0</span> <span class="mi">7</span> <span class="mi">8</span> <span class="mi">8</span> <span class="mi">43</span> <span class="mi">-4</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">8</span> <span class="mi">8</span> <span class="mi">-4</span><span class="p">)</span>
-<span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">l1</span> <span class="p">(</span><span class="nb">list</span> <span class="mi">0</span> <span class="mi">7</span> <span class="mi">8</span> <span class="mi">8</span> <span class="mi">43</span> <span class="mi">-4</span><span class="p">))</span>
-       <span class="p">(</span><span class="nf">l2</span> <span class="p">(</span><span class="nf">filter!</span> <span class="nv">even?</span> <span class="nv">l1</span><span class="p">)))</span>
-   <span class="p">(</span><span class="nb">list</span> <span class="nv">l1</span> <span class="nv">l2</span><span class="p">))</span>                <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">0</span> <span class="mi">8</span> <span class="mi">8</span> <span class="mi">-4</span><span class="p">)</span> <span class="p">(</span><span class="nf">0</span> <span class="mi">8</span> <span class="mi">8</span> <span class="mi">-4</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>An error is signaled if <code>list</code> is a constant list.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(remove pred list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Remove</code> returns <code>list</code> without the elements that satisfy predicate <code>pred</code>:</p>
-</div>
-<div class="paragraph">
-<p>The list is not disordered&#8201;&#8212;&#8201;elements that appear in the result list occur
-in the same order as they occur in the argument list. <code>Remove!</code> does the
-same job than <code>remove</code> by physically modifying its <code>list</code> argument</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">remove</span> <span class="nv">even?</span> <span class="o">'</span><span class="p">(</span><span class="nf">0</span> <span class="mi">7</span> <span class="mi">8</span> <span class="mi">8</span> <span class="mi">43</span> <span class="mi">-4</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">7</span> <span class="mi">43</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(delete  x list [=])</code></strong><br>
-<strong><code>(delete! x list [=])</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Delete</code> uses the comparison procedure <code>=</code>, which defaults to
-<code>equal?</code>, to find all elements of <code>list</code> that are equal to <code>x</code>, and
-deletes them from <code>list</code>. The dynamic order in which the various
-applications of <code>=</code> are made is not specified.</p>
-</div>
-<div class="paragraph">
-<p>The list is not disordered&#8201;&#8212;&#8201;elements that appear in the result
-list occur in the same order as they occur in the argument list.</p>
-</div>
-<div class="paragraph">
-<p>The comparison procedure is used in this way: <code>(= x ei)</code>. That is,
-<code>x</code> is always the first argument, and a list element is always the
-second argument. The comparison procedure will be used to compare
-each element of list exactly once; the order in which it is applied
-to the various <code>ei</code> is not specified. Thus, one can reliably remove
-all the numbers greater than five from a list with</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">delete</span> <span class="mi">5</span> <span class="nv">list</span> <span class="nv">&lt;</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>delete!</code> is the linear-update variant of <code>delete</code>. It is allowed,
-but not required, to alter the cons cells in its argument <code>list</code> to
-construct the result.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_symbols">4.5. Symbols</h3>
-<div class="paragraph">
-<p>The STklos reader can read symbols whose names contain special
-characters or letters in the non standard case.  When a symbol is
-read, the parts enclosed in bars <code>|</code> will be entered
-verbatim into the symbol&#8217;s name. The <code>|</code> characters are not
-part of the symbol; they only serve to delimit the sequence of
-characters that must be entered "as is". In order to maintain
-read-write invariance, symbols containing such sequences of special
-characters will be written between a pair of <code>|</code>.</p>
-</div>
-<div class="paragraph">
-<p>In addition, any character can be used within an identifier when
-specified via an inline hex escape . For example, the identifier
-<code>Hx65;llo</code> is the same as the identifier Hello, and, if the
-UTF-8 encoding is used, the identifier <code>x3BB;</code> is the same as
-the identifier <code>λ</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="ss">'|a|</span>                  <span class="nv">=&gt;</span> <span class="nv">a</span>
-<span class="p">(</span><span class="nb">string-&gt;symbol</span> <span class="s">"a"</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="nv">|A|</span>
-<span class="p">(</span><span class="nb">symbol-&gt;string</span> <span class="ss">'|A|</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="s">"A"</span>
-<span class="ss">'|a</span>  <span class="nv">b|</span>               <span class="nv">=&gt;</span> <span class="nv">|a</span>  <span class="nv">b|</span>
-<span class="ss">'a|B|c</span>                <span class="nv">=&gt;</span> <span class="nv">|aBc|</span>
-<span class="p">(</span><span class="nb">write</span> <span class="ss">'|FoO|</span><span class="p">)</span>        <span class="nv">|-</span> <span class="nv">|FoO|</span>
-<span class="p">(</span><span class="nb">display</span> <span class="ss">'|FoO|</span><span class="p">)</span>      <span class="nv">|-</span> <span class="nv">FoO</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(symbol? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if obj is a symbol, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nb">symbol?</span> <span class="ss">'foo</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="no">#t</span>
-   <span class="p">(</span><span class="nb">symbol?</span> <span class="p">(</span><span class="nb">car</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)))</span>  <span class="nv">=&gt;</span>  <span class="no">#t</span>
-   <span class="p">(</span><span class="nb">symbol?</span> <span class="s">"bar"</span><span class="p">)</span>         <span class="nv">=&gt;</span>  <span class="no">#f</span>
-   <span class="p">(</span><span class="nb">symbol?</span> <span class="ss">'nil</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="no">#t</span>
-   <span class="p">(</span><span class="nb">symbol?</span> <span class="o">'</span><span class="p">())</span>           <span class="nv">=&gt;</span>  <span class="no">#f</span>
-   <span class="p">(</span><span class="nb">symbol?</span> <span class="no">#f</span><span class="p">)</span>            <span class="nv">=&gt;</span>  <span class="no">#f</span>
-   <span class="p">(</span><span class="nb">symbol?</span> <span class="nv">:key</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(symbol=? symbol1 symbol2  &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if all the arguments are symbols and all have the same name in
-the sense of <code>string=?</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(symbol&#8594;string string)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the name of <code>symbol</code> as a string. If the symbol was part of an
-object returned as the value of a literal expression or by a call to the
-<code>read</code> procedure, and its name contains alphabetic characters, then the
-string returned will contain characters in the implementation&#8217;s preferred
-standard case&#8201;&#8212;&#8201;STklos prefers lower case. If the symbol was returned
-by <code>string&#8594;symbol</code>, the case of characters in the string returned will be
-the same as the case in the string that was passed to <code>string&#8594;symbol</code>. It
-is an error to apply mutation procedures like <code>string-set!</code> to strings
-returned by this procedure.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nb">symbol-&gt;string</span> <span class="ss">'flying-fish</span><span class="p">)</span>  <span class="nv">=&gt;</span>  <span class="s">"flying-fish"</span>
-   <span class="p">(</span><span class="nb">symbol-&gt;string</span> <span class="ss">'Martin</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="s">"martin"</span>
-   <span class="p">(</span><span class="nb">symbol-&gt;string</span> <span class="p">(</span><span class="nb">string-&gt;symbol</span> <span class="s">"Malvina"</span><span class="p">))</span>
-                                  <span class="nv">=&gt;</span>  <span class="s">"Malvina"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string&#8594;symbol string)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the symbol whose name is <code>string</code>. This procedure can create
-symbols with names containing special characters or letters in the
-non-standard case, but it is usually a bad idea to create such symbols
-because in some implementations of Scheme they cannot be read as themselves.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nb">eq?</span> <span class="ss">'mISSISSIppi</span> <span class="ss">'mississippi</span><span class="p">)</span>                   <span class="nv">=&gt;</span>  <span class="no">#t</span>
-   <span class="p">(</span><span class="nb">string-&gt;symbol</span> <span class="s">"mISSISSIppi"</span><span class="p">)</span>                    <span class="nv">=&gt;</span>  <span class="nv">|mISSISSIppi|</span>
-   <span class="p">(</span><span class="nb">eq?</span> <span class="ss">'bitBlt</span> <span class="p">(</span><span class="nb">string-&gt;symbol</span> <span class="s">"bitBlt"</span><span class="p">))</span>           <span class="nv">=&gt;</span>  <span class="no">#f</span>
-   <span class="p">(</span><span class="nb">eq?</span> <span class="ss">'JollyWog</span>
-        <span class="p">(</span><span class="nb">string-&gt;symbol</span>
-          <span class="p">(</span><span class="nb">symbol-&gt;string</span> <span class="ss">'JollyWog</span><span class="p">)))</span>               <span class="nv">=&gt;</span>  <span class="no">#t</span>
-   <span class="p">(</span><span class="nb">string=?</span> <span class="s">"K. Harper, M.D."</span>
-             <span class="p">(</span><span class="nb">symbol-&gt;string</span>
-               <span class="p">(</span><span class="nb">string-&gt;symbol</span> <span class="s">"K. Harper, M.D."</span><span class="p">)))</span>  <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string&#8594;unterned-symbol string)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the symbol whose print name is made from the characters of
-<code>string</code>. This symbol is guaranteed to be <em>unique</em> (i.e. not
-<code>eq?</code> to any other symbol):</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">ua</span> <span class="p">(</span><span class="nf">string-&gt;uninterned-symbol</span> <span class="s">"a"</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">list</span> <span class="p">(</span><span class="nb">eq?</span> <span class="ss">'a</span> <span class="nv">ua</span><span class="p">)</span>
-        <span class="p">(</span><span class="nb">eqv?</span> <span class="ss">'a</span> <span class="nv">ua</span><span class="p">)</span>
-        <span class="p">(</span><span class="nb">eq?</span> <span class="nv">ua</span> <span class="p">(</span><span class="nf">string-&gt;uninterned-symbol</span> <span class="s">"a"</span><span class="p">))</span>
-        <span class="p">(</span><span class="nb">eqv?</span> <span class="nv">ua</span> <span class="p">(</span><span class="nf">string-&gt;uninterned-symbol</span> <span class="s">"a"</span><span class="p">))))</span>
-          <span class="nv">=&gt;</span> <span class="p">(</span><span class="no">#f</span> <span class="no">#t</span> <span class="no">#f</span> <span class="no">#t</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(gensym)</code></strong><br>
-<strong><code>(gensym prefix)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Creates a new symbol. The print name of the generated symbol
-consists of a prefix (which defaults to "G") followed by the decimal
-representation of a number. If <code>prefix</code> is specified, it must be
-either a string or a symbol.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">gensym</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="nv">|G100|</span>
-<span class="p">(</span><span class="nf">gensym</span> <span class="s">"foo-"</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="nv">foo-101</span>
-<span class="p">(</span><span class="nf">gensym</span> <span class="ss">'foo-</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="nv">foo-102</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_characters">4.6. Characters</h3>
-<div class="paragraph">
-<p>
-
-The following table gives the list of allowed character names with their
-ASCII eqivalent expressed in octal. Some chracaters have an alternate name
-which is also shown in this table.</p>
-</div>
-<table class="tableblock frame-all grid-all stretch small">
-<colgroup>
-<col style="width: 16.6666%;">
-<col style="width: 16.6666%;">
-<col style="width: 16.6666%;">
-<col style="width: 16.6666%;">
-<col style="width: 16.6666%;">
-<col style="width: 16.667%;">
-</colgroup>
-<thead>
-<tr>
-<th class="tableblock halign-left valign-top">name</th>
-<th class="tableblock halign-left valign-top">value</th>
-<th class="tableblock halign-left valign-top">alt. name</th>
-<th class="tableblock halign-left valign-top">name</th>
-<th class="tableblock halign-left valign-top">value</th>
-<th class="tableblock halign-left valign-top">alt. name</th>
-</tr>
-</thead>
-<tbody>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">nul</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">000</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">null</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">soh</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">001</p></td>
-<td class="tableblock halign-left valign-top"></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">stx</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">002</p></td>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">etx</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">003</p></td>
-<td class="tableblock halign-left valign-top"></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">eot</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">004</p></td>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">enq</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">005</p></td>
-<td class="tableblock halign-left valign-top"></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">ack</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">006</p></td>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">bel</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">007</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">alarm</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">bs</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">010</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">backspace</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">ht</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">011</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">tab</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">nl</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">012</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">newline</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">vt</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">013</p></td>
-<td class="tableblock halign-left valign-top"></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">np</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">014</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">page</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">cr</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">015</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">return</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">so</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">016</p></td>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">si</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">017</p></td>
-<td class="tableblock halign-left valign-top"></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">dle</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">020</p></td>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">dc1</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">021</p></td>
-<td class="tableblock halign-left valign-top"></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">dc2</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">022</p></td>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">dc3</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">023</p></td>
-<td class="tableblock halign-left valign-top"></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">dc4</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">024</p></td>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">nak</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">025</p></td>
-<td class="tableblock halign-left valign-top"></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">syn</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">026</p></td>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">etb</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">027</p></td>
-<td class="tableblock halign-left valign-top"></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">can</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">030</p></td>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">em</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">031</p></td>
-<td class="tableblock halign-left valign-top"></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">sub</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">032</p></td>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">esc</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">033</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">escape</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">fs</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">034</p></td>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">gs</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">035</p></td>
-<td class="tableblock halign-left valign-top"></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">rs</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">036</p></td>
-<td class="tableblock halign-left valign-top"></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">us</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">037</p></td>
-<td class="tableblock halign-left valign-top"></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">sp</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">040</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">space</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">del</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">177</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">delete</p></td>
-</tr>
-</tbody>
-</table>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> supports the complete Unicode character set, if UTF-8 encoding is
-used. Hereafter, are some examples of characters:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="o">#</span><span class="nv">A</span>                <span class="nv">=&gt;</span> <span class="nv">uppercase</span> <span class="nv">A</span>
-<span class="o">#</span><span class="nv">a</span>                <span class="nv">=&gt;</span> <span class="nv">lowercase</span> <span class="nv">a</span>
-<span class="mh">#x41</span>              <span class="nv">=&gt;</span> <span class="nv">the</span> <span class="nv">U+0041</span> <span class="nv">character</span> <span class="p">(</span><span class="nf">uppercase</span> <span class="nv">A</span><span class="p">)</span>
-<span class="mh">#x03bb</span>            <span class="nv">=&gt;</span> <span class="err">λ</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(char? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a character, otherwise returns <code>#f</code>.</p>
-</div>
-<div id="chareq" class="paragraph">
-<p>
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(char=? char1 char2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(char&lt;? char1 char2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(char&gt;? char1 char2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(char&#8656;? char1 char2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(char&gt;=? char1 char2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures impose a total ordering on the set of characters.
-It is guaranteed that under this ordering:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>The upper case characters are in order.</p>
-</li>
-<li>
-<p>The lower case characters are in order.</p>
-</li>
-<li>
-<p>The digits are in order.</p>
-</li>
-<li>
-<p>Either all the digits precede all the upper case letters, or vice versa.</p>
-</li>
-<li>
-<p>Either all the digits precede all the lower case letters, or vice versa.
-)</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(char-ci=? char1 char2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(char-ci&lt;? char1 char2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(char-ci&gt;? char1 char2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(char-ci&#8656;? char1 char2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(char-ci&gt;=? char1 char2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures are similar to <code>char=?</code> et cetera, but they treat
-upper case and lower case letters as the same. For example,
-<code>(char-ci=? #A #a)</code> returns <code>#t</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(char-alphabetic? char)</code></strong><br>
-<strong><code>(char-numeric? char)</code></strong><br>
-<strong><code>(char-whitespace? char)</code></strong><br>
-<strong><code>(char-upper-case? letter)</code></strong><br>
-<strong><code>(char-lower-case? letter)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return <code>#t</code> if their arguments are alphabetic, numeric,
-whitespace, upper case, or lower case characters, respectively, otherwise they
-return <code>#f</code>. The following remarks, which are specific to the ASCII character
-set, are intended only as a guide: The alphabetic characters are the 52
-upper and lower case letters. The numeric characters are the ten decimal
-digits. The whitespace characters are space, tab, line feed, form feed,
-and carriage return.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(char&#8594;integer char)</code></strong><br>
-<strong><code>(integer&#8594;char n)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Given a character, <code>char&#8594;integer</code> returns an exact integer
-representation of the character. Given an exact integer that is the
-image of a character under <code>char&#8594;integer</code>, <code>integer&#8594;char</code> returns
-that character. These procedures implement order-preserving
-isomorphisms between the set of characters under the <code>char&#8656;?</code>
-ordering and some subset of the integers under the <code>&#8656;</code>
-ordering. That is, if</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nb">char&lt;=?</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="no">#t</span>  <span class="nv">and</span>  <span class="p">(</span><span class="nb">&lt;=</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>and x and y are in the domain of <code>integer&#8594;char</code>, then</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nb">&lt;=</span> <span class="p">(</span><span class="nb">char-&gt;integer</span> <span class="nv">a</span><span class="p">)</span>
-       <span class="p">(</span><span class="nb">char-&gt;integer</span> <span class="nv">b</span><span class="p">))</span>         <span class="nv">=&gt;</span>  <span class="no">#t</span>
-
-  <span class="p">(</span><span class="nb">char&lt;=?</span> <span class="p">(</span><span class="nb">integer-&gt;char</span> <span class="nv">x</span><span class="p">)</span>
-           <span class="p">(</span><span class="nb">integer-&gt;char</span> <span class="nv">y</span><span class="p">))</span>     <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>integer&#8594;char</code> accepts an exact number between 0 and #xD7FFF or between
-#xE000 and #x10FFFF, if UTF8 encoding is used. Otherwise, it accepts a
-number between 0 and #xFF.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(char-upcase char)</code></strong><br>
-<strong><code>(char-downcase char)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures return a character <code>char2</code> such that
-<code>(char-ci=? char char2)</code>. In addition, if char is alphabetic, then the
-result of <code>char-upcase</code> is upper case and the result of <code>char-downcase</code> is
-lower case.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(char-foldcase char)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure applies the Unicode simple case folding algorithm and returns
-the result. Note that language-sensitive folding is not used. If
-the argument is an uppercase letter, the result will be either a
-lowercase letter or the same as the argument if the lowercase letter
-does not exist.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(digit-value char)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure returns the numeric value (0 to 9) of its
-argument if it is a numeric digit (that is, if char-numeric?
-returns #t), or #f on any other character.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">digit-value</span>
-<span class="p">(</span><span class="nf">digit-value</span> <span class="o">#</span><span class="mi">3</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="mi">3</span>
-<span class="p">(</span><span class="nf">digit-value</span> <span class="mh">#x0664</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="mi">4</span>
-<span class="p">(</span><span class="nf">digit-value</span> <span class="mh">#x0AE6</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="mi">0</span>
-<span class="p">(</span><span class="nf">digit-value</span> <span class="mh">#x0EA6</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_strings">4.7. Strings</h3>
-<div class="paragraph">
-<p>
-STklos string constants allow the insertion of arbitrary characters
-by encoding them as escape sequences. An escape sequence is introduced
-by a backslash "$backslash$".  The valid escape sequences are shown in
-the following table.</p>
-</div>
-<table class="tableblock frame-all grid-all stretch small">
-<colgroup>
-<col style="width: 50%;">
-<col style="width: 50%;">
-</colgroup>
-<thead>
-<tr>
-<th class="tableblock halign-left valign-top">Sequence</th>
-<th class="tableblock halign-left valign-top">Character inserted</th>
-</tr>
-</thead>
-<tbody>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">a</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Alarm</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">b</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Backspace</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">e</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Escape</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">n</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Newline</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">t</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Horizontal Tab</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">r</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">Carriage Return</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">"</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">doublequote U+0022</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">\</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">backslash U+005C</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">0abc</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">ASCII character with octal value abc</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">x&lt;hexa value&gt;;</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">ASCII character with given hexadecimal value</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">&lt;intraline whitespace&gt;&lt;newline&gt;&lt;intraline whitespace&gt;</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">None (permits to enter a string on several lines)</p></td>
-</tr>
-<tr>
-<td class="tableblock halign-left valign-top"><p class="tableblock">&lt;other&gt;</p></td>
-<td class="tableblock halign-left valign-top"><p class="tableblock">&lt;other&gt;</p></td>
-</tr>
-</tbody>
-</table>
-<div class="paragraph">
-<p>For instance, the string</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="s">"ab040x20;cnd
-         e"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is the string consisting of the characters
-<code>&#35;a</code>, <code>&#35;b</code>, <code>&#35;space</code>, <code>&#35;space</code>,
-<code>&#35;c</code>, <code>&#35;newline</code>, <code>&#35;d</code> and <code>&#35;e</code>.</p>
-</div>
-<div class="paragraph">
-<p><strong>Notes:</strong></p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>Using octal code is limited to characters in the range 0
-to #xFF. It is then not convenient to enter Unicode characters. This
-form is deprecated should not be used anymore.</p>
-</li>
-<li>
-<p>A line ending which is preceded by &lt;intraline whitespace&gt;
-expands to nothing (along with any trailing &lt;intraline
-whitespace&gt;), and can be used to indent strings for improved
-legibility.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a string, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-string k)</code></strong><br>
-<strong><code>(make-string k char)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Make-string</code> returns a newly allocated string of length <code>k</code>. If <code>char</code> is
-given, then all elements of the string are initialized to <code>char</code>, otherwise
-the contents of the string are unspecified.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string char &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated string composed of the arguments.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-length string)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the number of characters in the given <code>string</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-ref string k)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>String-ref</code> returns character k of string using zero-origin indexing
-(<code>k</code> must be a valid index of string).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-set! string k char)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>String-set!</code> stores <code>char</code> in element <code>k</code> of <code>string</code> and returns
-<strong><em>void</em></strong> (<code>k</code> must be a valid index of <code>string</code>).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">f</span><span class="p">)</span> <span class="p">(</span><span class="nb">make-string</span> <span class="mi">3</span> <span class="o">#</span><span class="nv">*</span><span class="p">))</span>
-<span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">g</span><span class="p">)</span> <span class="s">"***"</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">string-set!</span> <span class="p">(</span><span class="nf">f</span><span class="p">)</span> <span class="mi">0</span> <span class="o">#</span><span class="nv">?</span><span class="p">)</span>  <span class="nv">=&gt;</span>  <span class="nv">void</span>
-<span class="p">(</span><span class="nb">string-set!</span> <span class="p">(</span><span class="nf">g</span><span class="p">)</span> <span class="mi">0</span> <span class="o">#</span><span class="nv">?</span><span class="p">)</span>  <span class="nv">=&gt;</span>  <span class="nv">error</span>
-<span class="p">(</span><span class="nb">string-set!</span> <span class="p">(</span><span class="nb">symbol-&gt;string</span> <span class="ss">'immutable</span><span class="p">)</span> <span class="mi">0</span> <span class="o">#</span><span class="nv">?</span><span class="p">)</span>
-                         <span class="nv">=&gt;</span>  <span class="nv">error</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS / R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string=? string1 string2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(string-ci=? string1 string2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if all the strings are the same length and contain the same
-characters in the same positions, otherwise returns <code>#f</code>. <code>String-ci=?</code>
-treats upper and lower case letters as though they were the same character,
-but <code>string=?</code> treats upper and lower case as distinct characters.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-R<sup>5</sup>RS version of these functions accept only two arguments.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS / R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string&lt;? string1 string2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(string&gt;? string1 string2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(string&#8656;? string1 string2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(string&gt;=? string1 string2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(string-ci&lt;? string1 string2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(string-ci&gt;? string1 string2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(string-ci&#8656;? string1 string2 &#8230;&#8203;)</code></strong><br>
-<strong><code>(string-ci&gt;=? string1 string2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures are the lexicographic extensions to strings of the
-corresponding orderings on characters. For example, <code>string&lt;?</code> is the
-lexicographic ordering on strings induced by the ordering <code>char&lt;?</code> on
-characters. If two strings differ in length but are the same up to the
-length of the shorter string, the shorter string is considered to be
-lexicographically less than the longer string.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-R<sup>5</sup>RS version of these functions accept only two arguments.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(substring string start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>String</code> must be a string, and <code>start</code> and <code>end</code> must be exact integers
-satisfying</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="mi">0</span> <span class="nv">&lt;=</span> <span class="nv">start</span> <span class="nv">&lt;=</span> <span class="nv">end</span> <span class="nv">&lt;=</span> <span class="p">(</span><span class="nb">string-length</span> <span class="nv">string</span><span class="p">)</span><span class="o">.</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Substring</code> returns a newly allocated string formed from the characters
-of <code>string</code> beginning with index <code>start</code> (inclusive) and ending with
-index <code>end</code> (exclusive).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-append string &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated string whose characters form the concatenation
-of the given strings.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS / R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string&#8594;list string)</code></strong><br>
-<strong><code>(string&#8594;list string start)</code></strong><br>
-<strong><code>(string&#8594;list string start end)</code></strong><br>
-<strong><code>(list&#8594;string list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>String&#8594;list</code> returns a newly allocated list of the characters of
-<code>string</code> between <code>start</code> and <code>end</code>. <code>List&#8594;string</code> returns a newly
-allocated string formed from the characters in the list <code>list</code>,
-which must be a list of characters. <code>String&#8594;list</code> and
-<code>list&#8594;string</code> are inverses so far as <code>equal?</code> is concerned.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The R<sup>5</sup>RS version of <code>string&#8594;list</code> accepts only one
-parameter.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS / R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-copy string)</code></strong><br>
-<strong><code>(string-copy string start)</code></strong><br>
-<strong><code>(string-copy string start stop)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated copy of the part of the given <code>string</code>
-between <code>start</code> and <code>stop</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The R<sup>5</sup>RS version of <code>string-copy</code> accepts only one argument.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-copy! to at from)</code></strong><br>
-<strong><code>(string-copy! to at from start)</code></strong><br>
-<strong><code>(string-copy! to at from start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Copies the characters of <code>string</code> from between <code>start</code> and <code>end</code>
-to string <code>to</code>, starting at <code>at</code>. The order in which characters are copied
-is unspecified, except that if the source and destination overlap,
-copying takes place as if the source is first copied into a temporary
-string and then into the destination. This can be achieved without
-allocating storage by making sure to copy in the correct direction in
-such circumstances.</p>
-</div>
-<div class="paragraph">
-<p>It is an error if <code>at</code> is less than zero or greater than the length
-of <code>to</code>. It is also an error if <code>(- (string-length to) at)</code> is less
-than <code>(- end start)</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-split str)</code></strong><br>
-<strong><code>(string-split str delimiters)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Parses <code>string</code> and returns a list of tokens ended by a character of the
-<code>delimiters</code> string. If <code>delimiters</code> is omitted, it defaults to a string
-containing a space, a tabulation and a newline characters.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">string-split</span> <span class="s">"/usr/local/bin"</span> <span class="s">"/"</span><span class="p">)</span>
-                       <span class="nv">=&gt;</span> <span class="p">(</span><span class="s">"usr"</span> <span class="s">"local"</span> <span class="s">"bin"</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">string-split</span> <span class="s">"once   upon a time"</span><span class="p">)</span>
-                       <span class="nv">=&gt;</span> <span class="p">(</span><span class="s">"once"</span> <span class="s">"upon"</span> <span class="s">"a"</span> <span class="s">"time"</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-position str1 str2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the (first) index where <code>str1</code> is a substring of <code>str2</code> if it exists;
-otherwise returns <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">string-position</span> <span class="s">"ca"</span> <span class="s">"abracadabra"</span><span class="p">)</span> <span class="nv">=&gt;</span>  <span class="mi">4</span>
-<span class="p">(</span><span class="nf">string-position</span> <span class="s">"ba"</span> <span class="s">"abracadabra"</span><span class="p">)</span> <span class="nv">=&gt;</span>  <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This function was also called <code>string-index</code>. This name is deprecated
-since it conficts with the <code>string-index</code> defined in SRFI-13.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-find? str1 str2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>str1</code> appears somewhere in <code>str2</code>; otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-fill! string char)</code></strong><br>
-<strong><code>(string-fill! string char start)</code></strong><br>
-<strong><code>(string-fill! string char start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Stores <code>char</code> in every element of the given <code>string</code> between <code>start</code> and <code>end</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The R<sup>5</sup>RS version of <code>string-fill!</code> accepts only one argument.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-blit! s1 s2 offset)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function places the characters of string <code>s2</code> in the string <code>s1</code>
-starting at position <code>offset</code>. The result of <code>string-blit!</code> may modify
-the string <code>s1</code>. Note that the characters of <code>s2</code> can be written after
-the end of <code>s1</code> (in which case a new string is allocated).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">string-blit!</span> <span class="p">(</span><span class="nb">make-string</span> <span class="mi">6</span> <span class="o">#</span><span class="nv">X</span><span class="p">)</span> <span class="s">"abc"</span> <span class="mi">2</span><span class="p">)</span>
-              <span class="nv">=&gt;</span> <span class="s">"XXabcX"</span>
-<span class="p">(</span><span class="nf">string-blit!</span> <span class="p">(</span><span class="nb">make-string</span> <span class="mi">10</span> <span class="o">#</span><span class="nv">X</span><span class="p">)</span> <span class="s">"abc"</span> <span class="mi">5</span><span class="p">)</span>
-              <span class="nv">=&gt;</span> <span class="s">"XXXXXabcXX"</span>
-<span class="p">(</span><span class="nf">string-blit!</span> <span class="p">(</span><span class="nb">make-string</span> <span class="mi">6</span> <span class="o">#</span><span class="nv">X</span><span class="p">)</span> <span class="s">"a"</span> <span class="mi">10</span><span class="p">)</span>
-              <span class="nv">=&gt;</span> <span class="s">"XXXXXX0000a"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-mutable? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a mutable string, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">string-mutable?</span> <span class="s">"abc"</span><span class="p">)</span>                <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">string-mutable?</span> <span class="p">(</span><span class="nb">string-copy</span> <span class="s">"abc"</span><span class="p">))</span>  <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">string-mutable?</span> <span class="p">(</span><span class="nb">string</span> <span class="o">#</span><span class="nv">a</span> <span class="o">#</span><span class="nv">b</span> <span class="o">#</span><span class="nv">c</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">string-mutable?</span> <span class="mi">12</span><span class="p">)</span>                   <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-The following string primitives are compatible with <strong><a href="http://srfi.schemers.org/srfi-13/srfi-13.html">SRFI-13</a></strong> (<em>String Library</em>)
-and their documentation comes from the SRFI document.</p>
-</div>
-<div class="paragraph">
-<p><strong>Notes:</strong></p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>The string SRFI is supported by <strong><em>STklos</em></strong>. The
-function listed below just don&#8217;t need to load the full SRFI to be
-used</p>
-</li>
-<li>
-<p>The functions <code>string-upcase</code>, <code>string-downcase</code> and
-<code>string-foldcase</code> are also defined in R<sup>7</sup>RS.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-downcase str)</code></strong><br>
-<strong><code>(string-downcase str start)</code></strong><br>
-<strong><code>(string-downcase str start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a string in which the upper case letters of string <code>str</code> between the
-<code>start</code> and <code>end</code> indices have been replaced by their lower case equivalent.
-If <code>start</code> is omited, it defaults to 0. If <code>end</code> is omited, it defaults to
-the length of <code>str</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">string-downcase</span> <span class="s">"Foo BAR"</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="s">"foo bar"</span>
-<span class="p">(</span><span class="nf">string-downcase</span> <span class="s">"Foo BAR"</span> <span class="mi">4</span><span class="p">)</span>      <span class="nv">=&gt;</span> <span class="s">"bar"</span>
-<span class="p">(</span><span class="nf">string-downcase</span> <span class="s">"Foo BAR"</span> <span class="mi">4</span> <span class="mi">6</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="s">"ba"</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-In R<sup>7</sup>RS, <code>string-downcase</code> accepts only one argument.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-downcase! str)</code></strong><br>
-<strong><code>(string-downcase! str start)</code></strong><br>
-<strong><code>(string-downcase! str start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This is the in-place side-effecting variant of <code>string-downcase</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">string-downcase!</span> <span class="p">(</span><span class="nb">string-copy</span> <span class="s">"Foo BAR"</span><span class="p">)</span> <span class="mi">4</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="s">"Foo bar"</span>
-<span class="p">(</span><span class="nf">string-downcase!</span> <span class="p">(</span><span class="nb">string-copy</span> <span class="s">"Foo BAR"</span><span class="p">)</span> <span class="mi">4</span> <span class="mi">6</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="s">"Foo baR"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-upcase str)</code></strong><br>
-<strong><code>(string-upcase str start)</code></strong><br>
-<strong><code>(string-upcase str start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a string in which the lower case letters of string <code>str</code> between the
-<code>start</code> and <code>end</code> indices have been replaced by their upper case equivalent.
-If <code>start</code> is omited, it defaults to 0. If <code>end</code> is omited, it defaults to
-the length of <code>str</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-In R<sup>7</sup>RS, <code>string-upcase</code> accepts only one argument.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-upcase! str)</code></strong><br>
-<strong><code>(string-upcase! str start)</code></strong><br>
-<strong><code>(string-upcase! str start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This is the in-place side-effecting variant of <code>string-upcase</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-titlecase str)</code></strong><br>
-<strong><code>(string-titlecase str start)</code></strong><br>
-<strong><code>(string-titlecase str start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function returns a string.  For every character <code>c</code> in the
-selected range of <code>str</code>, if <code>c</code> is preceded by a cased character, it
-is downcased; otherwise it is titlecased. If <code>start</code> is omited, it
-defaults to 0. If <code>end</code> is omited, it defaults to the length of <code>str</code>.
-Note that if a <code>start</code> index is specified, then the character preceding
-<code>s[start]</code> has no effect on the titlecase decision for character <code>s[start]</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">string-titlecase</span> <span class="s">"--capitalize tHIS sentence."</span><span class="p">)</span>
-         <span class="nv">=&gt;</span>  <span class="s">"--Capitalize This Sentence."</span>
-<span class="p">(</span><span class="nf">string-titlecase</span> <span class="s">"see Spot run. see Nix run."</span><span class="p">)</span>
-         <span class="nv">=&gt;</span>  <span class="s">"See Spot Run. See Nix Run."</span>
-<span class="p">(</span><span class="nf">string-titlecase</span> <span class="s">"3com makes routers."</span><span class="p">)</span>
-         <span class="nv">=&gt;</span>  <span class="s">"3Com Makes Routers."</span>
-<span class="p">(</span><span class="nf">string-titlecase</span> <span class="s">"greasy fried chicken"</span> <span class="mi">2</span><span class="p">)</span>
-         <span class="nv">=&gt;</span> <span class="s">"Easy Fried Chicken"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-titlecase! str)</code></strong><br>
-<strong><code>(string-titlecase! str start)</code></strong><br>
-<strong><code>(string-titlecase! str start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This is the in-place side-effecting variant of <code>string-titlecase</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-append! string &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Extends string by appending each value (in order) to the end of string.
-A value can be a character or a string.</p>
-</div>
-<div class="paragraph">
-<p>It is guaranteed that string-append! will return the same object that
-was passed to it as first argument, whose size may be larger.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This function is defined in SRFI-118.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-replace! dst dst-start dst-end src)</code></strong><br>
-<strong><code>(string-replace! dst dst-start dst-end src src-start)</code></strong><br>
-<strong><code>(string-replace! dst dst-start dst-end src src-start src-end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Replaces the characters of the variable-size string dst (between
-dst-start and dst-end) with the characters of the string src
-(between src-start and src-end). The number of characters from src
-may be different from the number replaced in dst, so the string may
-grow or contract. The special case where dst-start is equal to
-dst-end corresponds to insertion; the case where src-start is equal
-to src-end corresponds to deletion. The order in which characters
-are copied is unspecified, except that if the source and
-destination overlap, copying takes place as if the source is first
-copied into a temporary string and then into the destination.
-Returns string, appended with the characters form the concatenation
-of the given arguments, which can be either strings or characters.</p>
-</div>
-<div class="paragraph">
-<p>It is guaranteed that string-replace! will return the same object that
-was passed to it as first argument, whose size may be larger.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This function is defined in SRFI-118.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-foldcase str)</code></strong><br>
-<strong><code>(string-foldcase str start)</code></strong><br>
-<strong><code>(string-foldcase str start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a string in which the Unicode simple case-folding algorithm has
-been applied on <code>str</code> between the <code>start</code> and <code>end</code> indices.
-If <code>start</code> is omited, it defaults to 0. If <code>end</code> is omited, it defaults to
-the length of <code>str</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-In R<sup>7</sup>RS, <code>string-foldcase</code> accepts only one argument.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-foldcase! str)</code></strong><br>
-<strong><code>(string-foldcase! str start)</code></strong><br>
-<strong><code>(string-foldcase! str start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This is the in-place side-effecting variant of <code>string-foldcase</code>.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_vectors">4.8. Vectors</h3>
-<div class="paragraph">
-<p>
-Vectors are heterogenous structures whose elements are
-indexed by integers.  A vector typically occupies less space than
-a list of the same length, and the average time required to
-access a randomly chosen element is typically less for the vector
-than for the list.</p>
-</div>
-<div class="paragraph">
-<p>The length of a vector is the number of elements that it
-contains.  This number is a non-negative integer that is fixed
-when the vector is created.  The valid indexes of a vector are
-the exact non-negative integers less than the length of the
-vector.  The first element in a vector is indexed by zero, and
-the last element is indexed by one less than the length of the
-vector.</p>
-</div>
-<div class="paragraph">
-<p>Vectors are written using the notation <code>#(obj &#8230;&#8203;)</code>.
-For example, a vector of length 3 containing the number zero in
-element 0, the list <code>(2 2 2 2)</code> in element 1, and the
-string <code>"Anna"</code> in element 2 can be written as
-following:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="o">#</span><span class="p">(</span><span class="nf">0</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">2</span> <span class="mi">2</span> <span class="mi">2</span><span class="p">)</span> <span class="s">"Anna"</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-In STklos, vectors constants don&#8217;t need to be quoted.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a vector, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-vector k)</code></strong><br>
-<strong><code>(make-vector k fill)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated vector of <code>k</code> elements. If a second argument is
-given, then each element is initialized to <code>fill</code>. Otherwise, the initial
-contents of each element is unspecified.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector obj &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated vector whose elements contain the given arguments.
-Analogous to <code>list</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">vector</span> <span class="ss">'a</span> <span class="ss">'b</span> <span class="ss">'c</span><span class="p">)</span>               <span class="nv">=&gt;</span>  <span class="o">#</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector-length vector)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the number of elements in <code>vector</code> as an exact integer.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector-ref vector k)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>k</code> must be a valid index of <code>vector</code>. <code>Vector-ref</code> returns the contents of
-element <code>k</code> of vector.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">vector-ref</span> <span class="o">'#</span><span class="p">(</span><span class="nf">1</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">8</span> <span class="mi">13</span> <span class="mi">21</span><span class="p">)</span>
-            <span class="mi">5</span><span class="p">)</span>                                    <span class="nv">=&gt;</span>  <span class="mi">8</span>
-<span class="p">(</span><span class="nb">vector-ref</span> <span class="o">'#</span><span class="p">(</span><span class="nf">1</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">8</span> <span class="mi">13</span> <span class="mi">21</span><span class="p">)</span>
-            <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">i</span> <span class="p">(</span><span class="nb">round</span> <span class="p">(</span><span class="nb">*</span> <span class="mi">2</span> <span class="p">(</span><span class="nb">acos</span> <span class="mi">-1</span><span class="p">)))))</span>
-              <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">inexact?</span> <span class="nv">i</span><span class="p">)</span>
-                  <span class="p">(</span><span class="nb">inexact-&gt;exact</span> <span class="nv">i</span><span class="p">)</span>
-                  <span class="nv">i</span><span class="p">)))</span>                            <span class="nv">=&gt;</span> <span class="mi">13</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector-set! vector k obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>k</code> must be a valid index of <code>vector</code>. <code>Vector-set!</code> stores <code>obj</code> in element
-<code>k</code> of <code>vector</code>. The value returned by <code>vector-set!</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">vec</span> <span class="p">(</span><span class="nb">vector</span> <span class="mi">0</span> <span class="o">'</span><span class="p">(</span><span class="nf">2</span> <span class="mi">2</span> <span class="mi">2</span> <span class="mi">2</span><span class="p">)</span> <span class="s">"Anna"</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">vector-set!</span> <span class="nv">vec</span> <span class="mi">1</span> <span class="o">'</span><span class="p">(</span><span class="s">"Sue"</span> <span class="s">"Sue"</span><span class="p">))</span>
-  <span class="nv">vec</span><span class="p">)</span>      <span class="nv">=&gt;</span>  <span class="o">#</span><span class="p">(</span><span class="nf">0</span> <span class="p">(</span><span class="s">"Sue"</span> <span class="s">"Sue"</span><span class="p">)</span> <span class="s">"Anna"</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nb">vector-set!</span> <span class="o">'#</span><span class="p">(</span><span class="nf">0</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span> <span class="mi">1</span> <span class="s">"doe"</span><span class="p">)</span>  <span class="nv">=&gt;</span>  <span class="nv">error</span>  <span class="c1">; constant vector</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS / R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector&#8594;list vector)</code></strong><br>
-<strong><code>(vector&#8594;list vector start)</code></strong><br>
-<strong><code>(vector&#8594;list vector start end)</code></strong><br>
-<strong><code>(list&#8594;vector list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Vector&#8594;list</code> returns a newly allocated list of the objects contained in
-the elements of <code>vector</code> between start an end. <code>List&#8594;vector</code> returns a
-newly created vector initialized to the elements of the list <code>list</code>.</p>
-</div>
-<div class="paragraph">
-<p>In both procedures, order is preserved.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">vector-&gt;list</span> <span class="o">'#</span><span class="p">(</span><span class="nf">dah</span> <span class="nv">dah</span> <span class="nv">didah</span><span class="p">))</span>     <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">dah</span> <span class="nv">dah</span> <span class="nv">didah</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">vector-&gt;list</span> <span class="o">'#</span><span class="p">(</span><span class="nf">dah</span> <span class="nv">dah</span> <span class="nv">didah</span><span class="p">)</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span> <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">dah</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">list-&gt;vector</span> <span class="o">'</span><span class="p">(</span><span class="nf">dididit</span> <span class="nv">dah</span><span class="p">))</span>        <span class="nv">=&gt;</span>  <span class="o">#</span><span class="p">(</span><span class="nf">dididit</span> <span class="nv">dah</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The R<sup>5</sup>RS version of <code>vector&#8594;list</code> accepts only one
-parameter.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector&#8594;string string)</code></strong><br>
-<strong><code>(vector&#8594;string string start)</code></strong><br>
-<strong><code>(vector&#8594;string string start end)</code></strong><br>
-<strong><code>(string&#8594;vector vector)</code></strong><br>
-<strong><code>(string&#8594;vector vector start)</code></strong><br>
-<strong><code>(string&#8594;vector vector start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>vector&#8594;string</code> procedure returns a newly allocated
-string of the objects contained in the elements of <code>vector</code>
-between <code>start</code> and <code>end</code>. It is an error if any element of <code>vector</code>
-between <code>start</code> and <code>end</code> is not a character.</p>
-</div>
-<div class="paragraph">
-<p>The <code>string&#8594;vector</code> procedure returns a newly created vector
-initialized to the elements of <code>string</code> between <code>start</code> and <code>end</code>.</p>
-</div>
-<div class="paragraph">
-<p>In both procedures, order is preserved.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">string-&gt;vector</span> <span class="s">"ABC"</span><span class="p">)</span>           <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">(</span><span class="o">#</span><span class="nv">A</span> <span class="o">#</span><span class="nv">B</span> <span class="o">#</span><span class="nv">C</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">vector-&gt;string</span> <span class="o">#</span><span class="p">(</span><span class="o">#</span><span class="mi">1</span> <span class="o">#</span><span class="mi">2</span> <span class="o">#</span><span class="mi">3</span><span class="p">))</span>  <span class="nv">=&gt;</span> <span class="s">"123"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector-append vector &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated vector whose elements are the
-concatenation of the elements of the given vectors.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">vector-append</span> <span class="o">#</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span> <span class="o">#</span><span class="p">(</span><span class="nf">d</span> <span class="nv">e</span> <span class="nv">f</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span> <span class="nv">d</span> <span class="nv">e</span> <span class="nv">f</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS / R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector-fill! vector fill)</code></strong><br>
-<strong><code>(vector-fill! vector fill start)</code></strong><br>
-<strong><code>(vector-fill! vector fill start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Stores <code>fill</code> in every element of <code>vector</code> between <code>start</code> and <code>end</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The R<sup>5</sup>RS version of <code>vector-fill!</code> accepts only one
-parameter.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS / R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector-copy v)</code></strong><br>
-<strong><code>(vector-copy v start)</code></strong><br>
-<strong><code>(vector-copy v start stop)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return a newly allocated copy of the elements of the given
-vector between <code>start</code> and <code>end</code> . The elements of the new
-vector are the same (in the sense of eqv?) as the elements
-of the old.</p>
-</div>
-<div class="paragraph">
-<p>Note that, if <code>v</code> is a constant vector, its copy is not constant.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="o">#</span><span class="p">(</span><span class="nf">1</span> <span class="mi">8</span> <span class="mi">2</span> <span class="mi">8</span><span class="p">))</span>         <span class="c1">; a is immutable</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">b</span> <span class="p">(</span><span class="nf">vector-copy</span> <span class="nv">a</span><span class="p">))</span>    <span class="c1">; b is mutable</span>
-<span class="p">(</span><span class="nb">vector-set!</span> <span class="nv">b</span> <span class="mi">0</span> <span class="mi">3</span><span class="p">)</span>
-<span class="nv">b</span>                            <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">(</span><span class="nf">3</span> <span class="mi">8</span> <span class="mi">2</span> <span class="mi">8</span><span class="p">)</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">c</span> <span class="p">(</span><span class="nf">vector-copy</span> <span class="nv">b</span> <span class="mi">1</span> <span class="mi">3</span><span class="p">))</span>
-<span class="nv">c</span>                            <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">(</span><span class="nf">8</span> <span class="mi">2</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector-copy! to at from)</code></strong><br>
-<strong><code>(vector-copy! to at from start)</code></strong><br>
-<strong><code>(vector-copy! to at from start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector-resize v size)</code></strong><br>
-<strong><code>(vector-resize v size fill)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a copy of v of the given <code>size</code>. If <code>size</code> is greater
-than the vector size of <code>v</code>, the contents of the newly allocated vector cells
-is  set to the value of <code>fill</code>. If <code>fill</code> is omitted the content of the
-new cells is <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector-mutable? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a mutable vector, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">vector-mutable?</span> <span class="o">'#</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">))</span>            <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">vector-mutable?</span> <span class="p">(</span><span class="nf">vector-copy</span> <span class="o">'#</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span><span class="p">)))</span>  <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">vector-mutable?</span> <span class="p">(</span><span class="nb">vector</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">))</span>         <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">vector-mutable?</span> <span class="mi">12</span><span class="p">)</span>                     <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(sort obj predicate)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Obj</code> must be a list or a vector. <code>Sort</code> returns a copy of <code>obj</code> sorted
-according to <code>predicate</code>. <code>Predicate</code> must be a procedure which takes
-two arguments and returns a true value if the first argument is strictly
-``before'' the second.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">sort</span> <span class="o">'</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">-4</span> <span class="mi">12</span> <span class="mi">9</span> <span class="mi">-1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span> <span class="nv">&lt;</span><span class="p">)</span>
-               <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">-4</span> <span class="mi">-1</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">9</span> <span class="mi">12</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">sort</span> <span class="o">'#</span><span class="p">(</span><span class="s">"one"</span> <span class="s">"two"</span> <span class="s">"three"</span> <span class="s">"four"</span><span class="p">)</span>
-      <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)</span> <span class="p">(</span><span class="nb">&gt;</span> <span class="p">(</span><span class="nb">string-length</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">string-length</span> <span class="nv">y</span><span class="p">))))</span>
-               <span class="nv">=&gt;</span> <span class="o">'#</span><span class="p">(</span><span class="s">"three"</span> <span class="s">"four"</span> <span class="s">"one"</span> <span class="s">"two"</span><span class="p">)</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_structures">4.9. Structures</h3>
-<div class="paragraph">
-<p>
-A structure type is a record data type composing a number of slots. A
-structure, an instance of a structure type, is a first-class value
-that contains a value for each field of the structure type.</p>
-</div>
-<div class="paragraph">
-<p>Structures can be created with the <code>define-struct</code> high
-level syntax. However, <strong><em>STklos</em></strong> also offers some low-level functions
-to build and access the internals of a structure.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(define-struct &lt;name&gt; &lt;slot&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Defines a structure type whose name is <code>&lt;name&gt;</code>. Once a structure type is
-defined, the following symbols are bound:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>&lt;name&gt;</code> denotes the structure type.</p>
-</li>
-<li>
-<p><code>make-&lt;name&gt;</code> is a procedure which takes 0 to <code>n</code> parameters (if there
-are <code>n</code> slots defined). Each parameter is assigned to the corresponding
-field (in the definition order).</p>
-</li>
-<li>
-<p><code>&lt;name&gt;?</code> is a predicate which returns <code>#t</code> when applied to an
-instance of the <code>&lt;name&gt;</code> structure type and <code>#f</code> otherwise</p>
-</li>
-<li>
-<p><code>&lt;name&gt;-&lt;slot&gt;</code> (one for each defined <code>&lt;slot&gt;</code>) to read the
-content of an instance of the <code>&lt;name&gt;</code> structure type. Writting the
-content of a slot can be done using a generalized <code>set!</code>.</p>
-</li>
-</ul>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-struct</span> <span class="nv">point</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">p</span> <span class="p">(</span><span class="nf">make-point</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">point?</span> <span class="nv">p</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">point?</span> <span class="mi">100</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">point-x</span> <span class="nv">p</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">point-y</span> <span class="nv">p</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="mi">2</span>
-<span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nf">point-x</span> <span class="nv">p</span><span class="p">)</span> <span class="mi">10</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">point-x</span> <span class="nv">p</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="mi">10</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-struct-type name parent slots)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This form which is more general than <code>define-struct</code> permits to define a
-new structure type whose name is <code>name</code>. Parent is the structure
-type from which is the new structure type is a subtype (or <code>#f</code> is the
-new structure-type has no super type). <code>Slots</code> is the list of the slot
-names which constitute the structure tpe.</p>
-</div>
-<div class="paragraph">
-<p>When a structure type is s subtype of a previous type, its slots are added
-to the ones of the super type.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(struct-type? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a structure type, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">type</span> <span class="p">(</span><span class="nf">make-struct-type</span> <span class="ss">'point</span> <span class="no">#f</span> <span class="o">'</span><span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nf">struct-type?</span> <span class="nv">type</span><span class="p">))</span>         <span class="nv">=&gt;</span> <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(struct-type-slots structype)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the slots of the structure type <code>structype</code> as a list.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">point</span>  <span class="p">(</span><span class="nf">make-struct-type</span> <span class="ss">'point</span> <span class="no">#f</span> <span class="o">'</span><span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">circle</span> <span class="p">(</span><span class="nf">make-struct-type</span> <span class="ss">'circle</span> <span class="nv">point</span> <span class="o">'</span><span class="p">(</span><span class="nf">r</span><span class="p">)))</span>
-<span class="p">(</span><span class="nf">struct-type-slots</span> <span class="nv">point</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">struct-type-slots</span> <span class="nv">circle</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span> <span class="nv">r</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(struct-type-parent structype)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the super type of the structure type <code>structype</code>, if it exists
-or <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(struct-type-name structype)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the name associated to the structure type <code>structype</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(struct-type-change-writer! structype proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Change the default writer associated to structures of type <code>structype</code>
-to the <code>proc</code> procedure. The <code>proc</code> procedure must accept 2 arguments
-(the structure to write and the port wher the structure must be written
-in that order). The value returned by <code>struct-type-change-writer!</code> is the
-old writer associated to <code>structype</code>. To restore the standard structure
-writer for <code>structype</code>, use the special value <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">point</span> <span class="p">(</span><span class="nf">make-struct-type</span> <span class="ss">'point</span> <span class="no">#f</span> <span class="o">'</span><span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="nf">struct-type-change-writer!</span>
-  <span class="nv">point</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">s</span> <span class="nv">port</span><span class="p">)</span>
-    <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">type</span> <span class="p">(</span><span class="nf">struct-type</span> <span class="nv">s</span><span class="p">)))</span>
-      <span class="p">(</span><span class="nf">format</span> <span class="nv">port</span> <span class="s">"{~A"</span> <span class="p">(</span><span class="nf">struct-type-name</span> <span class="nv">type</span><span class="p">))</span>
-      <span class="c1">;; display the slots and their value</span>
-      <span class="p">(</span><span class="nb">for-each</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span>
-       <span class="p">(</span><span class="nf">format</span> <span class="nv">port</span> <span class="s">" ~A=~S"</span> <span class="nv">x</span> <span class="p">(</span><span class="nf">struct-ref</span> <span class="nv">s</span> <span class="nv">x</span><span class="p">)))</span>
-     <span class="p">(</span><span class="nf">struct-type-slots</span> <span class="nv">type</span><span class="p">))</span>
-      <span class="p">(</span><span class="nf">format</span> <span class="nv">port</span> <span class="s">"}"</span><span class="p">))))</span>
-<span class="p">(</span><span class="nb">display</span> <span class="p">(</span><span class="nf">make-struct</span> <span class="nv">point</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span> <span class="nv">|-</span> <span class="err">{</span><span class="nv">point</span> <span class="nv">x=1</span> <span class="nv">y=2</span><span class="err">}</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-struct structype expr &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated instance of the structure type <code>structype</code>,
-whose slots are initialized to <code>expr</code> &#8230;&#8203; If fewer <code>expr</code> than the number of
-instances are given to <code>make-struct</code>, the remaining slots are inialized with
-the special <strong><em>void</em></strong> value.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(struct? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a structure, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">type</span> <span class="p">(</span><span class="nf">make-struct-type</span> <span class="ss">'point</span> <span class="no">#f</span> <span class="o">'</span><span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)))</span>
-       <span class="p">(</span><span class="nf">inst</span> <span class="p">(</span><span class="nf">make-struct</span> <span class="nv">type</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">struct?</span> <span class="nv">inst</span><span class="p">))</span>         <span class="nv">=&gt;</span> <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(struct-type s)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the structure type of the <code>s</code> structure</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(struct-ref s slot-name)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the value associated to slot <code>slot-name</code> of the <code>s</code> structure.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">point</span>  <span class="p">(</span><span class="nf">make-struct-type</span> <span class="ss">'point</span> <span class="no">#f</span> <span class="o">'</span><span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">circle</span> <span class="p">(</span><span class="nf">make-struct-type</span> <span class="ss">'circle</span> <span class="nv">point</span> <span class="o">'</span><span class="p">(</span><span class="nf">r</span><span class="p">)))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">p</span> <span class="p">(</span><span class="nf">make-struct</span> <span class="nv">point</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">c</span> <span class="p">(</span><span class="nf">make-struct</span> <span class="nv">circle</span> <span class="mi">10</span> <span class="mi">20</span> <span class="mi">30</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">struct-ref</span> <span class="nv">p</span> <span class="ss">'y</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">2</span>
-<span class="p">(</span><span class="nf">struct-ref</span> <span class="nv">c</span> <span class="ss">'r</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">30</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(struct-set! s slot-name value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Stores value in the to slot <code>slot-name</code> of the <code>s</code> structure. The value
-returned by <code>struct-set!</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">point</span>  <span class="p">(</span><span class="nf">make-struct-type</span> <span class="ss">'point</span> <span class="no">#f</span> <span class="o">'</span><span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">p</span> <span class="p">(</span><span class="nf">make-struct</span> <span class="nv">point</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">struct-ref</span> <span class="nv">p</span> <span class="ss">'x</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">struct-set!</span> <span class="nv">p</span> <span class="ss">'x</span> <span class="mi">0</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">struct-ref</span> <span class="nv">p</span> <span class="ss">'x</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">0</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(struct-is-a? s structype)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return a boolean that indicates if the structure <code>s</code> is of type <code>structype</code>.
-Note that if <code>s</code> is an instance of a subtype of <em>S</em>, it is considered
-also as an instance of type <em>S</em>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">point</span>  <span class="p">(</span><span class="nf">make-struct-type</span> <span class="ss">'point</span> <span class="no">#f</span> <span class="o">'</span><span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">circle</span> <span class="p">(</span><span class="nf">make-struct-type</span> <span class="ss">'circle</span> <span class="nv">point</span> <span class="o">'</span><span class="p">(</span><span class="nf">r</span><span class="p">)))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">p</span> <span class="p">(</span><span class="nf">make-struct</span> <span class="nv">point</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">c</span> <span class="p">(</span><span class="nf">make-struct</span> <span class="nv">circle</span> <span class="mi">10</span> <span class="mi">20</span> <span class="mi">30</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">struct-is-a?</span> <span class="nv">p</span> <span class="nv">point</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">struct-is-a?</span> <span class="nv">c</span> <span class="nv">point</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">struct-is-a?</span> <span class="nv">p</span> <span class="nv">circle</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">struct-is-a?</span> <span class="nv">c</span> <span class="nv">circle</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(struct&#8594;list s)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the content of structure <code>s</code> as an A-list whose keys are the
-slots of the structure type of <code>s</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">point</span>  <span class="p">(</span><span class="nf">make-struct-type</span> <span class="ss">'point</span> <span class="no">#f</span> <span class="o">'</span><span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">p</span> <span class="p">(</span><span class="nf">make-struct</span> <span class="nv">point</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">struct-&gt;list</span> <span class="nv">p</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">x</span> <span class="o">.</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="nf">y</span> <span class="o">.</span> <span class="mi">2</span><span class="p">))</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_bytevectors">4.10. Bytevectors</h3>
-<div class="paragraph">
-<p>
-<em>Bytevectors</em> represent blocks of binary data.  They
-are fixed-length sequences of bytes, where a <em>byte</em> is an
-exact integer in the range <code>(0, 255)</code>. A bytevector is typically more
-space-efficient than a vector containing the same values.</p>
-</div>
-<div class="paragraph">
-<p>The <em>length</em> of a bytevector is the number of elements that it contains. This
-number is a non-negative integer that is fixed when the bytevector is
-created. The <em>valid indexes</em> of a bytevector are the exact non-negative
-integers less than the length of the bytevector, starting at index zero as
-with vectors.</p>
-</div>
-<div class="paragraph">
-<p>Bytevectors are written using the notation <code>#u8(byte &#8230;&#8203;)</code>.  For example, a
-bytevector of length 3 containing the byte 0 in element 0, the byte 10 in
-element 1, and the byte 5 in element 2 can be written as follows: <code>#u8(0 10
-5)</code></p>
-</div>
-<div class="paragraph">
-<p>Bytevector constants are self-evaluating, so they do not
-need to be quoted in programs.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bytevector? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a bytevector and returns <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-bytevector k)</code></strong><br>
-<strong><code>(make-bytevector k byte)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated bytevector of k bytes. If If <code>byte</code> is given,
-then all elements of the bytevector are initialized to <code>byte</code>, otherwise
-the contents of each element is 0.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">make-bytevector</span> <span class="mi">2</span> <span class="mi">12</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="o">#</span><span class="nv">u8</span><span class="p">(</span><span class="nf">12</span> <span class="mi">12</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">make-bytevector</span> <span class="mi">3</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="o">#</span><span class="nv">u8</span><span class="p">(</span><span class="nf">0</span> <span class="mi">0</span> <span class="mi">0</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bytevector byte &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated bytevector containing its arguments.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">bytevector</span> <span class="mi">1</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">1</span> <span class="mi">3</span> <span class="mi">5</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="o">#</span><span class="nv">u8</span><span class="p">(</span><span class="nf">1</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">1</span> <span class="mi">3</span> <span class="mi">5</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">bytevector</span><span class="p">)</span>               <span class="nv">=&gt;</span> <span class="o">#</span><span class="nv">u8</span><span class="p">()</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bytevector-length bytevector)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the length of <code>bytevector</code> in bytes as an exact integer.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bytevector-u8-ref bytevector k)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the byte at index <code>k</code> of <code>bytevector</code> as an exact integer in the
-range [0..255]. It is an error if <code>k</code> is not a valid index of <code>bytevector</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">bytevector-u8-ref</span> <span class="o">#</span><span class="nv">u8</span><span class="p">(</span><span class="nf">1</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">5</span> <span class="mi">8</span> <span class="mi">13</span> <span class="mi">21</span><span class="p">)</span> <span class="mi">5</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="mi">8</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bytevector-u8-set! bytevector k byte)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Stores byte as the k th byte of bytevector. It is an error if <code>k</code>
-is not a valid index of <code>bytevector</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">bv</span> <span class="p">(</span><span class="nf">bytevector</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">bytevector-u8-set!</span> <span class="nv">bv</span> <span class="mi">1</span> <span class="mi">3</span><span class="p">)</span>
-  <span class="nv">bv</span><span class="p">)</span>                             <span class="nv">=&gt;</span> <span class="o">#</span><span class="nv">u8</span><span class="p">(</span><span class="nf">1</span> <span class="mi">3</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bytevector-copy bytevector)</code></strong><br>
-<strong><code>(bytevector-copy bytevector start)</code></strong><br>
-<strong><code>(bytevector-copy bytevector start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated bytevector containing the bytes in <code>bytevector</code>
-between <code>start</code> and <code>end</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="o">#</span><span class="nv">u8</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">bytevector-copy</span> <span class="nv">a</span> <span class="mi">2</span> <span class="mi">4</span><span class="p">))</span>       <span class="nv">=&gt;</span>  <span class="o">#</span><span class="nv">u8</span><span class="p">(</span><span class="nf">3</span> <span class="mi">4</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bytevector-copy! to at from)</code></strong><br>
-<strong><code>(bytevector-copy! to at from start)</code></strong><br>
-<strong><code>(bytevector-copy! to at from start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Copies the bytes of bytevector <code>from</code> between <code>start</code> and <code>end</code>
-to bytevector <code>to</code>, starting at <code>at</code>. The order in which bytes
-are copied is unspecified, except that if the source and
-destination overlap, copying takes place as if the source is first
-copied into a temporary bytevector and then into the destination.
-This can be achieved without allocating storage by making sure
-to copy in the correct direction in such circumstances.</p>
-</div>
-<div class="paragraph">
-<p>It is an error if <code>at</code> is less than zero or greater than the length
-of <code>to</code>. It is also an error if <code>(- (bytevector-length to) at)</code> is
-less than <code>(- end start)</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">a</span> <span class="p">(</span><span class="nf">bytevector</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">b</span> <span class="p">(</span><span class="nf">bytevector</span> <span class="mi">10</span> <span class="mi">20</span> <span class="mi">30</span> <span class="mi">40</span> <span class="mi">50</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">bytevector-copy!</span> <span class="nv">b</span> <span class="mi">1</span> <span class="nv">a</span> <span class="mi">0</span> <span class="mi">2</span><span class="p">)</span>
-<span class="nv">b</span>                                  <span class="nv">=&gt;</span>  <span class="o">#</span><span class="nv">u8</span><span class="p">(</span><span class="nf">10</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">40</span> <span class="mi">50</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(bytevector-append bytevector &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated bytevector whose elements are
-the concatenation of the elements in the given bytevectors.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">bytevector-append</span> <span class="o">#</span><span class="nv">u8</span><span class="p">(</span><span class="nf">0</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span> <span class="o">#</span><span class="nv">u8</span><span class="p">(</span><span class="nf">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">))</span>
-                    <span class="nv">=&gt;</span>  <span class="o">#</span><span class="nv">u8</span><span class="p">(</span><span class="nf">0</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(utf8&#8594;string bytevector)</code></strong><br>
-<strong><code>(utf8&#8594;string bytevector start)</code></strong><br>
-<strong><code>(utf8&#8594;string bytevector start end)</code></strong><br>
-<strong><code>(string&#8594;utf8 string)</code></strong><br>
-<strong><code>(string&#8594;utf8 string start)</code></strong><br>
-<strong><code>(string&#8594;utf8 string start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures translate between strings and bytevectors
-that encode those strings using the UTF-8 encoding.
-The <code>utf8&#8594;string</code> procedure decodes the bytes of
-a bytevector between <code>start</code> and <code>end</code> and returns the
-corresponding string; the <code>string&#8594;utf8</code> procedure encodes the
-characters of a string between <code>start</code> and <code>end</code> and returns
-the corresponding bytevector.</p>
-</div>
-<div class="paragraph">
-<p>It is an error for <code>bytevector</code> to contain invalid UTF-8 byte
-sequences.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">utf8-&gt;string</span> <span class="o">#</span><span class="nv">u8</span><span class="p">(</span><span class="mh">#x41</span><span class="p">))</span>   <span class="nv">=&gt;</span> <span class="s">"A"</span>
-<span class="p">(</span><span class="nf">string-&gt;utf8</span> <span class="s">"λ"</span><span class="p">)</span>         <span class="nv">=&gt;</span> <span class="o">#</span><span class="nv">u8</span><span class="p">((</span><span class="mh">#xce</span> <span class="mh">#xbb</span><span class="p">)</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_control_features">4.11. Control features</h3>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(procedure? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a procedure, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">procedure?</span> <span class="nv">car</span><span class="p">)</span>                            <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">procedure?</span> <span class="ss">'car</span><span class="p">)</span>                           <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nb">procedure?</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">x</span> <span class="nv">x</span><span class="p">)))</span>           <span class="nv">=&gt;</span>  <span class="no">#t</span>
-<span class="p">(</span><span class="nb">procedure?</span> <span class="o">'</span><span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">x</span> <span class="nv">x</span><span class="p">)))</span>          <span class="nv">=&gt;</span>  <span class="no">#f</span>
-<span class="p">(</span><span class="nb">call-with-current-continuation</span> <span class="nv">procedure?</span><span class="p">)</span> <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(apply proc arg1 &#8230;&#8203; args)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Proc</code> must be a procedure and <code>args</code> must be a list. Calls <code>proc</code> with the
-elements of the list</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">append</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">arg1</span> <span class="o">...</span><span class="p">)</span> <span class="nv">args</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>as the actual arguments.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">apply</span> <span class="nv">+</span> <span class="p">(</span><span class="nb">list</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">))</span>              <span class="nv">=&gt;</span>  <span class="mi">7</span>
-
-<span class="p">(</span><span class="k">define</span> <span class="nv">compose</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">f</span> <span class="nv">g</span><span class="p">)</span>
-     <span class="p">(</span><span class="k">lambda</span> <span class="nv">args</span>
-       <span class="p">(</span><span class="nf">f</span> <span class="p">(</span><span class="nb">apply</span> <span class="nv">g</span> <span class="nv">args</span><span class="p">)))))</span>
-
-<span class="p">((</span><span class="nf">compose</span> <span class="nv">sqrt</span> <span class="nv">*</span><span class="p">)</span> <span class="mi">12</span> <span class="mi">75</span><span class="p">)</span>          <span class="nv">=&gt;</span>  <span class="mi">30</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(map proc list1 list2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>list`s must be lists, and `proc</code> must be a procedure taking as many
-arguments as there are lists and returning a single value.
-If more than one list is given, then they must all be the same length.
-<code>Map</code> applies <code>proc</code> element-wise to the elements of the `list`s and returns
-a list of the results, in order.  The dynamic order in which proc is applied
-to the elements of the lists is unspecified.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">map</span> <span class="nv">cadr</span> <span class="o">'</span><span class="p">((</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span><span class="nf">d</span> <span class="nv">e</span><span class="p">)</span> <span class="p">(</span><span class="nf">g</span> <span class="nv">h</span><span class="p">)))</span>   <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">b</span> <span class="nv">e</span> <span class="nv">h</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nb">map</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">n</span><span class="p">)</span> <span class="p">(</span><span class="nb">expt</span> <span class="nv">n</span> <span class="nv">n</span><span class="p">))</span>
-     <span class="o">'</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">))</span>                <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">1</span> <span class="mi">4</span> <span class="mi">27</span> <span class="mi">256</span> <span class="mi">3125</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nb">map</span> <span class="nv">+</span> <span class="o">'</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span> <span class="o">'</span><span class="p">(</span><span class="nf">4</span> <span class="mi">5</span> <span class="mi">6</span><span class="p">))</span>         <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">5</span> <span class="mi">7</span> <span class="mi">9</span><span class="p">)</span>
-
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">count</span> <span class="mi">0</span><span class="p">))</span>
-  <span class="p">(</span><span class="nb">map</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">ignored</span><span class="p">)</span>
-      <span class="p">(</span><span class="k">set!</span> <span class="nv">count</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">count</span> <span class="mi">1</span><span class="p">))</span>
-      <span class="nv">count</span><span class="p">)</span>
-       <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)))</span>                   <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span><span class="p">)</span> <span class="o">,</span><span class="p">(</span><span class="nf">emph</span> <span class="s">"or"</span><span class="p">)</span> <span class="p">(</span><span class="nf">2</span> <span class="mi">1</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-map proc string1 string2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>strings</code> must be strings, and <code>proc</code> must be a procedure taking as
-many arguments as there are strings and returning a single
-value. If more than one string is given and not all strings have the
-same length, <code>string-map</code> terminates when the shortest list runs
-out. <code>String-map</code> applies <code>proc</code> element-wise to the elements of the
-strings and returns a string of the results, in order. The dynamic
-order in which proc is applied to the elements of the <code>strings</code> is
-unspecified.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">string-map</span> <span class="nv">char-downcase</span> <span class="s">"AbdEgH"</span><span class="p">)</span>
-         <span class="nv">=&gt;</span> <span class="s">"abdegh"</span>
-
-<span class="p">(</span><span class="nf">string-map</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">c</span><span class="p">)</span>
-    <span class="p">(</span><span class="nb">integer-&gt;char</span> <span class="p">(</span><span class="nb">+</span> <span class="mi">1</span> <span class="p">(</span><span class="nb">char-&gt;integer</span> <span class="nv">c</span><span class="p">))))</span>
-  <span class="s">"HAL"</span><span class="p">)</span>
-         <span class="nv">=&gt;</span> <span class="s">"IBM"</span>
-
-<span class="p">(</span><span class="nf">string-map</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">c</span> <span class="nv">k</span><span class="p">)</span>
-           <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">eqv?</span> <span class="nv">k</span> <span class="o">#</span><span class="nv">u</span><span class="p">)</span>
-               <span class="p">(</span><span class="nb">char-upcase</span> <span class="nv">c</span><span class="p">)</span>
-               <span class="p">(</span><span class="nb">char-downcase</span> <span class="nv">c</span><span class="p">)))</span>
-         <span class="s">"studlycaps"</span>
-         <span class="s">"ululululul"</span><span class="p">)</span>
-      <span class="nv">=&gt;</span> <span class="s">"StUdLyCaPs"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector-map proc vector1 vector2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>vectors</code> must be vectors, and <code>proc</code> must be a procedure
-taking as many arguments as there are vectors and returning a single
-value. If more than one vector is given and not all vectors have the
-same length, <code>vector-map</code> terminates when the shortest list runs
-out. <code>Vector-map</code> applies <code>proc</code> element-wise to the elements of the
-vectors and returns a vector of the results, in order. The dynamic
-order in which proc is applied to the elements of the <code>vectors</code> is
-unspecified.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">vector-map</span> <span class="nv">cadr</span> <span class="o">'#</span><span class="p">((</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span><span class="nf">d</span> <span class="nv">e</span><span class="p">)</span> <span class="p">(</span><span class="nf">g</span> <span class="nv">h</span><span class="p">)))</span>
-    <span class="nv">=&gt;</span>  <span class="o">#</span><span class="p">(</span><span class="nf">b</span> <span class="nv">e</span> <span class="nv">h</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">vector-map</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">n</span><span class="p">)</span> <span class="p">(</span><span class="nb">expt</span> <span class="nv">n</span> <span class="nv">n</span><span class="p">))</span>
-         <span class="o">'#</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">))</span>
-    <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">(</span><span class="nf">1</span> <span class="mi">4</span> <span class="mi">27</span> <span class="mi">256</span> <span class="mi">3125</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">vector-map</span> <span class="nv">+</span> <span class="o">'#</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span> <span class="o">'#</span><span class="p">(</span><span class="nf">4</span> <span class="mi">5</span> <span class="mi">6</span><span class="p">))</span>
-    <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">(</span><span class="nf">5</span> <span class="mi">7</span> <span class="mi">9</span><span class="p">)</span>
-
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">count</span> <span class="mi">0</span><span class="p">))</span>
-  <span class="p">(</span><span class="nf">vector-map</span>
-    <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">ignored</span><span class="p">)</span>
-      <span class="p">(</span><span class="k">set!</span> <span class="nv">count</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">count</span> <span class="mi">1</span><span class="p">))</span>
-      <span class="nv">count</span><span class="p">)</span>
-    <span class="o">'#</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)))</span>
-    <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span><span class="p">)</span> <span class="nv">or</span> <span class="o">#</span><span class="p">(</span><span class="nf">2</span> <span class="mi">1</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(for-each proc list1 list2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The arguments to <code>for-each</code> are like the arguments to <code>map</code>, but <code>for-each</code>
-calls proc for its side effects rather than for its values.
-Unlike <code>map</code>, <code>for-each</code> is guaranteed to call proc on the elements of
-the lists in order from the first element(s) to the last, and the value
-returned by <code>for-each</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">v</span> <span class="p">(</span><span class="nb">make-vector</span> <span class="mi">5</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">for-each</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">i</span><span class="p">)</span>
-              <span class="p">(</span><span class="nb">vector-set!</span> <span class="nv">v</span> <span class="nv">i</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">i</span> <span class="nv">i</span><span class="p">)))</span>
-            <span class="o">'</span><span class="p">(</span><span class="nf">0</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">))</span>
-  <span class="nv">v</span><span class="p">)</span>                                <span class="nv">=&gt;</span>  <span class="o">#</span><span class="p">(</span><span class="nf">0</span> <span class="mi">1</span> <span class="mi">4</span> <span class="mi">9</span> <span class="mi">16</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string-for-each proc string1 string2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The arguments to <code>string-for-each</code> are like the arguments to
-<code>string-map</code>, but <code>string-for-each</code> calls <code>proc</code> for its side effects
-rather than for its values. Unlike <code>string-map</code>, <code>string-for-each</code> is
-guaranteed to call <code>proc</code> on the elements of the lists in order from
-the first element(s) to the last, and the value returned by
-<code>string-for-each</code> is unspecified. If more than one string is given and
-not all strings have the same length, <code>string-for-each</code> terminates when
-the shortest string runs out.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">v</span> <span class="p">(</span><span class="nb">list</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">string-for-each</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">c</span><span class="p">)</span> <span class="p">(</span><span class="k">set!</span> <span class="nv">v</span> <span class="p">(</span><span class="nb">cons</span> <span class="p">(</span><span class="nb">char-&gt;integer</span> <span class="nv">c</span><span class="p">)</span> <span class="nv">v</span><span class="p">)))</span>
-                   <span class="s">"abcde"</span><span class="p">)</span>
-   <span class="nv">v</span><span class="p">)</span>
-       <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">101</span> <span class="mi">100</span> <span class="mi">99</span> <span class="mi">98</span> <span class="mi">97</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(vector-for-each proc vector1 vector2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The arguments to <code>vector-for-each</code> are like the arguments to
-<code>vector-map</code>, but <code>vector-for-each</code> calls <code>proc</code> for its side effects
-rather than for its values. Unlike <code>vector-map</code>, <code>vector-for-each</code> is
-guaranteed to call <code>proc</code> on the elements of the lists in order from
-the first element(s) to the last, and the value returned by
-<code>vector-for-each</code> is unspecified. If more than one vector is given and
-not all vectors have the same length, <code>vector-for-each</code> terminates when
-the shortest vector runs out.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">v</span> <span class="p">(</span><span class="nb">make-vector</span> <span class="mi">5</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">vector-for-each</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">i</span><span class="p">)</span> <span class="p">(</span><span class="nb">vector-set!</span> <span class="nv">v</span> <span class="nv">i</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">i</span> <span class="nv">i</span><span class="p">)))</span>
-                <span class="o">'#</span><span class="p">(</span><span class="nf">0</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">))</span>
-  <span class="nv">v</span><span class="p">)</span>
-       <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">(</span><span class="nf">0</span> <span class="mi">1</span> <span class="mi">4</span> <span class="mi">9</span> <span class="mi">16</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(every pred list1 list2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>every</code> applies the predicate <code>pred</code> across the lists, returning true if
-the predicate returns true on every application.</p>
-</div>
-<div class="paragraph">
-<p>If there are n list arguments <code>list1</code> &#8230;&#8203; <code>listn</code>, then <code>pred</code> must be
-a procedure taking n arguments and returning a boolean result.</p>
-</div>
-<div class="paragraph">
-<p><code>every</code> applies pred to the first elements of the <code>listi</code> parameters. If
-this application returns false, every immediately returns <code>#f</code>.
-Otherwise, it iterates, applying <code>pred</code> to the second elements of the <code>listi</code>
-parameters, then the third, and so forth. The iteration stops when a
-false value is produced or one of the lists runs out of values.
-In the latter case, <code>every</code> returns the true value produced by its final
-application of pred. The application of pred to the last element of the
-lists is a tail call.</p>
-</div>
-<div class="paragraph">
-<p>If one of the <code>listi</code> has no elements, <code>every</code> simply returns <code>#t</code>.</p>
-</div>
-<div class="paragraph">
-<p>Like <code>any</code>, <code>every&#8217;s name does not end with a question mark&#8201;&#8212;&#8201;this is to
-indicate that it does not return a simple boolean (</code>#t` or <code>#f</code>), but a
-general value.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(any pred list1 list2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>any</code> applies the predicate across the lists, returning true if the
-predicate returns true on any application.</p>
-</div>
-<div class="paragraph">
-<p>If there are n list arguments <code>list1</code> &#8230;&#8203; <code>listn</code>, then <code>pred</code> must be
-a procedure taking n arguments.</p>
-</div>
-<div class="paragraph">
-<p><code>any</code> applies <code>pred</code> to the first elements of the <code>listi</code> parameters. If
-this application returns a true value, <code>any</code> immediately returns that value.
-Otherwise, it iterates, applying <code>pred</code> to the second elements of the <code>listi</code>
-parameters, then the third, and so forth. The iteration stops when a true
-value is produced or one of the lists runs out of values; in the latter case,
-any returns <code>#f</code>. The application of <code>pred</code> to the last element of the
-lists is a tail call.</p>
-</div>
-<div class="paragraph">
-<p>Like <code>every</code>, <code>any&#8217;s name does not end with a question mark&#8201;&#8212;&#8201;this is
-to indicate that it does not return a simple boolean (</code>#t` or <code>#f</code>), but
-a general value.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">any</span> <span class="nv">integer?</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="mi">3</span> <span class="nv">b</span> <span class="mf">2.7</span><span class="p">))</span>   <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">any</span> <span class="nv">integer?</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="mf">3.1</span> <span class="nv">b</span> <span class="mf">2.7</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">any</span> <span class="nv">&lt;</span> <span class="o">'</span><span class="p">(</span><span class="nf">3</span> <span class="mi">1</span> <span class="mi">4</span> <span class="mi">1</span> <span class="mi">5</span><span class="p">)</span>
-       <span class="o">'</span><span class="p">(</span><span class="nf">2</span> <span class="mi">7</span> <span class="mi">1</span> <span class="mi">8</span> <span class="mi">2</span><span class="p">))</span>          <span class="nv">=&gt;</span> <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(call-with-current-continuation proc)</code></strong><br>
-<strong><code>(call/cc proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Proc</code> must be a procedure of one argument. The procedure
-<code>call-with-current-continuation</code> packages up the current continuation
-(see the rationale below) as an "<em>escape procedure</em>" and passes it as
-an argument to <code>proc</code>. The escape procedure is a Scheme procedure that, if
-it is later called, will abandon whatever continuation is in effect at
-that later time and will instead use the continuation that was in effect
-when the escape procedure was created. Calling the escape procedure may cause
-the invocation of before and after thunks installed using <code>dynamic-wind</code>.</p>
-</div>
-<div class="paragraph">
-<p>The escape procedure accepts the same number of arguments as
-the continuation to the original call to
-<code>call-with-current-continuation</code>. Except for continuations created
-by the <code>call-with-values</code> procedure, all continuations take exactly
-one value.</p>
-</div>
-<div class="paragraph">
-<p>The escape procedure that is passed to proc has unlimited extent
-just like any other procedure in Scheme. It may be stored in variables
-or data structures and may be called as many times as desired.</p>
-</div>
-<div class="paragraph">
-<p>The following examples show only the most common ways in which
-<code>call-with-current-continuation</code> is used. If all real uses were as simple
-as these examples, there would be no need for a procedure with the power
-of <code>call-with-current-continuation</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">call-with-current-continuation</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">exit</span><span class="p">)</span>
-    <span class="p">(</span><span class="nb">for-each</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span>
-                <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">negative?</span> <span class="nv">x</span><span class="p">)</span>
-                    <span class="p">(</span><span class="nf">exit</span> <span class="nv">x</span><span class="p">)))</span>
-              <span class="o">'</span><span class="p">(</span><span class="nf">54</span> <span class="mi">0</span> <span class="mi">37</span> <span class="mi">-3</span> <span class="mi">245</span> <span class="mi">19</span><span class="p">))</span>
-    <span class="no">#t</span><span class="p">))</span>                                <span class="nv">=&gt;</span>  <span class="mi">-3</span>
-
-<span class="p">(</span><span class="k">define</span> <span class="nv">list-length</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">obj</span><span class="p">)</span>
-    <span class="p">(</span><span class="nb">call-with-current-continuation</span>
-      <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">return</span><span class="p">)</span>
-        <span class="p">(</span><span class="k">letrec</span> <span class="p">((</span><span class="nf">r</span>
-                  <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">obj</span><span class="p">)</span>
-                    <span class="p">(</span><span class="k">cond</span> <span class="p">((</span><span class="nb">null?</span> <span class="nv">obj</span><span class="p">)</span> <span class="mi">0</span><span class="p">)</span>
-                          <span class="p">((</span><span class="nb">pair?</span> <span class="nv">obj</span><span class="p">)</span>
-                           <span class="p">(</span><span class="nb">+</span> <span class="p">(</span><span class="nf">r</span> <span class="p">(</span><span class="nb">cdr</span> <span class="nv">obj</span><span class="p">))</span> <span class="mi">1</span><span class="p">))</span>
-                          <span class="p">(</span><span class="k">else</span> <span class="p">(</span><span class="nf">return</span> <span class="no">#f</span><span class="p">))))))</span>
-          <span class="p">(</span><span class="nf">r</span> <span class="nv">obj</span><span class="p">))))))</span>
-
-<span class="p">(</span><span class="nf">list-length</span> <span class="o">'</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">))</span>                <span class="nv">=&gt;</span>  <span class="mi">4</span>
-<span class="p">(</span><span class="nf">list-length</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="o">.</span> <span class="nv">c</span><span class="p">))</span>                <span class="nv">=&gt;</span>  <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock important">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-important" title="Important"></i>
-</td>
-<td class="content">
-common use of <code>call-with-current-continuation</code>
-is for structured, non-local exits from loops or procedure bodies,
-but in fact <code>call-with-current-continuation</code> is extremely useful
-for implementing a wide variety of advanced control structures.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>Whenever a Scheme expression is evaluated there is a continuation
-wanting the result of the expression. The continuation represents
-an entire (default) future for the computation. If the expression
-is evaluated at top level, for example, then the continuation
-might take the result, print it on the screen, prompt for the
-next input, evaluate it, and so on forever. Most of the time the
-continuation includes actions specified by user code, as in a
-continuation that will take the result, multiply it by the value
-stored in a local variable, add seven, and give the answer to the
-top level continuation to be printed. Normally these ubiquitous
-continuations are hidden behind the scenes and programmers do not
-think much about them. On rare occasions, however, a programmer
-may need to deal with continuations explicitly.
-<code>Call-with-current-continuation</code> allows Scheme
-programmers to do that by creating a procedure that acts just
-like the current continuation.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<code>call/cc</code> is just another name for
-<code>call-with-current-continuation</code>.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(call/ec proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>call/ec</code> is an short name for <code>call-with-escape-continuation</code>. <code>call/ec</code>
-calls <code>proc</code> with one parameter, which is the current escape continuation
-(a continuation which can only be used to abort a computation and hence
-cannot be "re-enterered").</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">list</span> <span class="mi">1</span>
-      <span class="p">(</span><span class="nf">call/ec</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">return</span><span class="p">)</span> <span class="p">(</span><span class="nb">list</span> <span class="ss">'a</span> <span class="p">(</span><span class="nf">return</span> <span class="ss">'b</span><span class="p">)</span> <span class="ss">'c</span><span class="p">)))</span>
-      <span class="mi">3</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="nv">b</span> <span class="mi">3</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>call/ec</code> is cheaper than the full <code>call/cc</code>. It is particularily useful
-when all the power of <code>call/cc</code> is not needded.</p>
-</div>
-<div id="values" class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(values obj &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Delivers all of its arguments to its continuation.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-R<sup>5</sup>RS imposes to use multiple values in the context
-of a <code>call-with-values</code>. In STklos, if <code>values</code> is not used with
-<code>call-with-values</code>, only the first value is used (i.e. others values are
-<em>ignored</em>)).
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(call-with-values producer consumer)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Calls its producer argument with no values and a continuation that,
-when passed some values, calls the consumer procedure with those values
-as arguments. The continuation for the call to consumer is the
-continuation of the call to call-with-values.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">call-with-values</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="p">(</span><span class="nb">values</span> <span class="mi">4</span> <span class="mi">5</span><span class="p">))</span>
-                  <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)</span> <span class="nv">b</span><span class="p">))</span>                <span class="nv">=&gt;</span>  <span class="mi">5</span>
-
-<span class="p">(</span><span class="nb">call-with-values</span> <span class="nv">*</span> <span class="nv">-</span><span class="p">)</span>                             <span class="nv">=&gt;</span>  <span class="mi">-1</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(receive &lt;formals&gt; &lt;expression&gt; &lt;body&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This form is defined in <strong><a href="http://srfi.schemers.org/srfi-8/srfi-8.html">SRFI-8</a></strong> (<em>Receive: Binding to multiple values</em>). It simplifies
-the usage of multiple values. Specifically, <code>&lt;formals&gt;</code> can have any
-of three forms:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>(<code>&lt;variable<sub>1</sub>&gt;</code> &#8230;&#8203; <code>&lt;variable<sub>n</sub>&gt;</code>):
-The environment in which the
-receive-expression is evaluated is extended by binding <code>&lt;variable<sub>1</sub>&gt;</code>, &#8230;&#8203;,
-<code>&lt;variable<sub>n</sub>&gt;</code> to fresh locations.<br>
-The <code>&lt;expression&gt;</code> is evaluated, and its
-values are stored into those locations. (It is an error if <code>&lt;expression&gt;</code>
-does not have exactly n values.)</p>
-</li>
-<li>
-<p><code>&lt;variable&gt;</code>: The environment in which the receive-expression is
-evaluated is extended by binding <code>&lt;variable&gt;</code> to a fresh location.<br>
-The <code>&lt;expression&gt;</code> is evaluated, its values are converted into a newly
-allocated list, and the list is stored in the location bound to <code>&lt;variable&gt;</code>.</p>
-</li>
-<li>
-<p>(<code>&lt;variable<sub>1</sub>&gt;</code> &#8230;&#8203; <code>&lt;variable<sub>n</sub>&gt;</code> . <code>&lt;variable<sub>n+1</sub>&gt;</code>):  The environment
-in which the receive-expression is evaluated is extended by binding
-<code>&lt;variable<sub>1</sub>&gt;</code>, &#8230;&#8203;, <code>&lt;variable<sub>n+1</sub>&gt;</code> to fresh locations.
-The <code>&lt;expression&gt;</code> is evaluated. Its first n values are stored into the
-locations bound to <code>&lt;variable<sub>1</sub>&gt;</code> &#8230;&#8203; <code>&lt;variable<sub>n</sub>&gt;</code>. Any remaining values
-are converted into a newly allocated list, which is stored into the location
-bound to <code>&lt;variable<sub>n+1</sub>&gt;</code>. (It is an error if <code>&lt;expression&gt;</code> does not have
-at least n values.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>In any case, the expressions in <code>&lt;body&gt;</code> are evaluated sequentially in
-the extended environment. The results of the last expression in the body
-are the values of the receive-expression.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">n</span> <span class="mi">123</span><span class="p">))</span>
-  <span class="p">(</span><span class="nf">receive</span> <span class="p">(</span><span class="nf">q</span> <span class="nv">r</span><span class="p">)</span>
-     <span class="p">(</span><span class="nb">values</span> <span class="p">(</span><span class="nb">quotient</span> <span class="nv">n</span> <span class="mi">10</span><span class="p">)</span> <span class="p">(</span><span class="nb">modulo</span> <span class="nv">n</span> <span class="mi">10</span><span class="p">))</span>
-     <span class="p">(</span><span class="nb">cons</span> <span class="nv">q</span> <span class="nv">r</span><span class="p">)))</span>
-              <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">12</span> <span class="o">.</span> <span class="mi">3</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(dynamic-wind before thunk after)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Calls <code>thunk</code> without arguments, returning the result(s) of this call.
-<code>Before</code> and <code>after</code> are called, also without arguments, as required by
-the following rules (note that in the absence of calls to continuations
-captured using <code>call-with-current-continuation</code> the three arguments are
-called once each, in order).  <code>Before</code> is called whenever execution enters
-the dynamic extent of the call to <code>thunk</code> and <code>after</code> is called whenever
-it exits that dynamic extent.  The dynamic extent of a procedure call is
-the period between when the call is initiated and when it returns.
-In Scheme, because of <code>call-with-current-continuation</code>, the dynamic
-extent of a call may not be a single, connected time period. It is
-defined as follows:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>The dynamic extent is entered when execution of the body of
-the called procedure begins.</p>
-</li>
-<li>
-<p>The dynamic extent is also entered when execution is not
-within the dynamic extent and a continuation is invoked that was
-captured (using <code>call-with-current-continuation</code>) during the dynamic
-extent.</p>
-</li>
-<li>
-<p>It is exited when the called procedure returns.</p>
-</li>
-<li>
-<p>It is also exited when execution is within the dynamic
-extent and a continuation is invoked that was captured while not within
-the dynamic extent.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>If a second call to <code>dynamic-wind</code> occurs within the dynamic extent
-of the call to <code>thunk</code> and then a continuation is invoked in such a
-way that the afters from these two invocations of <code>dynamic-wind</code>
-are both to be called, then the after associated with the
-second (inner) call to <code>dynamic-wind</code> is called first.</p>
-</div>
-<div class="paragraph">
-<p>If a second call to <code>dynamic-wind</code> occurs within the dynamic extent
-of the call to <code>thunk</code> and then a continuation is invoked in such a
-way that the befores from these two invocations of <code>dynamic-wind</code>
-are both to be called, then the before associated with the
-first (outer) call to <code>dynamic-wind</code> is called first.</p>
-</div>
-<div class="paragraph">
-<p>If invoking a continuation requires calling the <code>before</code> from one
-call to <code>dynamic-wind</code> and the <code>after</code> from another, then the <code>after</code>
-is called first.</p>
-</div>
-<div class="paragraph">
-<p>The effect of using a captured continuation to enter or exit the
-dynamic extent of a call to <code>before</code> or <code>after</code> is undefined.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">path</span> <span class="o">'</span><span class="p">())</span>
-      <span class="p">(</span><span class="nf">c</span> <span class="no">#f</span><span class="p">))</span>
-  <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">add</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">s</span><span class="p">)</span>
-               <span class="p">(</span><span class="k">set!</span> <span class="nv">path</span> <span class="p">(</span><span class="nb">cons</span> <span class="nv">s</span> <span class="nv">path</span><span class="p">)))))</span>
-    <span class="p">(</span><span class="nb">dynamic-wind</span>
-      <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="p">(</span><span class="nf">add</span> <span class="ss">'connect</span><span class="p">))</span>
-      <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span>
-        <span class="p">(</span><span class="nf">add</span> <span class="p">(</span><span class="nb">call-with-current-continuation</span>
-               <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">c0</span><span class="p">)</span>
-                 <span class="p">(</span><span class="k">set!</span> <span class="nv">c</span> <span class="nv">c0</span><span class="p">)</span>
-                 <span class="ss">'talk1</span><span class="p">))))</span>
-      <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="p">(</span><span class="nf">add</span> <span class="ss">'disconnect</span><span class="p">)))</span>
-    <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">&lt;</span> <span class="p">(</span><span class="nb">length</span> <span class="nv">path</span><span class="p">)</span> <span class="mi">4</span><span class="p">)</span>
-        <span class="p">(</span><span class="nf">c</span> <span class="ss">'talk2</span><span class="p">)</span>
-        <span class="p">(</span><span class="nb">reverse</span> <span class="nv">path</span><span class="p">))))</span>
-                  <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">connect</span> <span class="nv">talk1</span> <span class="nv">disconnect</span>
-                       <span class="nv">connect</span> <span class="nv">talk2</span> <span class="nv">disconnect</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(eval expression environment)</code></strong><br>
-<strong><code>(eval expression)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Evaluates expression in the specified environment and returns its
-value. <code>Expression</code> must be a valid Scheme expression represented
-as data. <code>Environment</code> may be a R<sup>5</sup>RS environment-specifier
-(<code>interaction-environment</code>, <code>scheme-report-environment</code> or
-<code>null-environment</code>) or a <strong><em>STklos</em></strong> module.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">eval</span> <span class="o">'</span><span class="p">(</span><span class="nb">*</span> <span class="mi">7</span> <span class="mi">3</span><span class="p">)</span> <span class="p">(</span><span class="nb">scheme-report-environment</span> <span class="mi">5</span><span class="p">))</span>
-              <span class="nv">=&gt;</span> <span class="mi">21</span>
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">f</span> <span class="p">(</span><span class="nb">eval</span> <span class="o">'</span><span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">f</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nf">f</span> <span class="nv">x</span> <span class="nv">x</span><span class="p">))</span>
-               <span class="p">(</span><span class="nb">null-environment</span> <span class="mi">5</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nf">f</span> <span class="nv">+</span> <span class="mi">10</span><span class="p">))</span>
-              <span class="nv">=&gt;</span> <span class="mi">20</span>
-<span class="p">(</span><span class="nf">define-module</span> <span class="nv">A</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">x</span> <span class="mi">1</span><span class="p">))</span>
-<span class="p">(</span><span class="nb">eval</span> <span class="o">'</span><span class="p">(</span><span class="nb">cons</span> <span class="nv">x</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nf">find-module</span> <span class="ss">'A</span><span class="p">))</span>
-              <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="o">.</span> <span class="mi">1</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(environment set1 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure returns a specifier for the environment that
-results by starting with an empty environment and then
-importing each <strong>set</strong>, considered as an import
-set, into it. The bindings of the environment represented by
-the specifier, as is the environment itself.</p>
-</div>
-<div class="paragraph">
-<p>In STklos,
-- each <code>set</code> argument can be a list (specifying an R<sup>7</sup>RS
-  library) or a symbol (specifying a module).
-- the return environment is an R<sup>7</sup>RS library (which can be
-  passed to <code>eval</code>).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">eval</span> <span class="o">'</span><span class="p">(</span><span class="nb">*</span> <span class="mi">7</span> <span class="mi">3</span><span class="p">)</span> <span class="p">(</span><span class="nf">environment</span> <span class="o">'</span><span class="p">(</span><span class="nf">scheme</span> <span class="nv">base</span><span class="p">)))</span>    <span class="nv">=&gt;</span> <span class="mi">21</span>
-
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">f</span> <span class="p">(</span><span class="nb">eval</span> <span class="o">'</span><span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">f</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nf">f</span> <span class="nv">x</span> <span class="nv">x</span><span class="p">))</span>
-               <span class="p">(</span><span class="nb">null-environment</span> <span class="mi">5</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nf">f</span> <span class="nv">+</span> <span class="mi">10</span><span class="p">))</span>                                     <span class="nv">=&gt;</span> <span class="mi">20</span>
-
-<span class="p">(</span><span class="nb">eval</span> <span class="o">'</span><span class="p">(</span><span class="k">define</span> <span class="nv">foo</span> <span class="mi">32</span><span class="p">)</span>
-      <span class="p">(</span><span class="nf">environment</span> <span class="o">'</span><span class="p">(</span><span class="nf">scheme</span> <span class="nv">base</span><span class="p">)))</span>             <span class="nv">=&gt;</span> <span class="nv">errror</span>
-
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">e</span> <span class="p">(</span><span class="nf">environment</span> <span class="o">'</span><span class="p">(</span><span class="nf">only</span> <span class="p">(</span><span class="nf">scheme</span> <span class="nv">base</span><span class="p">)</span> <span class="nv">+</span> <span class="nv">-</span><span class="p">)</span>
-                      <span class="o">'</span><span class="p">(</span><span class="nf">only</span> <span class="p">(</span><span class="nf">scheme</span> <span class="nv">write</span><span class="p">)</span> <span class="nv">display</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nb">length</span> <span class="p">(</span><span class="nf">module-symbols</span> <span class="nv">e</span><span class="p">)))</span>                  <span class="nv">=&gt;</span> <span class="mi">3</span>
-
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">e</span> <span class="p">(</span><span class="nf">environment</span> <span class="o">'</span><span class="p">(</span><span class="nf">prefix</span> <span class="p">(</span><span class="nf">only</span> <span class="p">(</span><span class="nf">scheme</span> <span class="nv">base</span><span class="p">)</span> <span class="nv">car</span><span class="p">)</span>
-                               <span class="nv">foo-</span><span class="p">))))</span>
-   <span class="p">(</span><span class="nf">module-symbols</span> <span class="nv">e</span><span class="p">))</span>                            <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">foo-car</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(scheme-report-environment)</code></strong><br>
-<strong><code>(scheme-report-environment version)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a specifier for an environment that contains the bindings defined
-in the R<sup>5</sup>RS report.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-In STklos, <code>scheme-report-environment</code> function can be called
-without the version number (defaults to 5).
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(null-environment)</code></strong><br>
-<strong><code>(null-environment version)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a specifier for an environment that is empty except for
-the (syntactic) bindings for all syntactic keywords defined in
-the R<sup>5</sup>RS report.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-In STklos, <code>null-environment</code> function can be called
-without the version number (defaults to 5).
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(interaction-environment)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure returns the environment in the expression are
-evaluated by default (the <strong><em>STklos</em></strong> module). The returned environment
-is mutable.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(eval-from-string str)</code></strong><br>
-<strong><code>(eval-from-string str module)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Read an expression from <code>str</code> and evaluates it with <code>eval</code>. If a <code>module</code>
-is passed, the evaluation takes place in the environment of this module.
-Otherwise, the evaluation takes place in the environment returned by
-<code>current-module</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">x</span> <span class="mi">10</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">define-module</span> <span class="nv">M</span>
-  <span class="p">(</span><span class="k">define</span> <span class="nv">x</span> <span class="mi">100</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">eval-from-string</span> <span class="s">"(+ x x)"</span><span class="p">)</span>                   <span class="nv">=&gt;</span> <span class="mi">20</span>
-<span class="p">(</span><span class="nf">eval-from-string</span> <span class="s">"(+ x x)"</span> <span class="p">(</span><span class="nf">find-module</span> <span class="ss">'M</span><span class="p">))</span>  <span class="nv">=&gt;</span> <span class="mi">200</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_input_and_output">4.12. Input and Output</h3>
-<div class="paragraph">
-<p>
-
-
-
-R<sup>5</sup>RS states that ports represent input and output
-devices.  However, it defines only ports which are attached to
-files.  In <strong><em>STklos</em></strong>, ports can also be attached to strings, to a
-external command input or output, or even be virtual (i.e. the
-behavior of the port is given by the user).</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>String ports are similar to file ports, except that characters are read from
-(or written to) a string rather than a file.</p>
-</li>
-<li>
-<p>External command input or output ports are implemented with Unix pipes and
-are called <strong><em>pipe ports</em></strong>. A pipe port is created by specifying the command to
-execute prefixed with the string <code>"| "</code> (that is a pipe bar followed by a
-space).  Specification of a pipe port can occur everywhere a file name is
-needed.</p>
-</li>
-<li>
-<p>Virtual ports are created by supplying basic I/O functions at port creation
-time. These functions will be used to simulate low level accesses to a
-``virtual device''. This kind of port is particularly convenient for reading
-or writing in a graphical window as if it was a file. Once a virtual port is
-created, it can be accessed as a normal port with the standard Scheme
-primitives.</p>
-</li>
-</ul>
-</div>
-<div class="sect3">
-<h4 id="_ports">4.12.1. Ports</h4>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(call-with-port port proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>call-with-port</code> procedure calls <code>proc</code> with <code>port</code> as an
-argument. If <code>proc</code> returns, then the <code>port</code> is closed automatically
-and the values yielded by the <code>proc</code> are returned.
-If <code>proc</code> does not return, then the <code>port</code> must not be closed
-automatically unless it is possible to prove that the port
-will never again be used for a read or write operation.</p>
-</div>
-<div class="paragraph">
-<p>It is an error if proc does not accept one argument.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(call-with-input-file string proc)</code></strong><br>
-<strong><code>(call-with-output-file string proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>String</code> should be a string naming a file, and <code>proc</code> should be a procedure
-that accepts one argument. For <code>call-with-input-file</code>, the file should
-already exist. These procedures call <code>proc</code> with one argument: the port
-obtained by opening the named file for input or output. If the file cannot
-be opened, an error is signaled. If <code>proc</code> returns, then the port is closed
-automatically and the value(s) yielded by the proc is(are) returned.
-If proc does not return, then the port will not be closed automatically.</p>
-</div>
-<div class="admonitionblock important">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-important" title="Important"></i>
-</td>
-<td class="content">
-Because Scheme&#8217;s escape procedures have unlimited extent,
-it is possible to escape from the current continuation but later to escape
-back in. If implementations were permitted to close the port on any escape
-from the current continuation, then it would be impossible to write portable
-code using both <code>call-with-current-continuation</code> and <code>call-with-input-file</code>
-or <code>call-with-output-file</code>.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(call-with-input-string string proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>behaves as <code>call-with-input-file</code> except that the port passed to <code>proc</code>
-is the sting port obtained from <code>port</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">call-with-input-string</span> <span class="s">"123 456"</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span>
-     <span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">n1</span> <span class="p">(</span><span class="nb">read</span> <span class="nv">x</span><span class="p">))</span>
-            <span class="p">(</span><span class="nf">n2</span> <span class="p">(</span><span class="nb">read</span> <span class="nv">x</span><span class="p">)))</span>
-        <span class="p">(</span><span class="nb">cons</span> <span class="nv">n1</span> <span class="nv">n2</span><span class="p">))))</span>          <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">123</span> <span class="o">.</span> <span class="mi">456</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(call-with-output-string proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Proc</code> should be a procedure of one argument. <code>Call-with-output-string</code>
-calls <code>proc</code> with a freshly opened output string port. The result of
-this procedure is a string containing all the text that has been written
-on the string port.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">call-with-output-string</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">write</span> <span class="mi">123</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">display</span> <span class="s">"Hello"</span> <span class="nv">x</span><span class="p">)))</span> <span class="nv">=&gt;</span> <span class="s">"123Hello"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(input-port? obj)</code></strong><br>
-<strong><code>(output-port? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is an input port or output port respectively,
-otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(textual-port? obj)</code></strong><br>
-<strong><code>(binary-port? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a textual port or binary port respectively,
-otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(port? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is an input port or an output port,
-otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(input-string-port? obj)</code></strong><br>
-<strong><code>(output-string-port? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is an input string port or output string port
-respectively, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(input-bytevector-port? obj)</code></strong><br>
-<strong><code>(output-bytevector-port? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is an input bytevector port or output bytevector port
-respectively, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(input-file-port? obj)</code></strong><br>
-<strong><code>(output-file-port? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a file input port or a file output port respectively,
-otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(input-port-open? port)</code></strong><br>
-<strong><code>(output-port-open? port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if port is still open and capable of performing
-input or output, respectively, and <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(input-virtual-port? obj)</code></strong><br>
-<strong><code>(output-virtual-port? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a virtual input port or a virtual output port
-respectively, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(interactive-port? port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>port</code> is connected to a terminal and <code>#f</code> otherwise.</p>
-</div>
-<div id="curroport" class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(current-input-port obj)</code></strong><br>
-<strong><code>(current-output-port obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the current default input or output port.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(current-error-port obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the current default error port.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(with-input-from-file string thunk)</code></strong><br>
-<strong><code>(with-output-to-file string thunk)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>String</code> should be a string naming a file, and <code>proc</code> should be a
-procedure of no arguments. For <code>with-input-from-file</code>, the file should
-already exist. The file is opened for input or output, an input or output
-port connected to it is made the default value returned by
-<code>current-input-port</code> or <code>current-output-port</code> (and is used by <code>(read)</code>,
-<code>(write obj)</code>, and so forth), and the thunk is called with no arguments.
-When the thunk returns, the port is closed and the previous default is
-restored. <code>With-input-from-file</code> and <code>with-output-to-file</code> return(s)
-the value(s) yielded by thunk.</p>
-</div>
-<div class="paragraph">
-<p>The following example uses a pipe port opened for reading. It permits to
-read all the lines produced by an external ,(emph "ls") command (i.e. the
-output of the ,(emph "ls") command is ,(emph "redirected") to the Scheme pipe
-port).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">with-input-from-file</span> <span class="s">"| ls -ls"</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span>
-    <span class="p">(</span><span class="k">do</span> <span class="p">((</span><span class="nf">l</span> <span class="p">(</span><span class="nf">read-line</span><span class="p">)</span> <span class="p">(</span><span class="nf">read-line</span><span class="p">)))</span>
-        <span class="p">((</span><span class="nb">eof-object?</span> <span class="nv">l</span><span class="p">))</span>
-      <span class="p">(</span><span class="nb">display</span> <span class="nv">l</span><span class="p">)</span>
-      <span class="p">(</span><span class="nb">newline</span><span class="p">))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Hereafter is another example of Unix command redirection. This time,
-it is the standard input of the Unix command which is redirected.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">with-output-to-file</span> <span class="s">"| mail root"</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span>
-    <span class="p">(</span><span class="nb">display</span> <span class="s">"A simple mail from Scheme"</span><span class="p">)</span>
-    <span class="p">(</span><span class="nb">newline</span><span class="p">)))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(with-error-to-file string thunk)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure is similar to with-output-to-file, excepted that it uses the
-current error port instead of the output port.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(with-input-from-string string thunk)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>A string port is opened for input from <code>string</code>. <code>Current-input-port</code>
-is set to the port and <code>thunk</code> is called. When <code>thunk</code> returns,
-the previous default input port is restored. <code>With-input-from-string</code>
-returns the value(s) computed by <code>thunk</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">with-input-from-string</span> <span class="s">"123 456"</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="p">(</span><span class="nb">read</span><span class="p">)))</span>                       <span class="nv">=&gt;</span>  <span class="mi">123</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(with-output-to-string thunk)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>A string port is opened for output. <code>Current-output-port</code>
-is set to it and <code>thunk</code> is called. When <code>thunk</code> returns,
-the previous default output port is restored. <code>With-output-to-string</code>
-returns the string containing the text written on the string port.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">with-output-to-string</span>
-   <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="p">(</span><span class="nb">write</span> <span class="mi">123</span><span class="p">)</span> <span class="p">(</span><span class="nb">write</span> <span class="s">"Hello"</span><span class="p">)))</span> <span class="nv">=&gt;</span> <span class="s">"123\"Hello\""</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(with-input-from-port port thunk)</code></strong><br>
-<strong><code>(with-output-to-port port thunk)</code></strong><br>
-<strong><code>(with-error-to-port port thunk)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Port</code> should be a port, and <code>proc</code> should be a
-procedure of no arguments. These procedures do a job similar to the
-<code>with-&#8230;&#8203;-file</code> counterparts  excepted that they use an open port instead
-of string specifying a file name</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(open-input-file filename)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Takes a string naming an existing file and returns an input port capable
-of delivering characters from the file. If the file cannot be opened,
-an error is signalled.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-if <code>filename</code> starts with the string <code>"| "</code>, this procedure returns a pipe port.
-Consequently, it is not possible to open a file whose name starts with those two
-characters.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(open-input-string str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns an input string port capable of delivering characters from
-<code>str</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(open-input-string bytevector)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Takes a bytevector and returns a binary input port that
-delivers bytes from the <code>bytevector</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(open-input-virtual :key  (read-char #f) (ready? #f) (eof? #f) (close #f))</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a virtual port using the <code>read-char</code> procedure to read a
-character from the port, <code>ready?</code> to know if there is any data to
-read from the port, <code>eof?</code> to know if the end of file is reached
-on the port and finally <code>close</code> to close the port. All these
-procedure takes one parameter which is the port from which the input
-takes place.  <code>Open-input-virtual</code> accepts also the special value
-<code>#f</code> for the I/O procedures with the following conventions:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>if <code>read-char</code> or <code>eof?</code> is <code>#f</code>, any attempt to read
-the virtual port will return an eof object;</p>
-</li>
-<li>
-<p>if <code>ready?</code> is <code>#f</code>, the file is always  ready for reading;</p>
-</li>
-<li>
-<p>if <code>close</code> is <code>#f</code>, no action is done when the port is closed.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>Hereafter is a possible implementation of <code>open-input-string</code>
-using virtual ports:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">open-input-string</span> <span class="nv">str</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">index</span> <span class="mi">0</span><span class="p">))</span>
-    <span class="p">(</span><span class="nf">open-input-virtual</span>
-       <span class="nv">:read-char</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">p</span><span class="p">)</span>
-                    <span class="c1">;; test on eof is already done by the system</span>
-                    <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">res</span> <span class="p">(</span><span class="nb">string-ref</span> <span class="nv">str</span> <span class="nv">index</span><span class="p">)))</span>
-                      <span class="p">(</span><span class="k">set!</span> <span class="nv">index</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">index</span> <span class="mi">1</span><span class="p">))</span>
-                      <span class="nv">res</span><span class="p">))</span>
-       <span class="nv">:eof?</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">p</span><span class="p">)</span> <span class="p">(</span><span class="nb">&gt;=</span> <span class="nv">index</span> <span class="p">(</span><span class="nb">string-length</span> <span class="nv">str</span><span class="p">))))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(open-output-file filename)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Takes a string naming an output file to be created and returns an output
-port capable of writing characters to a new file by that name. If the file
-cannot be opened, an error is signalled. If a file with the given name
-already exists, it is rewritten.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-if <code>filename</code> starts with the string <code>"| "</code>, this procedure returns a pipe port.
-Consequently, it is not possible to open a file whose name starts with those two
-characters.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(open-output-string)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns an output string port capable of receiving and collecting characters.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(open-output-bytevector)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a binary output port that will accumulate bytes
-for retrieval by <code>get-output-bytevector</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(open-output-virtual :key  (write-char #f) (write-string #f) (flush #f) (close #f))</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a virtual port using the <code>write-char</code> procedure to write a
-character to the port, <code>write-string</code> to write a string to the port,
-<code>flush</code> to (eventuelly) flush the characters on the port and finally
-<code>close`to close the port. `Write-char</code> takes two parameters: a character and
-the port to which the output must be done. <code>write-string</code> takes two
-parameters: a string and a port. <code>Flush</code> and <code>Close</code> take one
-parameter which is the port on which the action must be done.
-<code>Open-output-virtual</code> accepts also the special value <code>#f</code>
-for the I/O procedures. If a procedure is <code>#f</code> nothing is done
-on the corresponding action.</p>
-</div>
-<div class="paragraph">
-<p>Hereafter is a (very inefficient) implementation of a variant of
-<code>open-output-string</code> using virtual ports. The value of the output
-string is printed when the port is closed:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">open-output-string</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">str</span> <span class="s">""</span><span class="p">))</span>
-    <span class="p">(</span><span class="nf">open-output-virtual</span>
-       <span class="nv">:write-char</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">c</span> <span class="nv">p</span><span class="p">)</span>
-                     <span class="p">(</span><span class="k">set!</span> <span class="nv">str</span> <span class="p">(</span><span class="nb">string-append</span> <span class="nv">str</span> <span class="p">(</span><span class="nb">string</span> <span class="nv">c</span><span class="p">))))</span>
-       <span class="nv">:write-string</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">s</span> <span class="nv">p</span><span class="p">)</span>
-                       <span class="p">(</span><span class="k">set!</span> <span class="nv">str</span> <span class="p">(</span><span class="nb">string-append</span> <span class="nv">str</span> <span class="nv">s</span><span class="p">)))</span>
-       <span class="nv">:close</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">p</span><span class="p">)</span> <span class="p">(</span><span class="nb">write</span> <span class="nv">str</span><span class="p">)</span> <span class="p">(</span><span class="nb">newline</span><span class="p">)))))</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<code>write-string</code> is mainly used for writing strings and is
-generally more efficient than writing the string character by character.
-However, if <code>write-string</code> is not provided, strings are printed with
-<code>write-char</code>.  On the other hand, if <code>write-char</code> is absent,
-characters are written by successive allocation of one character strings.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>Hereafter is another example: a virtual file port where all characters
-are converted to upper case:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">open-output-uppercase-file</span> <span class="nv">file</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">out</span> <span class="p">(</span><span class="nf">open-file</span> <span class="nv">file</span> <span class="s">"w"</span><span class="p">)))</span>
-    <span class="p">(</span><span class="k">and</span> <span class="nv">out</span>
-         <span class="p">(</span><span class="nf">open-output-virtual</span>
-             <span class="nv">:write-string</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">s</span> <span class="nv">p</span><span class="p">)</span>
-                             <span class="p">(</span><span class="nb">display</span> <span class="p">(</span><span class="nf">string-upper</span> <span class="nv">s</span><span class="p">)</span> <span class="nv">out</span><span class="p">))</span>
-             <span class="nv">:close</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">p</span><span class="p">)</span>
-                      <span class="p">(</span><span class="nf">close-port</span> <span class="nv">out</span><span class="p">))))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(open-file filename mode)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Opens the file whose name is <code>filename</code> with the specified string
-<code>mode</code> which can be:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>"r"</code> to open the file for reading. The stream is positioned at
-the beginning of the file.</p>
-</li>
-<li>
-<p><code>"r+"</code> to open the file for reading and writing. The stream is
-positioned at the beginning of the file.</p>
-</li>
-<li>
-<p><code>"w"</code> to truncate the file to zero length or create the file for writing.
-The stream is positioned at the beginning of the file.</p>
-</li>
-<li>
-<p><code>"w+"</code> to open the file for reading and writing. The file is created
-if it does not exist, otherwise it is truncated. The stream is positioned
-at the beginning of the file.</p>
-</li>
-<li>
-<p><code>"a"</code> to open the file for writing. The file is created if it does
-not exist. The stream is positioned at the end of the file.</p>
-</li>
-<li>
-<p><code>"a+"</code> to open the file for reading and writing. The file is created
-if it does not exist. The stream is positioned at the end of the file.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>If the file can be opened, <code>open-file</code> returns the textual port associated
-with the given file, otherwise it returns <code>#f</code>. Here again, the <strong><em>magic</em></strong>
-string "| " permits to open a pipe port. (In this case mode can only be
-<code>"r"</code> or <code>"w"</code>.)</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(get-output-string port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a string containing all the text that has been written on the
-output string <code>port</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"> <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">p</span> <span class="p">(</span><span class="nf">open-output-string</span><span class="p">)))</span>
-    <span class="p">(</span><span class="nb">display</span> <span class="s">"Hello, world"</span> <span class="nv">p</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">get-output-string</span> <span class="nv">p</span><span class="p">))</span>         <span class="nv">=&gt;</span> <span class="s">"Hello, world"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(get-output-bytevector port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a bytevector consisting of the bytes that have been
-output to the <code>port</code> so far in the order they were output.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"> <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">p</span> <span class="p">(</span><span class="nf">open-output-bytevector</span><span class="p">)))</span>
-    <span class="p">(</span><span class="nf">u8-write</span> <span class="mi">65</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">u8-write</span> <span class="mi">66</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">get-output-bytevector</span> <span class="nv">p</span><span class="p">))</span>         <span class="nv">=&gt;</span> <span class="o">#</span><span class="nv">u8</span><span class="p">(</span><span class="nf">65</span> <span class="mi">66</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(close-input-port port)</code></strong><br>
-<strong><code>(close-output-port port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Closes the port associated with <code>port</code>, rendering the port incapable of
-delivering or accepting characters. These routines have no effect if the
-port has already been closed. The value returned is <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(close-port port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Closes the port associated with <code>port</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(port-rewind port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Sets the port position to the beginning of <code>port</code>. The value returned by
-<code>port-rewind</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(port-seek port pos)</code></strong><br>
-<strong><code>(port-seek port pos whence)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Sets the file position for the given <code>port</code> to the position <code>pos</code>.
-The new position, measured in bytes, is obtained by adding <code>pos</code>
-bytes to the position specified by <code>whence</code>. If passed, <code>whence</code>
-must be one of <code>:start</code>, <code>:current</code> or <code>:end</code>. The resulting
-position is relative to the start of the file, the current position
-indicator, or end-of-file, respectively. If <code>whence</code> is omitted, it
-defaults to <code>:start</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-After using port-seek, the value returned by
-<code>port-current-line</code> may be incorrect.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(port-current-line)</code></strong><br>
-<strong><code>(port-current-line port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the current line number associated to the given input <code>port</code> as an
-integer. The <code>port</code> argument may be omitted, in which case it defaults to
-the value returned by <code>current-input-port</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The <code>port-seek</code>, <code>read-chars</code> and <code>read-chars!</code> procedures
-generally break the line-number. After using one of these procedures, the
-value returned by <code>port-current-line</code> will be <code>-1</code> (except a <code>port-seek</code>
-at the beginning of the port reinitializes the line counter).
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(port-current-position)</code></strong><br>
-<strong><code>(port-current-position port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the position associated to the given <code>port</code> as an
-integer (i.e. number of characters from the beginning of the port).
-The <code>port</code> argument may be omitted, in which case it defaults to
-the value returned by <code>current-input-port</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(port-file-name port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the file name used to open <code>port</code>; <code>port</code> must be a file port.</p>
-</div>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(port-idle-register! port thunk)</code></strong><br>
-<strong><code>(port-idle-unregister! port thunk)</code></strong><br>
-<strong><code>(port-idle-reset! port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>port-idle-register!</code> allows to register <code>thunk</code> as an idle handler
-when reading on port. That means that <code>thunk</code> will be called continuously
-while waiting  an input on <code>port</code> (and only while using a reading
-primitive on this port). <code>port-idle-unregister!</code> can be used to
-unregister a handler previously set by <code>port-idle-register!</code>. The
-primitive <code>port-idle-reset!</code> unregisters all the handlers set on
-<code>port</code>.</p>
-</div>
-<div class="paragraph">
-<p>Hereafter is a (not too realistic) example: a message will be displayed
-repeatedly until a <strong><em>sexpr</em></strong> is read on the current input port.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">idle</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="p">(</span><span class="nb">display</span> <span class="s">"Nothing to read!\n"</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nf">port-idle-register!</span> <span class="p">(</span><span class="nb">current-input-port</span><span class="p">)</span> <span class="nv">idle</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">result</span> <span class="p">(</span><span class="nb">read</span><span class="p">)))</span>
-    <span class="p">(</span><span class="nf">port-idle-unregister!</span> <span class="p">(</span><span class="nb">current-input-port</span><span class="p">)</span> <span class="nv">idle</span><span class="p">)</span>
-    <span class="nv">result</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(port-closed? port)</code></strong><br>
-<strong><code>(port-open?  port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>port-closed?</code> returns <code>#t</code> if <code>port</code> is closed and <code>#f</code> otherwise.
-On the contrary, <code>port-open?</code> returns <code>#t</code> if <code>port</code> is open and
-<code>#f</code> otherwise.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<code>port-closed?</code> was the usual STklos function to
-test if a port is closed. <code>port-open?</code> has been added to be the companion
-of the R<sup>7</sup>RS functions <code>input-port-open?</code> and <code>output-port-open?</code>
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(port-close-hook-set! port thunk)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Associate the procedure <code>thunk</code> to <code>port</code>. The thunk will be called
-the first time <code>port</code> is closed.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">tmp</span> <span class="p">(</span><span class="nf">temporary-file-name</span><span class="p">))</span>
-       <span class="p">(</span><span class="nf">p</span>   <span class="p">(</span><span class="nb">open-output-file</span> <span class="nv">tmp</span><span class="p">))</span>
-       <span class="p">(</span><span class="nf">foo</span> <span class="no">#t</span><span class="p">))</span>
-  <span class="p">(</span><span class="nf">port-close-hook-set!</span> <span class="nv">p</span>
-                     <span class="p">(</span><span class="k">lambda</span><span class="p">()</span>
-                       <span class="p">(</span><span class="nf">remove-file</span> <span class="nv">tmp</span><span class="p">)</span>
-                       <span class="p">(</span><span class="k">set!</span> <span class="nv">foo</span> <span class="no">#t</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">close-port</span> <span class="nv">p</span><span class="p">)</span>
-  <span class="nv">foo</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(port-close-hook port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the user close procedure associated to the given <code>port</code>.</p>
-</div>
-<div class="literalblock">
-<div class="content">
-<pre> The following procedures are defined in *link:http://srfi.schemers.org/srfi-192/srfi-192.html[SRFI-192]* (_Port Positioning_)(((SRFI-192))) which is fully
-  supported:((("SRFI-192")))
-(((port-has-port-position?)))</pre>
-</div>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(port-has-port-position? port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The port-has-port-position? procedure returns <code>#t</code> if the port
-supports the port-position operation, and <code>#f</code> otherwise. If the port
-does not support the operation, port-position signals an error.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(port-position port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The port-position procedure returns an object representing the
-information state  about the port current position as is
-necessary to save and restore that position. This value can be useful
-only as the pos argument to set-port-position!, if the latter is even
-supported on the port. However, if the port is binary and the object
-is an exact integer, then it is the position measured in bytes, and
-can be used to compute a new position some specified number of bytes
-away.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(port-has-set-port-position!? port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The port-has-set-port-position!? procedure returns <code>#t</code> if the port supports
-the set-port-position! operation, and <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(set-port-position! port pos)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>For a textual port, it is implementation-defined what happens if pos is not
-the return value of a call to port-position on port. However, a binary port
-will also accept an exact integer, in which case the port position is set to
-the specified number of bytes from the beginning of the port data. If this
-is not sufficient information to specify the port state, or the specified
-position is uninterpretable by the port, an error satisfying
-i/o-invalid-position-error? is signaled.</p>
-</div>
-<div class="paragraph">
-<p>If <code>set-port-position!</code> procedure is invoked on a port that does not support
-the operation or if pos is not in the range of valid positions of port,
-<code>set-port-position!</code> signals an error. Otherwise, it sets the current position
-of the port to pos. If port is an output port, <code>set-port-position!</code> first flushes
-port (even if the port position will not change).</p>
-</div>
-<div class="paragraph">
-<p>If port is a binary output port and the current position is set beyond the
-current end of the data in the underlying data sink, the object is not extended
-until new data is written at that position. The contents of any intervening
-positions are unspecified. It is also possible to set the position of a binary
-input port beyond the end of the data in the data source, but a read will fail
-unless the data has been extended by other means. File ports can always be
-extended in this manner within the limits of the underlying operating system.
-In other types of ports, if an attempt is made to set the position beyond the
-current end of data in the underlying object, and the object does not support
-extension, an error satisfying <code>i/o-invalid-position-error?</code> is signaled.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-i/o-invalid-position-error pos)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a condition object which satisfies i/o-invalid-position-error?.
-The pos argument represents a position passed to set-position!.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(i/o-invalid-position-error? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is an object created by
-<code>make-i/o-invalid-position-error?</code> or an object raised in the circumstances
-described in <strong><a href="http://srfi.schemers.org/srfi-192/srfi-192.html">SRFI-192</a></strong> (attempt to access an invalid position in the
-stream), or <code>#f</code> if it is not.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_input">4.12.2. Input</h4>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(read)</code></strong><br>
-<strong><code>(read port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Read</code> converts external representations of Scheme objects into the
-objects themselves. <code>Read</code> returns the next object parsable from the given
-input port, updating port to point to the first character past the end of
-the external representation of the object.</p>
-</div>
-<div class="paragraph">
-<p>If an end of file is encountered in the input before any characters are found
-that can begin an object, then an end of file object is returned. The port
-remains open, and further attempts to read will also return an end of file
-object. If an end of file is encountered after the beginning of an object&#8217;s
-external representation, but the external representation is incomplete
-and therefore not parsable, an error is signalled.</p>
-</div>
-<div class="paragraph">
-<p>The port argument may be omitted, in which case it defaults to the value
-returned by <code>current-input-port</code>. It is an error to read from a closed port.</p>
-</div>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> <code>read</code> supports the <strong><a href="http://srfi.schemers.org/srfi-10/srfi-10.html">SRFI-10</a></strong> <code>#,()</code> form that can be used
-to denote values that do not have a convenient printed representation. See
-the SRFI document for more information.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(read-with-shared-structure)</code></strong><br>
-<strong><code>(read-with-shared-structure  port)</code></strong><br>
-<strong><code>(read/ss)</code></strong><br>
-<strong><code>(read/ss port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>read-with-shared-structure</code> is identical to <code>read</code>. It has been added to
-be compatible with ,(link-srfi 38). STklos always knew how to deal with
-recursive input data. <code>read/ss</code> is only a shorter name for
-<code>read-with-shared-structure</code>.</p>
-</div>
-<div id="readerctor" class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(define-reader-ctor tag proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure permits to define a new user to reader constructor procedure
-at run-time. It is defined in ,(link-srfi 10) document. See  SRFI document
-for more information.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-reader-ctor</span> <span class="ss">'rev</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">)</span> <span class="p">(</span><span class="nb">cons</span> <span class="nv">y</span> <span class="nv">x</span><span class="p">)))</span>
-<span class="p">(</span><span class="nf">with-input-from-string</span> <span class="s">"#,(rev 1 2)"</span> <span class="nv">read</span><span class="p">)</span>
-                             <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">2</span> <span class="o">.</span> <span class="mi">1</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(read-char)</code></strong><br>
-<strong><code>(read-char port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the next character available from the input <code>port</code>, updating the <code>port</code>
-to point to the following character. If no more characters are available,
-an end of file object is returned. <code>Port</code> may be omitted, in which case
-it defaults to the value returned by <code>current-input-port</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(read-bytes size)</code></strong><br>
-<strong><code>(read-bytes size port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a newly allocated string made of <code>size</code> characters read from <code>port</code>.
-If less than <code>size</code> characters are available on the input port, the returned
-string is smaller than <code>size</code> and its size is the number of available
-characters. <code>Port</code> may be omitted, in which case it defaults to the
-value returned by <code>current-input-port</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This function was previously called <code>read-chars</code>. Usage
-of the old name is deprecated.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(read-bytevector k)</code></strong><br>
-<strong><code>(read-bytevector k port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Reads the next <code>k</code> bytes, or as many as are available
-before the end of file, from the textual input <code>port</code> into a
-newly allocated string in left-to-right order and returns the
-string. If no characters are available before the end of file,
-an end-of-file object is returned.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(read-bytevector! k)</code></strong><br>
-<strong><code>(read-bytevector! k port)</code></strong><br>
-<strong><code>(read-bytevector! k port start)</code></strong><br>
-<strong><code>(read-bytevector! k port start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Reads the next <code>end - start</code> bytes, or as many as are available
-before the end of file, from the binary input port
-into <code>bytevector</code> in left-to-right order beginning at the start
-position. If <code>end</code> is not supplied, reads until the end of
-<code>bytevector</code> has been reached. If <code>start</code> is not supplied, reads
-beginning at position 0. Returns the number of bytes read.
-If no bytes are available, an end-of-file object is returned.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(read-bytes! str)</code></strong><br>
-<strong><code>(read-bytes! str port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function reads the characters available from <code>port</code> in the string <code>str</code>
-by chuncks whose size is equal to the length of <code>str</code>.
-The value returned by <code>read-bytes!</code> is an integer indicating the number
-of characters read. <code>Port</code> may be omitted, in which case it defaults to the
-value returned by <code>current-input-port</code>.</p>
-</div>
-<div class="paragraph">
-<p>This function is similar to <code>read-bytes</code> except that it avoids to allocate
-a new string for each read.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">copy-file</span> <span class="nv">from</span> <span class="nv">to</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">size</span> <span class="mi">1024</span><span class="p">)</span>
-         <span class="p">(</span><span class="nf">in</span>  <span class="p">(</span><span class="nb">open-input-file</span> <span class="nv">from</span><span class="p">))</span>
-         <span class="p">(</span><span class="nf">out</span> <span class="p">(</span><span class="nb">open-output-file</span> <span class="nv">to</span><span class="p">))</span>
-         <span class="p">(</span><span class="nf">s</span>   <span class="p">(</span><span class="nb">make-string</span> <span class="nv">size</span><span class="p">)))</span>
-    <span class="p">(</span><span class="k">let</span> <span class="nv">Loop</span> <span class="p">()</span>
-      <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">n</span> <span class="p">(</span><span class="nf">read-bytes!</span> <span class="nv">s</span> <span class="nv">in</span><span class="p">)))</span>
-        <span class="p">(</span><span class="k">cond</span>
-          <span class="p">((</span><span class="nb">=</span> <span class="nv">n</span> <span class="nv">size</span><span class="p">)</span>
-             <span class="p">(</span><span class="nf">write-chars</span> <span class="nv">s</span> <span class="nv">out</span><span class="p">)</span>
-             <span class="p">(</span><span class="nf">Loop</span><span class="p">))</span>
-          <span class="p">(</span><span class="k">else</span>
-             <span class="p">(</span><span class="nf">write-chars</span> <span class="p">(</span><span class="nb">substring</span> <span class="nv">s</span> <span class="mi">0</span> <span class="nv">n</span><span class="p">)</span> <span class="nv">out</span><span class="p">)</span>
-             <span class="p">(</span><span class="nf">close-port</span> <span class="nv">out</span><span class="p">)))))))</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This function was previously called <code>read-chars!</code>. Usage
-of the old name is deprecated.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(read-byte)</code></strong><br>
-<strong><code>(read-byte port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the next character available from the input <code>port</code> as an integer.
-If the end of file is reached, this function returns the end of file
-object.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(peek-char)</code></strong><br>
-<strong><code>(peek-char port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the next character available from the input <code>port</code>, without updating
-the port to point to the following character. If no more characters are
-available, an end of file object is returned. <code>Port</code> may be omitted, in
-which case it defaults to the value returned by <code>current-input-port</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The value returned by a call to <code>peek-char</code> is the same as the
-value that would have been returned by a call to <code>read-char</code> with the same
-port. The only difference is that the very next call to <code>read-char</code> or
-<code>peek-char</code> on that port will return the value returned by the preceding
-call to <code>peek-char</code>. In particular, a call to <code>peek-char</code> on an interactive
-port will hang waiting for input whenever a call to <code>read-char</code> would have
-hung.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(peek-byte)</code></strong><br>
-<strong><code>(peek-byte port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the next character available from the input <code>port</code>, without updating
-the port to point to the following character. Whereas <code>peek-char</code>
-returns a character, this function returns an integer between 0and 255.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(eof-object? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is an end of file object, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(eof-object)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>
-end of file
-Returns an end of file object. Note that the special notation <code>#eof</code> is
-another way to return such an end of file object.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(char-ready?)</code></strong><br>
-<strong><code>(char-ready? port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if a character is ready on the input port and returns <code>#f</code>
-otherwise. If char-ready returns <code>#t</code> then the next read-char operation on
-the given port is guaranteed not to hang. If the port is at end of file
-then <code>char-ready?</code> returns <code>#t</code>. Port may be omitted, in which case it
-defaults to the value returned by <code>current-input-port</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(read-string k)</code></strong><br>
-<strong><code>(read-string k port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Reads the next <code>k</code> characters, or as many as are available
-before the end of file, from the textual input <code>port</code> into a
-newly allocated string in left-to-right order and returns the
-string. If no characters are available before the end of file,
-an end-of-file object is returned.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(read-u8)</code></strong><br>
-<strong><code>(read-u8 port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the next byte available from the binary input <code>port</code>,
-updating the <code>port</code> to point to the following byte. If no more
-bytes are available, an end-of-file object is returned.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This function is similar to the <code>read-byte</code>
-function, excepted that it can be used only on  a binary port.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(peek-u8)</code></strong><br>
-<strong><code>(peek-u8 port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the next byte available from the binary input <code>port</code>,
-but without updating the <code>port</code> to point to the following
-byte. If no more bytes are available, an end-of-file object
-is returned.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This function is similar to the <code>peek-byte</code>
-function, excepted that it can be used only on  a binary port.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(u8-ready?)</code></strong><br>
-<strong><code>(u8-ready? port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if a byte is ready on the binary input <code>port</code> and
-returns <code>#f</code> otherwise. If <code>u8-ready?</code> returns <code>#t</code> then the
-next read-u8 operation on the given port is guaranteed
-not to hang. If the <code>port</code> is at end of file then <code>u8-ready?</code>
-returns <code>#t</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(read-line)</code></strong><br>
-<strong><code>(read-line port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Reads the next line available from the input port <code>port</code>. This function
-returns 2 values: the first one is the string which contains the line
-read, and the second one is the end of line delimiter. The end of line
-delimiter can be an end of file object, a character or a string in case
-of a multiple character delimiter. If no more characters are available
-on <code>port</code>, an end of file object is returned.  <code>Port</code> may be omitted,
-in which case it defaults to the value returned by <code>current-input-port</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-As said in <em><a href="_standard_procedures.html#values">primitive <code>values</code></a></em>, if <code>read-line</code> is not
-used in  the context of <code>call-with-values</code>, the second value returned by
-this procedure is ignored.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(read-from-string str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Performs a read from the given <code>str</code>. If <code>str</code> is the empty string,
-an end of file object is returned.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">read-from-string</span> <span class="s">"123 456"</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">123</span>
-<span class="p">(</span><span class="nf">read-from-string</span> <span class="s">""</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="nv">an</span> <span class="nv">eof</span> <span class="nv">object</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(port&#8594;string port)</code></strong><br>
-<strong><code>(port&#8594;sexp-list port)</code></strong><br>
-<strong><code>(port&#8594;string-list port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>All these procedures take a port opened for reading. <code>Port&#8594;string</code> reads
-<code>port</code> until the it reads an end of file object and returns all the
-characters read as a string. <code>Port&#8594;sexp-list</code> and <code>port&#8594;string-list</code>
-do the same things except that they return a list of S-expressions and
-a list of strings respectively. For the following example we suppose that
-file <code>"foo"</code> is formed of two lines which contains respectively the number
-<code>100</code> and the string <code>"bar"</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">port-&gt;sexp-list</span> <span class="p">(</span><span class="nb">open-input-file</span> <span class="s">"foo"</span><span class="p">))</span>   <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">100</span> <span class="s">"bar"</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">port-&gt;string-list</span> <span class="p">(</span><span class="nb">open-input-file</span> <span class="s">"foo"</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="s">"100"</span> <span class="s">""</span><span class="nv">bar</span><span class="s">""</span><span class="p">)</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_output">4.12.3. Output</h4>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(write obj)</code></strong><br>
-<strong><code>(write obj port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Writes a written representation of <code>obj</code> to the given <code>port</code>. Strings that
-appear in the written representation are enclosed in doublequotes, and
-within those strings backslash and doublequote characters are escaped
-by backslashes. Character objects are written using the ,(emph "#\") notation.
-<code>Write</code> returns an unspecified value. The <code>port</code> argument may be omitted, in
-which case it defaults to the value returned by <code>current-output-port</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(write-shared obj)</code></strong><br>
-<strong><code>(write-shared obj port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Writes a written representation of <code>obj</code> to the given port.  The
-main difference with the <code>write</code> procedure is that <code>write*</code>
-handles data structures with cycles. Circular structure written by
-this procedure use the <code>"&#35;n="</code>)) and  <code>"&#35;n&#35;"</code>))
-notations (see <a href="_introduction.html#_other_notations">Section 1.2.4</a>).</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This function is also called <code>write*</code>.
-The name <code>write*</code> was the name used by <strong><em>STklos</em></strong> for
-<code>write-shared</code> before it was introduced in R<sup>7</sup>RS.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(write-with-shared-structure obj)</code></strong><br>
-<strong><code>(write-with-shared-structure obj port)</code></strong><br>
-<strong><code>(write-with-shared-structure obj port optarg)</code></strong><br>
-<strong><code>(write/ss obj)</code></strong><br>
-<strong><code>(write/ss obj port)</code></strong><br>
-<strong><code>(write/ss obj port optarg)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>write-with-shared-structure</code> has been added to be compatible with
-<strong><a href="http://srfi.schemers.org/srfi-38/srfi-38.html">SRFI-38</a></strong> (<em>External representation of shared structures</em>). It is is identical to <code>write*</code>, except that it accepts one
-more parameter (<code>optarg</code>). This parameter, which is not specified
-in <strong><a href="http://srfi.schemers.org/srfi-38/srfi-38.html">SRFI-38</a></strong>, is always ignored. <code>write/ss</code> is only a shorter name for
-<code>write-with-shared-structure</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(display obj)</code></strong><br>
-<strong><code>(display obj port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Writes a representation of <code>obj</code> to the given <code>port</code>. Strings that
-appear in the written representation are not enclosed in
-doublequotes, and no characters are escaped within those
-strings. Character objects appear in the representation as if
-written by <code>write-char</code> instead of by <code>write</code>. <code>Display</code> returns an
-unspecified value. The <code>port</code> argument may be omitted, in which
-case it defaults to the value returned by <code>current-output-port</code>.</p>
-</div>
-<div class="admonitionblock important">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-important" title="Important"></i>
-</td>
-<td class="content">
-<code>Write</code> is intended for producing machine-readable
-output and <code>display</code> is for producing human-readable output.
-</td>
-</tr>
-</table>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-As required by R<sup>7</sup>RS does not loop forever when
-<code>obj</code> contains self-references.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(display-shared obj)</code></strong><br>
-<strong><code>(display-shared obj port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>display-shared</code> procedure is the same as <code>display</code>, except
-that shared structure are represented using datum labels.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(display-simple obj)</code></strong><br>
-<strong><code>(display-simple obj port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>display-simple</code> procedure is the same as <code>display</code>, except
-that shared structure is never represented using datum labels.
-This can cause <code>display-simple</code> not to terminate if <code>obj</code>
-contains circular structure.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(newline)</code></strong><br>
-<strong><code>(newline port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Writes an end of line to <code>port</code>. Exactly how this is done differs from
-one operating system to another. Returns an unspecified value. The <code>port</code>
-argument may be omitted, in which case it defaults to the value returned
-by <code>current-output-port</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(write-string string)</code></strong><br>
-<strong><code>(write-string string port)</code></strong><br>
-<strong><code>(write-string string port start)</code></strong><br>
-<strong><code>(write-string string port start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Writes the characters of <code>string</code> from <code>start</code> to <code>end</code> in
-left-to-right order to the textual output <code>port</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(write-u8 byte)</code></strong><br>
-<strong><code>(write-u8 byte port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Writes the <code>byte</code> to the given binary output port.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(write-bytevector bytevector)</code></strong><br>
-<strong><code>(write-bytevector bytevector port)</code></strong><br>
-<strong><code>(write-bytevector bytevector port start)</code></strong><br>
-<strong><code>(write-bytevector bytevector port start end)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Writes the bytes of <code>bytevector</code> from <code>start</code> to <code>end</code> in
-left-to-right order to the binary output <code>port</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(write-char char)</code></strong><br>
-<strong><code>(write-char char port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Writes the character <code>char</code> (not an external representation of the
-character) to the given <code>port</code> and returns an unspecified value.
-The <code>port</code> argument may be omitted, in which case it defaults to the
-value returned by <code>current-output-port</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(write-chars str)</code></strong><br>
-<strong><code>(write-chars str port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Writes the characters of string <code>str</code> to the given <code>port</code> and
-returns an unspecified value.  The <code>port</code> argument may be omitted,
-in which case it defaults to the value returned by
-<code>current-output-port</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This function is generally
-faster than <code>display</code> for strings. Furthermore, this primitive does
-not use the buffer associated to <code>port</code>.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(write-byte b)</code></strong><br>
-<strong><code>(write-byte b port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Write byte <code>b</code> to the port. <code>b</code> must be an exact integer in range between 0
-and 255.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div id="format" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(format port str obj &#8230;&#8203;)</code></strong><br>
-<strong><code>(format str obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Writes the <code>obj`s to the given `port</code>, according to the format
-string <code>str</code>. <code>Str</code> is written literally, except for the following
-sequences:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>~a</code> or <code>~A</code> is replaced by the printed representation of the
-next <code>obj</code>.</p>
-</li>
-<li>
-<p><code>~s</code> or <code>~S</code> is replaced by the <em>slashified</em> printed
-representation of the next <code>obj</code>.</p>
-</li>
-<li>
-<p><code>~w</code> or <code>~W</code> is replaced by the printed representation
-of the next <code>obj</code> (circular structures are correctly handled and
-printed using <code>write*</code>).</p>
-</li>
-<li>
-<p><code>~d</code> or <code>~D</code> is replaced by the decimal printed representation
-of the next <code>obj</code> (which must be a number).</p>
-</li>
-<li>
-<p><code>~x</code> or <code>~X</code> is replaced by the hexadecimal printed representation
-of the next <code>obj</code> (which must be a number).</p>
-</li>
-<li>
-<p><code>~o</code> or <code>~O</code> is replaced by the octal printed representation
-of the next <code>obj</code> (which must be a number).</p>
-</li>
-<li>
-<p><code>~b</code> or <code>~B</code> is replaced by the binary printed representation
-of the next <code>obj</code> (which must be a number).</p>
-</li>
-<li>
-<p><code>~c</code> or <code>~C</code> is replaced by the printed representation
-of the next <code>obj</code> (which must be a character).</p>
-</li>
-<li>
-<p><code>~y</code> or <code>~Y</code> is replaced by the pretty-printed representation
-of the next <code>obj</code>. The standard pretty-printer is used here.</p>
-</li>
-<li>
-<p><code>~?</code> is replaced by the result of the recursive call of <code>format</code>
-with the two next <code>obj</code>: the first item should be a string, and the
-second, a list with the arguments.</p>
-</li>
-<li>
-<p><code>~k</code> or <code>~K</code> is another name for <code>~?</code></p>
-</li>
-<li>
-<p><code>~[w[,d]]f</code> or <code>~[w[,d]]F</code> is replaced by the printed
-representation of next <code>obj</code> (which must be a number) with width <code>w</code>
-and <code>d</code> digits after the decimal. Eventually, <code>d</code> may be omitted.</p>
-</li>
-<li>
-<p><code>~~</code> is replaced by a single tilde character.</p>
-</li>
-<li>
-<p><code>~%</code> is replaced by a newline</p>
-</li>
-<li>
-<p><code>~t</code> or <code>~T</code> is replaced by a tabulation character.</p>
-</li>
-<li>
-<p><code>~&amp;</code> is replaced by a newline character if it is known that the
-previous character was not a newline</p>
-</li>
-<li>
-<p><code>~_</code> is replaced by a space</p>
-</li>
-<li>
-<p><code>~h</code> or <code>~H</code> provides some help</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p><code>Port</code> can be a boolean or a port. If <code>port</code> is <code>#t</code>, output goes to
-the current output port; if <code>port</code> is <code>#f</code>, the output is returned as a
-string.  Otherwise, the output is printed on the specified port.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="p">(</span><span class="nf">format</span> <span class="no">#f</span> <span class="s">"A test."</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="s">"A test."</span>
-   <span class="p">(</span><span class="nf">format</span> <span class="no">#f</span> <span class="s">"A ~a."</span> <span class="s">"test"</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="s">"A test."</span>
-   <span class="p">(</span><span class="nf">format</span> <span class="no">#f</span> <span class="s">"A ~s."</span> <span class="s">"test"</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="s">"A "</span><span class="nv">test</span><span class="s">"."</span>
-   <span class="p">(</span><span class="nf">format</span> <span class="s">"~8,2F"</span> <span class="mi">1</span><span class="nv">/3</span><span class="p">)</span>         <span class="nv">=&gt;</span> <span class="s">"    0.33"</span>
-   <span class="p">(</span><span class="nf">format</span> <span class="s">"~6F"</span> <span class="mi">32</span><span class="p">)</span>            <span class="nv">=&gt;</span> <span class="s">"    32"</span>
-   <span class="p">(</span><span class="nf">format</span> <span class="s">"~1,2F"</span> <span class="mi">4321</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="s">"4321.00"</span>
-   <span class="p">(</span><span class="nf">format</span> <span class="s">"~1,2F"</span> <span class="p">(</span><span class="nb">sqrt</span> <span class="mf">-3.9</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="s">"0.00+1.97i"</span>
-   <span class="p">(</span><span class="nf">format</span> <span class="s">"#d~d #x~x #o~o #b~b~%"</span> <span class="mi">32</span> <span class="mi">32</span> <span class="mi">32</span> <span class="mi">32</span><span class="p">)</span>
-                                <span class="nv">=&gt;</span> <span class="s">"#d32 #x20 #o40 #b100000n"</span>
-   <span class="p">(</span><span class="nf">format</span> <span class="no">#f</span> <span class="s">"~&amp;1~&amp;~&amp;2~&amp;~&amp;~&amp;3~%"</span><span class="p">)</span>
-                                <span class="nv">=&gt;</span> <span class="s">"n1n2n3n"</span>
-   <span class="p">(</span><span class="nf">format</span> <span class="s">"~a ~? ~a"</span> <span class="ss">'a</span> <span class="s">"~s"</span> <span class="o">'</span><span class="p">(</span><span class="nf">new</span><span class="p">)</span> <span class="ss">'test</span><span class="p">)</span>
-                                <span class="nv">=&gt;</span> <span class="s">"a new test"</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The second form of <code>format</code> is compliant with <strong><a href="http://srfi.schemers.org/srfi-28/srfi-28.html">SRFI-28</a></strong> (<em>Basic Format Strings</em>).
-That is, when <code>port</code> is omitted, the output is returned as a string as if
-<code>port</code> was given the value <code>#f</code>.
-</td>
-</tr>
-</table>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-Since version 0.58, <code>format</code> is also compliant with <strong><a href="http://srfi.schemers.org/srfi-48/srfi-48.html">SRFI-48</a></strong> (<em>Intermediate Format Strings</em>).
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(flush-output-port)</code></strong><br>
-<strong><code>(flush-output-port port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Flushes the buffer associated with the given output <code>port</code>. The
-<code>port</code> argument may be omitted, in which case it defaults to the value
-returned by <code>current-output-port</code></p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(print obj &#8230;&#8203;)</code></strong><br>
-<strong><code>(printerr obj &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures display all their arguments followed by a newline. The
-procedure <code>print</code> uses the standard output port, whereas <code>printerr</code> uses the
-current error port</p>
-</div>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(printf fmt obj &#8230;&#8203;)</code></strong><br>
-<strong><code>(fprintf port fmt obj &#8230;&#8203;)</code></strong><br>
-<strong><code>(eprintf fmt obj &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures are specialized versions of <em><a href="_standard_procedures.html#format"><code>format</code> primitive</a></em>.
-In these procedures, <code>fmt</code> is a string using the <code>format</code> conventions.
-<code>printf</code> outputs go on the current output port.
-<code>fprintf</code> outputs go on the specified <code>port</code>.
-<code>eprintf</code> outputs go on the current error port (note that eprintf always
-flushes the characters printed).</p>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_system_interface">4.13. System interface</h3>
-<div class="paragraph">
-<p>The <strong><em>STklos</em></strong> system interface offers all the functions defined in
-R<sup>7</sup>RS. Note, that the base implementation provides also a subset of the
-functions defined in <strong><a href="http://srfi.schemers.org/srfi-170/srfi-170.html">SRFI-170</a></strong> (<em>POSIX API</em>). These functions are described here.</p>
-</div>
-<div class="paragraph">
-<p>Note, however that <strong><a href="http://srfi.schemers.org/srfi-170/srfi-170.html">SRFI-170</a></strong> is fully supported and accessing the
-other functions it defines can be done by requiring it, as the other SRFIs
-that STklos supports.</p>
-</div>
-<div class="sect3">
-<h4 id="_loading_code">4.13.1. Loading code</h4>
-<div class="paragraph">
-<p></p>
-</div>
-<div id="load" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>5</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(load filename)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-<code>Filename</code> should be a string naming an existing file containing Scheme
-expressions. <code>Load</code> has been extended in STklos to allow loading of
-files containing Scheme compiled code as well as object files (<em>aka</em>
-shared objects). The loading of object files is not available on
-all architectures. The value returned by <code>load</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p>If the file whose name is <code>filename</code> cannot be located, <code>load</code> will try
-to find it in one of the directories given by <code>"load-path"</code>
-with the suffixes given by <code>"load-suffixes"</code>.</p>
-</div>
-<div id="tryload" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(try-load filename)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>try-load</code> tries to load the file named <code>filename</code>. As with <code>load</code>,
-<code>try-load</code> tries to find the file given the current load path
-and a set of suffixes if <code>filename</code> cannot be loaded. If <code>try-load</code>
-is able to find a readable file, it is loaded, and <code>try-load</code> returns
-<code>#t</code>. Otherwise, <code>try-load</code> retuns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(find-path str)</code></strong><br>
-<strong><code>(find-path str path)</code></strong><br>
-<strong><code>(find-path str path suffixes)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>In its first form, <code>find-path</code> returns the path name of the file
-that should be loaded by the procedure  <code>load</code> given the name <code>str</code>.
-The string returned depends of the current  load path and of the
-currently accepted suffixes.</p>
-</div>
-<div class="paragraph">
-<p>The other forms of <code>find-path</code> are more general and allow to give a path
-list (a list of strings representing supposed directories) and a set
-of suffixes (given as a list of strings too) to try for finding a file.
-If no file is found, <code>find-path</code> returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p>For instance, on a "classical" Unix box:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">find-path</span> <span class="s">"passwd"</span> <span class="o">'</span><span class="p">(</span><span class="s">"/bin"</span> <span class="s">"/etc"</span> <span class="s">"/tmp"</span><span class="p">))</span>
-            <span class="nv">=&gt;</span> <span class="s">"/etc/passwd"</span>
-<span class="p">(</span><span class="nf">find-path</span> <span class="s">"stdio"</span> <span class="o">'</span><span class="p">(</span><span class="s">"/usr"</span> <span class="s">"/usr/include"</span><span class="p">)</span> <span class="o">'</span><span class="p">(</span><span class="s">"c"</span> <span class="s">"h"</span> <span class="s">"stk"</span><span class="p">))</span>
-            <span class="nv">=&gt;</span> <span class="s">"/usr/include/stdio.h"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(current-loading-file)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the path of the file that is currently being load.</p>
-</div>
-<div class="paragraph">
-<p>
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(require string)</code></strong><br>
-<strong><code>(provide string)</code></strong><br>
-<strong><code>(require/provide string)</code></strong><br>
-<strong><code>(provided? string)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Require</code> loads the file whose name is <code>string</code> if it was not
-previously "<em>provided</em>". <code>Provide</code> permits to store <code>string</code> in
-the list of already provided files. Providing a file permits to avoid
-subsequent loads of this file. <code>Require/provide</code> is more or less equivalent to
-a <code>require</code> followed by a <code>provide</code>. <code>Provided?</code> returns <code>#t</code> if
-<code>string</code> was already provided; it returns <code>#f</code> otherwise.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_file_primitives">4.13.2. File Primitives</h4>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(temp-file-prefix)</code></strong><br>
-<strong><code>(temp-file-prefix value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This parameter object permits to change the default prefix used to build
-temporary file name. Its default value is built using the <code>TMPDIR</code>
-environment variable (if it is defined) and the current process ID.
-If a value is provided, it must be a string designating a valid prefix path.</p>
-</div>
-<div class="paragraph">
-<p>This parameter object is also defined in <strong><a href="http://srfi.schemers.org/srfi-170/srfi-170.html">SRFI-170</a></strong> (<em>POSIX API</em>).</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(create-temp-file)</code></strong><br>
-<strong><code>(create-temp-file prefix)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Creates a new temporary file and returns two values: its name and an opened
-file port on it. The optional argument specifies the filename prefix
-to use, and defaults to the result of invoking <code>temp-file-prefix</code>.
-The returned file port is opened in read/write mode. It ensures that
-the name cannot be reused by another process before being used
-in the program that calls <code>create-temp-file</code>.
-Note, that if the opened port is not used, it can be closed and collected
-by the GC.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">let-values</span> <span class="p">(((</span><span class="nf">name</span> <span class="nv">port</span><span class="p">)</span> <span class="p">(</span><span class="nf">create-temp-file</span><span class="p">)))</span>
-  <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">msg</span> <span class="p">(</span><span class="nf">format</span> <span class="s">"Name: ~sn"</span> <span class="nv">name</span><span class="p">)))</span>
-    <span class="p">(</span><span class="nb">display</span> <span class="nv">msg</span><span class="p">)</span>
-    <span class="p">(</span><span class="nb">display</span> <span class="nv">msg</span> <span class="nv">port</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">close-port</span> <span class="nv">port</span><span class="p">)))</span>     <span class="nv">=&gt;</span> <span class="nv">prints</span> <span class="nv">the</span> <span class="nv">name</span> <span class="nv">of</span> <span class="nv">the</span> <span class="nv">temp</span><span class="o">.</span> <span class="nv">file</span> <span class="nv">on</span> <span class="nv">the</span>
-                               <span class="nv">current</span> <span class="nv">output</span> <span class="nv">port</span> <span class="nv">and</span> <span class="nv">in</span> <span class="nv">the</span> <span class="nv">file</span> <span class="nv">itself</span><span class="o">.</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This function is also defined in <strong><a href="http://srfi.schemers.org/srfi-170/srfi-170.html">SRFI-170</a></strong> (<em>POSIX API</em>).However,
-in SRFI-170, <code>create-temp-file</code> returns only the name of the temporary file.
-</td>
-</tr>
-</table>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<code>temporary-file-name</code> is another name for this function.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(create-temp-directory)</code></strong><br>
-<strong><code>(create-temp-directory prefix)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Creates a new temporary directory and returns its name as a string.
-The optional argument specifies the filename prefix to use, and
-defaults to the result of invoking <code>temp-file-prefix</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(rename-file string1 string2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Renames the file whose path-name is <code>string1</code> to a file whose path-name is
-<code>string2</code>. The result of <code>rename-file</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p>This function is also defined in <strong><a href="http://srfi.schemers.org/srfi-170/srfi-170.html">SRFI-170</a></strong> (<em>POSIX API</em>).</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(delete-file string)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Removes the file whose path name is given in <code>string</code>.
-The result of <code>delete-file</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p>This function is also called <code>remove-file</code> for compatibility
-reasons. ,(index "remove-file")</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(copy-file string1 string2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Copies the file whose path-name is <code>string1</code> to a file whose path-name is
-<code>string2</code>. If the file <code>string2</code> already exists, its content prior
-the call to <code>copy-file</code> is lost. The result of <code>copy-file</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(copy-port in out)</code></strong><br>
-<strong><code>(copy-port in out max)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Copy the content of port <code>in</code>, which must be opened for reading, on
-port <code>out</code>, which must be opened for writing. If <code>max</code> is not specified,
-All the characters from the input port are copied on ouput port. If <code>max</code>
-is specified, it must be an integer indicating the maximum number of characters
-which are copied from <code>in</code> to <code>out</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(file-exists? string)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if the path name given in <code>string</code> denotes an existing file;
-returns <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(file-is-directory?  string)</code></strong><br>
-<strong><code>(file-is-regular?    string)</code></strong><br>
-<strong><code>(file-is-readable?   string)</code></strong><br>
-<strong><code>(file-is-writable?   string)</code></strong><br>
-<strong><code>(file-is-executable? string)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if the predicate is true for the path name given in
-<code>string</code>; returns <code>#f</code> otherwise (or if <code>string</code> denotes a file
-which does not exist).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(file-size string)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the size of the file whose path name is given in
-<code>string</code>. If <code>string</code> denotes a file which does not exist,
-<code>file-size</code> returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(getcwd)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a string containing the current working directory.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(chmod str)</code></strong><br>
-<strong><code>(chmod str option1 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Change the access mode of the file whose path name is given in <code>string</code>.
-The options must be composed of either an integer or one of the
-following symbols <code>read</code>, <code>write</code> or <code>execute</code>. Giving no option to <code>chmod</code>
-is equivalent to pass it the integer <code>0</code>. If the operation succeeds,
-<code>chmod</code> returns <code>#t</code>; otherwise it returns <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">chmod</span> <span class="s">"~/.stklos/stklosrc"</span> <span class="ss">'read</span> <span class="ss">'execute</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">chmod</span> <span class="s">"~/.stklos/stklosrc"</span> <span class="mo">#o644</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(chdir dir)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Changes the current directory to the directory given in string <code>dir</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(create-directory dir)</code></strong><br>
-<strong><code>(create-directory dir permissions)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Create a directory with name <code>dir</code>. If <code>permissions</code> is omitted, it
-defaults to #o775 (masked by the current umask).</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This function is also defined in <strong><a href="http://srfi.schemers.org/srfi-170/srfi-170.html">SRFI-170</a></strong> (<em>POSIX API</em>). The old name
-<code>make-directory</code> is deprecated.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(create-directories dir)</code></strong><br>
-<strong><code>(create-directories dir permissions)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Create a directory with name <code>dir</code>. No error is signaled if <code>dir</code> already exists.
-Parent directories of <code>dir</code> are created as needed. If <code>permissions</code> is omitted,
-it defaults to #o775 (masked by the current umask).</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This function was also called <code>make-directories</code>. This old name is
-obsolete.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ensure-directories-exist path)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Create a directory with name <code>dir</code> (and its parent directories if needed), if it
-does not exist yet.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(delete-directory dir)</code></strong><br>
-<strong><code>(remove-directory dir)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Delete the directory with name <code>dir</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This function is also defined in <strong><a href="http://srfi.schemers.org/srfi-170/srfi-170.html">SRFI-170</a></strong> (<em>POSIX API</em>). The name
-<code>remove-directory</code> is kept for compatibility.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(directory-files path)</code></strong><br>
-<strong><code>(directory-files path dotfiles?)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the list of the files in the directory <code>path</code>. The <code>dotfiles?</code> flag
-(default <code>#f</code>) causes files beginning with ,(q ".") to be included in the list.
-Regardless of the value of <code>dotfiles?</code>, the two files ,(q ".") and ,(q "..")
-are never  returned.</p>
-</div>
-<div class="paragraph">
-<p>This function is also defined in <strong><a href="http://srfi.schemers.org/srfi-170/srfi-170.html">SRFI-170</a></strong> (<em>POSIX API</em>).</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(expand-file-name path)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Expand-file-name</code> expands the filename given in <code>path</code> to
-an absolute path.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">  <span class="c1">;; Current directory is ~eg/stklos (i.e. /users/eg/stklos)</span>
-  <span class="p">(</span><span class="nf">expand-file-name</span> <span class="s">".."</span><span class="p">)</span>            <span class="nv">=&gt;</span> <span class="s">"/users/eg"</span>
-  <span class="p">(</span><span class="nf">expand-file-name</span> <span class="s">"~eg/../eg/bin"</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="s">"/users/eg/bin"</span>
-  <span class="p">(</span><span class="nf">expand-file-name</span> <span class="s">"~/stklos)"</span>      <span class="nv">=&gt;</span> <span class="s">"/users/eg/stk"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(canonical-file-name path)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Expands all symbolic links in <code>path</code> and returns its canonicalized
-absolute path name. The resulting path does not have symbolic links.
-If <code>path</code> doesn&#8217;t designate a valid path name, <code>canonical-file-name</code>
-returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(decompose-file-name string)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns an <code>`exploded'' list of the path name components given in
-`string</code>.
-The first element in the list denotes if the given <code>string</code> is an
-absolute path or a relative one, being "/" or "." respectively.
-Each component of this list is a string.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">decompose-file-name</span> <span class="s">"/a/b/c.stk"</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="s">"/"</span> <span class="s">"a"</span> <span class="s">"b"</span> <span class="s">"c.stk"</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">decompose-file-name</span> <span class="s">"a/b/c.stk"</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="p">(</span><span class="s">"."</span> <span class="s">"a"</span> <span class="s">"b"</span> <span class="s">"c.stk"</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(winify-file-name fn)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>On Win32 system, when compiled with the Cygwin environment,
-file names are internally represented in a POSIX-like internal form.
-<code>Winify-file-bame</code> permits to obtain back the Win32 name of an interned
-file name</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">winify-file-name</span> <span class="s">"/tmp"</span><span class="p">)</span>
-    <span class="nv">=&gt;</span> <span class="s">"C:\cygwin\tmp"</span>
-<span class="p">(</span><span class="nb">list</span> <span class="p">(</span><span class="nf">getcwd</span><span class="p">)</span> <span class="p">(</span><span class="nf">winify-file-name</span> <span class="p">(</span><span class="nf">getcwd</span><span class="p">)))</span>
-    <span class="nv">=&gt;</span> <span class="p">(</span><span class="s">"//saxo/homes/eg/Projects/STklos"</span>
-        <span class="s">"\\saxo\homes\eg\Projects\STklos"</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(posixify-file-name fn)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>On Win32 system, when compiled with the Cygwin environment,
-file names are internally represented in a POSIX-like internal form.
-<code>posixify-file-bame</code> permits to obtain the interned file name from
-its external form.
-file name</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">posixify-file-name</span> <span class="s">"C:\cygwin\tmp"</span><span class="p">)</span>
-       <span class="nv">=&gt;</span> <span class="s">"/tmp"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(basename str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a string containing the last component of the path name
-given in <code>str</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">basename</span> <span class="s">"/a/b/c.stk"</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="s">"c.stk"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(dirname str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a string containing all but the last component of the path
-name given in <code>str</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">dirname</span> <span class="s">"/a/b/c.stk"</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="s">"/a/b"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(file-suffix pathname)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the suffix of given <code>pathname</code>. If no suffix is found, <code>file-suffix</code>
-returns <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">file-suffix</span> <span class="s">"./foo.tar.gz"</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="s">"gz"</span>
-<span class="p">(</span><span class="nf">file-suffix</span> <span class="s">"./a.b/c"</span><span class="p">)</span>      <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">file-suffix</span> <span class="s">"./a.b/c."</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="s">""</span>
-<span class="p">(</span><span class="nf">file-suffix</span> <span class="s">"~/.profile"</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(file-prefix pathname)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the prefix of given <code>pathname</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">file-prefix</span> <span class="s">"./foo.tar.gz"</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="s">"./foo.tar"</span>
-<span class="p">(</span><span class="nf">file-prefix</span> <span class="s">"./a.b/c"</span><span class="p">)</span>      <span class="nv">=&gt;</span> <span class="s">"./a.b/c"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(file-separator)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Retuns the operating system file separator as a character. This is typically
-<code>&#35;/</code> on Unix (or Cygwin) systems and <code>&#35;\</code> on Windows.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-path dirname .  names)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Builds a file name from the directory <code>dirname</code> and <code>names</code>. For instance,
-on a Unix system:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">make-path</span> <span class="s">"a"</span> <span class="s">"b"</span> <span class="s">"c"</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="s">"a/b/c"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(glob pattern &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Glob</code> performs file name <code>`globbing'' in a fashion similar to the
-csh shell. `Glob</code> returns a list of the filenames that match at least
-one of <code>pattern</code> arguments.  The <code>pattern</code> arguments may contain
-the following special characters:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>?</code> Matches any single character.</p>
-</li>
-<li>
-<p><code>*</code> Matches any sequence of zero or more characters.</p>
-</li>
-<li>
-<p><code>[chars]</code> Matches any single character in <code>chars</code>.
-If chars contains a sequence of the form <code>a-b</code> then any character
-between <code>a</code> and <code>b</code> (inclusive) will match.</p>
-</li>
-<li>
-<p><code>x</code> Matches the character <code>x</code>.</p>
-</li>
-<li>
-<p><code>{a,b,&#8230;&#8203;}</code> Matches any of the strings <code>a</code>, <code>b</code>, etc.
-)</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>As with csh, a '.' at the beginning of a file&#8217;s name or just after
-a '/' must be matched explicitly or with a <code>@{@}</code> construct.
-In addition, all '/' characters must be matched explicitly.</p>
-</div>
-<div class="paragraph">
-<p>If the first character in a pattern is '~' then it refers to
-the home directory of the user whose name follows the '~'.
-If the '~' is followed immediately by '/' then the value of
-the environment variable HOME is used.</p>
-</div>
-<div class="paragraph">
-<p><code>Glob</code> differs from csh globbing in two ways:</p>
-</div>
-<div class="olist arabic">
-<ol class="arabic">
-<li>
-<p>it does not  sort its result list (use the <code>sort</code> procedure
-if you want the list  sorted).</p>
-</li>
-<li>
-<p><code>glob</code> only returns the names of files that actually exist;
-in csh no check for existence is made unless a pattern contains a
-<code>?</code>, <code>*</code>, or <code>[]</code> construct.</p>
-</li>
-</ol>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(posix-error? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure returns <code>#t</code> if <code>obj</code> is a condition object that describes a
-POSIX error, and <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p>This function is defined in <strong><a href="http://srfi.schemers.org/srfi-170/srfi-170.html">SRFI-170</a></strong> (<em>POSIX API</em>).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(posix-error-name posix-error)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure returns a symbol that is the name associated with the
-value of <code>errno</code> when the POSIX function reported an error. This can be
-used to provide programmatic recovery when a POSIX function can return
-more than one value of <code>errno</code>.</p>
-</div>
-<div class="paragraph">
-<p>This function is defined in <strong><a href="http://srfi.schemers.org/srfi-170/srfi-170.html">SRFI-170</a></strong> (<em>POSIX API</em>).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(posix-error-message posix-error)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure returns a string that is an error message reflecting the
-value of errno when the POSIX function reported an error. This string
-is useful for reporting the cause of the error to the user</p>
-</div>
-<div class="paragraph">
-<p>This function is defined in <strong><a href="http://srfi.schemers.org/srfi-170/srfi-170.html">SRFI-170</a></strong> (<em>POSIX API</em>).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(posix-error-errno posix-error)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure returns the value of <code>errno</code> (an exact integer).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(posix-error-procedure posix-error)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure returns the name of the Scheme procedure that raised
-the error.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(posix-error-args posix-error)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure returns the list of the Scheme procedure arguments
-that raised the error.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_environment">4.13.3. Environment</h4>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(getenv str)</code></strong><br>
-<strong><code>(getenv)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Looks for the environment variable named <code>str</code> and returns its
-value as a string, if it exists. Otherwise, <code>getenv</code> returns <code>#f</code>.
-If <code>getenv</code> is called without parameter, it returns the list of
-all the environment variables accessible from the program as an
-A-list.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">getenv</span> <span class="s">"SHELL"</span><span class="p">)</span>
-     <span class="nv">=&gt;</span> <span class="s">"/bin/zsh"</span>
-<span class="p">(</span><span class="nf">getenv</span><span class="p">)</span>
-     <span class="nv">=&gt;</span> <span class="p">((</span><span class="s">"TERM"</span> <span class="o">.</span> <span class="s">"xterm"</span><span class="p">)</span> <span class="p">(</span><span class="s">"PATH"</span> <span class="o">.</span> <span class="s">"/bin:/usr/bin"</span><span class="p">)</span> <span class="o">...</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(setenv! var value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Sets the environment variable <code>var</code> to <code>value</code>. <code>Var</code> and
-<code>value</code> must be strings. The result of <code>setenv!</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(unsetenv! var)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Unsets the environment variable <code>var</code>. <code>Var</code> must be a string.
-The result of <code>unsetenv!</code> is <strong><em>void</em></strong>.</p>
-</div>
-<hr>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> defines also the R<sup>7</sup>RS (and <strong><a href="http://srfi.schemers.org/srfi-96/srfi-96.html">SRFI-96</a></strong>) standard
-primivitives to acess environment variables.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(get-environment-variable name)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the value of the named environment variable as a string, or
-<code>#f</code> if the named environment variable is not found. The name argument
-is expected to be a string. This function is similar to the <code>getenv</code>. It
-has been added to be  support <strong><a href="http://srfi.schemers.org/srfi-98/srfi-98.html">SRFI-98</a></strong> (<em>Interface to access environment variables</em>).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(get-environment-variables)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns names and values of all the environment variables as an a-list.
-This function is defined by <strong><a href="http://srfi.schemers.org/srfi-98/srfi-98.html">SRFI-98</a></strong> (<em>Interface to access environment variables</em>).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(build-path-from-shell-variable var)</code></strong><br>
-<strong><code>(build-path-from-shell-variable var sep)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Builds a path as a list of strings (which is the way STklos represents
-paths) from the environment variable <code>var</code>, given the separator characters
-given in <code>sep</code> (which defaults to <code>":"</code>, the standrad Unix path separator).
-If the <code>var</code> is not definied in the environment,
-<code>build-path-from-shell-variable</code> returns the empty list.</p>
-</div>
-<div class="paragraph">
-<p>If the shell variable <code>MYPATH</code> is "/bin:/sbin:/usr/bin"`, then</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">build-path-from-shell-variable</span> <span class="s">"MYPATH"</span><span class="p">)</span>       <span class="nv">=&gt;</span> <span class="p">(</span><span class="s">"/bin"</span> <span class="s">"/sbin"</span> <span class="s">"/usr/bin"</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">build-path-from-shell-variable</span> <span class="s">"MYPATH"</span> <span class="s">"/:"</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="p">(</span><span class="s">"bin"</span> <span class="s">"sbin"</span> <span class="s">"usr"</span> <span class="s">"bin"</span><span class="p">)</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_time">4.13.4. Time</h4>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(current-second)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns an inexact number representing the current time on the
-International Atomic Time (TAI) scale.  The value 0.0 represents
-midnight on January 1, 1970 TAI (equivalent to ten seconds before
-midnight Universal Time) and the value 1.0 represents one TAI
-second later.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(current-jiffy)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the number of <em>jiffies</em> as an exact integer that
-have elapsed since an arbitrary, implementation-defined
-epoch. A jiffy is an implementation-defined fraction of
-a second which is defined by the return value of the
-<code>jiffies-per-second</code> procedure. The starting epoch is
-guaranteed to be constant during a run of the program,
-but may vary between runs.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(jiffies-per-seconds)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns an exact integer representing the number of jiffies
-per second.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">time-length</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nb">list</span> <span class="p">(</span><span class="nf">make-list</span> <span class="mi">100000</span><span class="p">))</span>
-        <span class="p">(</span><span class="nf">start</span> <span class="p">(</span><span class="nf">current-jiffy</span><span class="p">)))</span>
-    <span class="p">(</span><span class="nb">length</span> <span class="nv">list</span><span class="p">)</span>
-    <span class="p">(</span><span class="nb">/</span> <span class="p">(</span><span class="nb">-</span> <span class="p">(</span><span class="nf">current-jiffy</span><span class="p">)</span> <span class="nv">start</span><span class="p">)</span>
-       <span class="p">(</span><span class="nf">jiffies-per-second</span><span class="p">))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(clock)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns an approximation of processor time, in milliseconds, used so far by the
-program.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(sleep n)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Suspend the execution of the program for at <code>ms</code> milliseconds. Note that due
-to system clock resolution, the pause may be a little bit longer. If a
-signal arrives during the pause, the execution may be resumed.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(time expr1 expr2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Evaluates the expressions <code>expr1</code>, <code>expr2</code>, &#8230;&#8203; and returns the
-result of the last expression. This form prints also the time spent
-for this evaluation, in milliseconds, on the current error port.
-This is CPU time, and not real ("wall") time.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_system_information">4.13.5. System Information</h4>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(features)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a list of the feature identifiers which <code>cond-expand</code>
-treats as true. Here is an
-example of what <code>features</code> might return:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">features</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">STklos</span> <span class="nv">STklos-1</span><span class="o">.</span><span class="mf">70.1382</span> <span class="nv">exact-complex</span>
-               <span class="nv">ieee-float</span> <span class="nv">full-unicode</span> <span class="nv">ratios</span> <span class="nv">little-endian</span> <span class="o">...</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(running-os)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the name of the underlying Operating System which is running
-the program.
-The value returned by <code>runnin-os</code> is a symbol. For now, this procedure
-returns either <code>unix</code>, <code>android</code>, <code>windows</code>, or <code>cygwin-windows</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hostname)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the  host name of the current processor as a string.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(command-line)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the command line passed to the process as a list
-of strings. The first string corresponds to the command
-name.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(command-name)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returnd the name of the running program if it is a standalone and <code>#f</code>
-otherwise. This function is defined in <strong><a href="http://srfi.schemers.org/srfi-193/srfi-193.html">SRFI-193</a></strong> (<em>Command line</em>).</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(command-args)</code></strong><br>
-<strong><code>(argv)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a list of the arguments given on the shell command line. The
-interpreter options are no included in the result. The name <code>argv</code> is
-deprecated and should not be used.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(argc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the number of arguments present on the command line.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(program-name)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the invocation name of the current program as a string. If the file is
-not a script (in sense of <strong><a href="http://srfi.schemers.org/srfi-193/srfi-193.html">SRFI-193</a></strong>), it is the name of the
-running <strong><em>STklos</em></strong> interpreter, otherwise it is the name of the running script.
-This function always returns a string whereas the <code>command-name</code> procedure returns
-<code>#f</code> when the program name is not a script.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(script-file)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the absolute path of the current script.
-If the calling program is not a script, <code>#f</code> is returned.
-This function is defined in <strong><a href="http://srfi.schemers.org/srfi-193/srfi-193.html">SRFI-193</a></strong> (<em>Command line</em>).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(script-directory)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the non-filename part of script-file as a string.
-As with <code>script-file</code>, this is an absolute pathname.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(version)</code></strong><br>
-<strong><code>(implementation-version)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a string identifying the current version of the system. A
-version is constituted of two (or three) numbers separated by a point:
-the version, the release numbers and, eventually, a patch number. The
-patch number is used for developments version only; it is absent for stable
-releases.</p>
-</div>
-<div class="paragraph">
-<p>Note that <code>implementation-version</code> corresponds to the <strong><a href="http://srfi.schemers.org/srfi-112/srfi-112.html">SRFI-112</a></strong> (<em>Environment Inquiry</em>) name of
-this function.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(short-version)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a string identifying the current version of the system without
-its eventual patch number.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(machine-type)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a string identifying the kind of machine which is running the
-program. The result string is of the form
-<code>[os-name]-[os-version]-[cpu-architecture]</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(implementation-name)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function is defined in <strong><a href="http://srfi.schemers.org/srfi-112/srfi-112.html">SRFI-112</a></strong> (<em>Environment Inquiry</em>); it returns the Scheme
-implementation (i.e. the string <code>"STklos"</code>).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(cpu-architecture)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function is defined in <strong><a href="http://srfi.schemers.org/srfi-112/srfi-112.html">SRFI-112</a></strong> (<em>Environment Inquiry</em>); it returns the CPU
-architecture, real or virtual, on which this implementation
-is executing.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(machine-name)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function is defined in <strong><a href="http://srfi.schemers.org/srfi-112/srfi-112.html">SRFI-112</a></strong> (<em>Environment Inquiry</em>); it returns a name for the
-particular machine on which the implementation is running.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(os-name)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function is defined in <strong><a href="http://srfi.schemers.org/srfi-112/srfi-112.html">SRFI-112</a></strong> (<em>Environment Inquiry</em>); it returns the name for
-the operating system, platform, or equivalent on which the
-implementation is running.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(os-version)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function is defined in <strong><a href="http://srfi.schemers.org/srfi-112/srfi-112.html">SRFI-112</a></strong> (<em>Environment Inquiry</em>); it returns the version for
-the operating system, platform, or equivalent on which the
-implementation is running.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(getpid)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the system process number of the current program (i.e. the
-Unix <em>PID</em> as an integer).</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_program_arguments_parsing">4.13.6. Program Arguments Parsing</h4>
-<div class="paragraph">
-<p>
-<strong><em>STklos</em></strong> provides a simple way to parse program arguments with the
-<code>parse-arguments</code> special form. This form is generally used into
-the <code>main</code>| function in a Scheme script. See <strong><a href="http://srfi.schemers.org/srfi-22/srfi-22.html">SRFI-22</a></strong> (<em>Running Scheme Scripts on Unix</em>) on how to
-use a <code>main</code> function in a Scheme program.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(parse-arguments &lt;args&gt; &lt;clause1&gt; &lt;clause2&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>parse-arguments</code> special form is used to parse the
-command line arguments of a Scheme script. The implementation of
-this form internally uses the GNU C <code>getopt</code> function. As a
-consequence <code>parse-arguments</code> accepts options which start with
-the '-' (short option) or '--' characters (long option).</p>
-</div>
-<div class="paragraph">
-<p>The first argument of <code>parse-arguments</code> is a list of the arguments
-given to the program (comprising the program name in the CAR of this
-list). Following arguments are clauses. Clauses are described later.</p>
-</div>
-<div class="paragraph">
-<p>By  default, <code>parse-arguments</code> permutes the contents of (a copy) of
-the arguments as it scans, so that eventually all the non-options are
-at the end. However, if the shell environment variable <code>POSIXLY_CORRECT</code>
-is set, then option processing stops as soon as a non-option argument
-is encountered.</p>
-</div>
-<div class="paragraph">
-<p>A clause must follow the syntax:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>&lt;clause&gt;       =&gt; string | &lt;list-clause&gt;
-&lt;list clause&gt;  =&gt; (&lt;option descr&gt; &lt;expr&gt; ...) | (else &lt;expr&gt; ...)
-&lt;option descr&gt; =&gt; (&lt;option name&gt; [&lt;keyword&gt; value]*)
-&lt;option name&gt;  =&gt; string
-&lt;keyword&gt;      =&gt; :alternate | :arg | :help</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>A string clause is used to build the  help associated to the command.
-A list clause must follow the syntax describes an option. The
-<code>&lt;expr&gt;</code>s associated to a list clauses are executed when the option
-is recognized.
-The <code>else</code> clauses is executed when all parameters have
-been parsed. The <code>:alternate</code> key permits to have an alternate name for an
-option (generally a short or long name if the option name is a
-short or long name).  The <code>:help</code> is used to provide help about the
-the option. The <code>:arg</code> is used when the option admit a parameter:
-the symbol given after <code>:arg</code> will be bound to the value of the option
-argument when the corresponding `&lt;expr&gt;`s will be executed.</p>
-</div>
-<div class="paragraph">
-<p>In an <code>else</code> clause the symbol <code>other-arguments</code> is bound to the
-list of the arguments which are not options.</p>
-</div>
-<div class="paragraph">
-<p>The following example shows a rather complete usage of the
-<code>parse-arguments</code> form</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="o">#</span><span class="nv">!/usr/bin/env</span> <span class="nv">stklos</span>
-
-<span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">main</span> <span class="nv">args</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">parse-arguments</span> <span class="nv">args</span>
-     <span class="s">"Usage: foo [options] [parameter ...]"</span>
-     <span class="s">"General options:"</span>
-         <span class="p">((</span><span class="s">"verbose"</span> <span class="nv">:alternate</span> <span class="s">"v"</span> <span class="nv">:help</span> <span class="s">"be more verbose"</span><span class="p">)</span>
-           <span class="p">(</span><span class="nf">printf</span> <span class="s">"Seen the verbose option~%"</span><span class="p">))</span>
-         <span class="p">((</span><span class="s">"long"</span> <span class="nv">:help</span> <span class="s">"a long option alone"</span><span class="p">)</span>
-           <span class="p">(</span><span class="nf">printf</span> <span class="s">"Seen the long option~%"</span><span class="p">))</span>
-         <span class="p">((</span><span class="s">"s"</span> <span class="nv">:help</span> <span class="s">"a short option alone"</span><span class="p">)</span>
-           <span class="p">(</span><span class="nf">printf</span> <span class="s">"Seen the short option~%"</span><span class="p">))</span>
-     <span class="s">"File options:"</span>
-         <span class="p">((</span><span class="s">"input"</span> <span class="nv">:alternate</span> <span class="s">"f"</span> <span class="nv">:arg</span> <span class="nv">file</span>
-                   <span class="nv">:help</span> <span class="s">"use &lt;file&gt; as input"</span><span class="p">)</span>
-           <span class="p">(</span><span class="nf">printf</span> <span class="s">"Seen the input option with ~S argument~%"</span> <span class="nv">file</span><span class="p">))</span>
-         <span class="p">((</span><span class="s">"output"</span> <span class="nv">:alternate</span> <span class="s">"o"</span> <span class="nv">:arg</span> <span class="nv">file</span>
-                    <span class="nv">:help</span> <span class="s">"use &lt;file&gt; as output"</span><span class="p">)</span>
-           <span class="p">(</span><span class="nf">printf</span> <span class="s">"Seen the output option with ~S argument~%"</span> <span class="nv">file</span><span class="p">))</span>
-     <span class="s">"Misc:"</span>
-         <span class="p">((</span><span class="s">"help"</span> <span class="nv">:alternate</span> <span class="s">"h"</span>
-                  <span class="nv">:help</span> <span class="s">"provides help for the command"</span><span class="p">)</span>
-           <span class="p">(</span><span class="nf">arg-usage</span> <span class="p">(</span><span class="nf">current-error-port</span><span class="p">))</span>
-           <span class="p">(</span><span class="nf">exit</span> <span class="mi">1</span><span class="p">))</span>
-     <span class="p">(</span><span class="k">else</span>
-         <span class="p">(</span><span class="nf">printf</span> <span class="s">"All options parsed. Remaining arguments are ~S~%"</span>
-                 <span class="nv">other-arguments</span><span class="p">))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The following program invocation</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="nv">foo</span> <span class="nv">-vs</span> <span class="nv">--input</span> <span class="nv">in</span> <span class="nv">-o</span> <span class="nv">out</span> <span class="nv">arg1</span> <span class="nv">arg2</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>produces the following output</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>Seen the verbose option
-Seen the short option
-Seen the input option with "in" argument
-Seen the output option with "out" argument
-All options parsed. Remaining arguments are ("arg1" "arg2")</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Finally, the program invocation</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="nv">foo</span> <span class="nv">--help</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>produces the following output</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>Usage: foo [options] [parameter ...]
-General options:
-  --verbose, -v               be more verbose
-  --long                      a long option alone
-  -s                          a short option alone
-File options:
-  --input=&lt;file&gt;, -f &lt;file&gt;   use &lt;file&gt; as input
-  --output=&lt;file&gt;, -o &lt;file&gt;  use &lt;file&gt; as output
-Misc:
-  --help, -h                  provides help for the command</code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><strong>Notes:</strong></p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>Short option can be concatenated. That is,</p>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="nv">prog</span> <span class="nv">-abc</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is equivalent to the following program call</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="nv">prog</span> <span class="nv">-a</span> <span class="nv">-b</span> <span class="nv">-c</span></code></pre>
-</div>
-</div>
-</li>
-<li>
-<p>Any argument following a '--' argument is no more considered as
-an option, even if it starts with a '-' or '--'.</p>
-</li>
-<li>
-<p>Option with a parameter can be written in several ways. For instance
-to set the output in the <code>bar</code> file for the previous example can be
-expressed as</p>
-<div class="ulist">
-<ul>
-<li>
-<p><code>--output=bar</code>, or</p>
-</li>
-<li>
-<p><code>-o bar</code>, or</p>
-</li>
-<li>
-<p><code>-obar</code></p>
-</li>
-</ul>
-</div>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(arg-usage port)</code></strong><br>
-<strong><code>(arg-usage port as-sexpr)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure is only bound inside a <code>parse-arguments</code> form.
-It pretty prints the help associated to the clauses of the
-<code>parse-arguments</code> form on the given port. If the argument
-<code>as-sexpr</code> is passed and is not <code>#f</code>, the help strings are
-printed on <code>port</code> as <em>Sexpr</em>s. This is useful if the help
-strings need to be manipulated by a program.</p>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_misc_system_procedures">4.13.7. Misc. System Procedures</h4>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(system string)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Sends the given <code>string</code> to the system shell <code>/bin/sh</code>. The result of
-<code>system</code> is the integer status code the shell returns.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(exec str)</code></strong><br>
-<strong><code>(exec-list str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures execute the command given in <code>str</code>. The command given
-in <code>str</code> is passed to <code>/bin/sh</code>. <code>Exec</code> returns a string which contains
-all the characters that the command <code>str</code> has printed on it&#8217;s standard
-output, whereas <code>exec-list</code> returns a list of the lines which constitute
-the output of <code>str</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">exec</span> <span class="s">"echo A; echo B"</span><span class="p">)</span>                <span class="nv">=&gt;</span> <span class="s">"AnBn"</span>
-<span class="p">(</span><span class="nf">exec-list</span> <span class="s">"echo A; echo B"</span><span class="p">)</span>           <span class="nv">=&gt;</span> <span class="p">(</span><span class="s">"A"</span> <span class="s">"B"</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(address-of obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the address of the object <code>obj</code> as an integer.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(exit)</code></strong><br>
-<strong><code>(exit ret-code)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Exits the program with the specified integer return code. If <code>ret-code</code>
-is omitted, the program terminates with a return code of 0.
-If  program has registered exit functions with <code>register-exit-function!</code>,
-they are called (in an order which is the reverse of their call order).</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The <strong><em>STklos</em></strong> <code>exit</code> primitive accepts also an
-integer value as parameter (R<sup>7</sup>RS accepts only a boolean).
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(emergency-exit)</code></strong><br>
-<strong><code>(emergency-exit ret-code)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Terminates the program without running any outstanding
-dynamic-wind <em>after</em> procedures and communicates an exit
-value to the operating system in the same manner as <code>exit</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The <strong><em>STklos</em></strong> <code>emergency-exit</code> primitive accepts also an
-integer value as parameter (R<sup>7</sup>RS accepts only a boolean).
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(die message)</code></strong><br>
-<strong><code>(die message status)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Die</code> prints the given <code>message</code> on the current error port and exits
-the program with the <code>status</code> value. If <code>status</code> is omitted, it
-defaults to 1.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(get-password)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This primitive permits to enter a password (character echoing
-being turned off). The value returned by <code>get-password</code> is the entered
-password as a string.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(register-exit-function! proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function registers <code>proc</code> as an exit function. This function will
-be called when the program exits. When called, <code>proc</code> will be passed one
-parmater which is the status given to the <code>exit</code> function (or 0 if the
-programe terminates normally). The result of  <code>register-exit-function!</code>
-is undefined.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">tmp</span> <span class="p">(</span><span class="nf">temporary-file-name</span><span class="p">))</span>
-       <span class="p">(</span><span class="nf">out</span> <span class="p">(</span><span class="nb">open-output-file</span> <span class="nv">tmp</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">register-exit-function!</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">n</span><span class="p">)</span>
-                             <span class="p">(</span><span class="nf">when</span> <span class="p">(</span><span class="nb">zero?</span> <span class="nv">n</span><span class="p">)</span>
-                               <span class="p">(</span><span class="nf">delete-file</span> <span class="nv">tmp</span><span class="p">))))</span>
-  <span class="nv">out</span><span class="p">)</span></code></pre>
-</div>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_keywords">4.14. Keywords</h3>
-<div class="paragraph">
-<p>
-
-
-
-
-Keywords are symbolic constants which evaluate to themselves.
-   By default, a keyword is a symbol whose first (or last) character is a colon
-   (<strong><em>":"</em></strong>). Alternatively, to be compatible with other Scheme
-   implementations, the notation <code>#:foo</code> is also available to denote
-   the keyword of name <code>foo</code>.</p>
-</div>
-<div class="paragraph">
-<p>Note that the four directives <code>keyword-colon-position-xxx</code> or the
-   parameter object ` keyword-colon-position` permit to change the
-   default behavior. See section~Identifiers for more
-   information.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(keyword obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a keyword, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">keyword?</span> <span class="ss">'foo</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">keyword?</span> <span class="ss">':foo</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="no">#t</span>  <span class="c1">; depends of keyword-colon-position</span>
-<span class="p">(</span><span class="nf">keyword?</span> <span class="ss">'foo:</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="no">#t</span>  <span class="c1">; depends of keyword-colon-position</span>
-<span class="p">(</span><span class="nf">keyword?</span> <span class="o">'#</span><span class="nv">:foo</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="no">#t</span>  <span class="c1">; always</span>
-<span class="p">(</span><span class="nf">keyword?</span> <span class="nv">:foo</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="no">#t</span>  <span class="c1">; depends of keyword-colon-position</span>
-<span class="p">(</span><span class="nf">keyword?</span> <span class="nv">foo:</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="no">#t</span>  <span class="c1">; depends of keyword-colon-position</span>
-<span class="p">(</span><span class="nf">keyword?</span> <span class="o">#</span><span class="nv">:foo</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="no">#t</span>  <span class="c1">; always</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-keyword s)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Builds a keyword from the given <code>s</code>. The parameter <code>s</code> must be a symbol
-or a string.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">make-keyword</span> <span class="s">"test"</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="o">#</span><span class="nv">:test</span>
-<span class="p">(</span><span class="nf">make-keyword</span> <span class="ss">'test</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="o">#</span><span class="nv">:test</span>
-<span class="p">(</span><span class="nf">make-keyword</span> <span class="s">":hello"</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="o">#</span><span class="nv">::hello</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(keyword&#8594;string key)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the name of <code>key</code> as a string. The result does not contain a colon.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string&#8594;keyword str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function function has been added to be compatibe with SRFI-88.
-It is equivalent to make-keyword, except that the parameter cannot be
-a symbol.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(key-get list key)</code></strong><br>
-<strong><code>(key-get list key default)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>List</code> must be a list of keywords and their respective values.
-<code>key-get</code> scans the <code>list</code> and returns the value
-associated with the given <code>key</code>. If  <code>key</code> does
-not appear in an odd position in <code>list</code>, the specified
-<code>default</code> is returned, or an error is raised if no <code>default</code> was
-specified.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">key-get</span> <span class="o">'</span><span class="p">(</span><span class="o">#</span><span class="nv">:one</span> <span class="mi">1</span> <span class="o">#</span><span class="nv">:two</span> <span class="mi">2</span><span class="p">)</span> <span class="o">#</span><span class="nv">:one</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">key-get</span> <span class="o">'</span><span class="p">(</span><span class="o">#</span><span class="nv">:one</span> <span class="mi">1</span> <span class="o">#</span><span class="nv">:two</span> <span class="mi">2</span><span class="p">)</span> <span class="o">#</span><span class="nv">:four</span> <span class="no">#f</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">key-get</span> <span class="o">'</span><span class="p">(</span><span class="o">#</span><span class="nv">:one</span> <span class="mi">1</span> <span class="o">#</span><span class="nv">:two</span> <span class="mi">2</span><span class="p">)</span> <span class="o">#</span><span class="nv">:four</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="nv">error</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(key-set! list key value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>List</code> must be a list of keywords and their respective values.
-<code>key-set!</code> sets the value associated to <code>key</code> in the keyword list.
-If the key is already present in <code>list</code>, the keyword list is
-,(emph "physically") changed.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">l</span> <span class="p">(</span><span class="nb">list</span> <span class="o">#</span><span class="nv">:one</span> <span class="mi">1</span> <span class="o">#</span><span class="nv">:two</span> <span class="mi">2</span><span class="p">)))</span>
-  <span class="p">(</span><span class="k">set!</span> <span class="nv">l</span> <span class="p">(</span><span class="nf">key-set!</span> <span class="nv">l</span> <span class="o">#</span><span class="nv">:three</span> <span class="mi">3</span><span class="p">))</span>
-  <span class="p">(</span><span class="nb">cons</span> <span class="p">(</span><span class="nf">key-get</span> <span class="nv">l</span> <span class="o">#</span><span class="nv">:one</span><span class="p">)</span>
-        <span class="p">(</span><span class="nf">key-get</span> <span class="nv">l</span> <span class="o">#</span><span class="nv">:three</span><span class="p">)))</span>            <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="o">.</span> <span class="mi">3</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(key-delete  list key)</code></strong><br>
-<strong><code>(key-delete! list key)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>List</code> must be a list of keywords and their respective values.
-<code>key-delete</code> remove the <code>key</code> and its associated value of the keyword
-list. The key can be absent of the list.</p>
-</div>
-<div class="paragraph">
-<p><code>key-delete!</code> does the same job as <code>key-delete</code> by physically
-modifying its <code>list</code> argument.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">key-delete</span> <span class="o">'</span><span class="p">(</span><span class="nf">:one</span> <span class="mi">1</span> <span class="nv">:two</span> <span class="mi">2</span><span class="p">)</span> <span class="nv">:two</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">:one</span> <span class="mi">1</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">key-delete</span> <span class="o">'</span><span class="p">(</span><span class="nf">:one</span> <span class="mi">1</span> <span class="nv">:two</span> <span class="mi">2</span><span class="p">)</span> <span class="nv">:three</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">:one</span> <span class="mi">1</span> <span class="nv">:two</span> <span class="mi">2</span><span class="p">)</span>
-<span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">l</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">:one</span> <span class="mi">1</span> <span class="nv">:two</span> <span class="mi">2</span><span class="p">)))</span>
-   <span class="p">(</span><span class="nf">key-delete!</span> <span class="nv">l</span> <span class="nv">:two</span><span class="p">)</span>
-   <span class="nv">l</span><span class="p">)</span>                                 <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">:one</span> <span class="mi">1</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(keyword-colon-position)</code></strong><br>
-<strong><code>(keyword-colon-position value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This parameter object indicates the convention used by the reader to
-denote keywords. The allowed values are:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><strong>none</strong>, to forbid a symbol with colon to be interpreted as a keyword,</p>
-</li>
-<li>
-<p><strong>before</strong>, to read symbols starting with a colon as keywords,</p>
-</li>
-<li>
-<p><strong>after</strong>, to read symbols ending with a colon as keywords,</p>
-</li>
-<li>
-<p><strong>both</strong>,  to read symbols starting or ending with a colon as keywords.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>Note that the notation <code>#:key</code> is always read as a keyword independently
-of the value of <code>keyword-colon-position</code>. Hence, we have</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">list</span> <span class="p">(</span><span class="nf">keyword?</span> <span class="ss">':a</span><span class="p">)</span>
-      <span class="p">(</span><span class="nf">keyword?</span> <span class="ss">'a:</span><span class="p">)</span>
-      <span class="p">(</span><span class="nf">keyword?</span> <span class="o">'#</span><span class="nv">:a</span><span class="p">))</span>
-                 <span class="nv">=&gt;</span> <span class="p">(</span><span class="no">#f</span> <span class="no">#f</span> <span class="no">#t</span><span class="p">)</span>  <span class="c1">; if keyword-colon-position is none</span>
-                 <span class="nv">=&gt;</span> <span class="p">(</span><span class="no">#t</span> <span class="no">#f</span> <span class="no">#t</span><span class="p">)</span>  <span class="c1">; if keyword-colon-position is before</span>
-                 <span class="nv">=&gt;</span> <span class="p">(</span><span class="no">#f</span> <span class="no">#t</span> <span class="no">#t</span><span class="p">)</span>  <span class="c1">; if keyword-colon-position is after</span>
-                 <span class="nv">=&gt;</span> <span class="p">(</span><span class="no">#t</span> <span class="no">#t</span> <span class="no">#t</span><span class="p">)</span>  <span class="c1">; if keyword-colon-position is both</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_hash_tables">4.15. Hash Tables</h3>
-<div class="paragraph">
-<p>
-A hash table consists of zero or more entries, each consisting of a key
-and a value. Given the key for an entry, the hashing function can very
-quickly locate the entry, and hence the corresponding value. There may
-be at most one entry in a hash table with a particular key, but many
-entries may have the same value.</p>
-</div>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> hash tables grow gracefully as the number of entries
-increases, so that there are always less than three entries per hash
-bucket, on average.  This allows for fast lookups regardless of the
-number of entries in a table.</p>
-</div>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> hash tables procedures are identical to the ones
-defined in <strong><a href="http://srfi.schemers.org/srfi-69/srfi-69.html">SRFI-69</a></strong> (<em>Basic Hash Tables</em>). Note that the default comparison function
-is <code>eq?</code> whereas it is <code>equal?</code> in this SRFI. See
-SRFI&#8217;s documentation for more information.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-hash-table)</code></strong><br>
-<strong><code>(make-hash-table comparison)</code></strong><br>
-<strong><code>(make-hash-table comparison hash)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Make-hash-table</code> admits three different forms.  The most general form
-admit two arguments. The first argument is a comparison function which
-determines how keys are compared; the second argument is a function which
-computes a hash code for an object and returns the hash code as a non
-negative integer. Objets with the same hash code are stored in an A-list
-registered in the bucket corresponding to the key.</p>
-</div>
-<div class="paragraph">
-<p>If omitted,</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>hash</code> defaults to the <code>hash-table-hash</code> procedure
-(see <em><a href="_standard_procedures.html#hashtablehash"><code>hash-table-hash</code> primitive</a></em>).</p>
-</li>
-<li>
-<p><code>comparison</code> defaults to the <code>eq?</code> procedure
-(see <em><a href="_standard_procedures.html#eqprim"><code>eq?</code> primitive</a></em>)).</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>Consequently,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">h</span> <span class="p">(</span><span class="nf">make-hash-table</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">h</span> <span class="p">(</span><span class="nf">make-hash-table</span> <span class="nv">eq?</span> <span class="nv">hash-table-hash</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>An interesting example is</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">h</span> <span class="p">(</span><span class="nf">make-hash-table</span> <span class="nv">string-ci=?</span> <span class="nv">string-length</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>which defines a new hash table which uses <code>string-ci=?</code> for
-comparing keys. Here, we use the string-length as a (very simple)
-hashing function. Of course, a function which gives a key depending
-of the characters composing the string gives a better repartition
-and should probably enhance performance. For instance, the following
-call to <code>make-hash-table</code> should return a more efficient, even if
-not perfect, hash table:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">make-hash-table</span>
-   <span class="nv">string-ci=?</span>
-   <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">s</span><span class="p">)</span>
-     <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">len</span> <span class="p">(</span><span class="nb">string-length</span> <span class="nv">s</span><span class="p">)))</span>
-       <span class="p">(</span><span class="k">do</span> <span class="p">((</span><span class="nf">h</span> <span class="mi">0</span><span class="p">)</span>  <span class="p">(</span><span class="nf">i</span> <span class="mi">0</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">i</span> <span class="mi">1</span><span class="p">)))</span>
-           <span class="p">((</span><span class="nb">=</span> <span class="nv">i</span> <span class="nv">len</span><span class="p">)</span> <span class="nv">h</span><span class="p">)</span>
-         <span class="p">(</span><span class="k">set!</span> <span class="nv">h</span>
-               <span class="p">(</span><span class="nb">+</span> <span class="nv">h</span> <span class="p">(</span><span class="nb">char-&gt;integer</span>
-                      <span class="p">(</span><span class="nb">char-downcase</span> <span class="p">(</span><span class="nb">string-ref</span> <span class="nv">s</span> <span class="nv">i</span><span class="p">)))))))))</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-Hash tables with a comparison function equal to <code>eq?</code> or
-<code>string=?</code> are handled in an more efficient way (in fact, they don&#8217;t use
-the <code>hash-table-hash</code> function to speed up hash table retrievals).
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a hash table, returns <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div id="hashtablehash" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-hash obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Computes a hash code for an object and returns this hash code as a
-non-negative integer. A property of <code>hash-table-hash</code> is that</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">equal?</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nb">equal?</span> <span class="p">(</span><span class="nf">hash-table-hash</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nf">hash-table-hash</span> <span class="nv">y</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>as the Common Lisp <code>sxhash</code> function from which this procedure is
-modeled.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(alist&#8594;hash-table alist)</code></strong><br>
-<strong><code>(alist&#8594;hash-table alist comparison)</code></strong><br>
-<strong><code>(alist&#8594;hash-table alist comparison hash)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns hash-table built from the <em>association list</em>
-<code>alist</code>. This function maps the <code>car</code> of every element in <code>alist</code>
-to the <code>cdr</code> of corresponding elements in <code>alist</code>. the <code>comparison</code> and
-<code>hash</code> functions are interpreted as in <code>make-hash-table</code>. If some key
-occurs multiple times in <code>alist</code>, the value in the first
-association will take precedence over later ones.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table&#8594;alist hash)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns an <em>association list</em> built from the entries in <code>hash</code>.
-Each entry in <code>hash</code> will be represented as a pair whose <code>car</code> is the
-entry&#8217;s key and whose <code>cdr</code> is its value.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-the order of pairs in the resulting list is unspecified.
-</td>
-</tr>
-</table>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">h</span> <span class="p">(</span><span class="nf">make-hash-table</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">dotimes</span> <span class="p">(</span><span class="nf">i</span> <span class="mi">5</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">hash-table-set!</span> <span class="nv">h</span> <span class="nv">i</span> <span class="p">(</span><span class="nb">number-&gt;string</span> <span class="nv">i</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">hash-table-&gt;alist</span> <span class="nv">h</span><span class="p">))</span>
-       <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">3</span> <span class="o">.</span> <span class="s">"3"</span><span class="p">)</span> <span class="p">(</span><span class="nf">4</span> <span class="o">.</span> <span class="s">"4"</span><span class="p">)</span> <span class="p">(</span><span class="nf">0</span> <span class="o">.</span> <span class="s">"0"</span><span class="p">)</span>
-           <span class="p">(</span><span class="nf">1</span> <span class="o">.</span> <span class="s">"1"</span><span class="p">)</span> <span class="p">(</span><span class="nf">2</span> <span class="o">.</span> <span class="s">"2"</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-set! hash key value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Enters an association between <code>key</code> and <code>value</code> in the`hash` table.
-The value returned by <code>hash-table-set!</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-ref hash key)</code></strong><br>
-<strong><code>(hash-table-ref hash key thunk)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the value associated with <code>key</code> in the given <code>hash</code> table. If no
-value has been associated with <code>key</code> in <code>hash</code>, the specified <code>thunk</code> is
-called and its value is returned; otherwise an error is raised.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">h1</span> <span class="p">(</span><span class="nf">make-hash-table</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">hash-table-set!</span> <span class="nv">h1</span> <span class="ss">'foo</span> <span class="p">(</span><span class="nb">list</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">hash-table-ref</span>  <span class="nv">h1</span> <span class="ss">'foo</span><span class="p">)</span>                 <span class="nv">=&gt;</span>  <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">hash-table-ref</span>  <span class="nv">h1</span> <span class="ss">'bar</span>
-                    <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="ss">'absent</span><span class="p">))</span>  <span class="nv">=&gt;</span>  <span class="nv">absent</span>
-<span class="p">(</span><span class="nf">hash-table-ref</span>  <span class="nv">h1</span> <span class="ss">'bar</span><span class="p">)</span>                 <span class="nv">=&gt;</span>  <span class="nv">error</span>
-<span class="p">(</span><span class="nf">hash-table-set!</span> <span class="nv">h1</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span> <span class="ss">'present</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">hash-table-ref</span>  <span class="nv">h1</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span>
-                     <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="ss">'absent</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="nv">absent</span>
-
-<span class="p">(</span><span class="k">define</span> <span class="nv">h2</span> <span class="p">(</span><span class="nf">make-hash-table</span> <span class="nv">equal?</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">hash-table-set!</span> <span class="nv">h2</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span> <span class="ss">'present</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">hash-table-ref</span>  <span class="nv">h2</span> <span class="o">'</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>             <span class="nv">=&gt;</span> <span class="nv">present</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-ref/default hash key default)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function is equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">hash-table-ref</span> <span class="nv">hash</span> <span class="nv">key</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="nv">default</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-delete! hash key)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Deletes the entry for <code>key</code> in <code>hash</code>, if it exists. Result of
-<code>hash-table-delete!</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">h</span> <span class="p">(</span><span class="nf">make-hash-table</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">hash-table-set!</span> <span class="nv">h</span> <span class="ss">'foo</span> <span class="p">(</span><span class="nb">list</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">hash-table-ref</span> <span class="nv">h</span> <span class="ss">'foo</span><span class="p">)</span>                <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">hash-table-delete!</span> <span class="nv">h</span> <span class="ss">'foo</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">hash-table-ref</span> <span class="nv">h</span> <span class="ss">'foo</span>
-                  <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="ss">'absent</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="nv">absent</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-exists? hash key)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if there is any association of <code>key</code> in
-<code>hash</code>. Returns <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-update! hash key update-fun thunk)</code></strong><br>
-<strong><code>(hash-table-update!/default hash key update-fun default)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Update the value associated to <code>key</code> in table <code>hash</code> if key is already in
-table with the value <code>(update-fun current-value)</code>. If no value is
-associated to <code>key</code>, a new entry in the table is first inserted
-before updating it (this new entry being the result of calling <code>thunk</code>).</p>
-</div>
-<div class="paragraph">
-<p>Note that the expression</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">hash-table-update!/default</span> <span class="nv">hash</span> <span class="nv">key</span> <span class="nv">update-fun</span> <span class="nv">default</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">hash-table-update!</span> <span class="nv">hash</span> <span class="nv">key</span> <span class="nv">update-fun</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="nv">default</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">h</span>   <span class="p">(</span><span class="nf">make-hash-table</span><span class="p">))</span>
-      <span class="p">(</span><span class="nf">1+</span>  <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">n</span><span class="p">)</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">n</span> <span class="mi">1</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nf">hash-table-update!/default</span> <span class="nv">h</span> <span class="ss">'test</span> <span class="mi">1</span><span class="nv">+</span> <span class="mi">100</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">hash-table-update!/default</span> <span class="nv">h</span> <span class="ss">'test</span> <span class="mi">1</span><span class="nv">+</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">hash-table-ref</span> <span class="nv">h</span> <span class="ss">'test</span><span class="p">))</span>             <span class="nv">=&gt;</span> <span class="mi">102</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-for-each hash proc)</code></strong><br>
-<strong><code>(hash-table-walk hash proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Proc</code> must be a procedure taking two arguments. <code>Hash-table-for-each</code>
-calls <code>proc</code> on each key/value association in <code>hash</code>, with the key as
-the first argument and the value as the second.  The value returned by
-<code>hash-table-for-each</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The order of application of <code>proc</code> is unspecified.
-</td>
-</tr>
-</table>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<code>hash-table-walk</code> is another name for <code>hash-table-for-each</code>
-(this is the name used in <strong><a href="http://srfi.schemers.org/srfi-69/srfi-69.html">SRFI-69</a></strong> (<em>Basic Hash Tables</em>).
-</td>
-</tr>
-</table>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">h</span>   <span class="p">(</span><span class="nf">make-hash-table</span><span class="p">))</span>
-      <span class="p">(</span><span class="nf">sum</span> <span class="mi">0</span><span class="p">))</span>
-  <span class="p">(</span><span class="nf">hash-table-set!</span> <span class="nv">h</span> <span class="ss">'foo</span> <span class="mi">2</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">hash-table-set!</span> <span class="nv">h</span> <span class="ss">'bar</span> <span class="mi">3</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">hash-table-for-each</span> <span class="nv">h</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">key</span> <span class="nv">value</span><span class="p">)</span>
-                           <span class="p">(</span><span class="k">set!</span> <span class="nv">sum</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">sum</span> <span class="nv">value</span><span class="p">))))</span>
-  <span class="nv">sum</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="mi">5</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-map hash proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Proc</code> must be a procedure taking two arguments. <code>Hash-table-map</code>
-calls <code>proc</code> on each key/value association in <code>hash</code>, with the key as
-the first argument and the value as the second.  The result of
-<code>hash-table-map</code> is a list of the values returned by <code>proc</code>, in an
-unspecified order.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The order of application of <code>proc</code> is unspecified.
-</td>
-</tr>
-</table>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">h</span> <span class="p">(</span><span class="nf">make-hash-table</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">dotimes</span> <span class="p">(</span><span class="nf">i</span> <span class="mi">5</span><span class="p">)</span>
-    <span class="p">(</span><span class="nf">hash-table-set!</span> <span class="nv">h</span> <span class="nv">i</span> <span class="p">(</span><span class="nb">number-&gt;string</span> <span class="nv">i</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">hash-table-map</span> <span class="nv">h</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">key</span> <span class="nv">value</span><span class="p">)</span>
-                       <span class="p">(</span><span class="nb">cons</span> <span class="nv">key</span> <span class="nv">value</span><span class="p">))))</span>
-             <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">3</span> <span class="o">.</span> <span class="s">"3"</span><span class="p">)</span> <span class="p">(</span><span class="nf">4</span> <span class="o">.</span> <span class="s">"4"</span><span class="p">)</span> <span class="p">(</span><span class="nf">0</span> <span class="o">.</span> <span class="s">"0"</span><span class="p">)</span> <span class="p">(</span><span class="nf">1</span> <span class="o">.</span> <span class="s">"1"</span><span class="p">)</span> <span class="p">(</span><span class="nf">2</span> <span class="o">.</span> <span class="s">"2"</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-keys hash)</code></strong><br>
-<strong><code>(hash-table-values hash)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the keys or the values of <code>hash</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-fold hash func init-value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure calls <code>func</code> for every association in <code>hash</code>
-with three arguments: the key of the association key, the value
-of the association value, and an accumulated value, <code>val</code>. <code>Val</code> is
-init-value for the first invocation of <code>func</code>, and for subsequent
-invocations of <code>func</code>, the return value of the previous invocation of
-<code>func</code>. The value <code>final-value</code> returned by <code>hash-table-fold</code> is the
-return value of the last invocation of <code>func</code>. The order in which <code>func</code> is
-called for different associations is unspecified.</p>
-</div>
-<div class="paragraph">
-<p>For instance, the following expression</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">hash-table-fold</span> <span class="nv">ht</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">k</span> <span class="nv">v</span> <span class="nv">acc</span><span class="p">)</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">acc</span> <span class="mi">1</span><span class="p">))</span> <span class="mi">0</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>computes the number of associations present in the <code>ht</code> hash table.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-copy hash)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a copy of <code>hash</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-merge! hash1 hash2)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Adds all mappings in <code>hash2</code> into <code>hash1</code> and returns the resulting
-hash table. This function may modify <code>hash1</code> destructively.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-equivalence-function hash)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the equivalence predicate used for keys in <code>hash</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-hash-function hash)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the hash function used for keys in <code>hash</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-mutable? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is an immutable hash table, <code>#f</code> if it
-is a mutable hash table, and raises an error if <code>obj</code> is not a
-hash table.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-immutable! obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>If <code>obj</code> is a hash table, makes it immutable. Otherwise, raises
-an error.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-size hash)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the number of entries in the <code>hash</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(hash-table-stats hash)</code></strong><br>
-<strong><code>(hash-table-stats hash port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Prints  overall information about <code>hash</code>, such as the number of entries
-it contains, the number of buckets in its hash array, and the utilization
-of the buckets. Information is printed on <code>port</code>. If no <code>port</code> is given
-to <code>hash-table-stats</code>, information are printed on the current output port
-(see <em><a href="_standard_procedures.html#curroport"><code>current-output-port</code> primitive</a></em>).</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_dates_and_times">4.16. Dates and Times</h3>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> stores dates and times with a compact
-representation which consists is an integer which represents the
-number of seconds elapsed since the <strong><em>Epoch</em></strong> (00:00:00 on
-January 1, 1970, Coordinated Universal Time --UTC). Dates can
-also be represented with date structures.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(current-second)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns an inexact number representing the current time on the
-International Atomic Time (TAI) scale.  The value 0.0 represents
-midnight on January 1, 1970 TAI (equivalent to ten seconds before
-midnight Universal Time) and the value 1.0 represents one TAI
-second later.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(current-seconds)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the time since the Epoch (that is 00:00:00 UTC, January 1, 1970),
-measured in seconds in the Coordinated Universal Time (UTC) scale.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This <strong><em>STklos</em></strong> function should not be confused with
-the R<sup>7</sup>RS  primitive <code>current-second</code> which returns an inexact number
-and whose result is expressed using  the International Atomic Time
-instead of UTC.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(current-time)</code></strong><br>
-<strong><code>(current-time type)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the current time as time object. The type can be <code>time-utc</code> or <code>time-tai</code>.
-If omitted, <code>type</code> is <code>time-utc</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-To use more time types, such as <code>time-monotonic</code> and <code>time-process</code>, please
-load <strong><a href="http://srfi.schemers.org/srfi-19/srfi-19.html">SRFI-19</a></strong>.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-time nanosecond second)</code></strong><br>
-<strong><code>(make-time type nanosecond second)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Creates a time structure with the given <code>nanosecond</code> and <code>second</code>.
-If <code>type</code> is passed, it must be a symbol representing one of the
-supported time types (<code>time-tai</code>, <code>time-utc</code>, <code>time-monotonic</code>,
-<code>time-process</code> and <code>time-duration</code>).</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<code>time-monotonic</code>, <code>time-process</code> and <code>time-duration</code> can
-be created, but operations on them are only available when SRFI-19 is
-loaded.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(time-type t)</code></strong><br>
-<strong><code>(set-time-type! t v)</code></strong><br>
-<strong><code>(time-second t)</code></strong><br>
-<strong><code>(set-time-second! t s)</code></strong><br>
-<strong><code>(time-nanosecond t)</code></strong><br>
-<strong><code>(set-time-nanosecond! t n)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These are accessors for time structures.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(time? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return <code>#t</code> if <code>obj</code> is a time object, othererwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(time&#8594;seconds time)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Convert the time object <code>time</code> into an inexact real number representing
-the number of seconds elapsed since the Epoch.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">time-&gt;seconds</span> <span class="p">(</span><span class="nf">current-time</span><span class="p">))</span>  <span class="nv">==&gt;</span>  <span class="mf">1138983411.09337</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(seconds&#8594;time x)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Converts into a time object the real number <code>x</code> representing the number
-of seconds elapsed since the Epoch.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">seconds-&gt;time</span> <span class="p">(</span><span class="nb">+</span> <span class="mi">10</span> <span class="p">(</span><span class="nf">time-&gt;seconds</span> <span class="p">(</span><span class="nf">current-time</span><span class="p">))))</span>
-         <span class="nv">==&gt;</span>  <span class="nv">a</span> <span class="nv">time</span> <span class="nv">object</span> <span class="nv">representing</span> <span class="mi">10</span> <span class="nv">seconds</span> <span class="nv">in</span> <span class="nv">the</span> <span class="nv">future</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(time-utc&#8594;time-tai t)</code></strong><br>
-<strong><code>(time-utc&#8594;time-tai! t)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Converts <code>t</code>, which must be of type <code>time-utc</code>, to the type
-<code>time-tai</code>.</p>
-</div>
-<div class="paragraph">
-<p><code>Time-utc&#8594;time-tai</code> creates a new object, while <code>time-utc&#8594;time-tai</code>
-can use <code>t</code> to build the returned object.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(time-tai&#8594;time-utc t)</code></strong><br>
-<strong><code>(time-tai&#8594;time-utc! t)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Converts <code>t</code>, which must be of type <code>time-tai</code>, to the type
-<code>time-utc</code>.</p>
-</div>
-<div class="paragraph">
-<p><code>Time-tai&#8594;time-utc</code> creates a new object, while <code>time-tai&#8594;time-utc</code>
-can use <code>t</code> to build the returned object.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(current-date)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the current system date.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-date :key      nanosecond second minute hour day month year zone-offset)</code></strong><br>
-<strong><code>(make-date :optional nanosecond second minute hour day month year zone-offset)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Build a date from its argument. <code>hour</code>, <code>minute</code>, <code>second</code>, <code>nanosecond</code>
-default to 0; <code>day</code> and <code>month</code> default to 1; <code>year</code> defaults to 1970.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return <code>#t</code> if <code>obj</code> is a date, and otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date-nanosecond d)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the nanosecond of date <code>d</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date-second d)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the second of date <code>d</code>, in the range 0 to 59.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date-minute d)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the minute of date <code>d</code>, in the range 0 to 59.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date-hour d)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the hour of date <code>d</code>, in the range 0 to 23.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date-day d)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the day of date <code>d</code>, in the range 1 to 31</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date-month d)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the month of date <code>d</code>, in the range 1 to 12</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date-year d)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the year of date <code>d</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date-week-day d)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the week day of date <code>d</code>, in the range 0 to 6 (0 is Sunday).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date-year-day d)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the the number of days since January 1 of date <code>d</code>, in the range
-1 to 366.</p>
-</div>
-<div id="datedst" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date-dst d)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return an indication about daylight saving adjustment of date <code>d</code>:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>0 if no daylight saving adjustment</p>
-</li>
-<li>
-<p>1 if daylight saving adjustment</p>
-</li>
-<li>
-<p>-1 if the information is not available</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date-tz d)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the time zone of date <code>d</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(local-timezone-offset)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the local timezone offset, in seconds.</p>
-</div>
-<div class="paragraph">
-<p>For example, for GMT+2 it will be <code>2 * 60 * 60</code> = <code>7200</code></p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">local-timezone-offset</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">0</span>        <span class="c1">;; for GMT</span>
-<span class="p">(</span><span class="nf">local-timezone-offset</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">7200</span>     <span class="c1">;; for GMT+2</span>
-<span class="p">(</span><span class="nf">local-timezone-offset</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">-10800</span>   <span class="c1">;; for GMT-3</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The timezone is searched for in the environment variable <code>TZ</code>. If this
-variable does not appear in the environment, the system timezone is used.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date&#8594;seconds d)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Convert the date <code>d</code> to the number of seconds since the <em>Epoch</em>,
-1970-01-01 00:00:00 +0000 (UTC).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">date-&gt;seconds</span> <span class="p">(</span><span class="nf">make-date</span> <span class="mi">0</span> <span class="mi">37</span> <span class="mi">53</span> <span class="mi">1</span> <span class="mi">26</span> <span class="mi">10</span> <span class="mi">2012</span> <span class="mi">0</span><span class="p">))</span>   <span class="nv">=&gt;</span> <span class="mf">1351216417.0</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date&#8594;string d)</code></strong><br>
-<strong><code>(date&#8594;string d format)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Convert the date <code>d</code> using the string <code>format</code> as a
-specification. Conventions for format are the same as the one
-of <em><a href="_standard_procedures.html#seconds2string">primitive <code>seconds&#8594;string</code></a></em>.
-If <code>format</code> is omitted, it defaults to <code>"~c"</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(seconds&#8594;date n)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Convert the date <code>n</code> expressed as a number of seconds since the <em>Epoch</em>,
-1970-01-01 00:00:00 +0000 (UTC) into a date.
-<code>n</code> can be an exact integer or an inexact real.</p>
-</div>
-<div class="paragraph">
-<p>This is equivalent to converting time-UTC to date.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">seconds-&gt;date</span> <span class="mi">1351216417</span><span class="p">)</span>           <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">[</span><span class="nf">date</span> <span class="mi">2012-10-26</span> <span class="mi">1</span><span class="nv">:53:37</span><span class="p">]</span></code></pre>
-</div>
-</div>
-<div id="seconds2string" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(seconds&#8594;string format n)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Convert a date expressed in seconds using the string <code>format</code> as a
-specification. Conventions for <code>format</code> are given below:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><strong>~~</strong> a literal ~</p>
-</li>
-<li>
-<p><strong>~a</strong> locale&#8217;s abbreviated weekday name (Sun&#8230;&#8203;Sat)</p>
-</li>
-<li>
-<p><strong>~A</strong> locale&#8217;s full weekday name (Sunday&#8230;&#8203;Saturday)</p>
-</li>
-<li>
-<p><strong>~b</strong> locale&#8217;s abbreviate month name (Jan&#8230;&#8203;Dec)</p>
-</li>
-<li>
-<p><strong>~B</strong> locale&#8217;s full month day (January&#8230;&#8203;December)</p>
-</li>
-<li>
-<p><strong>~c</strong> locale&#8217;s date and time
-(e.g., ,(code "Fri Jul 14 20:28:42-0400 2000"))</p>
-</li>
-<li>
-<p><strong>~d</strong> day of month, zero padded (01&#8230;&#8203;31)</p>
-</li>
-<li>
-<p><strong>~D</strong> date (mm/dd/yy)</p>
-</li>
-<li>
-<p><strong>~e</strong> day of month, blank padded ( 1&#8230;&#8203;31)</p>
-</li>
-<li>
-<p><strong>~f</strong> seconds+fractional seconds, using locale&#8217;s
-decimal separator (e.g. 5.2).</p>
-</li>
-<li>
-<p><strong>~h</strong> same as ~b</p>
-</li>
-<li>
-<p><strong>~H</strong> hour, zero padded, 24-hour clock (00&#8230;&#8203;23)</p>
-</li>
-<li>
-<p><strong>~I</strong> hour, zero padded, 12-hour clock (01&#8230;&#8203;12)</p>
-</li>
-<li>
-<p><strong>~j</strong> day of year, zero padded</p>
-</li>
-<li>
-<p><strong>~k</strong> hour, blank padded, 24-hour clock (00&#8230;&#8203;23)</p>
-</li>
-<li>
-<p><strong>~l</strong> hour, blank padded, 12-hour clock (01&#8230;&#8203;12)</p>
-</li>
-<li>
-<p><strong>~m</strong> month, zero padded (01&#8230;&#8203;12)</p>
-</li>
-<li>
-<p><strong>~M</strong> minute, zero padded (00&#8230;&#8203;59)</p>
-</li>
-<li>
-<p><strong>~n</strong> new line</p>
-</li>
-<li>
-<p><strong>~p</strong> locale&#8217;s AM or PM</p>
-</li>
-<li>
-<p><strong>~r</strong> time, 12 hour clock, same as "~I:~M:~S ~p"</p>
-</li>
-<li>
-<p><strong>~s</strong> number of full seconds since <em>the epoch</em> (in UTC)</p>
-</li>
-<li>
-<p><strong>~S</strong> second, zero padded (00&#8230;&#8203;61)</p>
-</li>
-<li>
-<p><strong>~t</strong> horizontal tab</p>
-</li>
-<li>
-<p><strong>~T</strong> time, 24 hour clock, same as "~H:~M:~S"</p>
-</li>
-<li>
-<p><strong>~U</strong> week number of year with Sunday as first day of week
-(00&#8230;&#8203;53)</p>
-</li>
-<li>
-<p><strong>~V</strong> weekISO 8601:1988 week number of year (01&#8230;&#8203;53)
-(week 1 is the first week that has at least 4 days in
-the current year, and  with  Monday  as  the first day
-of the week)</p>
-</li>
-<li>
-<p><strong>~w</strong> day of week (1&#8230;&#8203;7, 1 is Monday)</p>
-</li>
-<li>
-<p><strong>~W</strong> week number of year with Monday as first day of week
-(01&#8230;&#8203;52)</p>
-</li>
-<li>
-<p><strong>~x</strong> week number of year with Monday as first day of week
-(00&#8230;&#8203;53)</p>
-</li>
-<li>
-<p><strong>~X</strong> locale&#8217;s date representation, for example: "07/31/00"</p>
-</li>
-<li>
-<p><strong>~y</strong> last two digits of year (00&#8230;&#8203;99)</p>
-</li>
-<li>
-<p><strong>~Y</strong> year</p>
-</li>
-<li>
-<p><strong>~z</strong> time zone in RFC-822 style</p>
-</li>
-<li>
-<p><strong>~Z</strong> symbol time zone</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(seconds&#8594;list sec)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a keyword list for the date given by <code>sec</code> (a date based on the
-Epoch). The keyed values returned are</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>nanosecond : 0 to 999999</p>
-</li>
-<li>
-<p>second : 0 to 59 (but can be up to 61 to allow for leap seconds)</p>
-</li>
-<li>
-<p>minute : 0 to 59</p>
-</li>
-<li>
-<p>hour : 0 to 23</p>
-</li>
-<li>
-<p>day : 1 to 31</p>
-</li>
-<li>
-<p>month : 1 to 12</p>
-</li>
-<li>
-<p>year : e.g., 2002</p>
-</li>
-<li>
-<p>week-day : 0 (Sunday) to 6 (Saturday)</p>
-</li>
-<li>
-<p>year-day : 0 to 365 (365 in leap years)</p>
-</li>
-<li>
-<p>dst : indication about daylight savings time
-(see <em><a href="_standard_procedures.html#datedst">primitive <code>date-dst</code></a></em>).</p>
-</li>
-<li>
-<p>tz : the difference between Coordinated Universal Time
-(UTC) and local standard time in seconds.])</p>
-</li>
-</ul>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">seconds-&gt;list</span> <span class="p">(</span><span class="nf">current-second</span><span class="p">))</span>
-       <span class="nv">=&gt;</span> <span class="p">(</span><span class="o">#</span><span class="nv">:nanosecond</span> <span class="mi">182726</span> <span class="o">#</span><span class="nv">:second</span> <span class="mi">21</span> <span class="o">#</span><span class="nv">:minute</span> <span class="mi">35</span> <span class="o">#</span><span class="nv">:hour</span> <span class="mi">20</span> <span class="o">#</span><span class="nv">:day</span> <span class="mi">10</span> <span class="o">#</span><span class="nv">:month</span> <span class="mi">1</span>
-           <span class="o">#</span><span class="nv">:year</span> <span class="mi">2022</span> <span class="o">#</span><span class="nv">:week-day</span> <span class="mi">1</span> <span class="o">#</span><span class="nv">:year-day</span> <span class="mi">10</span> <span class="o">#</span><span class="nv">:dst</span> <span class="mi">0</span> <span class="o">#</span><span class="nv">:tz</span> <span class="mi">-3600</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(date)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the current date in a string.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_boxes">4.17. Boxes</h3>
-<div class="paragraph">
-<p>Boxes are objects which contain one or several states.  A box may
-be constructed with the box, constant-box. <strong><em>STklos</em></strong> boxes are
-compatible with the one defined in <strong><a href="http://srfi.schemers.org/srfi-111/srfi-111.html">SRFI-111</a></strong> (<em>Boxes</em>) or <strong><a href="http://srfi.schemers.org/srfi-195/srfi-195.html">SRFI-195</a></strong> (<em>Multiple-value boxes</em>).  Boxes of
-SRFI-111 can contain only one value, whereas SRFI-195 boxes can contain multiple
-values. Furthermore, <strong><em>STklos</em></strong> defines also the notion of constant boxes which
-are not mutable.</p>
-</div>
-<div class="paragraph">
-<p>The read primitive can also make single valued boxes (using the <code>#&amp;</code>
-notation). Such boxes are mutable.</p>
-</div>
-<div class="paragraph">
-<p>Note that two boxes are <code>equal?</code> <strong><em>iff</em></strong> their content are <code>equal?</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(box value &#8230;&#8203;)</code></strong><br>
-<strong><code>(make-box value &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a new box that contains all the given `value`s.
-The box is mutable.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">x</span> <span class="p">(</span><span class="nf">box</span> <span class="mi">10</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nb">list</span> <span class="mi">10</span> <span class="nv">x</span><span class="p">))</span>        <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">10</span> <span class="o">#</span><span class="nv">&amp;10</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The name <code>make-box</code> is now obsolete and kept only for compatibility.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(constant-box value &#8230;&#8203;)</code></strong><br>
-<strong><code>(make-constant-box value &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a new box that contains all the given `value`s. The box is immutable.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The name <code>make-constant-box</code> is now obsolete and kept only for compatibility.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(box? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a box, <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(box-mutable? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a mutable box, <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(set-box! box value &#8230;&#8203;)</code></strong><br>
-<strong><code>(box-set! box value &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Changes <code>box</code> to hold <code>value`s. It is an error if `set-box!</code> is called
-with a number of values that differs from the number of values in the box
-being set. (In other words, <code>set-box!</code> does not allocate memory.)
-It is also an error to call <code>set-box!</code> on a box which is not mutable.</p>
-</div>
-<div class="paragraph">
-<p>The name <code>box-set!</code> is now obsolete and kept only for compatibility.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(unbox box)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the values currently in <code>box</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(box-arity box)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the number of values in <code>box</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(unbox-value box i)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the <code>i</code>th value of <code>box</code>. It is an error if <code>i</code> is not an exact integer
-between 0 and <code>n</code>-1, when <code>n</code> is the number of values in <code>box</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(set-box-value! box i obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Changes the <code>i</code>th value of <code>box</code> to <code>obj</code>. It is an error if <code>i</code> is not an
-exact integer between 0 and <code>n</code>-1, when <code>n</code> is the number of values in <code>box</code>.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_processes">4.18. Processes</h3>
-<div class="paragraph">
-<p>
-
-<strong><em>STklos</em></strong> provides access to Unix processes as first class objects.
-Basically, a process contains information such as the standard
-system process identification (aka PID on Unix Systems), the files where
-the standard files of the process are redirected, &#8230;&#8203;</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(run-process command p1 p2 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>run-process</code> creates a new process and run the executable
-specified in <code>command</code>. The <code>p</code> correspond to the command line
-arguments. The following values of <code>p</code> have a special meaning:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>:input</code> permits to redirect the standard input file of the
-process. Redirection can come from a file or from a pipe. To redirect
-the standard input from a file, the name of this file must be
-specified after <code>:input</code>. Use the special keyword <code>:pipe</code> to
-redirect the standard input from a pipe.</p>
-</li>
-<li>
-<p><code>:output</code> permits to redirect the standard output file of the
-process. Redirection can go to a file or to a pipe. To redirect
-the standard output to a file, the name of this file must be
-specified after <code>:output</code>. Use the special keyword <code>:pipe</code> to
-redirect the standard output to a pipe.</p>
-</li>
-<li>
-<p><code>:error</code> permits to redirect the standard error file of the
-process. Redirection can go to a file or to a pipe. To redirect
-the standard error to a file, the name of this file must be
-specified after <code>error</code>. Use the special keyword <code>:pipe</code> to
-redirect the standard error to a pipe.</p>
-</li>
-<li>
-<p><code>:wait</code> must be followed by a boolean value. This value
-specifies if the process must be run asynchronously or not. By
-default, the process is run asynchronously (i.e. <code>:wait</code> is <code>#f</code>).</p>
-</li>
-<li>
-<p><code>:host</code> must be followed by a string. This string represents
-the name of the machine on which the command must be executed. This
-option uses the external command <code>rsh</code>. The shell variable
-<code>PATH</code> must be correctly set for accessing it without specifying its
-abolute path.</p>
-</li>
-<li>
-<p><code>:fork</code> must be followed by a boolean value. This value
-specifies if a <em>fork"</em> system call must be done before running
-the process. If the process is run without <em>fork</em> the Scheme
-program is lost. This feature mimics the <code>``exec&#8217;' primitive of the
-Unix shells. By default, a fork is executed before running the process
-(i.e. `:fork</code> is <code>#t</code>). This option works on Unix implementations only.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>The following example launches a process which executes the
-Unix command <code>ls</code> with the arguments <code>-l</code> and <code>/bin</code>. The lines
-printed by this command are stored in the file <code>/tmp/X</code></p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">run-process</span> <span class="s">"ls"</span> <span class="s">"-l"</span> <span class="s">"/bin"</span> <span class="nv">:output</span> <span class="s">"/tmp/X"</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(process? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a process , otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(process-alive? proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if process <code>proc</code> is currently running, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(process-pid proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns an integer which represents the Unix identification (PID) of the
-processus.</p>
-</div>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(process-input proc)</code></strong><br>
-<strong><code>(process-output proc)</code></strong><br>
-<strong><code>(process-error proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the file port associated to the standard input, output or error
-of <code>proc</code>, if it is redirected in (or to) a pipe; otherwise
-returns <code>#f</code>. Note that the returned port is opened for reading
-when calling <code>process-output</code> or <code>process-error</code>; it is opened
-for writing when calling <code>process-input</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(process-wait proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Stops the current process (the Scheme process) until <code>proc</code> completion.
-<code>Process-wait</code> returns <code>#f</code> when <code>proc</code> is already terminated; it returns
-<code>#t</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(process-exit-status proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the exit status of <code>proc</code> if it has finished its execution;
-returns <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(process-send-signal proc sig)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Sends the integer signal <code>sig</code> to <code>proc</code>. Since value of <code>sig</code> is system
-dependant, use the symbolic defined signal constants to make your program
-independant of the running system (see <a href="_standard_procedures.html#_signals">Section 4.20</a>).
-The result of <code>process-send-signal</code> is <strong><em>void</em></strong>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(process-kill proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Kills (brutally) <code>process</code>. The result of <code>process-kill</code>
-is <em>void</em>. This procedure is equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">process-send-signal</span> <span class="nv">process</span> <span class="nv">SIGTERM</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(process-stop proc)</code></strong><br>
-<strong><code>(process-continue proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Process-stop</code> stops the execution of <code>proc</code> and <code>process-continue</code> resumes
-its execution. They are equivalent, respectively, to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">process-send-signal</span> <span class="nv">process</span> <span class="nv">SIGSTOP</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">process-send-signal</span> <span class="nv">process</span> <span class="nv">SIGCONT</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(process-list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the list of processes which are currently running (i.e. alive).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(fork)</code></strong><br>
-<strong><code>(fork thunk)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure is a wrapper around the standard Unix <code>fork</code> system
-call which permits to create a new (heavy) process.
-When called without parameter, this procedure returns two times
-(one time in the parent process and one time in the child process).
-The value returned to the parent process is a process object
-representing the child process and the value returned to the child
-process is always the value <code>#f</code>.
-When called with a parameter (which must be a thunk), the new process
-excutes <code>thunk</code> and terminate it execution when <code>thunk</code> returns. The
-value returned to the parent process is a process object representing
-the child process.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_sockets">4.19. Sockets</h3>
-<div class="paragraph">
-<p>
-<strong><em>STklos</em></strong> defines <strong>sockets</strong>, on systems which support them,
-as first class objects. Sockets permits processes to communicate even if
-they are on different machines. Sockets are useful for creating client-server
-applications.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-client-socket hostname port-number)</code></strong><br>
-<strong><code>(make-client-socket hostname port_number line-buffered)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>make-client-socket</code> returns a new socket object. This socket
-establishes a link between the running program and the application
-listening on port <code>port-number</code> of <code>hostname</code>.  If  the optional argument
-<code>line-buffered</code> has a true value, a line buffered policy is used when writing
-to the client socket (i.e. characters on the socket are tranmitted as soon
-as a <code>"#newline</code> character is encountered). The default value of
-<code>line-buffered</code> is <code>#t</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-server-socket)</code></strong><br>
-<strong><code>(make-server-socket port-number)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>make-server-socket</code> returns a new socket object. If <code>port-number</code>
-is specified, the socket is listening on the specified port;
-otherwise, the communication port is chosen by the system.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(socket-shutdown sock)</code></strong><br>
-<strong><code>(socket-shutdown sock close)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Socket-shutdown</code> shutdowns the connection associated to
-<code>socket</code>. If the socket is a server socket, <code>socket-shutdown</code> is called
-on all the client sockets connected to this server.
-<code>Close</code> indicates if the socket must be closed or not, when
-the connection is destroyed. Closing the socket forbids further
-connections on the same port with the <code>socket-accept</code> procedure.
-Omitting a value for <code>close</code> implies the closing of socket.</p>
-</div>
-<div class="paragraph">
-<p>The following example shows a simple server: when there is
-a new connection on the port number 12345, the server displays
-the first line sent to it by the client, discards the others and
-go back waiting for further client connections.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">s</span> <span class="p">(</span><span class="nf">make-server-socket</span> <span class="mi">12345</span><span class="p">)))</span>
-   <span class="p">(</span><span class="k">let</span> <span class="nv">loop</span> <span class="p">()</span>
-      <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">ns</span> <span class="p">(</span><span class="nf">socket-accept</span> <span class="nv">s</span><span class="p">)))</span>
-        <span class="p">(</span><span class="nf">format</span> <span class="no">#t</span> <span class="s">"I've read: ~A\n"</span>
-                <span class="p">(</span><span class="nf">read-line</span> <span class="p">(</span><span class="nf">socket-input</span> <span class="nv">ns</span><span class="p">)))</span>
-        <span class="p">(</span><span class="nf">socket-shutdown</span> <span class="nv">ns</span> <span class="no">#f</span><span class="p">)</span>
-        <span class="p">(</span><span class="nf">loop</span><span class="p">))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(socket-accept socket)</code></strong><br>
-<strong><code>(socket-accept socket line-buffered)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>socket-accept</code> waits for a client connection on the given
-<code>socket</code>. If no client is already waiting for a connection, this
-procedure blocks its caller; otherwise, the first connection request
-on the queue of pending connections is connected and <code>socket-accept</code>
-returns a new client socket to serve this request.
-This procedure must be called on a server socket created
-with <code>make-server-socket</code>. The result of <code>socket-accept</code> is undefined.
-<code>Line-buffered</code> indicates if the port should be considered as a
-line buffered. If <code>line-buffered</code> is omitted, it defaults to <code>#t</code>.</p>
-</div>
-<div class="paragraph">
-<p>The following example is a simple server which waits for a connection
-on the port 12345 <sup class="footnote">[<a id="_footnoteref_1" class="footnote" href="#_footnotedef_1" title="View footnote.">1</a>]</sup></p>
-</div>
-<div class="paragraph">
-<p>Once the connection with the distant program is established, we read
-a line on the input port associated to the socket, and we write the
-length of this line on its output port.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let*</span> <span class="p">((</span><span class="nf">server</span> <span class="p">(</span><span class="nf">make-server-socket</span> <span class="mi">12345</span><span class="p">))</span>
-       <span class="p">(</span><span class="nf">client</span> <span class="p">(</span><span class="nf">socket-accept</span> <span class="nv">server</span><span class="p">))</span>
-       <span class="p">(</span><span class="nf">l</span>      <span class="p">(</span><span class="nf">read-line</span> <span class="p">(</span><span class="nf">socket-input</span> <span class="nv">client</span><span class="p">))))</span>
-  <span class="p">(</span><span class="nf">format</span> <span class="p">(</span><span class="nf">socket-output</span> <span class="nv">client</span><span class="p">)</span>
-          <span class="s">"Length is: ~an"</span> <span class="p">(</span><span class="nb">string-length</span> <span class="nv">l</span><span class="p">))</span>
-  <span class="p">(</span><span class="nf">socket-shutdown</span> <span class="nv">server</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Note that shutting down the <code>server</code> socket suffices here to close
-also the connection to <code>client</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(socket? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>socket</code> is a socket, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(socket-server? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>socket</code> is a server socket, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(socket-client? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>socket</code> is a client socket, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(socket-host-name socket)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a string which contains the name of the distant host
-attached to <code>socket</code>. If <code>socket</code> has been created with
-<code>make-client-socket</code> this procedure returns the official name of
-the distant machine used for connection. If <code>socket</code> has been
-created with <code>make-server-socket</code>, this function returns the
- official name of the client connected to the socket. If no client
-has used yet <code>socket</code>, this function returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(socket-host-address socket)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a string which contains the IP number of the distant host
-attached to <code>socket</code>. If <code>socket</code> has been created with
-<code>make-client-socket</code> this procedure returns the IP number of the
-distant machine used for connection. If <code>socket</code> has been created
-with <code>make-server-socket</code>, this function returns the address of the
-client connected to the socket.  If no client has used yet
-<code>socket</code>, this function returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(socket-local-address socket)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a string which contains the IP number of the local host
-attached to <code>socket</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(socket-port-number socket)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the integer number of the port used for <code>socket</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(socket-input socket)</code></strong><br>
-<strong><code>(socket-output socket)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the port associated for reading or writing with the
-program connected with <code>socket</code>. Note that this port is both textual
-and binary. If no connection has already been established,
-these functions return <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p>The following example shows how to make a client socket. Here we
-create a socket on port 13 of the machine
-<code>kaolin.unice.fr</code> <sup class="footnote">[<a id="_footnoteref_2" class="footnote" href="#_footnotedef_2" title="View footnote.">2</a>]</sup>:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">s</span> <span class="p">(</span><span class="nf">make-client-socket</span> <span class="s">"kaolin.unice.fr"</span> <span class="mi">13</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">format</span> <span class="no">#t</span> <span class="s">"Time is: ~A~%"</span> <span class="p">(</span><span class="nf">read-line</span> <span class="p">(</span><span class="nf">socket-input</span> <span class="nv">s</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">socket-shutdown</span>  <span class="nv">s</span><span class="p">))</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_signals">4.20. Signals</h3>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> permits to associate handlers to POSIX.1 signals. When a
-signal handler is called, the integer value of this signal is passed
-to it as (the only) parameter.</p>
-</div>
-<div class="paragraph">
-<p>The following POXIX.1 values for signal numbers are defined:
-<code>SIGABRT</code> <code>SIGALRM</code>, <code>SIGFPE</code>, <code>SIGHUP</code>,<code>SIGILL</code>, <code>SIGINT</code>, <code>SIGKILL</code>,
-<code>SIGPIPE</code>, <code>SIGQUIT</code>, <code>SIGSEGV</code>, <code>SIGTERM</code>, <code>SIGUSR1</code>, <code>SIGUSR2</code>,
-<code>SIGCHLD</code>, <code>SIGCONT</code>, <code>SIGSTOP</code>, <code>SIGTSTP</code>, <code>SIGTTIN</code>, <code>SIGTTOU</code>.
-Moreover, the following constants, which are often available on most
-systems are also defined (if supported by the running system):
-<code>SIGTRAP</code>, <code>SIGIOT</code>, <code>SIGEMT</code>, <code>SIGBUS</code>, <code>SIGSYS</code>, <code>SIGURG</code>, <code>SIGCLD</code>,
-<code>SIGIO</code>, <code>SIGPOLL</code>, <code>SIGXCPU</code>, <code>SIGXFSZ</code>, <code>SIGVTALRM</code>, <code>SIGPROF</code>,
-<code>SIGWINCH</code>, <code>SIGLOST</code>.</p>
-</div>
-<div class="paragraph">
-<p>See your Unix documentation for the exact meaning of each constant or
-<a href="_bibliography.html#POSIX">[POSIX]</a>. Use symbolic constants rather than their numeric value if
-you plan to port your program on another system.</p>
-</div>
-<div id="set-signal-handler!" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(set-signal-handler! sig handler)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Replace the handler for integer signal <code>sig</code> with <code>handler</code>.
-The value of <code>handler</code> can be:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>#t</code> to reset the signal handler for <code>sig</code> to the
-default system handler.</p>
-</li>
-<li>
-<p><code>#f</code> to  ignore the <code>sig</code> signal. Note that POSIX states that
-<code>SIGKILL</code> and <code>SIGSTOP</code> cannot be ignored or caught.</p>
-</li>
-<li>
-<p>a one parameter procedure, which will be called when the
-processus  receives the signal <code>sig</code>.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>This procedure returns <strong><em>void</em></strong>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">x</span> <span class="no">#f</span><span class="p">))</span>
-  <span class="p">(</span><span class="nf">set-signal-handler!</span> <span class="nv">SIGUSR1</span>
-                       <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">i</span><span class="p">)</span> <span class="p">(</span><span class="k">set!</span> <span class="nv">x</span> <span class="no">#t</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">send-signal</span> <span class="nv">SIGUSR1</span><span class="p">)</span>
-  <span class="nv">x</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(get-signal-handler! sig)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the handler for integer signal <code>sig</code>.
-The value of <code>handler</code> can be a boolean value or a procedure.
-See <a href="_standard_procedures.html#set-signal-handler!">primitive <code>set-signal-handler!</code></a> for
-more information.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(send-signal sig)</code></strong><br>
-<strong><code>(send-signal sig pid)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Send the integer signal <code>sig</code> to the process with <code>pid</code> process id.
-If the second parameter is absent, it deaults to the one of the running
-program.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(pause)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Pauses the STklos process until the delivery of a signal whose action
-is either to execute a signal-catching function or to terminate the
-process. If the action is to terminate the process,  <code>pause</code> will not
-return. If the action is to execute a signal-catching function, <code>pause</code>
-will terminate after the signal-catching function returns.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_parameter_objects">4.21. Parameter Objects</h3>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> parameters correspond to the ones defined in <strong><a href="http://srfi.schemers.org/srfi-39/srfi-39.html">SRFI-39</a></strong> (<em>Parameters objects</em>).
-See SRFI document for more information.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-parameter init)</code></strong><br>
-<strong><code>(make-parameter init converter)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a new parameter object which is bound in the global dynamic
-environment to a cell containing the value returned by the call
-<code>(converter init)</code>. If the conversion procedure <code>converter</code> is not
-specified the identity function is used instead.</p>
-</div>
-<div class="paragraph">
-<p>The parameter object is a procedure which accepts zero or one
-argument. When it is called with no argument, the content of the
-cell bound to this parameter object in the current dynamic
-environment is returned. When it is called with one argument, the
-content of the cell bound to this parameter object in the current
-dynamic environment is set to the result of the call
-<code>(converter arg)</code>, where <code>arg</code> is the argument passed to the
-parameter object, and an unspecified value is returned.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">radix</span>
-    <span class="p">(</span><span class="nf">make-parameter</span> <span class="mi">10</span><span class="p">))</span>
-
-<span class="p">(</span><span class="k">define</span> <span class="nv">write-shared</span>
-   <span class="p">(</span><span class="nf">make-parameter</span>
-      <span class="no">#f</span>
-      <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span>
-        <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">boolean?</span> <span class="nv">x</span><span class="p">)</span>
-            <span class="nv">x</span>
-            <span class="p">(</span><span class="nf">error</span> <span class="ss">'write-shared</span> <span class="s">"bad boolean ~S"</span> <span class="nv">x</span><span class="p">)))))</span>
-
- <span class="p">(</span><span class="nf">radix</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="mi">10</span>
- <span class="p">(</span><span class="nf">radix</span> <span class="mi">2</span><span class="p">)</span>
- <span class="p">(</span><span class="nf">radix</span><span class="p">)</span>           <span class="nv">=&gt;</span>  <span class="mi">2</span>
- <span class="p">(</span><span class="nf">write-shared</span> <span class="mi">0</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="nv">error</span>
-
- <span class="p">(</span><span class="k">define</span> <span class="nv">prompt</span>
-   <span class="p">(</span><span class="nf">make-parameter</span>
-     <span class="mi">123</span>
-     <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span>
-       <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">string?</span> <span class="nv">x</span><span class="p">)</span>
-           <span class="nv">x</span>
-           <span class="p">(</span><span class="nf">with-output-to-string</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="p">(</span><span class="nb">write</span> <span class="nv">x</span><span class="p">)))))))</span>
-
- <span class="p">(</span><span class="nf">prompt</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="s">"123"</span>
- <span class="p">(</span><span class="nf">prompt</span> <span class="s">"&gt;"</span><span class="p">)</span>
- <span class="p">(</span><span class="nf">prompt</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="s">"&gt;"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(parameterize ((expr1 expr2) &#8230;&#8203;) &lt;body&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The expressions <code>expr1</code> and <code>expr2</code> are evaluated in an unspecified order.
-The value of the <code>expr1</code> expressions must be parameter objects.
-For each <code>expr1</code> expression and in an unspecified order, the local
-dynamic environment is extended with a binding of the parameter object
-<code>expr1</code> to a new cell whose content is the result of the call
-<code>(converter val)</code>, where <code>val</code> is the value of <code>expr2</code> and converter
-is the conversion procedure of the parameter object. The resulting
-dynamic environment is then used for the evaluation of <code>&lt;body&gt;</code>
-(which refers to the R<sup>5</sup>RS grammar nonterminal of that name).
-The result(s) of the parameterize form are the result(s) of
-the <code>&lt;body&gt;</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">radix</span><span class="p">)</span>                                              <span class="nv">=&gt;</span>  <span class="mi">2</span>
-<span class="p">(</span><span class="nf">parameterize</span> <span class="p">((</span><span class="nf">radix</span> <span class="mi">16</span><span class="p">))</span> <span class="p">(</span><span class="nf">radix</span><span class="p">))</span>                  <span class="nv">=&gt;</span>  <span class="mi">16</span>
-<span class="p">(</span><span class="nf">radix</span><span class="p">)</span>                                              <span class="nv">=&gt;</span>  <span class="mi">2</span>
-
-<span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">f</span> <span class="nv">n</span><span class="p">)</span> <span class="p">(</span><span class="nb">number-&gt;string</span> <span class="nv">n</span> <span class="p">(</span><span class="nf">radix</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="nf">f</span> <span class="mi">10</span><span class="p">)</span>                                               <span class="nv">=&gt;</span>  <span class="s">"1010"</span>
-<span class="p">(</span><span class="nf">parameterize</span> <span class="p">((</span><span class="nf">radix</span> <span class="mi">8</span><span class="p">))</span> <span class="p">(</span><span class="nf">f</span> <span class="mi">10</span><span class="p">))</span>                    <span class="nv">=&gt;</span>  <span class="s">"12"</span>
-<span class="p">(</span><span class="nf">parameterize</span> <span class="p">((</span><span class="nf">radix</span> <span class="mi">8</span><span class="p">)</span> <span class="p">(</span><span class="nf">prompt</span> <span class="p">(</span><span class="nf">f</span> <span class="mi">10</span><span class="p">)))</span> <span class="p">(</span><span class="nf">prompt</span><span class="p">))</span>  <span class="nv">=&gt;</span>  <span class="s">"1010"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(parameter? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a parameter object, otherwise returns <code>#f</code>.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_misc">4.22. Misc</h3>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(gc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Force a garbage collection step.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(void)</code></strong><br>
-<strong><code>(void arg1 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the special <strong><em>void</em></strong> object. If arguments are passed to <code>void</code>,
-they are evalued and simply ignored.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(void? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> is <code>obj</code> is <code>#void</code>, and <code>#f</code> otherwise.
-The usual "unspecified" result in Scheme standard and in SRFIs is <code>#void</code>
-in STklos, and it is also returned by the procedure <code>void</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">void?</span> <span class="p">(</span><span class="nf">void</span><span class="p">))</span>                    <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">x</span> <span class="p">(</span><span class="k">if</span> <span class="no">#f</span> <span class="ss">'nope</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">void?</span> <span class="nv">x</span><span class="p">)</span>                         <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">void?</span> <span class="o">'</span><span class="p">())</span>                       <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">void?</span> <span class="ss">'something</span><span class="p">)</span>                <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nf">void?</span> <span class="p">(</span><span class="nb">for-each</span> <span class="nv">print</span> <span class="o">'</span><span class="p">(</span><span class="nf">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)))</span> <span class="nv">=&gt;</span> <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(error str obj &#8230;&#8203;)</code></strong><br>
-<strong><code>(error name str obj &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>error</code> is used to signal an error to the user. The second form
-of <code>error</code> takes  a symbol as first parameter; it is generally used for the
-name of the procedure which raises the error.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-R<sup>7</sup>RS permits only the fist form of call. Using a symbol as first
-parameter is <strong><em>STklos</em></strong> specific.
-Furthermore, the specification string may follow the <em>tilde conventions</em> of
-<code>format</code> (see <em><a href="_standard_procedures.html#format">primitive <code>format</code></a></em>); in this case this
-procedure builds an error message according to the specification
-given in <code>str</code>. Otherwise,
-this procedure is in conformance with the <code>error</code> procedure defined in
-<strong><a href="http://srfi.schemers.org/srfi-23/srfi-23.html">SRFI-23</a></strong> (<em>Error reporting mechanism</em>) and <code>str</code> is printed with the <code>display</code> procedure,
-whereas the <code>obj</code> parameters are printed  with the <code>write</code> procedure.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>Hereafter, are some calls of the <code>error</code> procedure using a formatted string</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">error</span> <span class="s">"bad integer ~A"</span> <span class="s">"a"</span><span class="p">)</span>
-                     <span class="nv">|-</span> <span class="nv">bad</span> <span class="nv">integer</span> <span class="nv">a</span>
-<span class="p">(</span><span class="nf">error</span> <span class="ss">'vector-ref</span> <span class="s">"bad integer ~S"</span> <span class="s">"a"</span><span class="p">)</span>
-                     <span class="nv">|-</span> <span class="nv">vector-ref:</span> <span class="nv">bad</span> <span class="nv">integer</span> <span class="s">"a"</span>
-<span class="p">(</span><span class="nf">error</span> <span class="ss">'foo</span> <span class="s">"~A is not between ~A and ~A"</span> <span class="s">"bar"</span> <span class="mi">0</span> <span class="mi">5</span><span class="p">)</span>
-                     <span class="nv">|-</span> <span class="nv">foo:</span> <span class="nv">bar</span> <span class="nv">is</span> <span class="nv">not</span> <span class="nv">between</span> <span class="mi">0</span> <span class="nv">and</span> <span class="mi">5</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>and some conform to <strong><a href="http://srfi.schemers.org/srfi-23/srfi-23.html">SRFI-23</a></strong></p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">error</span> <span class="s">"bad integer"</span> <span class="s">"a"</span><span class="p">)</span>
-                    <span class="nv">|-</span> <span class="nv">bad</span> <span class="nv">integer</span> <span class="s">"a"</span>
-<span class="p">(</span><span class="nf">error</span> <span class="ss">'vector-ref</span> <span class="s">"bad integer"</span> <span class="s">"a"</span><span class="p">)</span>
-                   <span class="nv">|-</span> <span class="nv">vector-ref:</span> <span class="nv">bad</span> <span class="nv">integer</span> <span class="s">"a"</span>
-<span class="p">(</span><span class="nf">error</span> <span class="s">"bar"</span> <span class="s">"is not between"</span> <span class="mi">0</span> <span class="s">"and"</span> <span class="mi">5</span><span class="p">)</span>
-                   <span class="nv">|-</span> <span class="nv">bar</span> <span class="s">"is not between"</span> <span class="mi">0</span> <span class="s">"and"</span> <span class="mi">5</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(signal-error cond str obj &#8230;&#8203;)</code></strong><br>
-<strong><code>(signal-error cond name str obj &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure is similar to error, except that the type of the error
-can be passed as the first parameter. The type of the error must be a
-condition which inherits from <code>&amp;error-message</code>.</p>
-</div>
-<div class="paragraph">
-<p>Note that <code>(error arg &#8230;&#8203;)</code> is equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">signal-error</span> <span class="nv">&amp;error-message</span> <span class="nv">arg</span> <span class="o">...</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(syntax-error message arg1 &#8230;&#8203;)</code></strong><br>
-<strong><code>(syntax-error who message arg1 &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Syntax-error</code> behaves similarly to <code>error</code> except that it signals the
-error as soon as syntax-error is expanded. This can be use in macros to signal
-errors at compile time, without interrupting the compilation process. In
-interactive mode, under the REPL, <code>syntax-error</code> yields a true error.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-R<sup>7</sup>RS defines only the first form of call (with a string as first
-parameter).  <strong><em>STklos</em></strong> permits to use a symbol as first parameter to specify the
-location of the syntax error. It also permits the usage of  <em>tilde conventions</em>
-as the <code>error</code> primitive.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(read-error? obj)</code></strong><br>
-<strong><code>(file-error? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Error type predicates. Returns <code>#t</code> if <code>obj</code> is an object raised
-by the read procedure or by the inability to open an input or
-output port on a file, respectively. Otherwise, it returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(error-object? obj )</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is an object created by error. Otherwise,
-it returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(error-object-message error-object)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the message encapsulated by <code>error-object</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small">R<sup>7</sup>RS procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(error-object-irritants error-object)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the message encapsulated by <code>error-object</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(error-object-location error-object)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the location encapsulated by <code>error-object</code> if it exists.
-Returns <code>#f</code> otherwise. The location corresponds generally to the name
-of the procedure which raised the error.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">guard</span> <span class="p">(</span><span class="nf">cnd</span>
-         <span class="p">(</span><span class="k">else</span> <span class="p">(</span><span class="nf">error-object-location</span> <span class="nv">cnd</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">error</span> <span class="ss">'foo</span> <span class="s">"error message"</span><span class="p">))</span>  <span class="nv">=&gt;</span> <span class="nv">foo</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(require-extension &lt;clause&gt; &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The syntax of require-extension is as follows:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">require-extension</span> <span class="nv">&lt;clause&gt;</span> <span class="o">...</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>A clause may have the form:</p>
-</div>
-<div class="olist arabic">
-<ol class="arabic">
-<li>
-<p><code>(srfi number &#8230;&#8203;)</code></p>
-</li>
-<li>
-<p><code>(identifier &#8230;&#8203;)</code></p>
-</li>
-<li>
-<p><code>identifier</code></p>
-</li>
-</ol>
-</div>
-<div class="paragraph">
-<p>In the first form the functionality of the indicated SRFIs are made
-available in the context in which the <code>require-extension</code> form appears.
-For instance,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">require-extension</span> <span class="p">(</span><span class="nf">srfi</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">))</span> <span class="c1">; Make the SRFI 1 and 2 available</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>This form is compatible with <strong><a href="http://srfi.schemers.org/srfi-55/srfi-55.html">SRFI-55</a></strong> (<em>Require-extension</em>).</p>
-</div>
-<div class="paragraph">
-<p>The second and third forms are <strong><em>STklos</em></strong> extensions.
-If the form is a list, it is equivalent to an import. That is,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">require-extension</span> <span class="p">(</span><span class="nf">streams</span> <span class="nv">primitive</span><span class="p">)</span> <span class="p">(</span><span class="nf">streams</span> <span class="nv">derived</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">import</span> <span class="p">(</span><span class="nf">streams</span> <span class="nv">primitive</span><span class="p">)</span> <span class="p">(</span><span class="nf">streams</span> <span class="nv">derived</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The final form permits to use symbolic names for requiring some extensions.
-For instance,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">require-extension</span> <span class="nv">lists</span> <span class="nv">and-let*</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>is equivalent to the requiring <code>srfi-1</code> and <code>srfi-2</code>.</p>
-</div>
-<div class="paragraph">
-<p>A list of available symbolic names for features is given in <a href="_srfis.html">Chapter 13</a>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(require-feature feature)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This primitive ensures that the <code>feature</code> (in sense of SRFI-0 feature)
-can be used. In particular, it eventually requires the loading of the
-files needed to used <code>feature</code>. The <code>feature</code> can be expressed as a
-string or a symbol, If feature is an integer <code>n</code>, it is equivalent to <code>srfi-n</code>.
-Consequently, to use <strong><a href="http://srfi.schemers.org/srfi-1/srfi-1.html">SRFI-1</a></strong> the following forms are equivalent:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">require-feature</span> <span class="ss">'srfi-1</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">require-feature</span> <span class="s">"srfi-1"</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">require-feature</span> <span class="mi">1</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">require-feature</span> <span class="ss">'lists</span><span class="p">)</span>      <span class="c1">;; Since this feature name is an alias for SRFI-1</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>See also <a href="_srfis.html">Chapter 13</a> for more information.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(repl)</code></strong><br>
-<strong><code>(repl :in inport :out outport :err errport)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This procedure launches a new Read-Eval-Print-Loop. Calls to <code>repl</code> can be
-embedded. The ports used for input/output as well as the error port can
-be passed when <code>repl</code> is called. If not passed, they default to
-<code>current-input-port</code>, <code>current-output-port</code> and <code>current-error-port</code>.</p>
-</div>
-<div id="assume" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(assume obj &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The special form <code>assume</code> is defined in <strong><a href="http://srfi.schemers.org/srfi-145/srfi-145.html">SRFI-145</a></strong> (<em>Assumptions</em>).
-When <strong><em>STklos</em></strong> is in debug mode, this special form is an expression
-that evaluates to the value of <code>obj</code> if <code>obj</code> evaluates to a true
-value and it is an error if <code>obj</code> evaluates to a false value.</p>
-</div>
-<div class="paragraph">
-<p>When <strong><em>STklos</em></strong> is not in debug mode, the call to <code>assume</code> is elided.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(version-alist)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function returns an association list of STklos properties as defined by
-<strong><a href="http://srfi.schemers.org/srfi-176/srfi-176.html">SRFI-176</a></strong> (<em>Version flag</em>).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(apropos obj)</code></strong><br>
-<strong><code>(apropos obj module)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Apropos</code> returns a list of symbols whose print name contains the
-characters of <code>obj</code> as a substring . The given <code>obj</code> can be a string or
-symbol. This function returns the list of matched symbols which can
-be accessed from the given <code>module</code> (defaults to the current module if not
-provided).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(help obj)</code></strong><br>
-<strong><code>(help)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>When called with an argument, <code>help</code> tries to give some help on the
-given object, which could be a symbol, a procedure, a generic function
-or a method. Whe called called without arguments, <code>help</code> enters a
-read-help-print loop. The documentation for an object is searched in
-the object itself or, if absent, in STklos documentation.  Inserting
-the documentation in an objet is very similar to Emacs docstrings: a
-documentation string is defined among the code. Exemples of such
-strings are given below</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">foo</span> <span class="nv">n</span><span class="p">)</span>
-  <span class="s">"If the function body starts with a string, it's a docstring"</span>
-  <span class="p">(</span><span class="nb">+</span> <span class="nv">n</span> <span class="mi">1</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">define-generic</span> <span class="nv">bar</span>
-  <span class="nv">:documentation</span> <span class="s">"Generic function docsting for bar"</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">bar</span> <span class="p">((</span><span class="nf">x</span> <span class="nv">&lt;integer&gt;</span><span class="p">))</span>
-  <span class="s">"Probably less useful: as in functions, methods can have docstrings"</span>
-  <span class="p">(</span><span class="nb">-</span> <span class="nv">x</span> <span class="mi">1</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(describe obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Shows a brief description of <code>obj</code>. If the object is structured
-such as a struct, class or instance, some information about its
-internal structure will be shown.</p>
-</div>
-<div class="paragraph">
-<p><strong>Using <code>describe</code> on simple values</strong></p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">describe</span> <span class="mi">5</span><span class="p">)</span>
-  <span class="mi">5</span> <span class="nv">is</span> <span class="nv">an</span> <span class="nv">integer</span><span class="o">.</span>
-
-<span class="p">(</span><span class="nf">describe</span> <span class="mf">5.4</span><span class="p">)</span>
-  <span class="mf">5.4</span> <span class="nv">is</span> <span class="nv">a</span> <span class="nv">real</span><span class="o">.</span>
-
-<span class="p">(</span><span class="nf">describe</span> <span class="mi">2</span><span class="nv">+3i</span><span class="p">)</span>
-  <span class="mi">2</span><span class="nv">+3i</span> <span class="nv">is</span> <span class="nv">a</span> <span class="nv">complex</span> <span class="nv">number</span><span class="o">.</span>
-
-<span class="p">(</span><span class="nf">describe</span> <span class="o">#</span><span class="nv">A</span><span class="p">)</span>
-  <span class="o">#</span><span class="nv">A</span> <span class="nv">is</span> <span class="nv">a</span> <span class="nv">character,</span> <span class="nv">ascii</span> <span class="nv">value</span> <span class="nv">is</span> <span class="mi">65</span><span class="o">.</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><strong>Using <code>describe</code> on a class</strong></p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">describe</span> <span class="nv">&lt;integer&gt;</span><span class="p">)</span>
-  <span class="nv">&lt;integer&gt;</span> <span class="nv">is</span> <span class="nv">a</span> <span class="nv">class</span><span class="o">.</span> <span class="nv">It</span><span class="ss">'s</span> <span class="nv">an</span> <span class="nv">instance</span> <span class="nv">of</span> <span class="nv">&lt;class&gt;</span><span class="o">.</span>
-  <span class="nv">Superclasses</span> <span class="nv">are:</span>
-      <span class="nv">&lt;rational&gt;</span>
-  <span class="p">(</span><span class="nf">No</span> <span class="nv">direct</span> <span class="nv">slot</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">No</span> <span class="nv">direct</span> <span class="nv">subclass</span><span class="p">)</span>
-  <span class="nv">Class</span> <span class="nv">Precedence</span> <span class="nv">List</span> <span class="nv">is:</span>
-      <span class="nv">&lt;integer&gt;</span>
-      <span class="nv">&lt;rational&gt;</span>
-      <span class="nv">&lt;real&gt;</span>
-      <span class="nv">&lt;complex&gt;</span>
-      <span class="nv">&lt;number&gt;</span>
-      <span class="nv">&lt;top&gt;</span>
-  <span class="p">(</span><span class="nf">No</span> <span class="nv">direct</span> <span class="nv">method</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><strong>Using <code>describe</code> on structures</strong></p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-struct</span> <span class="nv">person</span> <span class="nv">name</span> <span class="nv">email</span><span class="p">)</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">one</span> <span class="p">(</span><span class="nf">make-person</span> <span class="s">"Some One"</span> <span class="s">"one@domain.org"</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">describe</span> <span class="nv">person</span><span class="p">)</span>
-  <span class="o">#</span><span class="p">[</span><span class="nf">struct-type</span> <span class="nv">person</span> <span class="mi">139786494092352</span><span class="p">]</span> <span class="nv">is</span> <span class="nv">a</span> <span class="nv">structure</span> <span class="nv">type</span> <span class="nv">whose</span> <span class="nv">name</span> <span class="nv">is</span> <span class="nv">person</span><span class="o">.</span>
-  <span class="nv">Parent</span> <span class="nv">structure</span> <span class="nv">type:</span> <span class="no">#f</span>
-  <span class="nv">Slots</span> <span class="nv">are:</span>
-       <span class="nv">name</span>
-       <span class="nv">email</span>
-
-<span class="p">(</span><span class="nf">describe</span> <span class="nv">one</span><span class="p">)</span>
-  <span class="o">#</span><span class="p">[</span><span class="nf">struct</span> <span class="nv">person</span> <span class="mi">139786494288064</span><span class="p">]</span> <span class="nv">is</span> <span class="nv">an</span> <span class="nv">instance</span> <span class="nv">of</span> <span class="nv">the</span> <span class="nv">structure</span> <span class="nv">type</span> <span class="nv">person</span><span class="o">.</span>
-  <span class="nv">Slots</span> <span class="nv">are:</span>
-       <span class="nv">name</span> <span class="nv">=</span> <span class="s">"Some One"</span>
-       <span class="nv">email</span> <span class="nv">=</span> <span class="s">"one@domain.org"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(trace f-name &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Invoking <code>trace</code> with one or more function names causes the functions
-named to be traced. Henceforth, whenever such a function is invoked,
-information about the call and the returned values, if any, will be
-printed on the current error port.</p>
-</div>
-<div class="paragraph">
-<p>Calling <code>trace</code> with no argument returns the list of traced functions.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(untrace f-name &#8230;&#8203;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Invoking <code>untrace</code> with one or more function names causes the functions
-named not to be traced anymore.</p>
-</div>
-<div class="paragraph">
-<p>Calling <code>untrace</code> with no argument will untrace all the functions
-currently traced.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(pretty-print sexpr :key port width)</code></strong><br>
-<strong><code>(pp sexpr :key port width)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function tries to obtain a pretty-printed representation of <code>sexpr</code>.
-The pretty-printed form is written on <code>port</code> with lines which are no
-more long than <code>width</code> characters. If <code>port</code> is omitted if defaults to
-the current error port. As a special convention, if <code>port</code> is <code>#t</code>,
-output goes to the current output port and if <code>port</code> is <code>#f</code>, the output
-is returned as a string by <code>pretty-print</code>.
-Note that <code>pp</code> is another name for <code>pretty-print</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(procedure-formals proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the formal parameters of procedure <code>proc</code>.
-Note that procedure formal parameters are kept in memory only if
-the compiler flag &lt;&lt;"compiler:keep-formals"&gt;&gt; is set at its creation.
-If <code>proc</code> formal parameters are not available, <code>procedure-formals</code>
-returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(procedure-source proc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the source form used to define procedure <code>proc</code>.
-Note that procedure source is kept in memory only if the compiler flag
-&lt;&lt;"compiler:keep-source"&gt;&gt; is set at its creation. If <code>proc</code> source is
-not available, <code>procedure-source</code> returns <code>#f</code>.</p>
-</div>
-<div id="ansicolor" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ansi-color e1 e2 &#8230;&#8203; en)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>ansi-color</code> permits to build a string which embeds ANSI codes to
-colorize texts on a terminal. Each expression e<sub>i</sub> must be a string,
-a symbol or an integer.</p>
-</div>
-<div class="paragraph">
-<p>Strings constitute the message to be displayed.</p>
-</div>
-<div class="paragraph">
-<p>A symbol can designate</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>a color in the set {<code>black</code>, <code>red</code>, <code>green</code>, <code>yellow</code>, <code>blue</code>,
-<code>magenta</code>, <code>cyan</code>, <code>white</code>} for foreground colors</p>
-</li>
-<li>
-<p>a color in the set {<code>bg-black</code>, <code>bg-red</code>, <code>bg-green</code>, <code>bg-yellow</code>,
-<code>bg-blue</code>, <code>bg-magenta</code>, <code>bg-cyan</code>, <code>bg-white</code>} for background colors.</p>
-</li>
-<li>
-<p>a qualifier such as <code>normal</code>, <code>bold</code>, <code>italic</code>, <code>underline</code>, <code>blink</code>,
-<code>reverse</code> or <code>no-bold</code>, <code>no-italic</code>, <code>no-underline</code>, <code>no-blink</code>,
-<code>no-reverse</code>.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>Integer values can be used for terminals which are able to display  256 colors.
-If the number is positive, it is used as a foreground color. Otherwise,
-it is uses as a background color. Note that not all the terminals are able to
-use more than eight colors.</p>
-</div>
-<div class="paragraph">
-<p>For instance,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">display</span> <span class="p">(</span><span class="nf">ansi-color</span> <span class="s">"a word in "</span>
-                     <span class="ss">'bold</span> <span class="ss">'red</span> <span class="s">"RED"</span> <span class="ss">'normal</span>
-                     <span class="s">" and another in "</span>
-                     <span class="ss">'reverse</span> <span class="ss">'blue</span> <span class="s">"BLUE"</span> <span class="ss">'normal</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>will display the words BLUE and RED in color.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(disassemble proc)</code></strong><br>
-<strong><code>(disassemble proc port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function prints on the given port (by default the current output
-port) the instructions of procedure <code>proc</code>. The printed code uses an
-<em>ad-hoc</em> instruction set that should be quite understandable.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">fact</span> <span class="nv">n</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">&lt;</span> <span class="nv">n</span> <span class="mi">2</span><span class="p">)</span>
-      <span class="mi">1</span>
-      <span class="p">(</span><span class="nb">*</span> <span class="nv">n</span> <span class="p">(</span><span class="nf">fact</span> <span class="p">(</span><span class="nb">-</span> <span class="nv">n</span> <span class="mi">1</span><span class="p">)))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The call <code>(disassemble fact)</code> will produce the following output:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme">   <span class="mi">000</span><span class="nv">:</span>  <span class="nv">LOCAL-REF0-PUSH</span>
-   <span class="mi">001</span><span class="nv">:</span>  <span class="nv">SMALL-INT</span>            <span class="mi">2</span>
-   <span class="mi">003</span><span class="nv">:</span>  <span class="nv">JUMP-NUMGE</span>           <span class="mi">2</span>  <span class="c1">;; ==&gt; 007</span>
-   <span class="mi">005</span><span class="nv">:</span>  <span class="nv">IM-ONE</span>
-   <span class="mi">006</span><span class="nv">:</span>  <span class="nv">RETURN</span>
-   <span class="mi">007</span><span class="nv">:</span>  <span class="nv">LOCAL-REF0-PUSH</span>
-   <span class="mi">008</span><span class="nv">:</span>  <span class="nv">PREPARE-CALL</span>
-   <span class="mi">009</span><span class="nv">:</span>  <span class="nv">LOCAL-REF0</span>
-   <span class="mi">010</span><span class="nv">:</span>  <span class="nv">IN-SINT-ADD2</span>         <span class="mi">-1</span>
-   <span class="mi">012</span><span class="nv">:</span>  <span class="nv">PUSH-GREF-INVOKE</span>     <span class="mi">0</span> <span class="mi">1</span>
-   <span class="mi">015</span><span class="nv">:</span>  <span class="nv">IN-MUL2</span>
-   <span class="mi">016</span><span class="nv">:</span>  <span class="nv">RETURN</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock important">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-important" title="Important"></i>
-</td>
-<td class="content">
-The code of a procedure may be patched after the first execution
-of <code>proc</code> to optimize it.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p>If <code>proc</code> is an anonymous function, you can use the special
-notation <code>#pxxx</code> to disassemble it:
-*</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">disassemble</span> <span class="o">#</span><span class="nv">p7fee1dd82f80</span><span class="p">)</span>  <span class="c1">;; (address-of (lambda() 42))</span>
-
-      <span class="mi">000</span><span class="nv">:</span>  <span class="nv">SMALL-INT</span>            <span class="mi">42</span>
-      <span class="mi">002</span><span class="nv">:</span>  <span class="nv">RETURN</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(disassemble-expr sexpr)</code></strong><br>
-<strong><code>(disassemble-expr sexpr show-consts)</code></strong><br>
-<strong><code>(disassemble-expr sexpr show-consts port)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function prints on the given <code>port</code> (by default the current output
-port) the instructions of the given <code>sexpr</code>. If <code>show-consts</code> is true,
-the table of the contants used in <code>sexpr</code> is also printed.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">disassemble-expr</span> <span class="o">'</span><span class="p">(</span><span class="k">begin</span>
-                      <span class="p">(</span><span class="k">define</span> <span class="nv">x</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">y</span> <span class="mi">10</span><span class="p">))</span>
-                      <span class="p">(</span><span class="nb">cons</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">))</span>
-                    <span class="no">#t</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>will print:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="mi">000</span><span class="nv">:</span>  <span class="nv">GLOBAL-REF</span>           <span class="mi">0</span>
-<span class="mi">002</span><span class="nv">:</span>  <span class="nv">IN-SINT-ADD2</span>         <span class="mi">10</span>
-<span class="mi">004</span><span class="nv">:</span>  <span class="nv">DEFINE-SYMBOL</span>        <span class="mi">1</span>
-<span class="mi">006</span><span class="nv">:</span>  <span class="nv">GLOBAL-REF-PUSH</span>      <span class="mi">1</span>
-<span class="mi">008</span><span class="nv">:</span>  <span class="nv">GLOBAL-REF</span>           <span class="mi">0</span>
-<span class="mi">010</span><span class="nv">:</span>  <span class="nv">IN-CONS</span>
-<span class="mi">011</span><span class="nv">:</span>
-
-<span class="nv">Constants:</span>
-<span class="mi">0</span><span class="nv">:</span> <span class="nv">y</span>
-<span class="mi">1</span><span class="nv">:</span> <span class="nv">x</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(uri-parse str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Parses the string <code>str</code> as an RFC-2396 URI and return a keyed list with the
-following components</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>scheme</code> : the scheme used as a string (defaults to <code>"file"</code>)</p>
-</li>
-<li>
-<p><code>user</code>: the user information (generally expressed as <code>login:password</code>)</p>
-</li>
-<li>
-<p><code>host</code> : the host as a string (defaults to "")</p>
-</li>
-<li>
-<p><code>port</code> : the port as an integer (0 if no port specified)</p>
-</li>
-<li>
-<p><code>path</code> : the path</p>
-</li>
-<li>
-<p><code>query</code> : the qury part of the URI as a string (defaults to the
-empty string)</p>
-</li>
-<li>
-<p><code>fragment</code> : the fragment of the URI as a string (defaults to the
-empty string)</p>
-</li>
-</ul>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">uri-parse</span> <span class="s">"https://stklos.net"</span><span class="p">)</span>
-   <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">:scheme</span> <span class="s">"https"</span> <span class="nv">:user</span> <span class="s">""</span> <span class="nv">:host</span> <span class="s">"stklos.net"</span> <span class="nv">:port</span> <span class="mi">443</span>
-        <span class="nv">:path</span> <span class="s">"/"</span> <span class="nv">:query</span> <span class="s">""</span> <span class="nv">:fragment</span> <span class="s">""</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">uri-parse</span> <span class="s">"https://stklos.net:8080/a/file?x=1;y=2#end"</span><span class="p">)</span>
-    <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">:scheme</span> <span class="s">"http"</span> <span class="nv">:user</span> <span class="s">""</span> <span class="nv">:host</span> <span class="s">"stklos.net"</span> <span class="nv">:port</span> <span class="mi">8080</span>
-        <span class="nv">:path</span> <span class="s">"/a/file"</span> <span class="nv">:query</span> <span class="s">"x=1;y=2"</span> <span class="nv">:fragment</span> <span class="s">"end"</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">uri-parse</span> <span class="s">"http://foo:secret@stklos.net:2000/a/file"</span><span class="p">)</span>
-    <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">:scheme</span> <span class="s">"http"</span> <span class="nv">:user</span> <span class="s">"foo:secret"</span> <span class="nv">:host</span> <span class="s">"stklos.net"</span>
-        <span class="nv">:port</span> <span class="mi">2000</span>  <span class="nv">:path</span> <span class="s">"/a/file"</span> <span class="nv">:query</span> <span class="s">""</span> <span class="nv">:fragment</span> <span class="s">""</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">uri-parse</span> <span class="s">"/a/file"</span><span class="p">)</span>
-   <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">:scheme</span> <span class="s">"file"</span> <span class="nv">:user</span> <span class="s">""</span> <span class="nv">:host</span> <span class="s">""</span> <span class="nv">:port</span> <span class="mi">0</span> <span class="nv">:path</span> <span class="s">"/a/file"</span>
-       <span class="nv">:query</span> <span class="s">""</span> <span class="nv">:fragment</span> <span class="s">""</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">uri-parse</span> <span class="s">""</span><span class="p">)</span>
-   <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">:scheme</span> <span class="s">"file"</span>  <span class="nv">:user</span> <span class="s">""</span> <span class="nv">:host</span> <span class="s">""</span> <span class="nv">:port</span> <span class="mi">0</span> <span class="nv">:path</span> <span class="s">""</span>
-       <span class="nv">:query</span> <span class="s">""</span> <span class="nv">:fragment</span> <span class="s">""</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(string&#8594;html str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This primitive is a convenience function; it returns a string where
-the HTML special chars are properly translated. It can easily be written
-in Scheme, but this version is fast.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">string-&gt;html</span> <span class="s">"Just a &lt;test&gt;"</span><span class="p">)</span>
-   <span class="nv">=&gt;</span> <span class="s">"Just a &amp;lt;test&amp;gt;"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(md5sum obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return a string contening the md5 sum of <code>obj</code>. The given parameter can
-be a string or an open input port.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(md5sum-file str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return a string contening the md5 sum of the file whose name is <code>str</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(base64-encode in)</code></strong><br>
-<strong><code>(base64-encode in out)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Encode in Base64 the characters from input port <code>in</code> to the output port
-<code>out</code>. If <code>out</code> is not specified, it defaults to the current output port.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">with-input-from-string</span> <span class="s">"Hello"</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span>
-    <span class="p">(</span><span class="nf">with-output-to-string</span>
-      <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span>
-        <span class="p">(</span><span class="nf">base64-encode</span> <span class="p">(</span><span class="nb">current-input-port</span><span class="p">))))))</span> <span class="nv">=&gt;</span> <span class="s">"SGVsbG8="</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(base64-decode in)</code></strong><br>
-<strong><code>(base64-decode in out)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Decode the Base64 characters from input port <code>in</code> to the output port
-<code>out</code>. If <code>out</code> is not specified, it defaults to the current output port.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">with-input-from-string</span> <span class="s">"SGVsbG8="</span>
-  <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span>
-    <span class="p">(</span><span class="nf">with-output-to-string</span>
-      <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span>
-        <span class="p">(</span><span class="nf">base64-decode</span> <span class="p">(</span><span class="nb">current-input-port</span><span class="p">))))))</span>  <span class="nv">=&gt;</span> <span class="s">"Hello"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(base64-encode-string str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return a string contening the contents of <code>str</code> converted to Base64
-encoded format.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(base64-decode-string str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Decode the contents of <code>str</code> expressed in Base64.</p>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_program_structure.html">Program structure</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_regular_expressions.html">Regular Expressions</a> →</p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. In fact <code>define-module</code> on a given name defines a new module only the first time it is invoked on this name. By this way, interactively reloading a module does not define a new entity, and the other modules which use it are not altered.
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. This transcript uses the default toplevel loop             which displays the name of the current module in the evaluator             prompt.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Under Unix, you can simply connect to a listening socket with the <code>telnet</code> of <code>netcat</code> command. For the given example, this can be achieved with <code>netcat localhost 12345</code>
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. Port 13, if open, can be used for testing: making a connection to it permits to know the distant system&#8217;s idea of the time of day.
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_stklos_customization.html b/doc/HTML/_stklos_customization.html
deleted file mode 100644
index 90b3dd20c..000000000
--- a/doc/HTML/_stklos_customization.html
+++ /dev/null
@@ -1,1283 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<style>
-pre.rouge table td { padding: 5px; }
-pre.rouge table pre { margin: 0; }
-pre.rouge .c, pre.rouge .ch, pre.rouge .cd, pre.rouge .cpf {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cm {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .c1 {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cp {
-  color: #75715e;
-  font-weight: bold;
-}
-pre.rouge .cs {
-  color: #75715e;
-  font-weight: bold;
-  font-style: italic;
-}
-pre.rouge .err {
-  color: #960050;
-  background-color: #1e0010;
-}
-pre.rouge .gi {
-  color: #ffffff;
-  background-color: #324932;
-}
-pre.rouge .gd {
-  color: #ffffff;
-  background-color: #493131;
-}
-pre.rouge .ge {
-  color: #000000;
-  font-style: italic;
-}
-pre.rouge .gr {
-  color: #aa0000;
-}
-pre.rouge .gt {
-  color: #aa0000;
-}
-pre.rouge .gh {
-  color: #999999;
-}
-pre.rouge .go {
-  color: #888888;
-}
-pre.rouge .gp {
-  color: #555555;
-}
-pre.rouge .gs {
-  font-weight: bold;
-}
-pre.rouge .gu {
-  color: #aaaaaa;
-}
-pre.rouge .k, pre.rouge .kv {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kc {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kd {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kp {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kr {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kt {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kn {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .ow {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .o {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .mf {
-  color: #ae81ff;
-}
-pre.rouge .mh {
-  color: #ae81ff;
-}
-pre.rouge .il {
-  color: #ae81ff;
-}
-pre.rouge .mi {
-  color: #ae81ff;
-}
-pre.rouge .mo {
-  color: #ae81ff;
-}
-pre.rouge .m, pre.rouge .mb, pre.rouge .mx {
-  color: #ae81ff;
-}
-pre.rouge .se {
-  color: #ae81ff;
-}
-pre.rouge .sa {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .sb {
-  color: #e6db74;
-}
-pre.rouge .sc {
-  color: #e6db74;
-}
-pre.rouge .sd {
-  color: #e6db74;
-}
-pre.rouge .s2 {
-  color: #e6db74;
-}
-pre.rouge .sh {
-  color: #e6db74;
-}
-pre.rouge .si {
-  color: #e6db74;
-}
-pre.rouge .sx {
-  color: #e6db74;
-}
-pre.rouge .sr {
-  color: #e6db74;
-}
-pre.rouge .s1 {
-  color: #e6db74;
-}
-pre.rouge .ss {
-  color: #e6db74;
-}
-pre.rouge .s, pre.rouge .dl {
-  color: #e6db74;
-}
-pre.rouge .na {
-  color: #a6e22e;
-}
-pre.rouge .nc {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nd {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .ne {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nf, pre.rouge .fm {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .no {
-  color: #66d9ef;
-}
-pre.rouge .bp {
-  color: #f8f8f2;
-}
-pre.rouge .nb {
-  color: #f8f8f2;
-}
-pre.rouge .ni {
-  color: #f8f8f2;
-}
-pre.rouge .nn {
-  color: #f8f8f2;
-}
-pre.rouge .vc {
-  color: #f8f8f2;
-}
-pre.rouge .vg {
-  color: #f8f8f2;
-}
-pre.rouge .vi {
-  color: #f8f8f2;
-}
-pre.rouge .nv, pre.rouge .vm {
-  color: #f8f8f2;
-}
-pre.rouge .w {
-  color: #f8f8f2;
-}
-pre.rouge .nl {
-  color: #f8f8f2;
-  font-weight: bold;
-}
-pre.rouge .nt {
-  color: #f92672;
-}
-pre.rouge {
-  color: #f8f8f2;
-  background-color: #49483e;
-}
-</style>
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_stklos_customization" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html"><span class="toc-current">10. STklos Customization</span></a>
-<ul class="sectlevel2">
-<li><a href="_stklos_customization.html#_parameter_objects_2">10.1. Parameter Objects</a>
-</li>
-<li><a href="_stklos_customization.html#_environment_variables">10.2. Environment variables</a>
-</li>
-</ul>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_stklos_customization">10. STklos Customization</h2>
-<div class="sectionbody">
-<div class="sect2">
-<h3 id="_parameter_objects_2">10.1. Parameter Objects</h3>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> environement can be customized using Parameter Objects. These
-parmaters are listed below.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(real-precision)</code></strong><br>
-<strong><code>(real-precision value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This parameter object allows changing the default precision used
-to print real numbers.</p>
-</div>
-<div class="paragraph">
-<p>By precision when printing a number we mean the number of significant
-digits&#8201;&#8212;&#8201;that is, excluding the leading and trailing zeros in
-decimal representation. (This is exactly the same as the number
-for the <code>g</code> specifier for <code>printf</code> in the C language).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">real-precision</span><span class="p">)</span>         <span class="nv">=&gt;</span> <span class="mi">15</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">f</span> <span class="mf">0.123456789</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">display</span> <span class="nv">f</span><span class="p">)</span>              <span class="nv">=&gt;</span> <span class="mf">0.123456789</span>
-<span class="p">(</span><span class="nf">real-precision</span> <span class="mi">3</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">display</span> <span class="nv">f</span><span class="p">)</span>              <span class="nv">=&gt;</span> <span class="mf">0.123</span>
-<span class="p">(</span><span class="nb">display</span>   <span class="mf">1.123456789</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mf">1.12</span>
-<span class="p">(</span><span class="nb">display</span>  <span class="mf">12.123456789</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mf">12.1</span>
-<span class="p">(</span><span class="nb">display</span> <span class="mf">123.123456789</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mf">123.0</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>In the last example, only three significant digits were printed (123),
-and the zero only marks this number as inexact.</p>
-</div>
-<div class="paragraph">
-<p>If the number won&#8217;t fit using the usual decimal format, it will be
-printed in scientific notation, but still using the specified number
-of significant digits:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">display</span>     <span class="mf">1234.123456789</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mf">1.23</span><span class="nv">e+03</span>
-<span class="p">(</span><span class="nb">display</span>    <span class="mf">12345.123456789</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mf">1.23</span><span class="nv">e+04</span>
-<span class="p">(</span><span class="nb">display</span> <span class="mf">12345678.123456789</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mf">1.23</span><span class="nv">e+07</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Repeating the three examples above with precision equal to one results
-in the following.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">real-precision</span> <span class="mi">1</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">display</span>     <span class="mf">1234.123456789</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">1</span><span class="nv">e+03</span>
-<span class="p">(</span><span class="nb">display</span>    <span class="mf">12345.123456789</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">1</span><span class="nv">e+04</span>
-<span class="p">(</span><span class="nb">display</span> <span class="mf">12345678.123456789</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">1</span><span class="nv">e+07</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>If the number is only printed up to its n-th digit, then the printed nth
-digit will be n rounded up or down, according to the digit that comes
-after it.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">real-precision</span> <span class="mi">4</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">display</span> <span class="mf">12.123456789</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mf">12.12</span>  <span class="c1">;; "123..." rounded to "12"</span>
-<span class="p">(</span><span class="nb">display</span> <span class="mf">12.987654321</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mf">12.99</span>  <span class="c1">;; "987..." rounded to "99"</span></code></pre>
-</div>
-</div>
-<div id="srfi169" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(accept-srfi-169-numbers)</code></strong><br>
-<strong><code>(accept-srfi-169-numbers value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This parameter object permits to change the behavior of the reader
-with underscores in numbers. Numbers with underscores are defined
-in ,(link-srfi 169). By default, this variable is true, meaning that
-underscores are accepted in numbers.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">accept-srfi-169-numbers</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nb">symbol?</span> <span class="ss">'1_000_000</span><span class="p">)</span>             <span class="nv">=&gt;</span> <span class="no">#f</span>
-<span class="p">(</span><span class="nb">number?</span> <span class="ss">'1_000_000</span><span class="p">)</span>             <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">accept-srfi-169-numbers</span> <span class="no">#f</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">symbol?</span> <span class="ss">'1_000_000</span><span class="p">)</span>             <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nb">number?</span> <span class="ss">'1_000_000</span><span class="p">)</span>             <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(read-case-sensitive)</code></strong><br>
-<strong><code>(read-case-sensitive value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This parameter object permits to change the default behaviour of
-the <code>read</code> primitive when reading a symbol. If this parameter has
-a true value a symbol is not converted to a default case when interned.
-Since R<sup>7</sup>RS requires that symbol are case insignificant, the default
-value  of this parameter is <code>#t</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">read-case-sensitive</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="o">`</span><span class="no">#t</span><span class="o">`</span>
-<span class="p">(</span><span class="nf">read-from-string</span> <span class="s">"ABC"</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="nv">ABC</span>
-<span class="p">(</span><span class="nf">read-case-sensitive</span> <span class="no">#f</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">read-from-string</span> <span class="s">"ABC"</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="nv">abc</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<div class="ulist">
-<ul>
-<li>
-<p>Default behaviour can be changed for a whole execution
-with the <code>--case-sensitive</code> or <code>case-insensitive</code> options.</p>
-</li>
-<li>
-<p>See also syntax for <em><a href="_standard_procedures.html#_symbols">special characters</a></em> in symbols.</p>
-</li>
-</ul>
-</div>
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(write-pretty-quotes)</code></strong><br>
-<strong><code>(write-pretty-quotes value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This parameter object permits to change the default behaviour of
-the <code>display</code> or <code>write</code> primitives when they write a list which starts with
- the symbol quote,  quasiquote, unquote or unquote-splicing. If this parameter
-has a false value, the writer uses the list notation instead of a
-more human-readable value.
-By default, this parameter value is set to <code>#t</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">x</span> <span class="o">'</span><span class="ss">'a</span><span class="p">))</span>
-  <span class="p">(</span><span class="nb">display</span> <span class="nv">x</span><span class="p">)</span>
-  <span class="p">(</span><span class="nb">display</span> <span class="s">" "</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">write-pretty-quotes</span> <span class="no">#f</span><span class="p">)</span>
-  <span class="p">(</span><span class="nb">display</span> <span class="nv">x</span><span class="p">))</span>               <span class="nv">|-</span> <span class="ss">'a</span> <span class="p">(</span><span class="k">quote</span> <span class="nv">a</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div id="loadpath" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(load-path)</code></strong><br>
-<strong><code>(load-path value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>load-path</code> is a parameter object. It
-returns the current load path. The load path is a list of strings
-which correspond to the directories in which a file must be searched for
-loading. Directories of the load path are ,(emph "prepended") (in
-their apparition
-order) to the file name given to <code>load</code> or <code>try-load</code> until the file
-can be loaded.</p>
-</div>
-<div class="paragraph">
-<p>The initial value of the current load path can be set from the shell, by
-setting the <code>STKLOS_LOAD_PATH</code> shell variable.</p>
-</div>
-<div class="paragraph">
-<p>Giving a <code>value</code> to the parameter <code>load-path</code> permits to change the
-current list of paths.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(load-suffixes)</code></strong><br>
-<strong><code>(load-suffixes value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>load-suffixes</code> is a parameter object. It
-returns the list of possible suffixes for a Scheme file. Each suffix,
-must be a string. Suffixes are appended (in their apparition order)
-to a file name  is appended to a file name given to <code>load</code> or <code>try-load</code>
-until the file can be loaded.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(load-verbose)</code></strong><br>
-<strong><code>(load-verbose value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>load-verbose</code> is a parameter object. It permits to display the
-path name of the files which are loaded by <code>load</code> or <code>try-load</code> on
-the current error port, when set to a true value. If <code>load-verbose</code>
-is set to <code>#f</code>, no message is printed.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(thread-handler-error-show)</code></strong><br>
-<strong><code>(thread-handler-error-show value)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>When an untrapped error occurs in a thread, it produces an
-<a href="_threads_mutexes_and_condition_variables.html#make-thread"><em>uncaught exception</em></a> which can finally be
-trapped when the thread is <a href="_threads_mutexes_and_condition_variables.html#thread-join"><em>joined</em></a>.
-Setting the <code>thread-handler-error-show</code> parameter permits to see
-error message as soon as possible, even without joining the thread.
-This makes debugging easier. By default, this parameter is set to
-<code>#t</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(stklos-debug-level)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>stklos-debug-level</code> is a parameter objet. It permits to know the current
-debugging level. The default value of this parameter is 0 (meaning "no debug").
-Note that the debugging level can also be set by the <code>--debug</code> option of the
-<code>stklos(1)</code> command.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(repl-theme)</code></strong><br>
-<strong><code>(repl-theme plist)</code></strong><br>
-<strong><code>(repl-theme name)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The <strong><em>STklos</em></strong> REPL colors can be customized using a property list (or a theme
-name) using the <code>repl-theme</code> parameter. The properties that can be used in this
-property list are:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>#:error</code> for the color of error messages</p>
-</li>
-<li>
-<p><code>#:prompt</code> for the color of the prompt</p>
-</li>
-<li>
-<p><code>#:help-prompt</code> for the color of the help prompt</p>
-</li>
-<li>
-<p><code>#:help</code> for the color of the help messages</p>
-</li>
-<li>
-<p><code>#:repl-depth</code> for the color of the depth indicator for recursive REPLs</p>
-</li>
-<li>
-<p><code>#:info</code> for the color of information messages.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>There are three default themes:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><strong>classic</strong> which is the (colorful) default theme.</p>
-</li>
-<li>
-<p><strong>monochrome</strong> which doesn&#8217;t use colors</p>
-</li>
-<li>
-<p><strong>minimal</strong> where only the prompt and errors are colored.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>Colors are expressed using the conventions of
-<a href="_standard_procedures.html#ansicolor">the <code>ansi-color</code> primitive</a>. For instance:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">key-set!</span> <span class="p">(</span><span class="nf">repl-theme</span><span class="p">)</span> <span class="nv">:prompt</span> <span class="o">'</span><span class="p">(</span><span class="nf">bold</span> <span class="nv">green</span><span class="p">))</span> <span class="c1">;; set the prompt to bold green</span>
-
-<span class="p">(</span><span class="nf">repl-theme</span> <span class="ss">'minimal</span><span class="p">)</span>                         <span class="c1">;; to use a sober prompt</span>
-
-<span class="p">(</span><span class="nf">repl-theme</span> <span class="o">'</span><span class="p">(</span><span class="o">#</span><span class="nv">:error</span> <span class="p">(</span><span class="nf">bold</span> <span class="nv">red</span><span class="p">)</span>              <span class="c1">;; explicitly defined theme</span>
-              <span class="o">#</span><span class="nv">:prompt</span> <span class="p">(</span><span class="nf">bold</span> <span class="nv">bg-red</span> <span class="nv">white</span><span class="p">)))</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-A good place to change your theme is the <code>.stklosrc</code> file.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(repl-show-startup-message)</code></strong><br>
-<strong><code>(repl-show-startup-message val)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>If this parameter is a true value, a banner is printed when <strong><em>STklos</em></strong> starts
-in interactive mode. Otherwise, no banner is printed. By default, this parameter
-is set to <code>#t</code>.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-This parameter can be set to <code>#f</code> with the <code>--no-startup-message</code> option of
-the <strong><em>STklos</em></strong> command. Otherwise, a good place to set this parameter is in the
-<code>.stklosrc</code> file.
-</td>
-</tr>
-</table>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_environment_variables">10.2. Environment variables</h3>
-<div class="paragraph">
-<p>The following variables can be used to customize <strong><em>STklos</em></strong>:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><strong>STKLOS_LOAD_PATH</strong>: This is a colon-separated list
-of directories in which stklos looks for loading files. It is used by
-primitives such as <code><a href="_standard_procedures.html#load">load</a></code> or <code><a href="_standard_procedures.html#tryload">try-load</a></code>.  See also the
-<code><a href="_stklos_customization.html#loadpath">load-path</a></code> parameter.</p>
-</li>
-<li>
-<p><strong>STKLOS-FRAME</strong>: This variable must contains an integer
-which indicates the number of frames printed on an error. Use
-the value 0 for an unlimited backtrace.</p>
-</li>
-<li>
-<p><strong>STKLOS-CONFDIR</strong>: This variable can be used to
-designate the directory used by <strong><em>STklos</em></strong> to store its configuration or
-packages files. If not set, the default <strong><em>STklos</em></strong> configuration directory
-is by default <code>~/.stklos</code>.</p>
-</li>
-</ul>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_threads_mutexes_and_condition_variables.html">Threads, Mutexes and Condition Variables</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_foreign_function_interface.html">Foreign Function Interface</a> →</p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. In fact <code>define-module</code> on a given name defines a new module only the first time it is invoked on this name. By this way, interactively reloading a module does not define a new entity, and the other modules which use it are not altered.
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. This transcript uses the default toplevel loop             which displays the name of the current module in the evaluator             prompt.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Under Unix, you can simply connect to a listening socket with the <code>telnet</code> of <code>netcat</code> command. For the given example, this can be achieved with <code>netcat localhost 12345</code>
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. Port 13, if open, can be used for testing: making a connection to it permits to know the distant system&#8217;s idea of the time of day.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. The "pattern matching compiler" has been written by Jean-Marie Geffroy and is part of the Manuel Serrano&#8217;s Bigloo compiler since several years <a href="_bibliography.html#Bigloo">[Bigloo]</a>
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. This section is an adaptation of Jeff Dalton&#8217;s (<a href="mailto:J.Dalton@ed.ac.uk">J.Dalton@ed.ac.uk</a>) "<strong><em>Brief introduction to CLOS</em></strong>" which can be found at <a href="http://www.aiai.ed.ac.uk/~jeff/clos-guide.html" class="bare">http://www.aiai.ed.ac.uk/~jeff/clos-guide.html</a>
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_stklos_object_system.html b/doc/HTML/_stklos_object_system.html
deleted file mode 100644
index 9aba1ae4b..000000000
--- a/doc/HTML/_stklos_object_system.html
+++ /dev/null
@@ -1,2297 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<style>
-pre.rouge table td { padding: 5px; }
-pre.rouge table pre { margin: 0; }
-pre.rouge .c, pre.rouge .ch, pre.rouge .cd, pre.rouge .cpf {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cm {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .c1 {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cp {
-  color: #75715e;
-  font-weight: bold;
-}
-pre.rouge .cs {
-  color: #75715e;
-  font-weight: bold;
-  font-style: italic;
-}
-pre.rouge .err {
-  color: #960050;
-  background-color: #1e0010;
-}
-pre.rouge .gi {
-  color: #ffffff;
-  background-color: #324932;
-}
-pre.rouge .gd {
-  color: #ffffff;
-  background-color: #493131;
-}
-pre.rouge .ge {
-  color: #000000;
-  font-style: italic;
-}
-pre.rouge .gr {
-  color: #aa0000;
-}
-pre.rouge .gt {
-  color: #aa0000;
-}
-pre.rouge .gh {
-  color: #999999;
-}
-pre.rouge .go {
-  color: #888888;
-}
-pre.rouge .gp {
-  color: #555555;
-}
-pre.rouge .gs {
-  font-weight: bold;
-}
-pre.rouge .gu {
-  color: #aaaaaa;
-}
-pre.rouge .k, pre.rouge .kv {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kc {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kd {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kp {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kr {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kt {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kn {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .ow {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .o {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .mf {
-  color: #ae81ff;
-}
-pre.rouge .mh {
-  color: #ae81ff;
-}
-pre.rouge .il {
-  color: #ae81ff;
-}
-pre.rouge .mi {
-  color: #ae81ff;
-}
-pre.rouge .mo {
-  color: #ae81ff;
-}
-pre.rouge .m, pre.rouge .mb, pre.rouge .mx {
-  color: #ae81ff;
-}
-pre.rouge .se {
-  color: #ae81ff;
-}
-pre.rouge .sa {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .sb {
-  color: #e6db74;
-}
-pre.rouge .sc {
-  color: #e6db74;
-}
-pre.rouge .sd {
-  color: #e6db74;
-}
-pre.rouge .s2 {
-  color: #e6db74;
-}
-pre.rouge .sh {
-  color: #e6db74;
-}
-pre.rouge .si {
-  color: #e6db74;
-}
-pre.rouge .sx {
-  color: #e6db74;
-}
-pre.rouge .sr {
-  color: #e6db74;
-}
-pre.rouge .s1 {
-  color: #e6db74;
-}
-pre.rouge .ss {
-  color: #e6db74;
-}
-pre.rouge .s, pre.rouge .dl {
-  color: #e6db74;
-}
-pre.rouge .na {
-  color: #a6e22e;
-}
-pre.rouge .nc {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nd {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .ne {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nf, pre.rouge .fm {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .no {
-  color: #66d9ef;
-}
-pre.rouge .bp {
-  color: #f8f8f2;
-}
-pre.rouge .nb {
-  color: #f8f8f2;
-}
-pre.rouge .ni {
-  color: #f8f8f2;
-}
-pre.rouge .nn {
-  color: #f8f8f2;
-}
-pre.rouge .vc {
-  color: #f8f8f2;
-}
-pre.rouge .vg {
-  color: #f8f8f2;
-}
-pre.rouge .vi {
-  color: #f8f8f2;
-}
-pre.rouge .nv, pre.rouge .vm {
-  color: #f8f8f2;
-}
-pre.rouge .w {
-  color: #f8f8f2;
-}
-pre.rouge .nl {
-  color: #f8f8f2;
-  font-weight: bold;
-}
-pre.rouge .nt {
-  color: #f92672;
-}
-pre.rouge {
-  color: #f8f8f2;
-  background-color: #49483e;
-}
-</style>
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_stklos_object_system" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html"><span class="toc-current">8. STklos Object System</span></a>
-<ul class="sectlevel2">
-<li><a href="_stklos_object_system.html#_introduction_2">8.1. Introduction</a>
-</li>
-<li><a href="_stklos_object_system.html#_object_system_tutorial">8.2. Object System Tutorial</a>
-</li>
-<li><a href="_stklos_object_system.html#_object_system_main_functions_and_syntaxes">8.3. Object System Main Functions and Syntaxes</a>
-</li>
-</ul>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_stklos_object_system">8. STklos Object System</h2>
-<div class="sectionbody">
-<div class="sect2">
-<h3 id="_introduction_2">8.1. Introduction</h3>
-<div class="paragraph">
-<p>The aim of this chapter is to present <strong><em>STklos</em></strong> object
-system.  Briefly stated, <strong><em>STklos</em></strong> gives the  programmer
-an extensive object system with meta-classes, multiple
-inheritance, generic functions and multi-methods.  Furthermore,
-its implementation relies on a MOP  (Meta Object Protocol
-(MOP) <a href="_bibliography.html#AMOP">[AMOP]</a>),
-in the spirit of the one defined for
-CLOS <a href="_bibliography.html#CLtL2">[CLtL2]</a>.</p>
-</div>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> implementation is derived from the version 1.3 of <strong><em>Tiny CLOS</em></strong>, a
-pure and clean CLOS-like MOP implementation in Scheme written by Gregor
-Kickzales <a href="_bibliography.html#Tiny-Clos">[Tiny-Clos]</a>. However, Tiny CLOS implementation was designed as a
-pedagogical tool and consequently, completeness and efficiency were not the
-author concern for it.  <strong><em>STklos</em></strong> extends the Tiny CLOS model to be efficient
-and as close as possible to CLOS, the Common Lisp Object System <a href="_bibliography.html#CLtL2">[CLtL2]</a>.
-Some features of <strong><em>STklos</em></strong> are also issued from <a href="_bibliography.html#Dylan">[Dylan]</a> or <a href="_bibliography.html#SOS">[SOS]</a>.</p>
-</div>
-<div class="paragraph">
-<p>This chapter is divided in three parts, which have a quite different audience
-in mind:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>The first part presents the <strong><em>STklos</em></strong> object system rather
-informally; it is intended to be a tutorial of the language and is
-for people who want to have an idea of the <strong><em>look and feel</em></strong> of
-<strong><em>STklos</em></strong>.</p>
-</li>
-<li>
-<p>The second part describes the <strong><em>STklos</em></strong> object system at
-the <strong><em>external</em></strong> level (i.e.  without requiring the use of the
-Meta Object Protocol).</p>
-</li>
-<li>
-<p>The third and last part describes the <strong><em>STklos</em></strong> Meta
-Object Protocol.  It is intended for people whio want to play with
-meta programming.</p>
-</li>
-</ul>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_object_system_tutorial">8.2. Object System Tutorial</h3>
-<div class="paragraph">
-<p>The <strong><em>STklos</em></strong> object system relies on classes like most of the current OO
-languages.  Furthermore, <strong><em>STklos</em></strong> provides meta-classes, multiple
-inheritance, generic functions and multi-methods as in CLOS, the Common Lisp
-Object System <a href="_bibliography.html#CLtL2">[CLtL2]</a> or <a href="_bibliography.html#Dylan">[Dylan]</a>.  This chapter presents <strong><em>STklos</em></strong> in
-a rather informal manner.  Its intent is to give the reader an idea of the
-"<strong><em>look and feel</em></strong>" of <strong><em>STklos</em></strong> programming.  However, we suppose here that
-the reader has some basic notions of OO programming, and is familiar with
-terms such as <strong><em>classes, instances</em></strong> or <strong><em>methods.</em></strong></p>
-</div>
-<div class="sect3">
-<h4 id="_class_definition_and_instantiation">8.2.1. Class definition and instantiation</h4>
-<div class="sect4">
-<h5 id="_class_definition">Class definition</h5>
-<div class="paragraph">
-<p>
-
-
-A new class is defined with the <code>define-class</code> form.
-The syntax of <code>define-class</code> is close to CLOS <code>defclass</code>:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">class</span> <span class="p">(</span><span class="nf">superclass~1~</span> <span class="nv">superclass~2~</span> <span class="o">...</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">slot-description1</span>
-   <span class="nv">slot-description2</span>
-   <span class="o">...</span><span class="p">)</span>
-  <span class="nv">metaclass</span> <span class="nv">option</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The <strong><em>metaclass option</em></strong> will not be discussed here.
-The <strong><em>superclass</em></strong>es list specifies the super classes of
-<strong><em>class</em></strong> (see <a href="_stklos_object_system.html#_inheritance">Section 8.2.2</a> for details).</p>
-</div>
-<div class="paragraph">
-<p>
-A <strong><em>slot description</em></strong> gives the name of a slot and,
-eventually, some <em>properties</em> of this slot (such as its
-initial value, the function which permit to access its value,
-&#8230;&#8203;). Slot descriptions will be discussed in
-,(index "slot-definition").</p>
-</div>
-<div class="paragraph">
-<p>As an example, consider now that we want to define a point as an object. This
-can be done with the following class definition:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;point&gt;</span> <span class="p">()</span>
-  <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>This definition binds the symbol <code>&lt;point&gt;</code> to a new class whose instances
-contain two slots. These slots are called <code>x</code> an <code>y</code> and we suppose here that
-they contain the coordinates of a 2D point.</p>
-</div>
-<div class="paragraph">
-<p>Let us define now a circle, as a 2D point and a radius:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;circle&gt;</span> <span class="p">(</span><span class="nf">&lt;point&gt;</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">radius</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>As we can see here, the class <code>&lt;circle&gt;</code> is constructed by inheriting from the
-class <code>&lt;point&gt;</code> and adding a new slot (the <code>radius</code> slot).</p>
-</div>
-</div>
-<div class="sect4">
-<h5 id="_instance_creation_and_slot_access">Instance creation and slot access</h5>
-<div class="paragraph">
-<p>
-
-Creation of an instance of a previously defined class can
-be done with the <code>make</code> procedure. This procedure takes
-one mandatory parameter which is the class of the instance which
-must be created and a list of optional arguments. Optional
-arguments are generally used to initialize some slots of the
-newly created instance. For instance, the following form:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span>  <span class="nv">c</span> <span class="p">(</span><span class="nf">make</span> <span class="nv">&lt;circle&gt;</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>creates a new <code>&lt;circle&gt;</code> object and binds it to the <code>c</code> Scheme variable.</p>
-</div>
-<div class="paragraph">
-<p>
-
-
-Accessing the slots of the newly created circle can be done
-with the <code>slot-ref</code> and the <code>slot-set!</code> primitives. The <code>slot-set!</code>
-primitive permits to set the value of an object slot and <code>slot-ref</code>
-permits to get its value.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">slot-set!</span> <span class="nv">c</span> <span class="ss">'x</span> <span class="mi">10</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">slot-set!</span> <span class="nv">c</span> <span class="ss">'y</span> <span class="mi">3</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">slot-ref</span> <span class="nv">c</span> <span class="ss">'x</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="mi">10</span>
-<span class="p">(</span><span class="nf">slot-ref</span> <span class="nv">c</span> <span class="ss">'y</span><span class="p">)</span>       <span class="nv">=&gt;</span>  <span class="mi">3</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Using the <code>describe</code> function is a simple way to see all the slots of an
-object at one time: this function prints all the slots of an object on the
-standard output. For instance, the expression:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">describe</span> <span class="nv">c</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>prints the following information on the standard output:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>#[&lt;circle&gt; 81aa1f8] is an an instance of class &lt;circle&gt;.
-Slots are:
-     radius = #[unbound]
-     x = 10
-     y = 3</code></pre>
-</div>
-</div>
-</div>
-<div class="sect4">
-<h5 id="_slot_definition">Slot Definition</h5>
-<div class="paragraph">
-<p>When specifying a slot, a set of options can be given to
-the system.  Each option is specified with a keyword. For
-instance,</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p> <strong>:init-form</strong> can be used to supply a default value for the slot.</p>
-</li>
-<li>
-<p><strong>:init-keyword</strong> can be used to specify the keyword used for initializing a slot.</p>
-</li>
-<li>
-<p> <strong>:getter</strong> can be used to define the name of the slot getter</p>
-</li>
-<li>
-<p> <strong>:setter</strong> can be used to define the name of the slot setter</p>
-</li>
-<li>
-<p> <strong>:accessor</strong> can be used to define the name of the slot accessor
-(see below)</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>To illustrate slot description, we redefine here the <code>&lt;point&gt;</code> class seen
-before. A new definition of this class could be:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;point&gt;</span> <span class="p">()</span>
-  <span class="p">((</span><span class="nf">x</span> <span class="nv">:init-form</span> <span class="mi">0</span> <span class="nv">:getter</span> <span class="nv">get-x</span> <span class="nv">:setter</span> <span class="nv">set-x!</span> <span class="nv">:init-keyword</span> <span class="nv">:x</span><span class="p">)</span>
-   <span class="p">(</span><span class="nf">y</span> <span class="nv">:init-form</span> <span class="mi">0</span> <span class="nv">:getter</span> <span class="nv">get-y</span> <span class="nv">:setter</span> <span class="nv">set-y!</span> <span class="nv">:init-keyword</span> <span class="nv">:y</span><span class="p">)))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>With this definition,</p>
-</div>
-<div class="olist arabic">
-<ol class="arabic">
-<li>
-<p>the <code>x</code> and <code>y</code> slots are set to 0 by default.</p>
-</li>
-<li>
-<p>The value of a slot can also be specified by calling <code>make</code> with the <code>:x</code> and <code>:y</code>
-keywords.</p>
-</li>
-<li>
-<p>Furthermore, the generic functions <code>get-x</code> and <code>set-x!</code> (resp.  <code>get-y</code> and
-<code>set-y!</code>) are automatically defined by the system to read and write the <code>x</code>
-(resp.  <code>y</code>) slot.</p>
-</li>
-</ol>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">p1</span> <span class="p">(</span><span class="nf">make</span> <span class="nv">&lt;point&gt;</span> <span class="nv">:x</span> <span class="mi">1</span> <span class="nv">:y</span> <span class="mi">2</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">get-x</span> <span class="nv">p1</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">set-x!</span> <span class="nv">p1</span>  <span class="mi">12</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">get-x</span> <span class="nv">p1</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="mi">12</span>
-
-<span class="p">(</span><span class="k">define</span>  <span class="nv">p2</span> <span class="p">(</span><span class="nf">make</span> <span class="nv">&lt;point&gt;</span> <span class="nv">:x</span> <span class="mi">2</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">get-x</span> <span class="nv">p2</span><span class="p">)</span>         <span class="nv">=&gt;</span> <span class="mi">2</span>
-<span class="p">(</span><span class="nf">get-y</span> <span class="nv">p2</span><span class="p">)</span>         <span class="nv">=&gt;</span> <span class="mi">0</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-Accessors provide an uniform access for reading and writing an object slot.
-Writing a slot is done with an extended form of <code>set!</code>  which is
-close to the Common Lisp <code>setf</code> macro.  A slot accessor can be
-defined with the <code>:accessor</code> option in the slot
-description.  Hereafter, is another definition of our
-<code>&lt;point&gt;</code> class, using an accessor:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;point&gt;</span> <span class="p">()</span>
-  <span class="p">((</span><span class="nf">x</span> <span class="nv">:init-form</span> <span class="mi">0</span> <span class="nv">:accessor</span> <span class="nv">x-of</span> <span class="nv">:init-keyword</span> <span class="nv">:x</span><span class="p">)</span>
-   <span class="p">(</span><span class="nf">y</span> <span class="nv">:init-form</span> <span class="mi">0</span> <span class="nv">:accessor</span> <span class="nv">y-of</span> <span class="nv">:init-keyword</span> <span class="nv">:y</span><span class="p">)))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Using this class definition, reading the x coordinate of the <code>p</code> point can be
-done with:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">x-of</span> <span class="nv">p</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>and setting it to 100 can be done using the extended <code>set!</code></p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nf">x-of</span> <span class="nv">p</span><span class="p">)</span> <span class="mi">100</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> also define <code>slot-set!</code> as the <a href="_srfis.html#setter">setter function</a> of <code>slot-ref</code>.
-As a consequence, we have</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nf">slot-ref</span> <span class="nv">p</span> <span class="ss">'y</span><span class="p">)</span> <span class="mi">100</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">slot-ref</span> <span class="nv">p</span> <span class="ss">'y</span><span class="p">)</span>       <span class="nv">=&gt;</span> <span class="mi">100</span></code></pre>
-</div>
-</div>
-</td>
-</tr>
-</table>
-</div>
-</div>
-<div class="sect4">
-<h5 id="_virtual_slots">Virtual Slots</h5>
-<div class="paragraph">
-<p>
-
-Suppose that we need slot named <code>area</code> in circle objects which contain the
-area of the circle. One way to do this would be to add the new slot to the
-class definition and have an initialisation form for this slot which takes
-into account the radius of the circle. The problem with this approach is that
-if the <code>radius</code> slot is changed, we need to change <code>area</code> (and
-vice-versa). This is something which is hard to manage and if we don&#8217;t care,
-it is easy to have a <code>area</code> and <code>radius</code> in an instance which are
-"un-synchronized".  The virtual slot mechanism avoid this problem.</p>
-</div>
-<div class="paragraph">
-<p>A virtual slot is a special slot whose value is calculated rather than stored
-in an object.  The way to read and write such a slot must be given when the
-slot is defined with the <code>:slot-ref</code> and <code>:slot-set!</code> slot options.</p>
-</div>
-<div class="paragraph">
-<p>A complete definition of the <code>&lt;circle&gt;</code> class
-using virtual slots could be:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;circle&gt;</span> <span class="p">(</span><span class="nf">&lt;point&gt;</span><span class="p">)</span>
-  <span class="p">((</span><span class="nf">radius</span> <span class="nv">:init-form</span> <span class="mi">0</span> <span class="nv">:accessor</span> <span class="nv">radius</span> <span class="nv">:init-keyword</span> <span class="nv">:radius</span><span class="p">)</span>
-   <span class="p">(</span><span class="nf">area</span> <span class="nv">:allocation</span> <span class="nv">:virtual</span> <span class="nv">:accessor</span> <span class="nv">area</span>
-	     <span class="nv">:slot-ref</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">o</span><span class="p">)</span> <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">r</span> <span class="p">(</span><span class="nf">radius</span> <span class="nv">o</span><span class="p">)))</span> <span class="p">(</span><span class="nb">*</span> <span class="mf">3.14</span> <span class="nv">r</span> <span class="nv">r</span><span class="p">)))</span>
-	     <span class="nv">:slot-set!</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">o</span> <span class="nv">v</span><span class="p">)</span> <span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nf">radius</span> <span class="nv">o</span><span class="p">)</span> <span class="p">(</span><span class="nb">sqrt</span> <span class="p">(</span><span class="nb">/</span> <span class="nv">v</span> <span class="mf">3.14</span><span class="p">)))))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Here is an example using this definition of <code>&lt;circle&gt;</code></p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">c</span> <span class="p">(</span><span class="nf">make</span> <span class="nv">&lt;circle&gt;</span> <span class="nv">:radius</span> <span class="mi">1</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">radius</span> <span class="nv">c</span><span class="p">)</span>                           <span class="nv">=&gt;</span> <span class="mi">1</span>
-<span class="p">(</span><span class="nf">area</span> <span class="nv">c</span><span class="p">)</span>                             <span class="nv">=&gt;</span> <span class="mf">3.14</span>
-<span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nf">area</span> <span class="nv">x</span><span class="p">)</span> <span class="p">(</span><span class="nb">*</span> <span class="mi">4</span> <span class="p">(</span><span class="nf">area</span> <span class="nv">x</span><span class="p">)))</span>
-<span class="p">(</span><span class="nf">area</span> <span class="nv">c</span><span class="p">)</span>                             <span class="nv">=&gt;</span> <span class="mf">12.56</span>   <span class="c1">;; (i.e. ⒋π)</span>
-<span class="p">(</span><span class="nf">radius</span> <span class="nv">c</span><span class="p">)</span>                           <span class="nv">=&gt;</span> <span class="mf">2.0</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Of course, we can also used the function <code>describe</code> to visualize
-the slots of a given object. Applied to the prvious <code>c</code>, it prints:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code>#[&lt;circle&gt; 81b2348] is an an instance of class &lt;circle&gt;.
-Slots are:
-     area = 12.56
-     radius = 2.0
-     x = 0
-     y = 0</code></pre>
-</div>
-</div>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_inheritance">8.2.2. Inheritance</h4>
-<div class="sect4">
-<h5 id="_class_hierarchy_and_inheritance_of_slots">Class hierarchy and inheritance of slots</h5>
-<div class="paragraph">
-<p>inheritance
-Inheritance is specified upon class definition. As said in the introduction,
-<strong><em>STklos</em></strong> supports multiple inheritance.  Hereafter are some classes
-definition:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">A</span> <span class="p">()</span> <span class="p">(</span><span class="nf">a</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">define-class</span> <span class="nv">B</span> <span class="p">()</span> <span class="p">(</span><span class="nf">b</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">define-class</span> <span class="nv">C</span> <span class="p">()</span> <span class="p">(</span><span class="nf">c</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">define-class</span> <span class="nv">D</span> <span class="p">(</span><span class="nf">A</span> <span class="nv">B</span><span class="p">)</span> <span class="p">(</span><span class="nf">d</span> <span class="nv">a</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">define-class</span> <span class="nv">E</span> <span class="p">(</span><span class="nf">A</span> <span class="nv">C</span><span class="p">)</span> <span class="p">(</span><span class="nf">e</span> <span class="nv">c</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">define-class</span> <span class="nv">F</span> <span class="p">(</span><span class="nf">D</span> <span class="nv">E</span><span class="p">)</span> <span class="p">(</span><span class="nf">f</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Here,</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>A</code>, <code>B</code>, <code>C</code> have a null list of super classes. In this case, the
-system will replace it by the list which only contains <code>&lt;object&gt;</code>, the root of
-all the classes defined by <code>define-class</code>.</p>
-</li>
-<li>
-<p><code>D</code>, <code>E</code>, and <code>F</code> use multiple inheritance: each class inherits from two
-previously defined classes.  Those class definitions define a hierarchy which
-is shown in <a href="_stklos_object_system.html#class_hierarchy">Figure 1</a>.</p>
-</li>
-</ul>
-</div>
-<div id="class_hierarchy" class="imageblock text-center">
-<div class="content">
-<img src="images/hierarchy.png" alt="hierarchy">
-</div>
-<div class="title">Figure 1. A class hiearchy</div>
-</div>
-<div class="paragraph">
-<p>In this figure, the class <code>&lt;top&gt;</code> is also shown; this class is the super class
-of all Scheme objects. In particular, <code>&lt;top&gt;</code> is the super class of all
-standard Scheme types.</p>
-</div>
-<div class="paragraph">
-<p>The set of slots of a given class is calculated by "unioning" the slots of all
-its super class. For instance, each instance of the class <code>D</code> defined before
-will have three slots (<code>a</code>, <code>b</code> and <code>d</code>). The slots of a class can be obtained
-by the <code>class-slots</code> primitive.  For instance,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">class-slots</span> <span class="nv">A</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">a</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">class-slots</span> <span class="nv">E</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">e</span> <span class="nv">c</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">class-slots</span> <span class="nv">F</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">e</span> <span class="nv">c</span> <span class="nv">d</span> <span class="nv">a</span> <span class="nv">f</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The order of slots is not significant.
-</td>
-</tr>
-</table>
-</div>
-</div>
-<div class="sect4">
-<h5 id="_class_precedence_list">Class precedence list</h5>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph">
-<p>A class may have more than one superclass <sup class="footnote">[<a id="_footnoteref_1" class="footnote" href="#_footnotedef_1" title="View footnote.">1</a>]</sup>.</p>
-</div>
-<div class="paragraph">
-<p>With single inheritance (only one superclass), it is easy to order the super
-classes from most to least specific.  This is the rule:</p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph">
-<p><strong>Rule 1: Each class is more specific than its superclasses.</strong></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>With multiple inheritance, ordering is harder.  Suppose we have</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">X</span> <span class="p">()</span>
-   <span class="p">((</span><span class="nf">x</span> <span class="nv">:init-form</span> <span class="mi">1</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="nf">define-class</span> <span class="nv">Y</span> <span class="p">()</span>
-   <span class="p">((</span><span class="nf">x</span> <span class="nv">:init-form</span> <span class="mi">2</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="nf">define-class</span> <span class="nv">Z</span> <span class="p">(</span><span class="nf">X</span> <span class="nv">Y</span><span class="p">)</span>
-   <span class="p">(</span><span class="nf">z</span> <span class="nv">:init-form</span> <span class="mi">3</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>In this case, given <strong>Rule 1</strong>, the <code>Z</code> class is more specific than the <code>X</code> or <code>Y</code>
-class for instances of <code>Z</code>.  However, the <code>:init-form</code> specified in <code>X</code> and
-<code>Y</code> leads to a problem: which one overrides the other?  Or, stated
-differently, which is the default initial value of the <code>x</code> slot of a <code>Z</code>
-instance.  The rule in <strong><em>STklos</em></strong>, as in CLOS, is that the superclasses listed
-earlier are more specific than those listed later.  So:</p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph">
-<p><strong>Rule 2: For a given class, superclasses listed earlier are more specific than those listed later.</strong></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These rules are used to compute a linear order for a class and all its
-superclasses, from most specific to least specific.  This order is called the
-"<strong><em>class precedence list</em></strong>" of the class.  Given these two rules, we can claim
-that the initial form for the <code>x</code> slot of previous example is 1 since the
-class <code>X</code> is placed before <code>Y</code> in the super classes of <code>Z</code>.  These two rules
-are not always sufficient to determine a unique order.  However, they give an
-idea of how the things work. <strong><em>STklos</em></strong> algorithm for calculating the class
-precedence list of a class is a little simpler than the CLOS one described in
-<a href="_bibliography.html#AMOP">[AMOP]</a> for breaking ties.  Consequently, the calculated class
-precedence list by <strong><em>STklos</em></strong> algorithm can be different than the one given by
-the CLOS one in some subtle situations.  Taking the <code>F</code> class shown in <a href="_stklos_object_system.html#class_hierarchy">Figure 1</a>,
-the <strong><em>STklos</em></strong> calculated class precedence list is</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">F</span> <span class="nv">D</span> <span class="nv">E</span> <span class="nv">A</span> <span class="nv">B</span> <span class="nv">C</span> <span class="nv">&lt;object&gt;</span> <span class="nv">&lt;top&gt;</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>whereas it would be the following list with a CLOS-like algorithm:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">F</span> <span class="nv">D</span> <span class="nv">E</span> <span class="nv">A</span> <span class="nv">C</span> <span class="nv">B</span> <span class="nv">&lt;object&gt;</span> <span class="nv">&lt;top&gt;</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p> However, it is usually considered a bad idea for
-programmers to rely on exactly what the order is.  If the order for some
-superclasses is important, it can be expressed directly in the class
-definition.  The precedence list of a class can be obtained by the function
-<code>class-precedence-list</code>.  This function returns a ordered list whose first
-element is the most specific class.  For instance,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">class-precedence-list</span> <span class="nv">D</span><span class="p">)</span>
-    <span class="nv">=&gt;</span> <span class="p">(</span><span class="o">#</span><span class="p">[</span><span class="nf">&lt;class&gt;</span> <span class="nv">D</span> <span class="mi">81</span><span class="nv">aebb8</span><span class="p">]</span> <span class="o">#</span><span class="p">[</span><span class="nf">&lt;class&gt;</span> <span class="nv">A</span> <span class="mi">81</span><span class="nv">aab88</span><span class="p">]</span>
-        <span class="o">#</span><span class="p">[</span><span class="nf">&lt;class&gt;</span> <span class="nv">B</span> <span class="mi">81</span><span class="nv">aa720</span><span class="p">]</span> <span class="o">#</span><span class="p">[</span><span class="nf">&lt;class&gt;</span> <span class="nv">&lt;object&gt;</span> <span class="mi">80</span><span class="nv">eff90</span><span class="p">]</span>
-        <span class="o">#</span><span class="p">[</span><span class="nf">&lt;class&gt;</span> <span class="nv">&lt;top&gt;</span> <span class="mi">80</span><span class="nv">effa8</span><span class="p">])</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p> However, this result is hard to read; using the function
-<code>class-name</code> yields a clearer result:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">map</span> <span class="nv">class-name</span> <span class="p">(</span><span class="nf">class-precedence-list</span> <span class="nv">D</span><span class="p">))</span>
-  <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">D</span> <span class="nv">A</span> <span class="nv">B</span> <span class="nv">&lt;object&gt;</span> <span class="nv">&lt;top&gt;</span><span class="p">)</span></code></pre>
-</div>
-</div>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_generic_function">8.2.3. Generic function</h4>
-<div class="sect4">
-<h5 id="_generic_functions_and_methods">Generic functions and methods</h5>
-<div class="paragraph">
-<p>
-
-
-Neither <strong><em>STklos</em></strong> nor CLOS use the message passing mechanism
-for methods as most Object Oriented languages do.  Instead, they
-use the notion of <strong><em>generic function</em></strong>.A generic function
-can be seen as a "<strong><em>tanker</em></strong>" of methods.  When the
-evaluator requests the application of a generic function, all the
-applicable methods of this generic function will be grabbed and
-the most specific among them will be applied.  We say that a
-method <code>M</code> is <strong><em>more specific</em></strong> than a method <code>M'</code>
-if the class of its parameters are more specific than the <code>M'</code>
-ones.  To be more precise, when a generic function must be
-"<strong><em>called</em></strong>" the system</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>searchs among all the generic function methods those which
-are applicable (i.e.  the ones which filter on types which are
-<strong><em>compatible</em></strong> with the actual argument list),</p>
-</li>
-<li>
-<p>sorts the list of applicable methods in the "<strong><em>most specific</em></strong>"
-order,</p>
-</li>
-<li>
-<p>calls the most specific method of this list (i.e.  the
-first of the list of sorted methods).</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>
-
-The definition of a generic function is done with the
-<code>define-generic</code> macro. Definition of a new method is
-done with the <code>define-method</code> macro.</p>
-</div>
-<div class="paragraph">
-<p>Consider the following definitions:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-generic</span> <span class="nv">M</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">M</span><span class="p">((</span><span class="nf">a</span> <span class="nv">&lt;integer&gt;</span><span class="p">)</span> <span class="nv">b</span><span class="p">)</span> <span class="ss">'integer</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">M</span><span class="p">((</span><span class="nf">a</span> <span class="nv">&lt;real&gt;</span><span class="p">)</span>    <span class="nv">b</span><span class="p">)</span> <span class="ss">'real</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">M</span><span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)</span>             <span class="ss">'top</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The <code>define-generic</code> call defines <code>M</code> as a
-generic function.  Note that the signature of the generic
-function is not given upon definition, contrarily to CLOS.  This
-permits methods with different signatures for a given generic
-function, as we shall see later.  The three next lines define
-methods for the <code>M</code> generic function.  Each method uses a
-sequence of <strong><em>parameter specializers</em></strong> that specify when
-the given method is applicable.  A specializer permits to
-indicate the class a parameter must belong (directly or
-indirectly) to be applicable.  If no specializer is given, the
-system defaults it to <code>&lt;top&gt;</code>&gt;.  Thus, the first method
-definition is equivalent to</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-method</span> <span class="nv">M</span><span class="p">((</span><span class="nf">a</span> <span class="nv">&lt;integer&gt;</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">&lt;top&gt;</span><span class="p">))</span> <span class="ss">'integer</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Now, let us look at some possible calls to generic
-function <code>M</code>:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">M</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>      <span class="nv">=&gt;</span> <span class="nv">integer</span>
-<span class="p">(</span><span class="nf">M</span> <span class="mi">2</span> <span class="no">#t</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="nv">integer</span>
-<span class="p">(</span><span class="nf">M</span> <span class="mf">1.2</span> <span class="ss">'a</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="nv">real</span>
-<span class="p">(</span><span class="nf">M</span> <span class="no">#t</span> <span class="no">#f</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="nv">top</span>
-<span class="p">(</span><span class="nf">M</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="nv">error</span> <span class="p">(</span><span class="nf">no</span> <span class="nv">method</span> <span class="nv">with</span> <span class="mi">3</span> <span class="nv">parameters</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The preceding methods use only one specializer per parameter
-list. Of course, each parameter can use a specializer.  In this
-case, the parameter list is scanned from left to right to
-determine the applicability of a method.  Suppose we declare now</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-method</span> <span class="nv">M</span> <span class="p">((</span><span class="nf">a</span> <span class="nv">&lt;integer&gt;</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">&lt;number&gt;</span><span class="p">))</span>
-    <span class="ss">'integer-number</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">M</span> <span class="p">((</span><span class="nf">a</span> <span class="nv">&lt;integer&gt;</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">&lt;real&gt;</span><span class="p">))</span>
-    <span class="ss">'integer-real</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">M</span> <span class="p">(</span><span class="nf">a</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">&lt;number&gt;</span><span class="p">))</span>
-    <span class="ss">'top-number</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">M</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span>
-    <span class="ss">'three-parameters</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>In this case, we have</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">M</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="nv">integer-integer</span>
-<span class="p">(</span><span class="nf">M</span> <span class="mi">1</span> <span class="mf">1.0</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="nv">integer-real</span>
-<span class="p">(</span><span class="nf">M</span> <span class="ss">'a</span> <span class="mi">1</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="nv">top-number</span>
-<span class="p">(</span><span class="nf">M</span> <span class="mi">1</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="nv">three-parameters</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<div class="ulist">
-<ul>
-<li>
-<p>Before defining a new generic function <code>define-generic,</code> verifies if
-the symbol given as parameter is already bound to a procedure in the
-current environment.  If so, this procedure is added, as a method to
-the newly created generic function.  For instance:</p>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-generic</span> <span class="nv">log</span><span class="p">)</span>  <span class="c1">; transform "log" in a generic function</span>
-
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">log</span> <span class="p">((</span><span class="nf">s</span> <span class="nv">&lt;string&gt;</span><span class="p">)</span> <span class="o">.</span> <span class="nv">l</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">apply</span> <span class="nv">format</span>  <span class="p">(</span><span class="nf">current-error-port</span><span class="p">)</span> <span class="nv">s</span> <span class="nv">l</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">newline</span> <span class="p">(</span><span class="nf">current-error-port</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="nb">log</span> <span class="s">"Hello, ~a"</span> <span class="s">"world"</span><span class="p">)</span>      <span class="nv">|-</span> <span class="nv">Hello,</span> <span class="nv">world</span>
-<span class="p">(</span><span class="nb">log</span> <span class="mi">1</span><span class="p">)</span>                        <span class="nv">=&gt;</span> <span class="mi">0</span> <span class="c1">; standard "log" procedure</span></code></pre>
-</div>
-</div>
-</li>
-<li>
-<p><code>define-method</code> automatically defines the
-generic function if it has not been defined before.
-Consequently, most of the time, the <code>define-generic</code> is
-not needed.</p>
-</li>
-</ul>
-</div>
-</td>
-</tr>
-</table>
-</div>
-</div>
-<div class="sect4">
-<h5 id="_next_method">Next-method</h5>
-<div class="paragraph">
-<p>
-
-When a generic function is called, the list of applicable
-methods is built.  As mentioned before, the most specific method
-of this list is applied (see <a href="_stklos_object_system.html#_generic_function">Section 8.2.3</a>).</p>
-</div>
-<div class="paragraph">
-<p>This method may call, if needed, the next method in the list of
-applicable methods.  This is done by using the special form
-<code>next-method</code>.  Consider the following definitions</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-method</span> <span class="nv">Test</span><span class="p">((</span><span class="nf">a</span> <span class="nv">&lt;integer&gt;</span><span class="p">))</span>
-   <span class="p">(</span><span class="nb">cons</span> <span class="ss">'integer</span> <span class="p">(</span><span class="nf">next-method</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">Test</span><span class="p">((</span><span class="nf">a</span> <span class="nv">&lt;number&gt;</span><span class="p">))</span>
-   <span class="p">(</span><span class="nb">cons</span> <span class="ss">'number</span>  <span class="p">(</span><span class="nf">next-method</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">Test</span><span class="p">(</span><span class="nf">a</span><span class="p">)</span>
-   <span class="p">(</span><span class="nb">list</span> <span class="ss">'top</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>With those definitions, we have:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">Test</span> <span class="mi">1</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">integer</span> <span class="nv">number</span> <span class="nv">top</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">Test</span> <span class="mf">1.0</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">number</span> <span class="nv">top</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">Test</span> <span class="no">#t</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">top</span><span class="p">)</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect4">
-<h5 id="_standard_generic_functions">Standard  generic functions</h5>
-<div class="paragraph">
-<p>
-
-<strong>Printing objects</strong></p>
-</div>
-<div class="paragraph">
-<p>When the Scheme primitives <code>write</code> or <code>display</code> are called with a
-parameter which is an object, the <code>write-object</code> or <code>display-object</code>
-generic functions are called with this object and the port to which
-the printing must be done as parameters.  This facility permits to
-define a customized printing for a class of objects by simply defining
-a new method for this class.  So, defining a new printing method
-overloads the standard printing method (which just prints the class of
-the object and its hexadecimal address).</p>
-</div>
-<div class="paragraph">
-<p>For instance, we can define a customized printing for the <code>&lt;point&gt;</code>
-used before as:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-method</span> <span class="nv">display-object</span> <span class="p">((</span><span class="nf">p</span> <span class="nv">&lt;point&gt;</span><span class="p">)</span> <span class="nv">port</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">format</span> <span class="nv">port</span> <span class="s">"&lt;Point x=~S y=~S&gt;"</span> <span class="p">(</span><span class="nf">slot-ref</span> <span class="nv">p</span> <span class="ss">'x</span><span class="p">)</span> <span class="p">(</span><span class="nf">slot-ref</span> <span class="nv">p</span> <span class="ss">'y</span><span class="p">)))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>With this definition, we have</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">p</span> <span class="p">(</span><span class="nf">make</span> <span class="nv">&lt;point&gt;</span> <span class="nv">:x</span> <span class="mi">1</span> <span class="nv">:y</span> <span class="mi">2</span><span class="p">))</span>
-<span class="p">(</span><span class="nb">display</span> <span class="nv">p</span><span class="p">)</span>                         <span class="nv">|=</span> <span class="nv">&lt;Point</span> <span class="nv">x=1</span> <span class="nv">y=2&gt;</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The Scheme primitive <code>write</code> tries to write objects, in such a way
-that they are readable back with the <code>read</code> primitive.  Consequently,
-we can define the writing of a <code>&lt;point&gt;</code> as a form which, when read,
-will build back this point:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-method</span> <span class="nv">write-object</span> <span class="p">((</span><span class="nf">p</span> <span class="nv">&lt;point&gt;</span><span class="p">)</span> <span class="nv">port</span><span class="p">)</span>
- <span class="p">(</span><span class="nf">format</span> <span class="nv">port</span> <span class="s">"#,(make &lt;point&gt; :x ~S :y ~S)"</span>
-              <span class="p">(</span><span class="nf">get-x</span> <span class="nv">p</span><span class="p">)</span> <span class="p">(</span><span class="nf">get-y</span> <span class="nv">p</span><span class="p">)))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>With this method, writing the <code>p</code> point defined before
-prints the following text on the output port:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="o">#,</span><span class="p">(</span><span class="nf">make</span> <span class="nv">&lt;point&gt;</span> <span class="nv">:x</span> <span class="mi">1</span> <span class="nv">:y</span> <span class="mi">2</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Note here the usage of the <code>#,</code>  notation of <strong><a href="http://srfi.schemers.org/srfi-10/srfi-10.html">SRFI-10</a></strong> (<em>Sharp Comma External Form</em>) used here
-to "evaluate" the form when reading it. We suppose here that we are in a context
-where we already defined:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-reader-ctor</span> <span class="ss">'make</span> <span class="p">(</span><span class="k">lambda</span> <span class="nv">l</span> <span class="p">(</span><span class="nb">eval</span> <span class="o">`</span><span class="p">(</span><span class="nf">make</span> <span class="o">,@</span><span class="nv">l</span><span class="p">))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><strong>Comparing objects</strong><br>
-
-
-When objects are compared with the <code>eqv?</code> or <code>equal?</code> Scheme standard
-primitives, <strong><em>STklos</em></strong> calls the <code>object-eqv?</code> or <code>object-equal?</code>
-generic functions.  This facility permits to define a customized
-comparison function for a class of objects by simply defining a new
-method for this class.  Defining a new comparison method overloads the
-standard comparaison method (which always returns <code>#f</code>).  For instance
-we could define the following method to compare points:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-method</span> <span class="nv">object-eqv?</span> <span class="p">((</span><span class="nf">a</span> <span class="nv">&lt;point&gt;</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="nv">&lt;point&gt;</span><span class="p">))</span>
-  <span class="p">(</span><span class="k">and</span> <span class="p">(</span><span class="nb">=</span> <span class="p">(</span><span class="nf">point-x</span> <span class="nv">a</span><span class="p">)</span> <span class="p">(</span><span class="nf">point-x</span> <span class="nv">b</span><span class="p">))</span>
-       <span class="p">(</span><span class="nb">=</span> <span class="p">(</span><span class="nf">point-y</span> <span class="nv">a</span><span class="p">)</span> <span class="p">(</span><span class="nf">point-y</span> <span class="nv">b</span><span class="p">))))</span></code></pre>
-</div>
-</div>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_object_system_main_functions_and_syntaxes">8.3. Object System Main Functions and Syntaxes</h3>
-<div class="sect3">
-<h4 id="_classes_and_instances">8.3.1. Classes and Instances</h4>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(define-class name supers slots . options)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Creates a class whose name is <code>name</code>, and whose superclasses are in the
-list <code>supers</code>, with the slots specified by the list <code>slots</code>.</p>
-</div>
-<div class="paragraph">
-<p>As an example, this is the definition of a point:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;point&gt;</span> <span class="p">()</span>
-  <span class="p">(</span><span class="nf">x</span> <span class="nv">y</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>In another example, a class <code>&lt;circle&gt;</code> that inherits <code>&lt;point&gt;</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;circle&gt;</span> <span class="p">(</span><span class="nf">&lt;point&gt;</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">radius</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>The following options can be passed to slots:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p><code>:init-form</code> is the default value for the slot.</p>
-</li>
-<li>
-<p><code>:init-keyword</code> is the keyword for initializing the slot.</p>
-</li>
-<li>
-<p><code>:getter</code> is the name of the getter method.</p>
-</li>
-<li>
-<p><code>:setter</code> is the name of the setter method.</p>
-</li>
-<li>
-<p><code>:accessor</code> is the name of the accessor (setter and getter) method.</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>For example,</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;point&gt;</span> <span class="p">()</span>
-  <span class="p">(</span><span class="nf">x</span> <span class="nv">:init-form</span> <span class="mi">0</span> <span class="nv">:getter</span> <span class="nv">get-x</span> <span class="nv">:setter</span> <span class="nv">set-x!</span> <span class="nv">:init-keyword</span> <span class="nv">:x</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">y</span> <span class="nv">:init-form</span> <span class="mi">0</span> <span class="nv">:getter</span> <span class="nv">get-y</span> <span class="nv">:setter</span> <span class="nv">set-y!</span> <span class="nv">:init-keyword</span> <span class="nv">:y</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> also defines setters for the specified getters, so the following
-will work with the definition of <code>&lt;point&gt;</code> given above:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nf">slot-ref</span> <span class="nv">my-point</span> <span class="ss">'x</span><span class="p">)</span> <span class="mi">50</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Accessors, are methods which can be used as getter and setter, as shown bellow</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;circle&gt;</span> <span class="p">(</span><span class="nf">&lt;point&gt;</span><span class="p">)</span>
-  <span class="p">((</span><span class="nf">radius</span> <span class="nv">:accessor</span> <span class="nv">radius</span> <span class="nv">:init-keyword</span> <span class="nv">:radius</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="k">define</span> <span class="nv">x</span> <span class="p">(</span><span class="nf">make</span> <span class="nv">&lt;circle&gt;</span> <span class="nv">:radius</span> <span class="mi">100</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">radius</span> <span class="nv">x</span><span class="p">)</span>                             <span class="nv">=&gt;</span> <span class="mi">100</span>
-<span class="p">(</span><span class="k">set!</span> <span class="p">(</span><span class="nf">radius</span> <span class="nv">x</span><span class="p">)</span> <span class="mi">200</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">radius</span> <span class="nv">x</span><span class="p">)</span>                             <span class="nv">=&gt;</span> <span class="mi">200</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(allocate-instance c init-args)</code></strong><br>
-<strong><code>(make-instance c)</code></strong><br>
-<strong><code>(make c)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Make-instance</code> creates and initializes an instance of class <code>c</code>.
-<code>Allocate-instance</code> is similar, but only allocates the instance,
-without initializing it.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;X&gt;</span> <span class="p">()</span> <span class="p">((</span><span class="nf">xx</span> <span class="nv">:init-form</span> <span class="mi">10</span><span class="p">)))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">my-x</span> <span class="p">(</span><span class="nf">make-instance</span> <span class="nv">&lt;X&gt;</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">describe</span> <span class="nv">my-x</span><span class="p">)</span>
-<span class="o">#</span><span class="p">[</span><span class="nf">&lt;X&gt;</span> <span class="mi">7</span><span class="nv">fbd2e3075d0</span><span class="p">]</span> <span class="nv">is</span> <span class="nv">an</span> <span class="nv">an</span> <span class="nv">instance</span> <span class="nv">of</span> <span class="nv">class</span> <span class="nv">&lt;X&gt;</span><span class="o">.</span>
-<span class="nv">The</span> <span class="nv">only</span> <span class="nv">slot</span> <span class="nv">is:</span>
-  <span class="nv">xx</span> <span class="nv">=</span> <span class="mi">10</span>
-
-<span class="p">(</span><span class="k">define</span> <span class="nv">my-other-x</span> <span class="p">(</span><span class="nf">allocate-instance</span> <span class="nv">&lt;X&gt;</span> <span class="mi">20</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">describe</span> <span class="nv">y</span><span class="p">)</span>
-<span class="o">#</span><span class="p">[</span><span class="nf">&lt;X&gt;</span> <span class="mi">7</span><span class="nv">fbd2e2bdab0</span><span class="p">]</span> <span class="nv">is</span> <span class="nv">an</span> <span class="nv">an</span> <span class="nv">instance</span> <span class="nv">of</span> <span class="nv">class</span> <span class="nv">&lt;X&gt;</span><span class="o">.</span>
-<span class="nv">The</span> <span class="nv">only</span> <span class="nv">slot</span> <span class="nv">is:</span>
-  <span class="nv">xx</span> <span class="nv">=</span> <span class="o">#</span><span class="p">[</span><span class="nf">unbound</span><span class="p">]</span></code></pre>
-</div>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<code>make</code> is an alias for <code>make-instance</code>.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(class-name c)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the name of the class <code>c</code>,a s a symbol.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;A&gt;</span> <span class="p">()</span> <span class="p">())</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">x</span> <span class="p">(</span><span class="nf">make</span> <span class="nv">&lt;A&gt;</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">class-name</span> <span class="p">(</span><span class="nf">class-of</span> <span class="nv">x</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="nv">&lt;A&gt;</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(class-of obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Return the class of object <code>obj</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;A&gt;</span> <span class="p">()</span> <span class="p">())</span>
-<span class="p">(</span><span class="nf">class-of</span> <span class="p">(</span><span class="nf">make</span> <span class="nv">&lt;A&gt;</span><span class="p">))</span>     <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">[</span><span class="nf">&lt;class&gt;</span> <span class="nv">&lt;A&gt;</span> <span class="mi">7</span><span class="nv">f5dc5002a20</span><span class="p">]</span>
-<span class="p">(</span><span class="nf">class-of</span> <span class="no">#t</span><span class="p">)</span>             <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">[</span><span class="nf">&lt;class&gt;</span> <span class="nv">&lt;boolean&gt;</span> <span class="mi">7</span><span class="nv">f5dc551ade0</span><span class="p">]</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(class-name c)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the name of the class <code>c</code>,a s a symbol.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;A&gt;</span> <span class="p">()</span> <span class="p">())</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">x</span> <span class="p">(</span><span class="nf">make</span> <span class="nv">&lt;A&gt;</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">class-name</span> <span class="p">(</span><span class="nf">class-of</span> <span class="nv">x</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="nv">&lt;A&gt;</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(find-class name)</code></strong><br>
-<strong><code>(find-class name default)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the class whose name is equal to symbol <code>name</code>. If <code>name</code> is not
-a class instance, the <code>default</code> value is returned, if present.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(is-a? obj class)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is an instance of <code>class</code>, and <code>#f</code> otherwise.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(ensure-metaclass class-list)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Given a list of classes, returns a class which is a superclass of all
-the classes given. This superclass will be built so that it is a subclass
-of the most specific classes posible.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;A&gt;</span> <span class="p">()</span> <span class="p">())</span>
-<span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;B&gt;</span> <span class="p">(</span><span class="nf">&lt;A&gt;</span><span class="p">)</span> <span class="p">())</span>
-<span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;C&gt;</span> <span class="p">()</span> <span class="p">())</span>
-
-<span class="p">(</span><span class="nf">ensure-metaclass</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">&lt;B&gt;</span> <span class="nv">&lt;A&gt;</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="o">#</span><span class="p">[</span><span class="nf">&lt;class&gt;</span> <span class="nv">&lt;B&gt;</span> <span class="mi">7</span><span class="nv">fea2b8a3c30</span><span class="p">]</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">m</span> <span class="p">(</span><span class="nf">ensure-metaclass</span> <span class="p">(</span><span class="nb">list</span> <span class="nv">&lt;B&gt;</span> <span class="nv">&lt;A&gt;</span> <span class="nv">&lt;C&gt;</span><span class="p">)))</span>
-<span class="p">(</span><span class="nf">class-direct-superclasses</span> <span class="nv">m</span><span class="p">)</span>
-  <span class="nv">=&gt;</span> <span class="p">(</span><span class="o">#</span><span class="p">[</span><span class="nf">&lt;class&gt;</span> <span class="nv">&lt;B&gt;</span> <span class="mi">7</span><span class="nv">fea2b8a3c30</span><span class="p">]</span> <span class="o">#</span><span class="p">[</span><span class="nf">&lt;class&gt;</span> <span class="nv">&lt;C&gt;</span> <span class="mi">7</span><span class="nv">fea2b8afb40</span><span class="p">])</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_generic_functions_and_methods_2">8.3.2. Generic Functions and Methods</h4>
-<div class="paragraph">
-<p>Generic functions and methods are an important part of <strong><em>STklos</em></strong> object
-system. A generic function is a function which can have several methods with a
-behavior which depends of the type or the number of its parameters.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(define-generic gf)</code></strong><br>
-<strong><code>(define-generic gf metaclass)</code></strong><br>
-<strong><code>(define-generic gf :documentation str)</code></strong><br>
-<strong><code>(define-generic gf metaclass :documentation str)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>This function creates a new generic function named <code>gf</code>. By default, the created
-function is an instance of the class <code>&lt;generic&gt;</code>, except if <code>metaclass</code> is used.
-Using a different metaclass permits to fine tune the way methods are applied.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-Generally, it is not necessary to use <code>define-generic</code> to declare a generic
-function, since it is created the first time a method  with the name of that function
-is created. However, for the sake of documentation, or to export a generic function
-from a module which do not define methods, it is possible also to explicitly
-define the generic function before its methods.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> syntax</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>eject-eq</strong> (define-method gf args body)</code>*<br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The primitive <code>define-method</code> creates a generic method that will be added to a
-generic function <code>gf</code>, having arguments <code>args</code> and body <code>body</code>.
-<code>Args</code> is a list of arguments, and each argument can be either a single
-symbol (the argument name) or an argument specification.
-In its simplest form, a generic method behaves a lot like an ordinary
-procedure:</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-method</span> <span class="nv">square</span> <span class="p">(</span><span class="nf">x</span><span class="p">)</span>
-  <span class="p">(</span><span class="nb">*</span> <span class="nv">x</span> <span class="nv">x</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">square</span> <span class="mi">10</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="mi">100</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>In the above example, <code>x</code> is the only argument to the method, and it is
-specified as a single symbol, which means that <strong><em>any</em></strong> type of argument will
-be matched and this method will be used.</p>
-</div>
-<div class="paragraph">
-<p>An argument may also be specified in the form of a list with two elements:
-the argument name and its class. The method will only be applicable when its
-arguments are of the specified classes (or types).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-method</span> <span class="nv">++</span> <span class="p">(</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">&lt;string&gt;</span><span class="p">)</span> <span class="p">(</span><span class="nf">y</span> <span class="nv">&lt;string&gt;</span><span class="p">)</span> <span class="p">)</span>
-  <span class="p">(</span><span class="nb">string-append</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">++</span> <span class="p">(</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">&lt;number&gt;</span><span class="p">)</span> <span class="p">(</span><span class="nf">y</span> <span class="nv">&lt;number&gt;</span><span class="p">)</span> <span class="p">)</span>
-  <span class="p">(</span><span class="nb">+</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">++</span> <span class="p">(</span> <span class="p">(</span><span class="nf">x</span> <span class="nv">&lt;string&gt;</span><span class="p">)</span> <span class="p">(</span><span class="nf">y</span> <span class="nv">&lt;number&gt;</span><span class="p">)</span> <span class="p">)</span>
-  <span class="p">(</span><span class="nf">format</span> <span class="no">#f</span> <span class="p">(</span><span class="nb">string-append</span> <span class="nv">x</span> <span class="s">"~a"</span><span class="p">)</span> <span class="nv">y</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">++</span> <span class="s">"abc"</span> <span class="s">"def"</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="s">"abcdef"</span>
-<span class="p">(</span><span class="nf">++</span> <span class="mi">2</span> <span class="mf">3.5</span><span class="p">)</span>         <span class="nv">=&gt;</span> <span class="mf">5.5</span>
-<span class="p">(</span><span class="nf">++</span> <span class="mi">2</span> <span class="mi">2-3</span><span class="nv">i</span><span class="p">)</span>        <span class="nv">=&gt;</span> <span class="mi">4-3</span><span class="nv">i</span>
-<span class="p">(</span><span class="nf">++</span> <span class="s">"number: "</span> <span class="mi">10</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="s">"number: 10"</span>
-<span class="p">(</span><span class="nf">++</span> <span class="mi">3</span> <span class="s">"wrong"</span><span class="p">)</span>     <span class="nv">=&gt;</span> <span class="nv">error</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>In this example, three methods are added to the generic function <code>++</code>,
-and when the generic function is called, the appropriate method is chosen.
-When no method is applicable, an error is signaled.</p>
-</div>
-<div class="paragraph">
-<p>The classes matched in the example are <code>&lt;string&gt;</code> and <code>&lt;number&gt;</code>, but any
-class can be used. All Scheme types are built-in classes in STklos:</p>
-</div>
-<div class="paragraph">
-<p>&lt;boolean&gt;  &lt;null&gt;
-&lt;char&gt;     &lt;object&gt;
-&lt;class&gt;    &lt;pair&gt;
-&lt;complex&gt;  &lt;procedure&gt;
-&lt;eof&gt;      &lt;rational&gt;
-&lt;integer&gt;  &lt;real&gt;
-&lt;list&gt;     &lt;symbol&gt;
-&lt;vector&gt;  &#8230;&#8203;</p>
-</div>
-<div class="paragraph">
-<p>User-defined classes can also be used (and this is the main original use case
-for generic functions). A very simple example follows.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;figure&gt;</span> <span class="p">()</span>
-  <span class="p">((</span><span class="nf">pos-x</span> <span class="nv">:getter</span> <span class="nv">pos-x</span> <span class="nv">:init-keyword</span> <span class="nv">:pos-x</span><span class="p">)</span>
-   <span class="p">(</span><span class="nf">pos-y</span> <span class="nv">:getter</span> <span class="nv">pos-y</span> <span class="nv">:init-keyword</span> <span class="nv">:pos-y</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;circle&gt;</span> <span class="p">(</span><span class="nf">&lt;figure&gt;</span><span class="p">)</span>
-  <span class="p">((</span><span class="nf">radius</span> <span class="nv">:getter</span> <span class="nv">radius</span> <span class="nv">:init-keyword</span> <span class="nv">:radius</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;square&gt;</span> <span class="p">(</span><span class="nf">&lt;figure&gt;</span><span class="p">)</span>
-  <span class="p">((</span><span class="nf">side</span> <span class="nv">:getter</span> <span class="nv">side</span> <span class="nv">:init-keyword</span> <span class="nv">:side</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">describe-figure</span> <span class="p">(</span> <span class="p">(</span><span class="nf">c</span> <span class="nv">&lt;circle&gt;</span><span class="p">)</span> <span class="p">)</span>
-  <span class="p">(</span><span class="nf">format</span> <span class="no">#f</span> <span class="s">"A circle at (~a, ~a), with radius ~a.~%"</span>
-          <span class="p">(</span><span class="nf">pos-x</span> <span class="nv">c</span><span class="p">)</span>
-          <span class="p">(</span><span class="nf">pos-y</span> <span class="nv">c</span><span class="p">)</span>
-          <span class="p">(</span><span class="nf">radius</span> <span class="nv">c</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">describe-figure</span> <span class="p">(</span> <span class="p">(</span><span class="nf">s</span> <span class="nv">&lt;square&gt;</span><span class="p">)</span> <span class="p">)</span>
-  <span class="p">(</span><span class="nf">format</span> <span class="no">#f</span> <span class="s">"A square centered at (~a, ~a), with side ~a.~%"</span>
-          <span class="p">(</span><span class="nf">pos-x</span> <span class="nv">s</span><span class="p">)</span>
-          <span class="p">(</span><span class="nf">pos-y</span> <span class="nv">s</span><span class="p">)</span>
-          <span class="p">(</span><span class="nf">side</span> <span class="nv">s</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="k">define</span> <span class="nv">sq</span> <span class="p">(</span><span class="nf">make</span> <span class="nv">&lt;square&gt;</span> <span class="nv">:pos-x</span> <span class="mi">1</span> <span class="nv">:pos-y</span> <span class="mi">2</span> <span class="nv">:side</span> <span class="mi">10</span><span class="p">))</span>
-<span class="p">(</span><span class="k">define</span> <span class="nv">ci</span> <span class="p">(</span><span class="nf">make</span> <span class="nv">&lt;circle&gt;</span> <span class="nv">:pos-x</span> <span class="mi">2</span> <span class="nv">:pos-y</span> <span class="mi">2</span> <span class="nv">:radius</span> <span class="mi">5</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">describe-figure</span> <span class="nv">sq</span><span class="p">)</span>
-  <span class="nv">=&gt;</span> <span class="s">"A square centered at (1, 2), with side 10.n"</span>
-
-<span class="p">(</span><span class="nf">describe-figure</span> <span class="nv">ci</span><span class="p">)</span>
-  <span class="nv">=&gt;</span> <span class="s">"A circle at (2, 2), with radius 5.n"</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Generic methods can be created with different number of arguments, and that
-will also be one criterion to match the method.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-method</span> <span class="nv">process</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">)</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">a</span> <span class="nv">b</span> <span class="nv">c</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">process</span> <span class="p">(</span><span class="nf">a</span> <span class="nv">b</span><span class="p">)</span> <span class="p">(</span><span class="nb">*</span> <span class="nv">a</span> <span class="nv">b</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">process</span> <span class="mi">2</span> <span class="mi">3</span><span class="p">)</span>   <span class="nv">=&gt;</span> <span class="mi">6</span>
-<span class="p">(</span><span class="nf">process</span> <span class="mi">2</span> <span class="mi">3</span> <span class="mi">4</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="mi">9</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(next-method)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Inside a method, one can use the <code>(next-method)</code>  to call the next
-applicable method.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-method</span> <span class="nv">class-list</span> <span class="p">((</span><span class="nf">obj</span> <span class="nv">&lt;integer&gt;</span><span class="p">))</span>  <span class="p">(</span><span class="nb">cons</span> <span class="ss">'integer</span>  <span class="p">(</span><span class="nf">next-method</span><span class="p">)))</span>
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">class-list</span> <span class="p">((</span><span class="nf">obj</span> <span class="nv">&lt;rational&gt;</span><span class="p">))</span> <span class="p">(</span><span class="nb">cons</span> <span class="ss">'rational</span> <span class="p">(</span><span class="nf">next-method</span><span class="p">)))</span>
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">class-list</span> <span class="p">((</span><span class="nf">obj</span> <span class="nv">&lt;real&gt;</span><span class="p">))</span>     <span class="p">(</span><span class="nb">cons</span> <span class="ss">'real</span>     <span class="p">(</span><span class="nf">next-method</span><span class="p">)))</span>
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">class-list</span> <span class="p">((</span><span class="nf">obj</span> <span class="nv">&lt;complex&gt;</span><span class="p">))</span>  <span class="p">(</span><span class="nb">cons</span> <span class="ss">'complex</span>  <span class="p">(</span><span class="nf">next-method</span><span class="p">)))</span>
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">class-list</span> <span class="p">((</span><span class="nf">obj</span> <span class="nv">&lt;number&gt;</span><span class="p">))</span>   <span class="p">(</span><span class="nb">cons</span> <span class="ss">'number</span>   <span class="p">(</span><span class="nf">next-method</span><span class="p">)))</span>
-<span class="p">(</span><span class="nf">define-method</span> <span class="nv">class-list</span> <span class="p">((</span><span class="nf">obj</span> <span class="nv">&lt;top&gt;</span><span class="p">))</span>      <span class="p">(</span><span class="nb">list</span> <span class="ss">'top</span><span class="p">))</span>
-
-<span class="p">(</span><span class="nf">class-list</span> <span class="mf">2.3</span><span class="p">)</span>  <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">real</span> <span class="nv">complex</span> <span class="nv">number</span> <span class="nv">top</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">class-list</span> <span class="mi">2</span><span class="p">)</span>    <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">integer</span> <span class="nv">rational</span> <span class="nv">real</span> <span class="nv">complex</span> <span class="nv">number</span> <span class="nv">top</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">class-list</span> <span class="mi">1-2</span><span class="nv">i</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">complex</span> <span class="nv">number</span> <span class="nv">top</span><span class="p">)</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect3">
-<h4 id="_misc_2">8.3.3. Misc.</h4>
-<div class="paragraph">
-<p>
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(class-direct-superclasses c)</code></strong><br>
-<strong><code>(class-direct-subclasses c)</code></strong><br>
-<strong><code>(class-precedence-list c)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>class-direct-superclasses</code> and <code>class-direct-subclasses</code> return a list with
-all direct superclasses or subclasses of class <code>c</code>.</p>
-</div>
-<div class="paragraph">
-<p><code>class-precedence-list</code> returns the precedence list for class <code>c</code>. If
-<code>c</code> is a superclass of several classes, this list shows what precedence
-each superlclass has when resolving names of attributes and methods in
-<code>c</code>.</p>
-</div>
-<div class="paragraph">
-<p>The items returned in the list are classes. Use <code>class-name</code> to obtain
-their names.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;A&gt;</span> <span class="p">()</span> <span class="p">(</span><span class="nf">slot-one</span> <span class="nv">slot-two</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;B&gt;</span> <span class="p">()</span> <span class="p">())</span>
-<span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;C&gt;</span> <span class="p">(</span><span class="nf">&lt;A&gt;</span> <span class="nv">&lt;B&gt;</span><span class="p">)</span> <span class="p">(</span><span class="nf">slot-one</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;D&gt;</span> <span class="p">(</span><span class="nf">&lt;A&gt;</span><span class="p">)</span> <span class="p">())</span>
-
-<span class="p">(</span><span class="nb">map</span> <span class="nv">class-name</span> <span class="p">(</span><span class="nf">class-direct-superclasses</span> <span class="nv">&lt;C&gt;</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">&lt;A&gt;</span> <span class="nv">&lt;B&gt;</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">map</span> <span class="nv">class-name</span> <span class="p">(</span><span class="nf">class-direct-superclasses</span> <span class="nv">&lt;D&gt;</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">&lt;A&gt;</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">map</span> <span class="nv">class-name</span> <span class="p">(</span><span class="nf">class-direct-subclasses</span> <span class="nv">&lt;A&gt;</span><span class="p">))</span>   <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">&lt;D&gt;</span> <span class="nv">&lt;C&gt;</span><span class="p">)</span>
-<span class="p">(</span><span class="nb">map</span> <span class="nv">class-name</span> <span class="p">(</span><span class="nf">class-precedence-list</span> <span class="nv">&lt;C&gt;</span><span class="p">))</span>     <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">&lt;C&gt;</span> <span class="nv">&lt;A&gt;</span> <span class="nv">&lt;B&gt;</span> <span class="nv">&lt;object&gt;</span> <span class="nv">&lt;top&gt;</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Slot-one</code> in class <code>&lt;C&gt;</code> refers to the slot defined in <code>&lt;C&gt;</code> (because
-it is present in both <code>&lt;A&gt;</code> and <code>&lt;C&gt;</code>, but <code>&lt;C&gt;</code> has precedence over
-<code>&lt;A&gt;</code>). <code>Slot-two</code> in <code>&lt;C&gt;</code> can only be the one defined in <code>&lt;A&gt;</code>.</p>
-</div>
-<div class="paragraph">
-<p>
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(class-slots c)</code></strong><br>
-<strong><code>(class-direct-slots c)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Class-slots</code> returns a list of the slots in class <code>c</code>,  including
-those inherited from other classes.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">class-slots</span> <span class="nv">&lt;A&gt;</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">a</span> <span class="o">#</span><span class="nv">:init-form</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="nf">b</span> <span class="o">#</span><span class="nv">:init-form</span> <span class="mi">2</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">class-slots</span> <span class="nv">&lt;C&gt;</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">b</span> <span class="o">#</span><span class="nv">:init-form</span> <span class="mi">2</span><span class="p">)</span> <span class="p">(</span><span class="nf">a</span> <span class="o">#</span><span class="nv">:init-form</span> <span class="mi">3</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Class-direct-slots</code> returns a list with the names of the slots that
-were defined directly in the class (excluding the inherited slots).</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">class-direct-slots</span> <span class="nv">&lt;B&gt;</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">a</span> <span class="o">#</span><span class="nv">:init-form</span> <span class="mi">3</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(class-slot-definition c s)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p><code>Class-slot-definition</code> returns the definition of slot <code>s</code>
-in class <code>c</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">define-class</span> <span class="nv">&lt;A&gt;</span> <span class="p">()</span>
-  <span class="p">((</span><span class="nf">slot-one</span> <span class="nv">:init-form</span> <span class="ss">'none</span> <span class="nv">:getter</span> <span class="nv">get-one</span><span class="p">)</span>
-   <span class="p">(</span><span class="nf">slot-two</span> <span class="nv">:init-form</span> <span class="ss">'nada</span> <span class="nv">:init-keyword</span> <span class="nv">:two</span><span class="p">)))</span>
-
-<span class="p">(</span><span class="nf">class-slot-definition</span> <span class="nv">&lt;A&gt;</span> <span class="ss">'slot-two</span><span class="p">)</span>
-  <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">slot-two</span> <span class="o">#</span><span class="nv">:init-form</span> <span class="ss">'nada</span> <span class="o">#</span><span class="nv">:init-keyword</span> <span class="o">#</span><span class="nv">:two</span><span class="p">)</span>
-
-<span class="p">(</span><span class="nf">class-slots</span> <span class="nv">&lt;A&gt;</span><span class="p">)</span>
-  <span class="nv">=&gt;</span> <span class="p">((</span><span class="nf">slot-one</span> <span class="o">#</span><span class="nv">:init-form</span> <span class="ss">'none</span> <span class="o">#</span><span class="nv">:getter</span> <span class="nv">get-one</span><span class="p">)</span>
-      <span class="p">(</span><span class="nf">slot-two</span> <span class="o">#</span><span class="nv">:init-form</span> <span class="ss">'nada</span> <span class="o">#</span><span class="nv">:init-keyword</span> <span class="o">#</span><span class="nv">:two</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>
-
-
-
-
-
-
-</p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(slot-definition-name s)</code></strong><br>
-<strong><code>(slot-definition-options s)</code></strong><br>
-<strong><code>(slot-definition-allocation s)</code></strong><br>
-<strong><code>(slot-definition-getter s)</code></strong><br>
-<strong><code>(slot-definition-setter s)</code></strong><br>
-<strong><code>(slot-definition-accessor s)</code></strong><br>
-<strong><code>(slot-definition-init-form s)</code></strong><br>
-<strong><code>(slot-definition-init-keyword s)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>These procedures operate on slot definitions (the lists included in class
-definitions). They return the slot name, the list of options, the slot
-allocation, and the getter, setter, accessor, init-form and init-keyword
-of a slot, as returned by <code>class-slots</code> or by <code>class-slot-definition</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">slot-definition-name</span> <span class="o">'</span><span class="p">(</span><span class="nf">x</span> <span class="o">#</span><span class="nv">:init-form</span> <span class="mi">0</span>  <span class="o">#</span><span class="nv">:accessor</span> <span class="nv">x</span><span class="p">))</span>       <span class="nv">=&gt;</span> <span class="nv">x</span>
-<span class="p">(</span><span class="nf">slot-definition-accessor</span> <span class="o">'</span><span class="p">(</span><span class="nf">x</span> <span class="o">#</span><span class="nv">:init-form</span> <span class="mi">0</span>  <span class="o">#</span><span class="nv">:accessor</span> <span class="nv">x</span><span class="p">))</span>   <span class="nv">=&gt;</span> <span class="nv">x</span>
-<span class="p">(</span><span class="nf">slot-definition-allocation</span> <span class="o">'</span><span class="p">(</span><span class="nf">x</span> <span class="o">#</span><span class="nv">:init-form</span> <span class="mi">0</span>  <span class="o">#</span><span class="nv">:accessor</span> <span class="nv">x</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="nv">instance</span>
-<span class="p">(</span><span class="nf">slot-definition-options</span> <span class="o">'</span><span class="p">(</span><span class="nf">x</span> <span class="o">#</span><span class="nv">:init-form</span> <span class="mi">0</span> <span class="o">#</span><span class="nv">:accessor</span> <span class="nv">x</span><span class="p">))</span>
- <span class="nv">=&gt;</span> <span class="p">(</span><span class="o">#</span><span class="nv">:init-form</span> <span class="mi">0</span> <span class="o">#</span><span class="nv">:accessor</span> <span class="nv">x</span><span class="p">)</span></code></pre>
-</div>
-</div>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_exceptions_and_conditions.html">Exceptions and Conditions</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_threads_mutexes_and_condition_variables.html">Threads, Mutexes and Condition Variables</a> →</p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. In fact <code>define-module</code> on a given name defines a new module only the first time it is invoked on this name. By this way, interactively reloading a module does not define a new entity, and the other modules which use it are not altered.
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. This transcript uses the default toplevel loop             which displays the name of the current module in the evaluator             prompt.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Under Unix, you can simply connect to a listening socket with the <code>telnet</code> of <code>netcat</code> command. For the given example, this can be achieved with <code>netcat localhost 12345</code>
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. Port 13, if open, can be used for testing: making a connection to it permits to know the distant system&#8217;s idea of the time of day.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. The "pattern matching compiler" has been written by Jean-Marie Geffroy and is part of the Manuel Serrano&#8217;s Bigloo compiler since several years <a href="_bibliography.html#Bigloo">[Bigloo]</a>
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. This section is an adaptation of Jeff Dalton&#8217;s (<a href="mailto:J.Dalton@ed.ac.uk">J.Dalton@ed.ac.uk</a>) "<strong><em>Brief introduction to CLOS</em></strong>" which can be found at <a href="http://www.aiai.ed.ac.uk/~jeff/clos-guide.html" class="bare">http://www.aiai.ed.ac.uk/~jeff/clos-guide.html</a>
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_threads_mutexes_and_condition_variables.html b/doc/HTML/_threads_mutexes_and_condition_variables.html
deleted file mode 100644
index 2ba56e807..000000000
--- a/doc/HTML/_threads_mutexes_and_condition_variables.html
+++ /dev/null
@@ -1,1672 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<style>
-pre.rouge table td { padding: 5px; }
-pre.rouge table pre { margin: 0; }
-pre.rouge .c, pre.rouge .ch, pre.rouge .cd, pre.rouge .cpf {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cm {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .c1 {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cp {
-  color: #75715e;
-  font-weight: bold;
-}
-pre.rouge .cs {
-  color: #75715e;
-  font-weight: bold;
-  font-style: italic;
-}
-pre.rouge .err {
-  color: #960050;
-  background-color: #1e0010;
-}
-pre.rouge .gi {
-  color: #ffffff;
-  background-color: #324932;
-}
-pre.rouge .gd {
-  color: #ffffff;
-  background-color: #493131;
-}
-pre.rouge .ge {
-  color: #000000;
-  font-style: italic;
-}
-pre.rouge .gr {
-  color: #aa0000;
-}
-pre.rouge .gt {
-  color: #aa0000;
-}
-pre.rouge .gh {
-  color: #999999;
-}
-pre.rouge .go {
-  color: #888888;
-}
-pre.rouge .gp {
-  color: #555555;
-}
-pre.rouge .gs {
-  font-weight: bold;
-}
-pre.rouge .gu {
-  color: #aaaaaa;
-}
-pre.rouge .k, pre.rouge .kv {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kc {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kd {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kp {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kr {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kt {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kn {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .ow {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .o {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .mf {
-  color: #ae81ff;
-}
-pre.rouge .mh {
-  color: #ae81ff;
-}
-pre.rouge .il {
-  color: #ae81ff;
-}
-pre.rouge .mi {
-  color: #ae81ff;
-}
-pre.rouge .mo {
-  color: #ae81ff;
-}
-pre.rouge .m, pre.rouge .mb, pre.rouge .mx {
-  color: #ae81ff;
-}
-pre.rouge .se {
-  color: #ae81ff;
-}
-pre.rouge .sa {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .sb {
-  color: #e6db74;
-}
-pre.rouge .sc {
-  color: #e6db74;
-}
-pre.rouge .sd {
-  color: #e6db74;
-}
-pre.rouge .s2 {
-  color: #e6db74;
-}
-pre.rouge .sh {
-  color: #e6db74;
-}
-pre.rouge .si {
-  color: #e6db74;
-}
-pre.rouge .sx {
-  color: #e6db74;
-}
-pre.rouge .sr {
-  color: #e6db74;
-}
-pre.rouge .s1 {
-  color: #e6db74;
-}
-pre.rouge .ss {
-  color: #e6db74;
-}
-pre.rouge .s, pre.rouge .dl {
-  color: #e6db74;
-}
-pre.rouge .na {
-  color: #a6e22e;
-}
-pre.rouge .nc {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nd {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .ne {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nf, pre.rouge .fm {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .no {
-  color: #66d9ef;
-}
-pre.rouge .bp {
-  color: #f8f8f2;
-}
-pre.rouge .nb {
-  color: #f8f8f2;
-}
-pre.rouge .ni {
-  color: #f8f8f2;
-}
-pre.rouge .nn {
-  color: #f8f8f2;
-}
-pre.rouge .vc {
-  color: #f8f8f2;
-}
-pre.rouge .vg {
-  color: #f8f8f2;
-}
-pre.rouge .vi {
-  color: #f8f8f2;
-}
-pre.rouge .nv, pre.rouge .vm {
-  color: #f8f8f2;
-}
-pre.rouge .w {
-  color: #f8f8f2;
-}
-pre.rouge .nl {
-  color: #f8f8f2;
-  font-weight: bold;
-}
-pre.rouge .nt {
-  color: #f92672;
-}
-pre.rouge {
-  color: #f8f8f2;
-  background-color: #49483e;
-}
-</style>
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_threads_mutexes_and_condition_variables" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html"><span class="toc-current">9. Threads, Mutexes and Condition Variables</span></a>
-<ul class="sectlevel2">
-<li><a href="_threads_mutexes_and_condition_variables.html#_threads">9.1. Threads</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html#_mutexes">9.2. Mutexes</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html#_condition_variables">9.3. Condition Variables</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html#_conditions_2">9.4. Conditions</a>
-</li>
-</ul>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_threads_mutexes_and_condition_variables">9. Threads, Mutexes and Condition Variables</h2>
-<div class="sectionbody">
-<div class="paragraph">
-<p>
-
-
-
-The thread system provides the following data types:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>Thread (a virtual processor which shares object
-space with all other threads)</p>
-</li>
-<li>
-<p>Mutex (a mutual exclusion device,
-also known as a lock and binary semaphore)</p>
-</li>
-<li>
-<p>Condition variable (a set of blocked threads)</p>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>The <strong><em>STklos</em></strong> thread system is conform to <strong><a href="http://srfi.schemers.org/srfi-18/srfi-18.html">SRFI-18</a></strong> (<em>Multithreading support</em>), and implement
-all the SRFI mechanisms. See this SRFI documentation for a more complete
-description</p>
-</div>
-<div class="sect2">
-<h3 id="_threads">9.1. Threads</h3>
-<div id="make-thread" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-thread thunk)</code></strong><br>
-<strong><code>(make-thread thunk name)</code></strong><br>
-<strong><code>(make-thread thunk name stack-size)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a new thread. This thread is not automatically made runnable
-(the procedure <code>thread-start!</code> must be used for this). A thread has the
-following fields:  name, specific, end-result, end-exception, and a list
-of locked/owned mutexes it owns. The thread&#8217;s execution consists of a call
-to thunk with the "initial continuation". This continuation causes the
-(then) current thread to store the result in its end-result field, abandon
-all mutexes it owns, and finally terminate. The dynamic-wind
-stack of the initial continuation is empty. The optional name is an
-arbitrary Scheme object which identifies the thread (useful for debugging);
-it defaults to an unspecified value. The specific field is set to an
-unspecified value.  The thread inherits the dynamic environment from the
-current thread. Moreover, in this dynamic environment the exception handler
-is bound to the "initial exception handler" which is a unary procedure
-which causes the (then) current thread to store in its end-exception
-field an "uncaught exception" object whose "reason" is the argument
-of the handler, abandon all mutexes it owns, and finally terminate.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-The optional parameter <code>stack-size</code> permits to specify
-the size (in words) reserved for the thread. This option does not exist
-in <strong><a href="http://srfi.schemers.org/srfi-18/srfi-18.html">SRFI-18</a></strong>.
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(current-thread)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the current thread.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nb">eq?</span> <span class="p">(</span><span class="nf">current-thread</span><span class="p">)</span> <span class="p">(</span><span class="nf">current-thread</span><span class="p">))</span>  <span class="nv">=&gt;</span>  <span class="no">#t</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(thread-start! thread)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Makes <code>thread</code> runnable. The <code>thread</code> must be a new thread.
-<code>Thread-start!</code> returns the thread.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">t</span> <span class="p">(</span><span class="nf">thread-start!</span> <span class="p">(</span><span class="nf">make-thread</span>
-                           <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="p">(</span><span class="nb">write</span> <span class="ss">'a</span><span class="p">))))))</span>
-   <span class="p">(</span><span class="nb">write</span> <span class="ss">'b</span><span class="p">)</span>
-   <span class="p">(</span><span class="nf">thread-join!</span> <span class="nv">t</span><span class="p">))</span>       <span class="nv">=&gt;</span>  <span class="nv">unspecified</span>
-                               <span class="nv">after</span> <span class="nv">writing</span> <span class="nv">ab</span> <span class="nv">or</span> <span class="nv">ba</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(thread-yield!)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The current thread exits the running state as if its quantum had
-expired. <code>Thread-yield!</code> returns an unspecified value.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(thread-terminate! thread)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Causes an abnormal termination of the <code>thread</code>. If the <code>thread</code> is not
-already terminated, all mutexes owned by the <code>thread</code> become
-unlocked/abandoned and a "terminated thread exception" object is stored
-in the thread&#8217;s end-exception field. If <code>thread</code> is the current thread,
-<code>thread-terminate!</code> does not return. Otherwise, <code>thread-terminate!</code>
-returns an unspecified value; the termination of the thread will occur
-before <code>thread-terminate!</code> returns.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<div class="ulist">
-<ul>
-<li>
-<p>This operation must be used carefully because it terminates a thread
-abruptly and it is impossible for that thread to perform any kind of
-cleanup. This may be a problem if the thread is in the middle of a
-critical section where some structure has been put in an inconsistent
-state. However, another thread attempting to enter this critical section
-will raise an "abandoned mutex exception" because the mutex is
-unlocked/abandoned.</p>
-</li>
-<li>
-<p>On <em>Android</em>, <code>thread-terminate!</code> can be used only to terminate the
-current thread.  Trying to kill another thread produces an error.</p>
-</li>
-</ul>
-</div>
-</td>
-</tr>
-</table>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(thread-sleep! timeout)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The current thread waits until the <code>timeout</code> is reached. This blocks the
-thread only if timeout represents a point in the future. It is an error
-for timeout to be <code>#f</code>. <code>Thread-sleep!</code> returns an unspecified value.</p>
-</div>
-<div id="thread-join" class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(thread-join! thread)</code></strong><br>
-<strong><code>(thread-join! thread timeout)</code></strong><br>
-<strong><code>(thread-join! thread timeout timeout-val)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>The current thread waits until the <code>thread</code> terminates (normally or not)
-or until the timeout is reached if <code>timeout</code> is supplied.
-If the timeout is reached, <code>thread-join!</code> returns <code>timeout-val</code> if it is
-supplied, otherwise a "join timeout exception" is raised.
-If the <code>thread</code> terminated normally, the content of the end-result
-field is returned, otherwise the content of the end-exception field
-is raised.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">t</span> <span class="p">(</span><span class="nf">thread-start!</span> <span class="p">(</span><span class="nf">make-thread</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span>
-                                       <span class="p">(</span><span class="nb">expt</span> <span class="mi">2</span> <span class="mi">100</span><span class="p">))))))</span>
-  <span class="p">(</span><span class="nf">thread-sleep!</span> <span class="mi">1</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">thread-join!</span> <span class="nv">t</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mi">1267650600228229401496703205376</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(thread? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a thread, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">thread?</span> <span class="p">(</span><span class="nf">current-thread</span><span class="p">))</span>  <span class="nv">=&gt;</span> <span class="no">#t</span>
-<span class="p">(</span><span class="nf">thread?</span> <span class="ss">'foo</span><span class="p">)</span>              <span class="nv">=&gt;</span> <span class="no">#f</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(thread-name thread)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the name of the <code>thread</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">thread-name</span> <span class="p">(</span><span class="nf">make-thread</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="no">#f</span><span class="p">)</span> <span class="ss">'foo</span><span class="p">))</span>  <span class="nv">=&gt;</span>  <span class="nv">foo</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(thread-stack-size thread)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the allocated stack size for <code>thread</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">thread-stack-size</span> <span class="p">(</span><span class="nf">make-thread</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">()</span> <span class="no">#f</span><span class="p">)</span> <span class="ss">'foo</span> <span class="mi">2000</span><span class="p">))</span> <span class="nv">=&gt;</span> <span class="mi">2000</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>Note that this procedure is not present in <strong><a href="http://srfi.schemers.org/srfi-18/srfi-18.html">SRFI-18</a></strong>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(thread-specific thread)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the content of the `thread&#8217;s specific field.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(thread-specific-set! thread)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Stores <code>obj</code> into the <code>thread&#8217;s specific field. `Thread-specific-set!</code>
-returns an unspecified value.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">thread-specific-set!</span> <span class="p">(</span><span class="nf">current-thread</span><span class="p">)</span> <span class="s">"hello"</span><span class="p">)</span>
-           <span class="nv">=&gt;</span>  <span class="nv">unspecified</span>
-<span class="p">(</span><span class="nf">thread-specific</span> <span class="p">(</span><span class="nf">current-thread</span><span class="p">))</span>
-           <span class="nv">=&gt;</span>  <span class="s">"hello"</span></code></pre>
-</div>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_mutexes">9.2. Mutexes</h3>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-mutex)</code></strong><br>
-<strong><code>(make-mutex name)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a new mutex in the unlocked/not-abandoned state. The optional <code>name</code>
-is an arbitrary Scheme object which identifies the mutex
-(useful for debugging); it defaults to an unspecified value.
-The mutex&#8217;s specific field is set to an unspecified value.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(mutex? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if obj is a mutex, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(mutex-name mutex)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the name of the <code>mutex</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">mutex-name</span> <span class="p">(</span><span class="nf">make-mutex</span> <span class="ss">'foo</span><span class="p">))</span>  <span class="nv">=&gt;</span>  <span class="nv">foo</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(mutex-specific mutex)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the content of the `mutex&#8217;s specific field.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(mutex-specific! mutex obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Stores <code>obj</code> into the `mutex&#8217;s specific field and eturns an unspecified value.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="nv">m</span> <span class="p">(</span><span class="nf">make-mutex</span><span class="p">))</span>
-<span class="p">(</span><span class="nf">mutex-specific-set!</span> <span class="nv">m</span> <span class="s">"hello"</span><span class="p">)</span>  <span class="nv">=&gt;</span>  <span class="nv">unspecified</span>
-<span class="p">(</span><span class="nf">mutex-specific</span> <span class="nv">m</span><span class="p">)</span>               <span class="nv">=&gt;</span>  <span class="s">"hello"</span>
-
-<span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">mutex-lock-recursively!</span> <span class="nv">mutex</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">eq?</span> <span class="p">(</span><span class="nf">mutex-state</span> <span class="nv">mutex</span><span class="p">)</span> <span class="p">(</span><span class="nf">current-thread</span><span class="p">))</span>
-      <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">n</span> <span class="p">(</span><span class="nf">mutex-specific</span> <span class="nv">mutex</span><span class="p">)))</span>
-        <span class="p">(</span><span class="nf">mutex-specific-set!</span> <span class="nv">mutex</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">n</span> <span class="mi">1</span><span class="p">)))</span>
-      <span class="p">(</span><span class="k">begin</span>
-        <span class="p">(</span><span class="nf">mutex-lock!</span> <span class="nv">mutex</span><span class="p">)</span>
-        <span class="p">(</span><span class="nf">mutex-specific-set!</span> <span class="nv">mutex</span> <span class="mi">0</span><span class="p">))))</span>
-
-<span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">mutex-unlock-recursively!</span> <span class="nv">mutex</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">n</span> <span class="p">(</span><span class="nf">mutex-specific</span> <span class="nv">mutex</span><span class="p">)))</span>
-    <span class="p">(</span><span class="k">if</span> <span class="p">(</span><span class="nb">=</span> <span class="nv">n</span> <span class="mi">0</span><span class="p">)</span>
-        <span class="p">(</span><span class="nf">mutex-unlock!</span> <span class="nv">mutex</span><span class="p">)</span>
-        <span class="p">(</span><span class="nf">mutex-specific-set!</span> <span class="nv">mutex</span> <span class="p">(</span><span class="nb">-</span> <span class="nv">n</span> <span class="mi">1</span><span class="p">)))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(mutex-state mutex)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns information about the state of the <code>mutex</code>. The possible results
-are:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>a thread <strong>T</strong>: the mutex is in the locked/owned state and
-thread <strong>T</strong> is the owner of the mutex</p>
-</li>
-<li>
-<p>the symbol <strong>not-owned</strong>: the mutex is in the locked/not-owned
-state</p>
-</li>
-<li>
-<p>the symbol <strong>abandoned</strong>: the mutex is in the unlocked/abandoned
-state</p>
-</li>
-<li>
-<p>the symbol <strong>not-abandoned</strong>: the mutex is in the
-unlocked/not-abandoned state</p>
-</li>
-</ul>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">mutex-state</span> <span class="p">(</span><span class="nf">make-mutex</span><span class="p">))</span>  <span class="nv">=&gt;</span>  <span class="nv">not-abandoned</span>
-
-<span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">thread-alive?</span> <span class="nv">thread</span><span class="p">)</span>
-  <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">mutex</span> <span class="p">(</span><span class="nf">make-mutex</span><span class="p">)))</span>
-    <span class="p">(</span><span class="nf">mutex-lock!</span> <span class="nv">mutex</span> <span class="no">#f</span> <span class="nv">thread</span><span class="p">)</span>
-    <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">state</span> <span class="p">(</span><span class="nf">mutex-state</span> <span class="nv">mutex</span><span class="p">)))</span>
-      <span class="p">(</span><span class="nf">mutex-unlock!</span> <span class="nv">mutex</span><span class="p">)</span> <span class="c1">; avoid space leak</span>
-      <span class="p">(</span><span class="nb">eq?</span> <span class="nv">state</span> <span class="nv">thread</span><span class="p">))))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(mutex-lock! mutex)</code></strong><br>
-<strong><code>(mutex-lock! mutex timeout)</code></strong><br>
-<strong><code>(mutex-lock! mutex timeout thread)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>If the <code>mutex</code> is currently locked, the current thread waits until the
-<code>mutex</code> is unlocked, or until the timeout is reached if <code>timeout</code> is supplied.
-If the <code>timeout</code> is reached, <code>mutex-lock!</code> returns <code>#f</code>.
-Otherwise, the state of the mutex is changed as follows:</p>
-</div>
-<div class="ulist">
-<ul>
-<li>
-<p>if thread is <code>#f</code> the mutex becomes <em>locked/not-owned</em>,</p>
-</li>
-<li>
-<p>otherwise, let T be thread (or the current thread if thread
-is not supplied),</p>
-<div class="ulist">
-<ul>
-<li>
-<p>if T is terminated the mutex becomes <em>unlocked/abandoned</em>,</p>
-</li>
-<li>
-<p>otherwise mutex becomes <em>locked/owned</em> with T as the owner.</p>
-</li>
-</ul>
-</div>
-</li>
-</ul>
-</div>
-<div class="paragraph">
-<p>After changing the state of the mutex, an "abandoned mutex exception" is
-raised if the mutex was unlocked/abandoned before the state change,
-otherwise <code>mutex-lock!</code> returns <code>#t</code>.</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="k">define</span> <span class="p">(</span><span class="nf">sleep!</span> <span class="nv">timeout</span><span class="p">)</span>
-  <span class="c1">;; an alternate implementation of thread-sleep!</span>
-  <span class="p">(</span><span class="k">let</span> <span class="p">((</span><span class="nf">m</span> <span class="p">(</span><span class="nf">make-mutex</span><span class="p">)))</span>
-  <span class="p">(</span><span class="nf">mutex-lock!</span> <span class="nv">m</span> <span class="no">#f</span> <span class="no">#f</span><span class="p">)</span>
-  <span class="p">(</span><span class="nf">mutex-lock!</span> <span class="nv">m</span> <span class="nv">timeout</span> <span class="no">#f</span><span class="p">)))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(mutex-unlock! mutex)</code></strong><br>
-<strong><code>(mutex-unlock! mutex condition-variable)</code></strong><br>
-<strong><code>(mutex-unlock! mutex condition-variable timeout)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Unlocks the <code>mutex</code> by making it unlocked/not-abandoned. It is not an error
-to unlock an unlocked mutex and a mutex that is owned by any thread.
-If <code>condition-variable</code> is supplied, the current thread is blocked and
-added to the <code>condition-variable</code> before unlocking <code>mutex</code>; the thread
-can unblock at any time but no later than when an appropriate call to
-<code>condition-variable-signal!</code> or <code>condition-variable-broadcast!</code> is
-performed (see below), and no later than the timeout (if timeout is
-supplied). If there are threads waiting to lock this mutex, the scheduler
-selects a thread, the <code>mutex</code> becomes locked/owned or locked/not-owned,
-and the thread is unblocked. <code>mutex-unlock!</code> returns <code>#f</code> when the
-<code>timeout</code> is reached, otherwise it returns <code>#t</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(with-mutex mtx &lt;thunk&gt;)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Executes <code>thunk</code>, protected by mutex <code>mtx</code>. The mutex will
-be locked before and released after execution of <code>body</code>, and
-also on entrance or departure of its dynamic context
-(lock and unlock are used within <code>dynamic-wind</code>).</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_condition_variables">9.3. Condition Variables</h3>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(make-conditon-variable)</code></strong><br>
-<strong><code>(make-conditon-variable name)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns a new empty condition variable. The optional <code>name</code> is an arbitrary
-Scheme object which identifies the condition variable (useful for debugging);
-it defaults to an unspecified value. The condition variable&#8217;s specific
-field is set to an unspecified value.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(conditon-variable? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a condition variable, otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(conditon-variable-name conditon-variable)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the name of the <code>condition-variable</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(conditon-variable-specific conditon-variable)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the content of the `condition-variable&#8217;s specific field.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(conditon-variable-specific-set! conditon-variable obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Stores <code>obj</code> into the `condition-variable&#8217;s specific field.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(condition-variable-signal! condition-variable)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>If there are threads blocked on the <code>condition-variable</code>, the scheduler
-selects a thread and unblocks it. <code>Condition-variable-signal!</code>  returns
-an unspecified value.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(condition-variable-broadcast! condition-variable)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Unblocks all the threads blocked on the <code>condition-variable</code>.
-<code>Condition-variable-broadcast!</code> returns an unspecified value.</p>
-</div>
-</div>
-<div class="sect2">
-<h3 id="_conditions_2">9.4. Conditions</h3>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(join-timeout-exception? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a <em>join timeout exception</em> object,
-otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p>A <em>join timeout exception</em> is raised when thread-join! is called, the timeout
-is reached and no timeout-val is supplied.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(abandoned-mutex-exception? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is an <em>abandoned mutex exception</em> object,
-otherwise returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p>An <em>abandoned mutex exception</em> is raised when the current thread locks
-a mutex that was owned by a thread which terminated ,(see <code>mutex-lock!</code>).</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(terminated-thread-exception? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is a <em>terminated thread exception</em> object, otherwise
-returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p>A <em>terminated thread exception</em> is raised when thread-join! is
-called and the target thread has terminated as a result of a call to
-<code>thread-terminate!</code>.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(uncaught-exception? obj)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns <code>#t</code> if <code>obj</code> is an <em>uncaught exception</em> object, otherwise
-returns <code>#f</code>.</p>
-</div>
-<div class="paragraph">
-<p>An <em>uncaught exception</em> is raised when <code>thread-join!</code> is called and the
-target thread has terminated because it raised an exception that called
-the initial exception handler of that thread.</p>
-</div>
-<div class="paragraph">
-<p></p>
-</div>
-<div class="paragraph text-right">
-<p><span class="rmargin small"><em>STklos</em> procedure</span></p>
-</div>
-<div class="sidebarblock">
-<div class="content">
-<div class="paragraph small">
-<p><strong><code>(uncaught-exception-reason exc)</code></strong><br></p>
-</div>
-</div>
-</div>
-<div class="paragraph">
-<p>Returns the object which was passed to the initial exception handler
-of that thread (<code>exc</code> must be an <em>uncaught exception</em> object).</p>
-</div>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_stklos_object_system.html">STklos Object System</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_stklos_customization.html">STklos Customization</a> →</p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. In fact <code>define-module</code> on a given name defines a new module only the first time it is invoked on this name. By this way, interactively reloading a module does not define a new entity, and the other modules which use it are not altered.
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. This transcript uses the default toplevel loop             which displays the name of the current module in the evaluator             prompt.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Under Unix, you can simply connect to a listening socket with the <code>telnet</code> of <code>netcat</code> command. For the given example, this can be achieved with <code>netcat localhost 12345</code>
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. Port 13, if open, can be used for testing: making a connection to it permits to know the distant system&#8217;s idea of the time of day.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. The "pattern matching compiler" has been written by Jean-Marie Geffroy and is part of the Manuel Serrano&#8217;s Bigloo compiler since several years <a href="_bibliography.html#Bigloo">[Bigloo]</a>
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. This section is an adaptation of Jeff Dalton&#8217;s (<a href="mailto:J.Dalton@ed.ac.uk">J.Dalton@ed.ac.uk</a>) "<strong><em>Brief introduction to CLOS</em></strong>" which can be found at <a href="http://www.aiai.ed.ac.uk/~jeff/clos-guide.html" class="bare">http://www.aiai.ed.ac.uk/~jeff/clos-guide.html</a>
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/_using_the_slib_package.html b/doc/HTML/_using_the_slib_package.html
deleted file mode 100644
index 79fd9a191..000000000
--- a/doc/HTML/_using_the_slib_package.html
+++ /dev/null
@@ -1,879 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<style>
-pre.rouge table td { padding: 5px; }
-pre.rouge table pre { margin: 0; }
-pre.rouge .c, pre.rouge .ch, pre.rouge .cd, pre.rouge .cpf {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cm {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .c1 {
-  color: #75715e;
-  font-style: italic;
-}
-pre.rouge .cp {
-  color: #75715e;
-  font-weight: bold;
-}
-pre.rouge .cs {
-  color: #75715e;
-  font-weight: bold;
-  font-style: italic;
-}
-pre.rouge .err {
-  color: #960050;
-  background-color: #1e0010;
-}
-pre.rouge .gi {
-  color: #ffffff;
-  background-color: #324932;
-}
-pre.rouge .gd {
-  color: #ffffff;
-  background-color: #493131;
-}
-pre.rouge .ge {
-  color: #000000;
-  font-style: italic;
-}
-pre.rouge .gr {
-  color: #aa0000;
-}
-pre.rouge .gt {
-  color: #aa0000;
-}
-pre.rouge .gh {
-  color: #999999;
-}
-pre.rouge .go {
-  color: #888888;
-}
-pre.rouge .gp {
-  color: #555555;
-}
-pre.rouge .gs {
-  font-weight: bold;
-}
-pre.rouge .gu {
-  color: #aaaaaa;
-}
-pre.rouge .k, pre.rouge .kv {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kc {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kd {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kp {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kr {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kt {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .kn {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .ow {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .o {
-  color: #f92672;
-  font-weight: bold;
-}
-pre.rouge .mf {
-  color: #ae81ff;
-}
-pre.rouge .mh {
-  color: #ae81ff;
-}
-pre.rouge .il {
-  color: #ae81ff;
-}
-pre.rouge .mi {
-  color: #ae81ff;
-}
-pre.rouge .mo {
-  color: #ae81ff;
-}
-pre.rouge .m, pre.rouge .mb, pre.rouge .mx {
-  color: #ae81ff;
-}
-pre.rouge .se {
-  color: #ae81ff;
-}
-pre.rouge .sa {
-  color: #66d9ef;
-  font-weight: bold;
-}
-pre.rouge .sb {
-  color: #e6db74;
-}
-pre.rouge .sc {
-  color: #e6db74;
-}
-pre.rouge .sd {
-  color: #e6db74;
-}
-pre.rouge .s2 {
-  color: #e6db74;
-}
-pre.rouge .sh {
-  color: #e6db74;
-}
-pre.rouge .si {
-  color: #e6db74;
-}
-pre.rouge .sx {
-  color: #e6db74;
-}
-pre.rouge .sr {
-  color: #e6db74;
-}
-pre.rouge .s1 {
-  color: #e6db74;
-}
-pre.rouge .ss {
-  color: #e6db74;
-}
-pre.rouge .s, pre.rouge .dl {
-  color: #e6db74;
-}
-pre.rouge .na {
-  color: #a6e22e;
-}
-pre.rouge .nc {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nd {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .ne {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .nf, pre.rouge .fm {
-  color: #a6e22e;
-  font-weight: bold;
-}
-pre.rouge .no {
-  color: #66d9ef;
-}
-pre.rouge .bp {
-  color: #f8f8f2;
-}
-pre.rouge .nb {
-  color: #f8f8f2;
-}
-pre.rouge .ni {
-  color: #f8f8f2;
-}
-pre.rouge .nn {
-  color: #f8f8f2;
-}
-pre.rouge .vc {
-  color: #f8f8f2;
-}
-pre.rouge .vg {
-  color: #f8f8f2;
-}
-pre.rouge .vi {
-  color: #f8f8f2;
-}
-pre.rouge .nv, pre.rouge .vm {
-  color: #f8f8f2;
-}
-pre.rouge .w {
-  color: #f8f8f2;
-}
-pre.rouge .nl {
-  color: #f8f8f2;
-  font-weight: bold;
-}
-pre.rouge .nt {
-  color: #f92672;
-}
-pre.rouge {
-  color: #f8f8f2;
-  background-color: #49483e;
-}
-</style>
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="_using_the_slib_package" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html"><span class="toc-current">12. Using the SLIB package</span></a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="sect1">
-<h2 id="_using_the_slib_package">12. Using the SLIB package</h2>
-<div class="sectionbody">
-<div class="paragraph">
-<p>
-
-<strong><em>SLIB</em></strong> is a library for the programming language Scheme, written by
-Aubrey Jaffer <a href="_bibliography.html#SLIB">[SLIB]</a>.   It provides a platform independent framework for
-using packages of Scheme procedures and syntax. It uses only standard Scheme
-syntax and thus works on many different Scheme implementations.</p>
-</div>
-<div class="paragraph">
-<p>To  use this package, you have just to type</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">require</span> <span class="s">"slib"</span><span class="p">)</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>or use the <strong><a href="http://srfi.schemers.org/srfi-96/srfi-96.html">SRFI-96</a></strong> (<em>SLIB Prerequisites</em>) with</p>
-</div>
-<div class="listingblock">
-<div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">import</span> <span class="p">(</span><span class="nf">srfi</span> <span class="mi">96</span><span class="p">))</span></code></pre>
-</div>
-</div>
-<div class="paragraph">
-<p>and follow the instructions given in the <strong><em>SLIB</em></strong> library manual to
-use a particular package.</p>
-</div>
-<div class="admonitionblock note">
-<table>
-<tr>
-<td class="icon">
-<i class="fa icon-note" title="Note"></i>
-</td>
-<td class="content">
-<div class="paragraph">
-<p><strong><em>SLIB</em></strong> uses also the <em>require</em> and <em>provide</em> mechanism to load
-components of the library. Once <strong><em>SLIB</em></strong> has been loaded, the standard
-<strong><em>STklos</em></strong> <code>require</code> and <code>provide</code> are overloaded such as if their
-parameter is a string this is the old <strong><em>STklos</em></strong> procedure which is
-called, and if their parameter is a symbol, this is the <strong><em>SLIB</em></strong> one
-which is called.</p>
-</div>
-<div class="paragraph">
-<p><strong><em>SLIB</em></strong> needs to create a catalog of the file that must be loaded to
-implement a given feature. This catalog is stored in a file named
-<code>slibcat</code> This file is, by default located in the
-<code>~/.stklos/slib</code> directory.  It is possible to change this
-directory with the <code>STKLOS_IMPLEMENTATION_PATH</code> shell variable.</p>
-</div>
-<div class="paragraph">
-<p><strong><em>STklos</em></strong> searches the <strong><em>SLIB</em></strong> implementation directory in some standard
-places. If not found, you can fix it with the <code>SCHEME_LIBRARY_PATH</code> shell
-variable.</p>
-</div>
-</td>
-</tr>
-</table>
-</div>
-</div>
-</div>
-<div class="paragraph nav-footer">
-<p>← Previous: <a href="_foreign_function_interface.html">Foreign Function Interface</a> | ↑ Up: <a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a> | Next: <a href="_srfis.html">SRFIs</a> →</p>
-</div>
-</div>
-<div id="footnotes">
-<hr>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Documentation about hygienic macros has been stolen in the SLIB manual
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. In fact <code>define-module</code> on a given name defines a new module only the first time it is invoked on this name. By this way, interactively reloading a module does not define a new entity, and the other modules which use it are not altered.
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. This transcript uses the default toplevel loop             which displays the name of the current module in the evaluator             prompt.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. Under Unix, you can simply connect to a listening socket with the <code>telnet</code> of <code>netcat</code> command. For the given example, this can be achieved with <code>netcat localhost 12345</code>
-</div>
-<div class="footnote" id="_footnotedef_2">
-<a href="#_footnoteref_2">2</a>. Port 13, if open, can be used for testing: making a connection to it permits to know the distant system&#8217;s idea of the time of day.
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. The "pattern matching compiler" has been written by Jean-Marie Geffroy and is part of the Manuel Serrano&#8217;s Bigloo compiler since several years <a href="_bibliography.html#Bigloo">[Bigloo]</a>
-</div>
-<div class="footnote" id="_footnotedef_1">
-<a href="#_footnoteref_1">1</a>. This section is an adaptation of Jeff Dalton&#8217;s (<a href="mailto:J.Dalton@ed.ac.uk">J.Dalton@ed.ac.uk</a>) "<strong><em>Brief introduction to CLOS</em></strong>" which can be found at <a href="http://www.aiai.ed.ac.uk/~jeff/clos-guide.html" class="bare">http://www.aiai.ed.ac.uk/~jeff/clos-guide.html</a>
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/stklos-ref-multi.html b/doc/HTML/stklos-ref-multi.html
deleted file mode 100644
index 96c11d9df..000000000
--- a/doc/HTML/stklos-ref-multi.html
+++ /dev/null
@@ -1,630 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-<meta charset="UTF-8">
-<meta http-equiv="X-UA-Compatible" content="IE=edge">
-<meta name="viewport" content="width=device-width, initial-scale=1.0">
-<meta name="generator" content="Asciidoctor 2.0.20">
-<meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
-<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
-<style>
-/*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
-/* Uncomment the following line when using as a custom stylesheet */
-/* @import "https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700"; */
-html{font-family:sans-serif;-webkit-text-size-adjust:100%}
-a{background:none}
-a:focus{outline:thin dotted}
-a:active,a:hover{outline:0}
-h1{font-size:2em;margin:.67em 0}
-b,strong{font-weight:bold}
-abbr{font-size:.9em}
-abbr[title]{cursor:help;border-bottom:1px dotted #dddddf;text-decoration:none}
-dfn{font-style:italic}
-hr{height:0}
-mark{background:#ff0;color:#000}
-code,kbd,pre,samp{font-family:monospace;font-size:1em}
-pre{white-space:pre-wrap}
-q{quotes:"\201C" "\201D" "\2018" "\2019"}
-small{font-size:80%}
-sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}
-sup{top:-.5em}
-sub{bottom:-.25em}
-img{border:0}
-svg:not(:root){overflow:hidden}
-figure{margin:0}
-audio,video{display:inline-block}
-audio:not([controls]){display:none;height:0}
-fieldset{border:1px solid silver;margin:0 2px;padding:.35em .625em .75em}
-legend{border:0;padding:0}
-button,input,select,textarea{font-family:inherit;font-size:100%;margin:0}
-button,input{line-height:normal}
-button,select{text-transform:none}
-button,html input[type=button],input[type=reset],input[type=submit]{-webkit-appearance:button;cursor:pointer}
-button[disabled],html input[disabled]{cursor:default}
-input[type=checkbox],input[type=radio]{padding:0}
-button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}
-textarea{overflow:auto;vertical-align:top}
-table{border-collapse:collapse;border-spacing:0}
-*,::before,::after{box-sizing:border-box}
-html,body{font-size:100%}
-body{background:#fff;color:rgba(0,0,0,.8);padding:0;margin:0;font-family:"Noto Serif","DejaVu Serif",serif;line-height:1;position:relative;cursor:auto;-moz-tab-size:4;-o-tab-size:4;tab-size:4;word-wrap:anywhere;-moz-osx-font-smoothing:grayscale;-webkit-font-smoothing:antialiased}
-a:hover{cursor:pointer}
-img,object,embed{max-width:100%;height:auto}
-object,embed{height:100%}
-img{-ms-interpolation-mode:bicubic}
-.left{float:left!important}
-.right{float:right!important}
-.text-left{text-align:left!important}
-.text-right{text-align:right!important}
-.text-center{text-align:center!important}
-.text-justify{text-align:justify!important}
-.hide{display:none}
-img,object,svg{display:inline-block;vertical-align:middle}
-textarea{height:auto;min-height:50px}
-select{width:100%}
-.subheader,.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{line-height:1.45;color:#7a2518;font-weight:400;margin-top:0;margin-bottom:.25em}
-div,dl,dt,dd,ul,ol,li,h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6,pre,form,p,blockquote,th,td{margin:0;padding:0}
-a{color:#2156a5;text-decoration:underline;line-height:inherit}
-a:hover,a:focus{color:#1d4b8f}
-a img{border:0}
-p{line-height:1.6;margin-bottom:1.25em;text-rendering:optimizeLegibility}
-p aside{font-size:.875em;line-height:1.35;font-style:italic}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{font-family:"Open Sans","DejaVu Sans",sans-serif;font-weight:300;font-style:normal;color:#ba3925;text-rendering:optimizeLegibility;margin-top:1em;margin-bottom:.5em;line-height:1.0125em}
-h1 small,h2 small,h3 small,#toctitle small,.sidebarblock>.content>.title small,h4 small,h5 small,h6 small{font-size:60%;color:#e99b8f;line-height:0}
-h1{font-size:2.125em}
-h2{font-size:1.6875em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.375em}
-h4,h5{font-size:1.125em}
-h6{font-size:1em}
-hr{border:solid #dddddf;border-width:1px 0 0;clear:both;margin:1.25em 0 1.1875em}
-em,i{font-style:italic;line-height:inherit}
-strong,b{font-weight:bold;line-height:inherit}
-small{font-size:60%;line-height:inherit}
-code{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;font-weight:400;color:rgba(0,0,0,.9)}
-ul,ol,dl{line-height:1.6;margin-bottom:1.25em;list-style-position:outside;font-family:inherit}
-ul,ol{margin-left:1.5em}
-ul li ul,ul li ol{margin-left:1.25em;margin-bottom:0}
-ul.circle{list-style-type:circle}
-ul.disc{list-style-type:disc}
-ul.square{list-style-type:square}
-ul.circle ul:not([class]),ul.disc ul:not([class]),ul.square ul:not([class]){list-style:inherit}
-ol li ul,ol li ol{margin-left:1.25em;margin-bottom:0}
-dl dt{margin-bottom:.3125em;font-weight:bold}
-dl dd{margin-bottom:1.25em}
-blockquote{margin:0 0 1.25em;padding:.5625em 1.25em 0 1.1875em;border-left:1px solid #ddd}
-blockquote,blockquote p{line-height:1.6;color:rgba(0,0,0,.85)}
-@media screen and (min-width:768px){h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2}
-h1{font-size:2.75em}
-h2{font-size:2.3125em}
-h3,#toctitle,.sidebarblock>.content>.title{font-size:1.6875em}
-h4{font-size:1.4375em}}
-table{background:#fff;margin-bottom:1.25em;border:1px solid #dedede;word-wrap:normal}
-table thead,table tfoot{background:#f7f8f7}
-table thead tr th,table thead tr td,table tfoot tr th,table tfoot tr td{padding:.5em .625em .625em;font-size:inherit;color:rgba(0,0,0,.8);text-align:left}
-table tr th,table tr td{padding:.5625em .625em;font-size:inherit;color:rgba(0,0,0,.8)}
-table tr.even,table tr.alt{background:#f8f8f7}
-table thead tr th,table tfoot tr th,table tbody tr td,table tr td,table tfoot tr td{line-height:1.6}
-h1,h2,h3,#toctitle,.sidebarblock>.content>.title,h4,h5,h6{line-height:1.2;word-spacing:-.05em}
-h1 strong,h2 strong,h3 strong,#toctitle strong,.sidebarblock>.content>.title strong,h4 strong,h5 strong,h6 strong{font-weight:400}
-.center{margin-left:auto;margin-right:auto}
-.stretch{width:100%}
-.clearfix::before,.clearfix::after,.float-group::before,.float-group::after{content:" ";display:table}
-.clearfix::after,.float-group::after{clear:both}
-:not(pre).nobreak{word-wrap:normal}
-:not(pre).nowrap{white-space:nowrap}
-:not(pre).pre-wrap{white-space:pre-wrap}
-:not(pre):not([class^=L])>code{font-size:.9375em;font-style:normal!important;letter-spacing:0;padding:.1em .5ex;word-spacing:-.15em;background:#f7f7f8;border-radius:4px;line-height:1.45;text-rendering:optimizeSpeed}
-pre{color:rgba(0,0,0,.9);font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;line-height:1.45;text-rendering:optimizeSpeed}
-pre code,pre pre{color:inherit;font-size:inherit;line-height:inherit}
-pre>code{display:block}
-pre.nowrap,pre.nowrap pre{white-space:pre;word-wrap:normal}
-em em{font-style:normal}
-strong strong{font-weight:400}
-.keyseq{color:rgba(51,51,51,.8)}
-kbd{font-family:"Droid Sans Mono","DejaVu Sans Mono",monospace;display:inline-block;color:rgba(0,0,0,.8);font-size:.65em;line-height:1.45;background:#f7f7f7;border:1px solid #ccc;border-radius:3px;box-shadow:0 1px 0 rgba(0,0,0,.2),inset 0 0 0 .1em #fff;margin:0 .15em;padding:.2em .5em;vertical-align:middle;position:relative;top:-.1em;white-space:nowrap}
-.keyseq kbd:first-child{margin-left:0}
-.keyseq kbd:last-child{margin-right:0}
-.menuseq,.menuref{color:#000}
-.menuseq b:not(.caret),.menuref{font-weight:inherit}
-.menuseq{word-spacing:-.02em}
-.menuseq b.caret{font-size:1.25em;line-height:.8}
-.menuseq i.caret{font-weight:bold;text-align:center;width:.45em}
-b.button::before,b.button::after{position:relative;top:-1px;font-weight:400}
-b.button::before{content:"[";padding:0 3px 0 2px}
-b.button::after{content:"]";padding:0 2px 0 3px}
-p a>code:hover{color:rgba(0,0,0,.9)}
-#header,#content,#footnotes,#footer{width:100%;margin:0 auto;max-width:62.5em;*zoom:1;position:relative;padding-left:.9375em;padding-right:.9375em}
-#header::before,#header::after,#content::before,#content::after,#footnotes::before,#footnotes::after,#footer::before,#footer::after{content:" ";display:table}
-#header::after,#content::after,#footnotes::after,#footer::after{clear:both}
-#content{margin-top:1.25em}
-#content::before{content:none}
-#header>h1:first-child{color:rgba(0,0,0,.85);margin-top:2.25rem;margin-bottom:0}
-#header>h1:first-child+#toc{margin-top:8px;border-top:1px solid #dddddf}
-#header>h1:only-child,body.toc2 #header>h1:nth-last-child(2){border-bottom:1px solid #dddddf;padding-bottom:8px}
-#header .details{border-bottom:1px solid #dddddf;line-height:1.45;padding-top:.25em;padding-bottom:.25em;padding-left:.25em;color:rgba(0,0,0,.6);display:flex;flex-flow:row wrap}
-#header .details span:first-child{margin-left:-.125em}
-#header .details span.email a{color:rgba(0,0,0,.85)}
-#header .details br{display:none}
-#header .details br+span::before{content:"\00a0\2013\00a0"}
-#header .details br+span.author::before{content:"\00a0\22c5\00a0";color:rgba(0,0,0,.85)}
-#header .details br+span#revremark::before{content:"\00a0|\00a0"}
-#header #revnumber{text-transform:capitalize}
-#header #revnumber::after{content:"\00a0"}
-#content>h1:first-child:not([class]){color:rgba(0,0,0,.85);border-bottom:1px solid #dddddf;padding-bottom:8px;margin-top:0;padding-top:1rem;margin-bottom:1.25rem}
-#toc{border-bottom:1px solid #e7e7e9;padding-bottom:.5em}
-#toc>ul{margin-left:.125em}
-#toc ul.sectlevel0>li>a{font-style:italic}
-#toc ul.sectlevel0 ul.sectlevel1{margin:.5em 0}
-#toc ul{font-family:"Open Sans","DejaVu Sans",sans-serif;list-style-type:none}
-#toc li{line-height:1.3334;margin-top:.3334em}
-#toc a{text-decoration:none}
-#toc a:active{text-decoration:underline}
-#toctitle{color:#7a2518;font-size:1.2em}
-@media screen and (min-width:768px){#toctitle{font-size:1.375em}
-body.toc2{padding-left:15em;padding-right:0}
-#toc.toc2{margin-top:0!important;background:#f8f8f7;position:fixed;width:15em;left:0;top:0;border-right:1px solid #e7e7e9;border-top-width:0!important;border-bottom-width:0!important;z-index:1000;padding:1.25em 1em;height:100%;overflow:auto}
-#toc.toc2 #toctitle{margin-top:0;margin-bottom:.8rem;font-size:1.2em}
-#toc.toc2>ul{font-size:.9em;margin-bottom:0}
-#toc.toc2 ul ul{margin-left:0;padding-left:1em}
-#toc.toc2 ul.sectlevel0 ul.sectlevel1{padding-left:0;margin-top:.5em;margin-bottom:.5em}
-body.toc2.toc-right{padding-left:0;padding-right:15em}
-body.toc2.toc-right #toc.toc2{border-right-width:0;border-left:1px solid #e7e7e9;left:auto;right:0}}
-@media screen and (min-width:1280px){body.toc2{padding-left:20em;padding-right:0}
-#toc.toc2{width:20em}
-#toc.toc2 #toctitle{font-size:1.375em}
-#toc.toc2>ul{font-size:.95em}
-#toc.toc2 ul ul{padding-left:1.25em}
-body.toc2.toc-right{padding-left:0;padding-right:20em}}
-#content #toc{border:1px solid #e0e0dc;margin-bottom:1.25em;padding:1.25em;background:#f8f8f7;border-radius:4px}
-#content #toc>:first-child{margin-top:0}
-#content #toc>:last-child{margin-bottom:0}
-#footer{max-width:none;background:rgba(0,0,0,.8);padding:1.25em}
-#footer-text{color:hsla(0,0%,100%,.8);line-height:1.44}
-#content{margin-bottom:.625em}
-.sect1{padding-bottom:.625em}
-@media screen and (min-width:768px){#content{margin-bottom:1.25em}
-.sect1{padding-bottom:1.25em}}
-.sect1:last-child{padding-bottom:0}
-.sect1+.sect1{border-top:1px solid #e7e7e9}
-#content h1>a.anchor,h2>a.anchor,h3>a.anchor,#toctitle>a.anchor,.sidebarblock>.content>.title>a.anchor,h4>a.anchor,h5>a.anchor,h6>a.anchor{position:absolute;z-index:1001;width:1.5ex;margin-left:-1.5ex;display:block;text-decoration:none!important;visibility:hidden;text-align:center;font-weight:400}
-#content h1>a.anchor::before,h2>a.anchor::before,h3>a.anchor::before,#toctitle>a.anchor::before,.sidebarblock>.content>.title>a.anchor::before,h4>a.anchor::before,h5>a.anchor::before,h6>a.anchor::before{content:"\00A7";font-size:.85em;display:block;padding-top:.1em}
-#content h1:hover>a.anchor,#content h1>a.anchor:hover,h2:hover>a.anchor,h2>a.anchor:hover,h3:hover>a.anchor,#toctitle:hover>a.anchor,.sidebarblock>.content>.title:hover>a.anchor,h3>a.anchor:hover,#toctitle>a.anchor:hover,.sidebarblock>.content>.title>a.anchor:hover,h4:hover>a.anchor,h4>a.anchor:hover,h5:hover>a.anchor,h5>a.anchor:hover,h6:hover>a.anchor,h6>a.anchor:hover{visibility:visible}
-#content h1>a.link,h2>a.link,h3>a.link,#toctitle>a.link,.sidebarblock>.content>.title>a.link,h4>a.link,h5>a.link,h6>a.link{color:#ba3925;text-decoration:none}
-#content h1>a.link:hover,h2>a.link:hover,h3>a.link:hover,#toctitle>a.link:hover,.sidebarblock>.content>.title>a.link:hover,h4>a.link:hover,h5>a.link:hover,h6>a.link:hover{color:#a53221}
-details,.audioblock,.imageblock,.literalblock,.listingblock,.stemblock,.videoblock{margin-bottom:1.25em}
-details{margin-left:1.25rem}
-details>summary{cursor:pointer;display:block;position:relative;line-height:1.6;margin-bottom:.625rem;outline:none;-webkit-tap-highlight-color:transparent}
-details>summary::-webkit-details-marker{display:none}
-details>summary::before{content:"";border:solid transparent;border-left:solid;border-width:.3em 0 .3em .5em;position:absolute;top:.5em;left:-1.25rem;transform:translateX(15%)}
-details[open]>summary::before{border:solid transparent;border-top:solid;border-width:.5em .3em 0;transform:translateY(15%)}
-details>summary::after{content:"";width:1.25rem;height:1em;position:absolute;top:.3em;left:-1.25rem}
-.admonitionblock td.content>.title,.audioblock>.title,.exampleblock>.title,.imageblock>.title,.listingblock>.title,.literalblock>.title,.stemblock>.title,.openblock>.title,.paragraph>.title,.quoteblock>.title,table.tableblock>.title,.verseblock>.title,.videoblock>.title,.dlist>.title,.olist>.title,.ulist>.title,.qlist>.title,.hdlist>.title{text-rendering:optimizeLegibility;text-align:left;font-family:"Noto Serif","DejaVu Serif",serif;font-size:1rem;font-style:italic}
-table.tableblock.fit-content>caption.title{white-space:nowrap;width:0}
-.paragraph.lead>p,#preamble>.sectionbody>[class=paragraph]:first-of-type p{font-size:1.21875em;line-height:1.6;color:rgba(0,0,0,.85)}
-.admonitionblock>table{border-collapse:separate;border:0;background:none;width:100%}
-.admonitionblock>table td.icon{text-align:center;width:80px}
-.admonitionblock>table td.icon img{max-width:none}
-.admonitionblock>table td.icon .title{font-weight:bold;font-family:"Open Sans","DejaVu Sans",sans-serif;text-transform:uppercase}
-.admonitionblock>table td.content{padding-left:1.125em;padding-right:1.25em;border-left:1px solid #dddddf;color:rgba(0,0,0,.6);word-wrap:anywhere}
-.admonitionblock>table td.content>:last-child>:last-child{margin-bottom:0}
-.exampleblock>.content{border:1px solid #e6e6e6;margin-bottom:1.25em;padding:1.25em;background:#fff;border-radius:4px}
-.sidebarblock{border:1px solid #dbdbd6;margin-bottom:1.25em;padding:1.25em;background:#f3f3f2;border-radius:4px}
-.sidebarblock>.content>.title{color:#7a2518;margin-top:0;text-align:center}
-.exampleblock>.content>:first-child,.sidebarblock>.content>:first-child{margin-top:0}
-.exampleblock>.content>:last-child,.exampleblock>.content>:last-child>:last-child,.exampleblock>.content .olist>ol>li:last-child>:last-child,.exampleblock>.content .ulist>ul>li:last-child>:last-child,.exampleblock>.content .qlist>ol>li:last-child>:last-child,.sidebarblock>.content>:last-child,.sidebarblock>.content>:last-child>:last-child,.sidebarblock>.content .olist>ol>li:last-child>:last-child,.sidebarblock>.content .ulist>ul>li:last-child>:last-child,.sidebarblock>.content .qlist>ol>li:last-child>:last-child{margin-bottom:0}
-.literalblock pre,.listingblock>.content>pre{border-radius:4px;overflow-x:auto;padding:1em;font-size:.8125em}
-@media screen and (min-width:768px){.literalblock pre,.listingblock>.content>pre{font-size:.90625em}}
-@media screen and (min-width:1280px){.literalblock pre,.listingblock>.content>pre{font-size:1em}}
-.literalblock pre,.listingblock>.content>pre:not(.highlight),.listingblock>.content>pre[class=highlight],.listingblock>.content>pre[class^="highlight "]{background:#f7f7f8}
-.literalblock.output pre{color:#f7f7f8;background:rgba(0,0,0,.9)}
-.listingblock>.content{position:relative}
-.listingblock code[data-lang]::before{display:none;content:attr(data-lang);position:absolute;font-size:.75em;top:.425rem;right:.5rem;line-height:1;text-transform:uppercase;color:inherit;opacity:.5}
-.listingblock:hover code[data-lang]::before{display:block}
-.listingblock.terminal pre .command::before{content:attr(data-prompt);padding-right:.5em;color:inherit;opacity:.5}
-.listingblock.terminal pre .command:not([data-prompt])::before{content:"$"}
-.listingblock pre.highlightjs{padding:0}
-.listingblock pre.highlightjs>code{padding:1em;border-radius:4px}
-.listingblock pre.prettyprint{border-width:0}
-.prettyprint{background:#f7f7f8}
-pre.prettyprint .linenums{line-height:1.45;margin-left:2em}
-pre.prettyprint li{background:none;list-style-type:inherit;padding-left:0}
-pre.prettyprint li code[data-lang]::before{opacity:1}
-pre.prettyprint li:not(:first-child) code[data-lang]::before{display:none}
-table.linenotable{border-collapse:separate;border:0;margin-bottom:0;background:none}
-table.linenotable td[class]{color:inherit;vertical-align:top;padding:0;line-height:inherit;white-space:normal}
-table.linenotable td.code{padding-left:.75em}
-table.linenotable td.linenos,pre.pygments .linenos{border-right:1px solid;opacity:.35;padding-right:.5em;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-select:none}
-pre.pygments span.linenos{display:inline-block;margin-right:.75em}
-.quoteblock{margin:0 1em 1.25em 1.5em;display:table}
-.quoteblock:not(.excerpt)>.title{margin-left:-1.5em;margin-bottom:.75em}
-.quoteblock blockquote,.quoteblock p{color:rgba(0,0,0,.85);font-size:1.15rem;line-height:1.75;word-spacing:.1em;letter-spacing:0;font-style:italic;text-align:justify}
-.quoteblock blockquote{margin:0;padding:0;border:0}
-.quoteblock blockquote::before{content:"\201c";float:left;font-size:2.75em;font-weight:bold;line-height:.6em;margin-left:-.6em;color:#7a2518;text-shadow:0 1px 2px rgba(0,0,0,.1)}
-.quoteblock blockquote>.paragraph:last-child p{margin-bottom:0}
-.quoteblock .attribution{margin-top:.75em;margin-right:.5ex;text-align:right}
-.verseblock{margin:0 1em 1.25em}
-.verseblock pre{font-family:"Open Sans","DejaVu Sans",sans-serif;font-size:1.15rem;color:rgba(0,0,0,.85);font-weight:300;text-rendering:optimizeLegibility}
-.verseblock pre strong{font-weight:400}
-.verseblock .attribution{margin-top:1.25rem;margin-left:.5ex}
-.quoteblock .attribution,.verseblock .attribution{font-size:.9375em;line-height:1.45;font-style:italic}
-.quoteblock .attribution br,.verseblock .attribution br{display:none}
-.quoteblock .attribution cite,.verseblock .attribution cite{display:block;letter-spacing:-.025em;color:rgba(0,0,0,.6)}
-.quoteblock.abstract blockquote::before,.quoteblock.excerpt blockquote::before,.quoteblock .quoteblock blockquote::before{display:none}
-.quoteblock.abstract blockquote,.quoteblock.abstract p,.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{line-height:1.6;word-spacing:0}
-.quoteblock.abstract{margin:0 1em 1.25em;display:block}
-.quoteblock.abstract>.title{margin:0 0 .375em;font-size:1.15em;text-align:center}
-.quoteblock.excerpt>blockquote,.quoteblock .quoteblock{padding:0 0 .25em 1em;border-left:.25em solid #dddddf}
-.quoteblock.excerpt,.quoteblock .quoteblock{margin-left:0}
-.quoteblock.excerpt blockquote,.quoteblock.excerpt p,.quoteblock .quoteblock blockquote,.quoteblock .quoteblock p{color:inherit;font-size:1.0625rem}
-.quoteblock.excerpt .attribution,.quoteblock .quoteblock .attribution{color:inherit;font-size:.85rem;text-align:left;margin-right:0}
-p.tableblock:last-child{margin-bottom:0}
-td.tableblock>.content{margin-bottom:1.25em;word-wrap:anywhere}
-td.tableblock>.content>:last-child{margin-bottom:-1.25em}
-table.tableblock,th.tableblock,td.tableblock{border:0 solid #dedede}
-table.grid-all>*>tr>*{border-width:1px}
-table.grid-cols>*>tr>*{border-width:0 1px}
-table.grid-rows>*>tr>*{border-width:1px 0}
-table.frame-all{border-width:1px}
-table.frame-ends{border-width:1px 0}
-table.frame-sides{border-width:0 1px}
-table.frame-none>colgroup+*>:first-child>*,table.frame-sides>colgroup+*>:first-child>*{border-top-width:0}
-table.frame-none>:last-child>:last-child>*,table.frame-sides>:last-child>:last-child>*{border-bottom-width:0}
-table.frame-none>*>tr>:first-child,table.frame-ends>*>tr>:first-child{border-left-width:0}
-table.frame-none>*>tr>:last-child,table.frame-ends>*>tr>:last-child{border-right-width:0}
-table.stripes-all>*>tr,table.stripes-odd>*>tr:nth-of-type(odd),table.stripes-even>*>tr:nth-of-type(even),table.stripes-hover>*>tr:hover{background:#f8f8f7}
-th.halign-left,td.halign-left{text-align:left}
-th.halign-right,td.halign-right{text-align:right}
-th.halign-center,td.halign-center{text-align:center}
-th.valign-top,td.valign-top{vertical-align:top}
-th.valign-bottom,td.valign-bottom{vertical-align:bottom}
-th.valign-middle,td.valign-middle{vertical-align:middle}
-table thead th,table tfoot th{font-weight:bold}
-tbody tr th{background:#f7f8f7}
-tbody tr th,tbody tr th p,tfoot tr th,tfoot tr th p{color:rgba(0,0,0,.8);font-weight:bold}
-p.tableblock>code:only-child{background:none;padding:0}
-p.tableblock{font-size:1em}
-ol{margin-left:1.75em}
-ul li ol{margin-left:1.5em}
-dl dd{margin-left:1.125em}
-dl dd:last-child,dl dd:last-child>:last-child{margin-bottom:0}
-li p,ul dd,ol dd,.olist .olist,.ulist .ulist,.ulist .olist,.olist .ulist{margin-bottom:.625em}
-ul.checklist,ul.none,ol.none,ul.no-bullet,ol.no-bullet,ol.unnumbered,ul.unstyled,ol.unstyled{list-style-type:none}
-ul.no-bullet,ol.no-bullet,ol.unnumbered{margin-left:.625em}
-ul.unstyled,ol.unstyled{margin-left:0}
-li>p:empty:only-child::before{content:"";display:inline-block}
-ul.checklist>li>p:first-child{margin-left:-1em}
-ul.checklist>li>p:first-child>.fa-square-o:first-child,ul.checklist>li>p:first-child>.fa-check-square-o:first-child{width:1.25em;font-size:.8em;position:relative;bottom:.125em}
-ul.checklist>li>p:first-child>input[type=checkbox]:first-child{margin-right:.25em}
-ul.inline{display:flex;flex-flow:row wrap;list-style:none;margin:0 0 .625em -1.25em}
-ul.inline>li{margin-left:1.25em}
-.unstyled dl dt{font-weight:400;font-style:normal}
-ol.arabic{list-style-type:decimal}
-ol.decimal{list-style-type:decimal-leading-zero}
-ol.loweralpha{list-style-type:lower-alpha}
-ol.upperalpha{list-style-type:upper-alpha}
-ol.lowerroman{list-style-type:lower-roman}
-ol.upperroman{list-style-type:upper-roman}
-ol.lowergreek{list-style-type:lower-greek}
-.hdlist>table,.colist>table{border:0;background:none}
-.hdlist>table>tbody>tr,.colist>table>tbody>tr{background:none}
-td.hdlist1,td.hdlist2{vertical-align:top;padding:0 .625em}
-td.hdlist1{font-weight:bold;padding-bottom:1.25em}
-td.hdlist2{word-wrap:anywhere}
-.literalblock+.colist,.listingblock+.colist{margin-top:-.5em}
-.colist td:not([class]):first-child{padding:.4em .75em 0;line-height:1;vertical-align:top}
-.colist td:not([class]):first-child img{max-width:none}
-.colist td:not([class]):last-child{padding:.25em 0}
-.thumb,.th{line-height:0;display:inline-block;border:4px solid #fff;box-shadow:0 0 0 1px #ddd}
-.imageblock.left{margin:.25em .625em 1.25em 0}
-.imageblock.right{margin:.25em 0 1.25em .625em}
-.imageblock>.title{margin-bottom:0}
-.imageblock.thumb,.imageblock.th{border-width:6px}
-.imageblock.thumb>.title,.imageblock.th>.title{padding:0 .125em}
-.image.left,.image.right{margin-top:.25em;margin-bottom:.25em;display:inline-block;line-height:0}
-.image.left{margin-right:.625em}
-.image.right{margin-left:.625em}
-a.image{text-decoration:none;display:inline-block}
-a.image object{pointer-events:none}
-sup.footnote,sup.footnoteref{font-size:.875em;position:static;vertical-align:super}
-sup.footnote a,sup.footnoteref a{text-decoration:none}
-sup.footnote a:active,sup.footnoteref a:active{text-decoration:underline}
-#footnotes{padding-top:.75em;padding-bottom:.75em;margin-bottom:.625em}
-#footnotes hr{width:20%;min-width:6.25em;margin:-.25em 0 .75em;border-width:1px 0 0}
-#footnotes .footnote{padding:0 .375em 0 .225em;line-height:1.3334;font-size:.875em;margin-left:1.2em;margin-bottom:.2em}
-#footnotes .footnote a:first-of-type{font-weight:bold;text-decoration:none;margin-left:-1.05em}
-#footnotes .footnote:last-of-type{margin-bottom:0}
-#content #footnotes{margin-top:-.625em;margin-bottom:0;padding:.75em 0}
-div.unbreakable{page-break-inside:avoid}
-.big{font-size:larger}
-.small{font-size:smaller}
-.underline{text-decoration:underline}
-.overline{text-decoration:overline}
-.line-through{text-decoration:line-through}
-.aqua{color:#00bfbf}
-.aqua-background{background:#00fafa}
-.black{color:#000}
-.black-background{background:#000}
-.blue{color:#0000bf}
-.blue-background{background:#0000fa}
-.fuchsia{color:#bf00bf}
-.fuchsia-background{background:#fa00fa}
-.gray{color:#606060}
-.gray-background{background:#7d7d7d}
-.green{color:#006000}
-.green-background{background:#007d00}
-.lime{color:#00bf00}
-.lime-background{background:#00fa00}
-.maroon{color:#600000}
-.maroon-background{background:#7d0000}
-.navy{color:#000060}
-.navy-background{background:#00007d}
-.olive{color:#606000}
-.olive-background{background:#7d7d00}
-.purple{color:#600060}
-.purple-background{background:#7d007d}
-.red{color:#bf0000}
-.red-background{background:#fa0000}
-.silver{color:#909090}
-.silver-background{background:#bcbcbc}
-.teal{color:#006060}
-.teal-background{background:#007d7d}
-.white{color:#bfbfbf}
-.white-background{background:#fafafa}
-.yellow{color:#bfbf00}
-.yellow-background{background:#fafa00}
-span.icon>.fa{cursor:default}
-a span.icon>.fa{cursor:inherit}
-.admonitionblock td.icon [class^="fa icon-"]{font-size:2.5em;text-shadow:1px 1px 2px rgba(0,0,0,.5);cursor:default}
-.admonitionblock td.icon .icon-note::before{content:"\f05a";color:#19407c}
-.admonitionblock td.icon .icon-tip::before{content:"\f0eb";text-shadow:1px 1px 2px rgba(155,155,0,.8);color:#111}
-.admonitionblock td.icon .icon-warning::before{content:"\f071";color:#bf6900}
-.admonitionblock td.icon .icon-caution::before{content:"\f06d";color:#bf3400}
-.admonitionblock td.icon .icon-important::before{content:"\f06a";color:#bf0000}
-.conum[data-value]{display:inline-block;color:#fff!important;background:rgba(0,0,0,.8);border-radius:50%;text-align:center;font-size:.75em;width:1.67em;height:1.67em;line-height:1.67em;font-family:"Open Sans","DejaVu Sans",sans-serif;font-style:normal;font-weight:bold}
-.conum[data-value] *{color:#fff!important}
-.conum[data-value]+b{display:none}
-.conum[data-value]::after{content:attr(data-value)}
-pre .conum[data-value]{position:relative;top:-.125em}
-b.conum *{color:inherit!important}
-.conum:not([data-value]):empty{display:none}
-dt,th.tableblock,td.content,div.footnote{text-rendering:optimizeLegibility}
-h1,h2,p,td.content,span.alt,summary{letter-spacing:-.01em}
-p strong,td.content strong,div.footnote strong{letter-spacing:-.005em}
-p,blockquote,dt,td.content,td.hdlist1,span.alt,summary{font-size:1.0625rem}
-p{margin-bottom:1.25rem}
-.sidebarblock p,.sidebarblock dt,.sidebarblock td.content,p.tableblock{font-size:1em}
-.exampleblock>.content{background:#fffef7;border-color:#e0e0dc;box-shadow:0 1px 4px #e0e0dc}
-.print-only{display:none!important}
-@page{margin:1.25cm .75cm}
-@media print{*{box-shadow:none!important;text-shadow:none!important}
-html{font-size:80%}
-a{color:inherit!important;text-decoration:underline!important}
-a.bare,a[href^="#"],a[href^="mailto:"]{text-decoration:none!important}
-a[href^="http:"]:not(.bare)::after,a[href^="https:"]:not(.bare)::after{content:"(" attr(href) ")";display:inline-block;font-size:.875em;padding-left:.25em}
-abbr[title]{border-bottom:1px dotted}
-abbr[title]::after{content:" (" attr(title) ")"}
-pre,blockquote,tr,img,object,svg{page-break-inside:avoid}
-thead{display:table-header-group}
-svg{max-width:100%}
-p,blockquote,dt,td.content{font-size:1em;orphans:3;widows:3}
-h2,h3,#toctitle,.sidebarblock>.content>.title{page-break-after:avoid}
-#header,#content,#footnotes,#footer{max-width:none}
-#toc,.sidebarblock,.exampleblock>.content{background:none!important}
-#toc{border-bottom:1px solid #dddddf!important;padding-bottom:0!important}
-body.book #header{text-align:center}
-body.book #header>h1:first-child{border:0!important;margin:2.5em 0 1em}
-body.book #header .details{border:0!important;display:block;padding:0!important}
-body.book #header .details span:first-child{margin-left:0!important}
-body.book #header .details br{display:block}
-body.book #header .details br+span::before{content:none!important}
-body.book #toc{border:0!important;text-align:left!important;padding:0!important;margin:0!important}
-body.book #toc,body.book #preamble,body.book h1.sect0,body.book .sect1>h2{page-break-before:always}
-.listingblock code[data-lang]::before{display:block}
-#footer{padding:0 .9375em}
-.hide-on-print{display:none!important}
-.print-only{display:block!important}
-.hide-for-print{display:none!important}
-.show-for-print{display:inherit!important}}
-@media amzn-kf8,print{#header>h1:first-child{margin-top:1.25rem}
-.sect1{padding:0!important}
-.sect1+.sect1{border:0}
-#footer{background:none}
-#footer-text{color:rgba(0,0,0,.6);font-size:.9em}}
-@media amzn-kf8{#header,#content,#footnotes,#footer{padding:0}}
-</style>
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<!-- Generate a nice TOC -->
-<script src="https://code.jquery.com/jquery-1.11.3.min.js"></script>
-<script src="https://code.jquery.com/ui/1.11.4/jquery-ui.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.tocify/1.9.0/javascripts/jquery.tocify.min.js"></script>
-<!-- We do not need the tocify CSS because the asciidoc CSS already provides most of what we neeed -->
-
-<style>
-.tocify-header {
-    font-style: italic;
-}
-
-.tocify-subheader {
-    font-style: normal;
-    font-size: 90%;
-}
-
-.tocify ul {
-    margin: 0;
- }
-
-.tocify-focus {
-    color: #7a2518;
-    background-color: rgba(0, 0, 0, 0.1);
-}
-
-.tocify-focus > a {
-    color: #7a2518;
-}
-</style>
-
-<script type="text/javascript">
-    $(function () {
-        // Add a new container for the tocify toc into the existing toc so we can re-use its
-        // styling
-        $("#toc").append("<div id='generated-toc'></div>");
-        $("#generated-toc").tocify({
-            extendPage: true,
-            context: "#content",
-            highlightOnScroll: true,
-            hideEffect: "slideUp",
-            // Use the IDs that asciidoc already provides so that TOC links and intra-document
-            // links are the same. Anything else might confuse users when they create bookmarks.
-            hashGenerator: function(text, element) {
-                return $(element).attr("id");
-            },
-            // Smooth scrolling doesn't work properly if we use the asciidoc IDs
-            smoothScroll: false,
-            // Set to 'none' to use the tocify classes
-            theme: "none",
-            // Handle book (may contain h1) and article (only h2 deeper)
-            selectors: $( "#content" ).has( "h1" ).size() > 0 ? "h1,h2,h3,h4,h5" : "h2,h3,h4,h5",
-            ignoreSelector: ".discrete"
-        });
-
-        // Switch between static asciidoc toc and dynamic tocify toc based on browser size
-        // This is set to match the media selectors in the asciidoc CSS
-        // Without this, we keep the dynamic toc even if it is moved from the side to preamble
-        // position which will cause odd scrolling behavior
-        var handleTocOnResize = function() {
-            if ($(document).width() < 768) {
-                $("#generated-toc").hide();
-                $(".sectlevel0").show();
-                $(".sectlevel1").show();
-            }
-            else {
-                $("#generated-toc").show();
-                $(".sectlevel0").hide();
-                $(".sectlevel1").hide();
-            }
-        }
-
-        $(window).resize(handleTocOnResize);
-        handleTocOnResize();
-    });
-</script>
-<style>.toc-current{font-weight: bold;} .toc-root{font-family: "Open Sans","DejaVu Sans",sans-serif;
-                       font-size: 0.9em;} #content{display: flex; flex-direction: column; flex: 1 1 auto;}
-             .nav-footer{text-align: center; margin-top: auto;}
-             .nav-footer > p > a {white-space: nowrap;}</style>
-</head>
-<body id="stklos-ref-multi" class="book toc2 toc-left">
-<div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
-<div class="details">
-<span id="author" class="author">Erick Gallesio</span><br>
-<span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
-</div>
-<div id="toc" class="toc2">
-<div id="toctitle">Table of Contents</div>
-<p><span class="toc-root toc-current"><a href="stklos-ref-multi.html">STklos Reference Manual : (version 1.70)</a></span></p><ul class="sectlevel1">
-<li><a href="_preface.html">Preface</a>
-</li>
-<li><a href="_introduction.html">1. Introduction</a>
-</li>
-<li><a href="_expressions.html">2. Expressions</a>
-</li>
-<li><a href="_program_structure.html">3. Program structure</a>
-</li>
-<li><a href="_standard_procedures.html">4. Standard Procedures</a>
-</li>
-<li><a href="_regular_expressions.html">5. Regular Expressions</a>
-</li>
-<li><a href="_pattern_matching.html">6. Pattern Matching</a>
-</li>
-<li><a href="_exceptions_and_conditions.html">7. Exceptions and Conditions</a>
-</li>
-<li><a href="_stklos_object_system.html">8. STklos Object System</a>
-</li>
-<li><a href="_threads_mutexes_and_condition_variables.html">9. Threads, Mutexes and Condition Variables</a>
-</li>
-<li><a href="_stklos_customization.html">10. STklos Customization</a>
-</li>
-<li><a href="_foreign_function_interface.html">11. Foreign Function Interface</a>
-</li>
-<li><a href="_using_the_slib_package.html">12. Using the SLIB package</a>
-</li>
-<li><a href="_srfis.html">13. SRFIs</a>
-</li>
-<li><a href="_bibliography.html">Bibliography</a>
-</li>
-<li><a href="_idiosync.html">Appendix C: STklos Idiosyncrasies</a>
-</li>
-<li><a href="FDL.html">Appendix D: GNU Free Documentation License</a>
-</li>
-</ul>
-</div>
-</div>
-<div id="content">
-<div class="ulist">
-<ul>
-<li>
-<p><a href="_preface.html">Preface</a></p>
-</li>
-<li>
-<p><a href="_introduction.html">Introduction</a></p>
-</li>
-<li>
-<p><a href="_expressions.html">Expressions</a></p>
-</li>
-<li>
-<p><a href="_program_structure.html">Program structure</a></p>
-</li>
-<li>
-<p><a href="_standard_procedures.html">Standard Procedures</a></p>
-</li>
-<li>
-<p><a href="_regular_expressions.html">Regular Expressions</a></p>
-</li>
-<li>
-<p><a href="_pattern_matching.html">Pattern Matching</a></p>
-</li>
-<li>
-<p><a href="_exceptions_and_conditions.html">Exceptions and Conditions</a></p>
-</li>
-<li>
-<p><a href="_stklos_object_system.html">STklos Object System</a></p>
-</li>
-<li>
-<p><a href="_threads_mutexes_and_condition_variables.html">Threads, Mutexes and Condition Variables</a></p>
-</li>
-<li>
-<p><a href="_stklos_customization.html">STklos Customization</a></p>
-</li>
-<li>
-<p><a href="_foreign_function_interface.html">Foreign Function Interface</a></p>
-</li>
-<li>
-<p><a href="_using_the_slib_package.html">Using the SLIB package</a></p>
-</li>
-<li>
-<p><a href="_srfis.html">SRFIs</a></p>
-</li>
-<li>
-<p><a href="_bibliography.html">Bibliography</a></p>
-</li>
-<li>
-<p><a href="_idiosync.html">Appendix A: STklos Idiosyncrasies</a></p>
-</li>
-<li>
-<p><a href="FDL.html">Appendix B: GNU Free Documentation License</a></p>
-</li>
-</ul>
-</div>
-<div class="paragraph nav-footer">
-<p>Next: <a href="_preface.html">Preface</a> →</p>
-</div>
-</div>
-<div id="footer">
-<div id="footer-text">
-Last updated 2023-07-22 20:08:25 +0200
-</div>
-</div>
-</body>
-</html>
\ No newline at end of file
diff --git a/doc/HTML/stklos-ref.html b/doc/HTML/stklos-ref.html
index e7afb1698..b2ee29865 100644
--- a/doc/HTML/stklos-ref.html
+++ b/doc/HTML/stklos-ref.html
@@ -6,7 +6,7 @@
 <meta name="viewport" content="width=device-width, initial-scale=1.0">
 <meta name="generator" content="Asciidoctor 2.0.20">
 <meta name="author" content="Erick Gallesio">
-<title>STklos Reference Manual : (version 1.70)</title>
+<title>STklos Reference Manual : (version 2.00)</title>
 <link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:300,300italic,400,400italic,600,600italic%7CNoto+Serif:400,400italic,700,700italic%7CDroid+Sans+Mono:400,700">
 <style>
 /*! Asciidoctor default stylesheet | MIT License | https://asciidoctor.org */
@@ -728,7 +728,7 @@
 </head>
 <body class="book toc2 toc-left">
 <div id="header">
-<h1>STklos Reference Manual : (version 1.70)</h1>
+<h1>STklos Reference Manual : (version 2.00)</h1>
 <div class="details">
 <span id="author" class="author">Erick Gallesio</span><br>
 <span id="email" class="email"><a href="mailto:eg@stklos.net">eg@stklos.net</a></span><br>
@@ -896,7 +896,7 @@ <h2 id="_preface">Preface</h2>
 <div class="sectionbody">
 <div class="paragraph">
 <p>This document provides a complete list of procedures and special forms
-implemented in version <strong>1.70</strong> of <strong><em>STklos</em></strong>. Originally, the
+implemented in version <strong>2.00</strong> of <strong><em>STklos</em></strong>. Originally, the
 language implemented by <strong><em>STklos</em></strong> was (nearly) compliant with the
 language described in the Revised<sup>5</sup> Report on the Algorithmic
 Language Scheme (aka R<sup>5</sup>RS) <a href="#R5RS">[R5RS]</a>. The fist public release of
@@ -13660,8 +13660,8 @@ <h4 id="_file_primitives">4.13.2. File Primitives</h4>
 </div>
 <div class="listingblock">
 <div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">chmod</span> <span class="s">"~/.stklos/stklosrc"</span> <span class="ss">'read</span> <span class="ss">'execute</span><span class="p">)</span>
-<span class="p">(</span><span class="nf">chmod</span> <span class="s">"~/.stklos/stklosrc"</span> <span class="mo">#o644</span><span class="p">)</span></code></pre>
+<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">chmod</span> <span class="s">"~/.config/stklos/stklosrc"</span> <span class="ss">'read</span> <span class="ss">'execute</span><span class="p">)</span>
+<span class="p">(</span><span class="nf">chmod</span> <span class="s">"~/.config/stklos/stklosrc"</span> <span class="mo">#o644</span><span class="p">)</span></code></pre>
 </div>
 </div>
 <div class="paragraph">
@@ -14538,7 +14538,7 @@ <h4 id="_system_information">4.13.5. System Information</h4>
 </div>
 <div class="listingblock">
 <div class="content">
-<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">features</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">STklos</span> <span class="nv">STklos-1</span><span class="o">.</span><span class="mf">70.1515</span> <span class="nv">exact-complex</span>
+<pre class="rouge highlight"><code data-lang="scheme"><span class="p">(</span><span class="nf">features</span><span class="p">)</span> <span class="nv">=&gt;</span> <span class="p">(</span><span class="nf">STklos</span> <span class="nv">STklos-2</span><span class="o">.</span><span class="mf">00.1534</span> <span class="nv">exact-complex</span>
                <span class="nv">ieee-float</span> <span class="nv">full-unicode</span> <span class="nv">ratios</span> <span class="nv">little-endian</span> <span class="o">...</span><span class="p">)</span></code></pre>
 </div>
 </div>
@@ -24497,7 +24497,7 @@ <h3 id="_parameter_objects_2">10.1. Parameter Objects</h3>
 <i class="fa icon-note" title="Note"></i>
 </td>
 <td class="content">
-A good place to change your theme is the <code>.stklosrc</code> file.
+A good place to change your theme is the <code>stklosrc</code> file.
 </td>
 </tr>
 </table>
@@ -24530,7 +24530,7 @@ <h3 id="_parameter_objects_2">10.1. Parameter Objects</h3>
 <td class="content">
 This parameter can be set to <code>#f</code> with the <code>--no-startup-message</code> option of
 the <strong><em>STklos</em></strong> command. Otherwise, a good place to set this parameter is in the
-<code>.stklosrc</code> file.
+<code>stklosrc</code> file.
 </td>
 </tr>
 </table>
@@ -24558,7 +24558,8 @@ <h3 id="_environment_variables">10.2. Environment variables</h3>
 <p><strong>STKLOS-CONFDIR</strong>: This variable can be used to
 designate the directory used by <strong><em>STklos</em></strong> to store its configuration or
 packages files. If not set, the default <strong><em>STklos</em></strong> configuration directory
-is by default <code>~/.stklos</code>.</p>
+is by default <code>${XDG_CONFIG_HOME}/stklos</code> (or <code>~/.config/stklos</code> if the
+shell variable <code>XDG_CONFIG_HOME</code> is unset).</p>
 </li>
 </ul>
 </div>
@@ -25134,7 +25135,8 @@ <h2 id="_using_the_slib_package">12. Using the SLIB package</h2>
 <p><strong><em>SLIB</em></strong> needs to create a catalog of the file that must be loaded to
 implement a given feature. This catalog is stored in a file named
 <code>slibcat</code> This file is, by default located in the
-<code>~/.stklos/slib</code> directory.  It is possible to change this
+<code>slib</code> directory into the <strong><em>STklos</em></strong> configuration directory
+(generally <code>~/.config/stklos</code>).  It is possible to change this
 directory with the <code>STKLOS_IMPLEMENTATION_PATH</code> shell variable.</p>
 </div>
 <div class="paragraph">
@@ -31444,7 +31446,7 @@ <h3 id="_addendum_how_to_use_this_license_for_your_documents">B.13. ADDENDUM: Ho
 </div>
 <div id="footer">
 <div id="footer-text">
-Last updated 2023-09-04 17:38:12 +0200
+Last updated 2023-09-11 17:46:01 +0200
 </div>
 </div>
 </body>
diff --git a/doc/PDF/stklos-ref.pdf b/doc/PDF/stklos-ref.pdf
index 69a325801..97a77b641 100644
Binary files a/doc/PDF/stklos-ref.pdf and b/doc/PDF/stklos-ref.pdf differ
diff --git a/doc/PDF/vm.pdf b/doc/PDF/vm.pdf
index 2fbb1bbd4..7ee6432db 100644
Binary files a/doc/PDF/vm.pdf and b/doc/PDF/vm.pdf differ
diff --git a/doc/hacking/Makefile.am b/doc/hacking/Makefile.am
index 47fbc2520..aeae1d8ac 100644
--- a/doc/hacking/Makefile.am
+++ b/doc/hacking/Makefile.am
@@ -27,7 +27,11 @@ extradoc: pdf
 # ----------------------------------------------------------------------
 ../PDF/$(PDF): tmp-pdf.txt
 	mkdir -p ../PDF
-	$(ADOC) -v -r asciidoctor-pdf -b pdf -o $@ tmp-pdf.txt
+	$(ADOC) -v -r asciidoctor-pdf -b pdf -o tmp.pdf tmp-pdf.txt
+	@echo "Reducing size of generated PDF file"
+	gs -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dPDFSETTINGS=/prepress \
+		-dNOPAUSE -dQUIET -dBATCH -sOutputFile=$@ tmp.pdf
+	rm -f tmp.pdf
 
 # ----------------------------------------------------------------------
 tmp-html.txt: $(SOURCE) $(DOCDB)
@@ -38,8 +42,8 @@ tmp-pdf.txt: $(SOURCE) $(DOCDB)
 
 # ----------------------------------------------------------------------
 clean:
-	rm -f  tmp-html.txt tmp-pdf.txt  *~
+	rm -f  tmp-html.txt tmp-pdf.txt tmp.pdf  *~
 
 distclean: clean
-	rm -f ../HTML/$(HTMLMAIN) 
+	rm -f ../HTML/$(HTMLMAIN)
 	rm -f ../PDF/$(PDF)
diff --git a/doc/hacking/Makefile.in b/doc/hacking/Makefile.in
index eca38516e..ade97c659 100644
--- a/doc/hacking/Makefile.in
+++ b/doc/hacking/Makefile.in
@@ -485,7 +485,11 @@ extradoc: pdf
 # ----------------------------------------------------------------------
 ../PDF/$(PDF): tmp-pdf.txt
 	mkdir -p ../PDF
-	$(ADOC) -v -r asciidoctor-pdf -b pdf -o $@ tmp-pdf.txt
+	$(ADOC) -v -r asciidoctor-pdf -b pdf -o tmp.pdf tmp-pdf.txt
+	@echo "Reducing size of generated PDF file"
+	gs -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dPDFSETTINGS=/prepress \
+		-dNOPAUSE -dQUIET -dBATCH -sOutputFile=$@ tmp.pdf
+	rm -f tmp.pdf
 
 # ----------------------------------------------------------------------
 tmp-html.txt: $(SOURCE) $(DOCDB)
@@ -496,10 +500,10 @@ tmp-pdf.txt: $(SOURCE) $(DOCDB)
 
 # ----------------------------------------------------------------------
 clean:
-	rm -f  tmp-html.txt tmp-pdf.txt  *~
+	rm -f  tmp-html.txt tmp-pdf.txt tmp.pdf  *~
 
 distclean: clean
-	rm -f ../HTML/$(HTMLMAIN) 
+	rm -f ../HTML/$(HTMLMAIN)
 	rm -f ../PDF/$(PDF)
 
 # Tell versions [3.59,3.63) of GNU make to not export all variables.
diff --git a/doc/pp/Makefile.am b/doc/pp/Makefile.am
index d90c8577a..689fcc08d 100644
--- a/doc/pp/Makefile.am
+++ b/doc/pp/Makefile.am
@@ -33,7 +33,11 @@ extradoc: pdf
 # ----------------------------------------------------------------------
 ../PDF/$(PDF): tmp-pdf.txt
 	mkdir -p ../PDF
-	$(ADOC) -v -r asciidoctor-pdf -b pdf -o $@ tmp-pdf.txt
+	$(ADOC) -v -r asciidoctor-pdf -b pdf -o tmp.pdf tmp-pdf.txt
+	@echo "Reducing size of generated PDF file"
+	gs -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dPDFSETTINGS=/prepress \
+		-dNOPAUSE -dQUIET -dBATCH -sOutputFile=$@ tmp.pdf
+	rm -f tmp.pdf
 
 # ----------------------------------------------------------------------
 tmp-html.txt: $(SOURCE) $(DOCDB)
@@ -44,7 +48,7 @@ tmp-pdf.txt: $(SOURCE) $(DOCDB)
 
 # ----------------------------------------------------------------------
 clean:
-	rm -f  tmp-html.txt tmp-pdf.txt  Resources/*~ *~
+	rm -f  tmp-html.txt tmp-pdf.txt tmp.pdf Resources/*~ *~
 
 distclean: clean
 	rm -f ../HTML/$(HTMLMAIN) ../HTML/$(SAMPLE)
diff --git a/doc/pp/Makefile.in b/doc/pp/Makefile.in
index 2eb9264d7..cbc5bb4cd 100644
--- a/doc/pp/Makefile.in
+++ b/doc/pp/Makefile.in
@@ -491,7 +491,11 @@ extradoc: pdf
 # ----------------------------------------------------------------------
 ../PDF/$(PDF): tmp-pdf.txt
 	mkdir -p ../PDF
-	$(ADOC) -v -r asciidoctor-pdf -b pdf -o $@ tmp-pdf.txt
+	$(ADOC) -v -r asciidoctor-pdf -b pdf -o tmp.pdf tmp-pdf.txt
+	@echo "Reducing size of generated PDF file"
+	gs -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dPDFSETTINGS=/prepress \
+		-dNOPAUSE -dQUIET -dBATCH -sOutputFile=$@ tmp.pdf
+	rm -f tmp.pdf
 
 # ----------------------------------------------------------------------
 tmp-html.txt: $(SOURCE) $(DOCDB)
@@ -502,7 +506,7 @@ tmp-pdf.txt: $(SOURCE) $(DOCDB)
 
 # ----------------------------------------------------------------------
 clean:
-	rm -f  tmp-html.txt tmp-pdf.txt  Resources/*~ *~
+	rm -f  tmp-html.txt tmp-pdf.txt tmp.pdf Resources/*~ *~
 
 distclean: clean
 	rm -f ../HTML/$(HTMLMAIN) ../HTML/$(SAMPLE)
diff --git a/doc/refman/Makefile.am b/doc/refman/Makefile.am
index fbedb8fe8..28eea2dd5 100644
--- a/doc/refman/Makefile.am
+++ b/doc/refman/Makefile.am
@@ -69,7 +69,7 @@ extradoc: multi pdf
 # https://github.com/owenh000/asciidoctor-multipage
 # The backreferences are alawas on the name of the source file.
 # So during the build of this version of the manual we create a link on
-# tmp-html.txt 
+# tmp-html.txt
 ../HTML/$(HTMLMULTI): tmp-html.txt
 	mkdir -p ../HTML/images
 	cp -a $(IMG) ../HTML/images
@@ -81,7 +81,12 @@ extradoc: multi pdf
 # ----------------------------------------------------------------------
 ../PDF/$(PDF): tmp-pdf.txt
 	mkdir -p ../PDF
-	$(ADOC) -v -r asciidoctor-pdf -b pdf -o $@ tmp-pdf.txt
+	$(ADOC) -v -r asciidoctor-pdf -b pdf -o tmp.pdf tmp-pdf.txt
+	@echo "Reducing size of generated PDF file"
+	gs -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dPDFSETTINGS=/prepress \
+		-dNOPAUSE -dQUIET -dBATCH -sOutputFile=$@ tmp.pdf
+	rm -f tmp.pdf
+
 
 # ----------------------------------------------------------------------
 tmp-html.txt: $(SOURCES) $(DOCDB)
@@ -94,7 +99,7 @@ $(DOCDB):
 	(cd ..; $(MAKE) docdb)
 
 clean:
-	rm -f  tmp-html.txt tmp-pdf.txt stklos-ref-multi.txt *~
+	rm -f  tmp-html.txt tmp-pdf.txt stklos-ref-multi.txt tmp.pdf *~
 
 distclean: clean
 	rm -f  ../HTML/$(HTMLMAIN) ../HTML/$(HTMLMULTI)
diff --git a/doc/refman/Makefile.in b/doc/refman/Makefile.in
index 1c824ab93..a90ed0a29 100644
--- a/doc/refman/Makefile.in
+++ b/doc/refman/Makefile.in
@@ -589,7 +589,7 @@ extradoc: multi pdf
 # https://github.com/owenh000/asciidoctor-multipage
 # The backreferences are alawas on the name of the source file.
 # So during the build of this version of the manual we create a link on
-# tmp-html.txt 
+# tmp-html.txt
 ../HTML/$(HTMLMULTI): tmp-html.txt
 	mkdir -p ../HTML/images
 	cp -a $(IMG) ../HTML/images
@@ -601,7 +601,11 @@ extradoc: multi pdf
 # ----------------------------------------------------------------------
 ../PDF/$(PDF): tmp-pdf.txt
 	mkdir -p ../PDF
-	$(ADOC) -v -r asciidoctor-pdf -b pdf -o $@ tmp-pdf.txt
+	$(ADOC) -v -r asciidoctor-pdf -b pdf -o tmp.pdf tmp-pdf.txt
+	@echo "Reducing size of generated PDF file"
+	gs -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dPDFSETTINGS=/prepress \
+		-dNOPAUSE -dQUIET -dBATCH -sOutputFile=$@ tmp.pdf
+	rm -f tmp.pdf
 
 # ----------------------------------------------------------------------
 tmp-html.txt: $(SOURCES) $(DOCDB)
@@ -614,7 +618,7 @@ $(DOCDB):
 	(cd ..; $(MAKE) docdb)
 
 clean:
-	rm -f  tmp-html.txt tmp-pdf.txt stklos-ref-multi.txt *~
+	rm -f  tmp-html.txt tmp-pdf.txt stklos-ref-multi.txt tmp.pdf *~
 
 distclean: clean
 	rm -f  ../HTML/$(HTMLMAIN) ../HTML/$(HTMLMULTI)
diff --git a/doc/refman/custom.adoc b/doc/refman/custom.adoc
index fdf9376fe..a4def3852 100644
--- a/doc/refman/custom.adoc
+++ b/doc/refman/custom.adoc
@@ -49,4 +49,5 @@ The following variables can be used to customize {{stklos}}:
 - (((STKLOS_CONFDIR)))**STKLOS-CONFDIR**: This variable can be used to
   designate the directory used by {{stklos}} to store its configuration or
   packages files. If not set, the default {{stklos}} configuration directory
-  is by default `~/.stklos`.
+  is by default `${XDG_CONFIG_HOME}/stklos` (or `~/.config/stklos` if the
+  shell variable `XDG_CONFIG_HOME` is unset).
diff --git a/doc/refman/slib.adoc b/doc/refman/slib.adoc
index 79c89930b..7362054d4 100644
--- a/doc/refman/slib.adoc
+++ b/doc/refman/slib.adoc
@@ -1,6 +1,6 @@
 //  SPDX-License-Identifier: GFDL-1.3-or-later
 //
-//  Copyright © 2000-2022 Erick Gallesio <eg@unice.fr>
+//  Copyright © 2000-2023 Erick Gallesio <eg@stklos.net>
 //
 //           Author: Erick Gallesio [eg@unice.fr]
 //    Creation date: 26-Nov-2000 18:19 (eg)
@@ -41,7 +41,8 @@ which is called.
 *_SLIB_* needs to create a catalog of the file that must be loaded to
 implement a given feature. This catalog is stored in a file named
 `slibcat` This file is, by default located in the
-`~/.stklos/slib` directory.  It is possible to change this
+`slib` directory into the {{stklos}} configuration directory
+(generally `~/.config/stklos`).  It is possible to change this
 directory with the `STKLOS_IMPLEMENTATION_PATH` shell variable.
 
 {{stklos}} searches the *_SLIB_* implementation directory in some standard
diff --git a/doc/stklos.1.in b/doc/stklos.1.in
index b4417170d..c6554004a 100644
--- a/doc/stklos.1.in
+++ b/doc/stklos.1.in
@@ -178,11 +178,11 @@ back-trace.
 .IP "STKLOS_CONFDIR"
 This variable can be used to designate the directory used by \fBstklos\fR
 to store its configuration or packages files. If not set, the default
-\fBstklos\fR configuration directory is by default \fB~/.stklos\fR.
+\fBstklos\fR configuration directory is by default \fB${XDG_CONFIG_HOME}/stklos\fR (or \fB~/.config/stklos/\fR if  \fBXDG_CONFIG_HOME\fR is unset).
 
 .SH FILES
 
-.IP "~/<stklos-conf-dir>/stklosrc"
+.IP "<stklos-conf-dir>/stklosrc"
 This file is the user init file which is loaded when \fBstklos\fR
 starts. Use the \fB-q\fR to avoid the loading of this file.
 
diff --git a/doc/vm/Makefile.am b/doc/vm/Makefile.am
index ddc726246..f7dce7908 100644
--- a/doc/vm/Makefile.am
+++ b/doc/vm/Makefile.am
@@ -27,7 +27,11 @@ extradoc: pdf
 # ----------------------------------------------------------------------
 ../PDF/$(PDF): tmp-pdf.txt
 	mkdir -p ../PDF
-	$(ADOC) -v -r asciidoctor-pdf -b pdf -o $@ tmp-pdf.txt
+	$(ADOC) -v -r asciidoctor-pdf -b pdf -o tmp.pdf tmp-pdf.txt
+	@echo "Reducing size of generated PDF file"
+	gs -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dPDFSETTINGS=/prepress \
+		-dNOPAUSE -dQUIET -dBATCH -sOutputFile=$@ tmp.pdf
+	rm -f tmp.pdf
 
 # ----------------------------------------------------------------------
 tmp-html.txt: $(SOURCE) $(DOCDB)
@@ -38,8 +42,8 @@ tmp-pdf.txt: $(SOURCE) $(DOCDB)
 
 # ----------------------------------------------------------------------
 clean:
-	rm -f  tmp-html.txt tmp-pdf.txt  *~
+	rm -f  tmp-html.txt tmp-pdf.txt tmp.pdf *~
 
 distclean: clean
-	rm -f ../HTML/$(HTMLMAIN) 
+	rm -f ../HTML/$(HTMLMAIN)
 	rm -f ../PDF/$(PDF)
diff --git a/doc/vm/Makefile.in b/doc/vm/Makefile.in
index 2c417a58f..09d39b1cb 100644
--- a/doc/vm/Makefile.in
+++ b/doc/vm/Makefile.in
@@ -485,7 +485,11 @@ extradoc: pdf
 # ----------------------------------------------------------------------
 ../PDF/$(PDF): tmp-pdf.txt
 	mkdir -p ../PDF
-	$(ADOC) -v -r asciidoctor-pdf -b pdf -o $@ tmp-pdf.txt
+	$(ADOC) -v -r asciidoctor-pdf -b pdf -o tmp.pdf tmp-pdf.txt
+	@echo "Reducing size of generated PDF file"
+	gs -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dPDFSETTINGS=/prepress \
+		-dNOPAUSE -dQUIET -dBATCH -sOutputFile=$@ tmp.pdf
+	rm -f tmp.pdf
 
 # ----------------------------------------------------------------------
 tmp-html.txt: $(SOURCE) $(DOCDB)
@@ -496,10 +500,10 @@ tmp-pdf.txt: $(SOURCE) $(DOCDB)
 
 # ----------------------------------------------------------------------
 clean:
-	rm -f  tmp-html.txt tmp-pdf.txt  *~
+	rm -f  tmp-html.txt tmp-pdf.txt tmp.pdf *~
 
 distclean: clean
-	rm -f ../HTML/$(HTMLMAIN) 
+	rm -f ../HTML/$(HTMLMAIN)
 	rm -f ../PDF/$(PDF)
 
 # Tell versions [3.59,3.63) of GNU make to not export all variables.
diff --git a/extensions/gtklos/lib/stklos/lib/utils.stk b/extensions/gtklos/lib/stklos/lib/utils.stk
index 969cb8af1..e79065755 100644
--- a/extensions/gtklos/lib/stklos/lib/utils.stk
+++ b/extensions/gtklos/lib/stklos/lib/utils.stk
@@ -31,7 +31,8 @@
 (define-gtk gtk-init (:pointer :pointer) :void        "gtk_init")
 (define-gtk gtk-main-iteration-do (:boolean) :boolean "gtk_main_iteration_do")
 (define-gtk gtk-main () :void                         "gtk_main")
-(define-gtk gtk-events-pending () :boolean            "gtk_events_pending")
+;;(define-gtk gtk-events-pending () :boolean          "gtk_events_pending")
+;;(define-gtk gtk-main-iteration () :void             "gtk_main_iteration")
 
 
 (define *table-id* '())
@@ -99,17 +100,25 @@
   (let ((readline-flavor (key-get *%system-state-plist* #:readline #f)))
     (case readline-flavor
       ((readline libedit)
-       ;; We are using a line editor. Use a hook function to poll the
-       ;; editor input. NOTE: MacOS libedit doesn't provide rl-event-hook
-       ;; FIXME: Print a warning for MacOS?
-       (when rl-event-hook
-         (rl-input-timeout 0)
-         (%readline-idle-hook rl-event-hook)))
+         ;; We are using a line editor. Use a hook function to poll the
+         ;; editor input. NOTE: macOS libedit doesn't provide rl-event-hook
+         (if rl-event-hook
+             ;; We have a rl-event-hook
+             (begin
+               (rl-input-timeout 0)
+               (%readline-idle-hook rl-event-hook))
+             ;; No rl-event-hook (we're probably on macOS).
+             ;; FIXME: Run gtk-main in a separate thread
+             ;; Something like (thread-start! (make-thread gtl-main))
+             ;; is OK on GNU/Linux but  doesn't work (in fact it seems
+             ;; that using external functions in
+             ;; a thread yield a SISEGV.
+             (error "no event hook available. Use gtk-main instead")))
       (else
-       ;; no editor. Use a file-port hook
-       (port-idle-register! (current-input-port)
-                            (lambda ()
-                              (gtk-main-iteration-do #f)))))))
+         ;; no editor. Use a file-port hook
+         (port-idle-register! (current-input-port)
+                              (lambda ()
+                                (gtk-main-iteration-do #f)))))))
 
 
 ;;(define gtk-idle-proc (make-parameter #f))
diff --git a/extensions/gtklos/lib/stklos/widgets/image.stk b/extensions/gtklos/lib/stklos/widgets/image.stk
index ca14cf0c4..3172ef575 100644
--- a/extensions/gtklos/lib/stklos/widgets/image.stk
+++ b/extensions/gtklos/lib/stklos/widgets/image.stk
@@ -1,7 +1,7 @@
 ;;;;
 ;;;; image.stk                  -- GTK Image Widget
 ;;;;
-;;;; Copyright © 2000-2021 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; Copyright © 2000-2023 Erick Gallesio <eg@stklos.net>
 ;;;;
 ;;;;
 ;;;; This program is free software; you can redistribute it and/or modify
@@ -31,6 +31,8 @@
 (define-gtk gtk-image-get-pixbuf (#:pointer) #:pointer         "gtk_image_get_pixbuf")
 
 
+(%compile-time-define %guess-pathname)  ; to avoid a warning
+
 
 ;; See https://developer.gnome.org/gtk3/stable/gtk3-Themeable-Stock-Images.html#GtkIconSize
 (define (size->int sz)
diff --git a/lib/bonus.stk b/lib/bonus.stk
index 4d717b6ac..0f70a5dae 100644
--- a/lib/bonus.stk
+++ b/lib/bonus.stk
@@ -1738,8 +1738,8 @@ doc>
  * |chmod| returns `#t`; otherwise it returns `#f`.
  *
  * @lisp
- * (chmod "~/.stklos/stklosrc" 'read 'execute)
- * (chmod "~/.stklos/stklosrc" #o644)
+ * (chmod "~/.config/stklos/stklosrc" 'read 'execute)
+ * (chmod "~/.config/stklos/stklosrc" #o644)
  * @end lisp
 doc>
 |#
diff --git a/lib/load.stk b/lib/load.stk
index 399ec37a9..5a421297e 100644
--- a/lib/load.stk
+++ b/lib/load.stk
@@ -51,8 +51,13 @@
 ;; stklos-conf-file: returns an absolute name for the given configuration file
 ;;
 (define %stklos-conf-dir
-  (make-parameter (or (getenv "STKLOS_CONFDIR")
-                      (make-path (getenv "HOME") ".stklos"))
+  (make-parameter (let ((old-path (make-path (getenv "HOME") ".stklos"))
+                        (xdg-conf (getenv "XDG_CONFIG_HOME")))
+                    (or (getenv "STKLOS_CONFDIR")
+                        (if (file-exists? old-path)
+                            old-path
+                            (make-path (or xdg-conf "~/.config")
+                                       "stklos"))))
                   expand-file-name))
 
 (define (%stklos-conf-file name)
diff --git a/lib/readline.stk b/lib/readline.stk
index 2805eb5c0..959df8d12 100644
--- a/lib/readline.stk
+++ b/lib/readline.stk
@@ -175,9 +175,10 @@
 
 (define (try-initialize-readline)
   ;; Try in sequence the GNU readline and BSD libedit (which has readline support)
-  (let* ((suffix (%shared-library-suffix))
-         (res (or (try-initialize (string-append "libreadline." suffix))
-                  (try-initialize (string-append "libedit."  suffix)))))
+  (let* ((lsuffix (%shared-library-suffix))
+         (suffix  (%shared-suffix))
+         (res (or (try-initialize (string-append "libreadline." lsuffix))
+                  (try-initialize (string-append "libedit." lsuffix)))))
     (when (and res (try-load (string-append "readline-complete." suffix)))
       ;; We have found a readline library. Try to load completion support
       (%init-readline-completion-function readline-completion-generator))
diff --git a/lib/repl.stk b/lib/repl.stk
index 2c0a185c2..283527909 100644
--- a/lib/repl.stk
+++ b/lib/repl.stk
@@ -81,7 +81,7 @@
  *               #:prompt (bold bg-red white)))
  * @end lisp
  *
- * NOTE: A good place to change your theme is the `.stklosrc` file.
+ * NOTE: A good place to change your theme is the `stklosrc` file.
 doc>
 |#
 (define *repl-themes* `(
@@ -251,7 +251,7 @@ doc>
  *
  * NOTE: This parameter can be set to `#f` with the |--no-startup-message| option of
  * the {{stklos}} command. Otherwise, a good place to set this parameter is in the
- * `.stklosrc` file.
+ * `stklosrc` file.
 doc>
 |#
 (define repl-show-startup-message
diff --git a/src/Makefile.am b/src/Makefile.am
index fc28b2c5d..308ae2100 100644
--- a/src/Makefile.am
+++ b/src/Makefile.am
@@ -25,20 +25,12 @@
 CC	   	 = @CC@
 AM_CFLAGS	 = @STKCFLAGS@
 
-# In order to use strip when cross-compiling, we need it to be settable
-# as an env variable. Setting it in configure.ac doesn't seem to make the
-# desired effect, so we just do this simple conditional assignment here.
-# -- jpellegrini
-STRIP         = @STRIPCMD@
-
-
 STKLOS_BINARY ?= ./stklos
 STKLOS_FLAGS   = --no-init-file --case-sensitive
 
 
-bindir      = $(prefix)/bin
-schemedir   = $(prefix)/share/@PACKAGE@/@VERSION@
-extraincdir = $(prefix)/include/@PACKAGE@
+schemedir   = @SCMDIR@
+extraincdir = @EXECDIR@
 
 
 bin_PROGRAMS    = stklos
@@ -118,10 +110,8 @@ generate-git-info:
 
 
 install-exec-hook:
-	@echo "STRIP command: $$STRIP"
-	if test "X$$STRIP" != "Xno" ;then $(STRIP) $(DESTDIR)/$(bindir)/stklos; fi;
-	mv $(DESTDIR)/$(bindir)/stklos $(DESTDIR)/$(bindir)/stklos-@VERSION@
-	ln -s stklos-@VERSION@ $(DESTDIR)/$(bindir)/stklos
+	mv $(bindir)/stklos $(bindir)/stklos-@VERSION@
+	ln -s stklos-@VERSION@ $(bindir)/stklos
 
 
 doc:  $(DOCDB)
diff --git a/src/Makefile.in b/src/Makefile.in
index 98f73bc63..2db586d57 100644
--- a/src/Makefile.in
+++ b/src/Makefile.in
@@ -373,12 +373,7 @@ SH_MAIN_LOAD_FLAGS = @SH_MAIN_LOAD_FLAGS@
 SH_SUFFIX = @SH_SUFFIX@
 STACK_DIRECTION = @STACK_DIRECTION@
 STKCFLAGS = @STKCFLAGS@
-
-# In order to use strip when cross-compiling, we need it to be settable
-# as an env variable. Setting it in configure.ac doesn't seem to make the
-# desired effect, so we just do this simple conditional assignment here.
-# -- jpellegrini
-STRIP = @STRIPCMD@
+STRIP = @STRIP@
 STRIPCMD = @STRIPCMD@
 SYST_LIBS = @SYST_LIBS@
 THREADS = @THREADS@
@@ -395,7 +390,7 @@ am__leading_dot = @am__leading_dot@
 am__quote = @am__quote@
 am__tar = @am__tar@
 am__untar = @am__untar@
-bindir = $(prefix)/bin
+bindir = @bindir@
 build = @build@
 build_alias = @build_alias@
 build_cpu = @build_cpu@
@@ -438,8 +433,8 @@ top_builddir = @top_builddir@
 top_srcdir = @top_srcdir@
 AM_CFLAGS = @STKCFLAGS@
 STKLOS_FLAGS = --no-init-file --case-sensitive
-schemedir = $(prefix)/share/@PACKAGE@/@VERSION@
-extraincdir = $(prefix)/include/@PACKAGE@
+schemedir = @SCMDIR@
+extraincdir = @EXECDIR@
 #scheme_DATA     = boot.img
 extrainc_DATA = stklos.h extraconf.h stklosconf.h socket.h fport.h
 DOCDB = DOCDB
@@ -969,10 +964,8 @@ generate-git-info:
 	@../utils/generate-git-info
 
 install-exec-hook:
-	@echo "STRIP command: $$STRIP"
-	if test "X$$STRIP" != "Xno" ;then $(STRIP) $(DESTDIR)/$(bindir)/stklos; fi;
-	mv $(DESTDIR)/$(bindir)/stklos $(DESTDIR)/$(bindir)/stklos-@VERSION@
-	ln -s stklos-@VERSION@ $(DESTDIR)/$(bindir)/stklos
+	mv $(bindir)/stklos $(bindir)/stklos-@VERSION@
+	ln -s stklos-@VERSION@ $(bindir)/stklos
 
 doc:  $(DOCDB)
 
diff --git a/src/boot.c b/src/boot.c
index b9c14fefc..3d7264978 100644
--- a/src/boot.c
+++ b/src/boot.c
@@ -6,7 +6,7 @@ This is a dump of the image in file /home/eg/Projects/STklos/lib/boot.img3
 
 #include "stklos.h"
 
-char* STk_boot_consts = "#(current-input-port original-input-port #:aa caar #:ad cdar #:da cadr #:dd cddr #:aaa caaar #:aad cdaar #:ada cadar #:add cddar #:daa caadr #:dad cdadr #:dda caddr #:ddd cdddr #:aaaa caaaar #:aaad cdaaar #:aada cadaar #:aadd cddaar #:adaa caadar #:adad cdadar #:adda caddar #:addd cdddar #:daaa caaadr #:daad cdaadr #:dada cadadr #:dadd cddadr #:ddaa caaddr #:ddad cdaddr #:ddda cadddr #:dddd cddddr pair? car map apply map* cdr for-each* filter filter-map append append-map append! append-map! generic? parameter? %procedure-plist #:setter key-get setter \"no setter defined for ~S\" error key-set! %set-procedure-plist! set-car! set-cdr! vector-ref vector-set! string-ref string-set! slot-ref slot-set! struct-ref struct-set! \"\" string->symbol \"~a\" format string-append symbol-append make-parameter stklos-debug-level compiler-known-globals memq register-new-global! for-each register-new-globals! %modules-stack current-module %create-module %module-create %module-restore raise %module-handler current-error-port \"\\x1b;[33m\" display \"\\x1b;[0m\" newline %debug STklos find-module when (lambda args (if (<= (length args) 1) (syntax-error 'when \"bad syntax in ~S\" `(when ,@args)) `(if ,(car args) (begin ,@(cdr args))))) length \"bad syntax in ~S\" %syntax-error if begin stklos %make-syntax unless (lambda args (if (<= (length args) 1) (syntax-error 'unless \"bad syntax in ~S\" `(unless ,@args)) `(if (not ,(car args)) (begin ,@(cdr args))))) \"bad syntax in ~S\" not set! (lambda args `(%%set! ,@args)) %%set! %claim-error (lambda (owner . body) (let ((x (gensym))) `(with-handler (lambda (,x) (error ,owner (condition-ref ,x 'message))) ,@body))) gensym with-handler lambda condition-ref quote message syntax-error (lambda args (if (zero? (length args)) (error 'syntax-error \"needs at least one argument\") `(%syntax-error ,@args))) zero? \"needs at least one argument\" define-syntax (lambda (macro-name syn-rules) (if (or (not (pair? syn-rules)) (not (eq? (car syn-rules) 'syntax-rules))) (error 'define-syntax \"in `~S', bad syntax-rules ~S\" macro-name syn-rules) (let ((ellipsis '...)) (when (or (symbol? (cadr syn-rules)) (keyword? (cadr syn-rules))) (set! ellipsis (cadr syn-rules)) (set! syn-rules (cdr syn-rules))) (let ((keywords (cons macro-name (cadr syn-rules))) (clauses (cddr syn-rules)) (find-clause (symbol-value 'find-clause (find-module 'MBE)))) `(define-macro (,macro-name . args) (%find-macro-clause ',macro-name args ',keywords ',clauses ',ellipsis)))))) syntax-rules \"in `~S', bad syntax-rules ~S\" ... symbol? keyword? find-clause MBE symbol-value define-macro args %find-macro-clause module-symbols library? module-symbols* module? %module-exports module-exports select-module (lambda (name) (let* ((compfile (in-module STKLOS-COMPILER *compiling-file*)) (mod (find-module name #f)) (newmod (or mod (if compfile (%module-create name) (error 'select-module \"module ~s does not exists\" name))))) (when (and mod (not (eq? name 'STklos))) (register-new-globals! (module-symbols mod))) `(begin (%%set-current-module (find-module ',name)) (when-compile (compiler-current-module ,newmod))))) symbol-value* *compiling-file* STKLOS-COMPILER \"module ~s does not exists\" %%set-current-module when-compile compiler-current-module define-module (lambda (name . body) (let ((oldmod (compiler-current-module)) (newmod (or (find-module name #f) (%module-create name)))) `(with-handler %module-handler (%%set-current-module (%module-create ',name)) (%%when-compile (compiler-current-module ,newmod)) ,@body (%%when-compile (compiler-current-module ,oldmod)) (%%set-current-module ((%%in-scheme '%module-restore))) (values (void) ',name)))) %%when-compile %%in-scheme values void list? only every import \"bad list of symbols ~s in only clause\" #:only \"bad only clause ~s\" except \"bad list of symbols ~s in except clause\" #:except \"bad except clause ~s\" prefix #:prefix \"bad prefix clause ~s\" rename \"bad list of associations ~s in rename clause\" #:rename \"bad rename clause ~s\" %normalize-library-name \"bad import set ~s\" %parse-imports %find-instanciated-module symbol->string require/provide \"module/library ~s does not exist\" %symbol->library-name \"symbol ~s is not in the import set\" filter! remove list-copy absent %syntax? %symbol-link reverse module-name module-imports %module-imports-set! %do-imports (lambda modules (let ((imp (%parse-imports modules))) (for-each (lambda (x) (%grab-file-information (symbol->string (car x)))) imp) (%do-imports (compiler-current-module) (list-copy imp) #t) `(%do-imports (current-module) (list-copy ',imp) #f))) %grab-file-information %%import reverse! %do-exports export \"bad renaming clause ~S\" \"bad exportation `~S'\" %parse-exports assq \"exported symbol ~s was previously renamed as ~S\" %module-exports-set! (lambda symbols (let ((s (%parse-exports symbols))) `(%do-exports (current-module) ',s))) export-syntax (lambda arg `(%%publish-syntax ,@arg)) %%publish-syntax in-module (lambda (mod symb . default) `(apply symbol-value* ',symb (find-module ',mod) ',default)) all-modules module-list %populate-scheme-module SCHEME ((SCHEME)) ((eval . eval) (disassemble . disassemble) (disassemble-expr . disassemble-expr) (%compiler-set-flags . %compiler-set-flags) (%grab-file-information . %grab-file-information) (%compiler-new-label . %compiler-new-label) (%macro-expand . %macro-expand) (compiler-current-module . compiler-current-module) (when-compile . when-compile) (when-load-and-compile . when-load-and-compile) (%syntax-error . %syntax-error) (%compile-time-define . %compile-time-define)) *compiler-port* + - * / fx+ fx- fx* fxquotient = < <= > >= fx=? fx<? fx<=? fx>? fx>=? fx= fx< fx<= fx> fx>= cons null? list eq? eqv? equal? %cxr list-ref *inline-table* *inline-symbols* (%set-current-module %%set-current-module %%execute %%execute-handler) *always-inlined* *code-instr* *code-constants* *code-labels* integer? label? NOP this-instr next-instr this-arg1 this-arg2 next-arg1 next-arg2 GOTO RETURN PUSH (IM-FALSE IM-TRUE IM-NIL IM-MINUS1 IM-ZERO IM-ONE IM-VOID) IM-FALSE FALSE-PUSH IM-TRUE TRUE-PUSH IM-NIL NIL-PUSH IM-MINUS1 MINUS1-PUSH IM-ZERO ZERO-PUSH IM-ONE ONE-PUSH IM-VOID VOID-PUSH SMALL-INT INT-PUSH CONSTANT CONSTANT-PUSH DEEP-LOCAL-REF DEEP-LOC-REF-PUSH IN-NOT (IN-NUMEQ IN-NUMDIFF IN-FXEQ IN-FXDIFF IN-NUMLT IN-NUMGT IN-NUMLE IN-NUMGE IN-EQ IN-EQV IN-EQUAL) IN-NUMEQ IN-NUMDIFF IN-FXEQ IN-FXDIFF IN-NUMLT IN-NUMGE IN-NUMGT IN-NUMLE IN-EQ IN-NOT-EQ IN-EQV IN-NOT-EQV IN-EQUAL IN-NOT-EQUAL JUMP-FALSE (IN-NUMEQ IN-NUMLT IN-NUMGT IN-NUMLE IN-NUMGE IN-EQ IN-EQV IN-EQUAL IN-NOT) JUMP-NUMDIFF JUMP-NUMEQ JUMP-NUMGE JUMP-NUMGT JUMP-NUMLE JUMP-NUMLT JUMP-NOT-EQ JUMP-NOT-EQV JUMP-NOT-EQUAL JUMP-TRUE GLOBAL-REF GLOBAL-REF-PUSH PUSH-GLOBAL-REF INVOKE PUSH-GREF-INVOKE TAIL-INVOKE PUSH-GREF-TAIL-INV PREPARE-CALL PUSH-PREPARE-CALL GREF-INVOKE GREF-TAIL-INVOKE (LOCAL-REF0 LOCAL-REF1 LOCAL-REF2 LOCAL-REF3 LOCAL-REF4) LOCAL-REF0 LOCAL-REF0-PUSH LOCAL-REF1 LOCAL-REF1-PUSH LOCAL-REF2 LOCAL-REF2-PUSH LOCAL-REF3 LOCAL-REF3-PUSH LOCAL-REF4 LOCAL-REF4-PUSH peephole ((NOP 0) (IM-FALSE 0) (IM-TRUE 0) (IM-NIL 0) (IM-MINUS1 0) (IM-ZERO 0) (IM-ONE 0) (IM-VOID 0) (SMALL-INT 1) (CONSTANT 1) (GLOBAL-REF 1) (UGLOBAL-REF 1) (LOCAL-REF0 0) (LOCAL-REF1 0) (LOCAL-REF2 0) (LOCAL-REF3 0) (LOCAL-REF4 0) (LOCAL-REF 1) (DEEP-LOCAL-REF 1) (GLOBAL-SET 1) (UGLOBAL-SET 1) (LOCAL-SET0 0) (LOCAL-SET1 0) (LOCAL-SET2 0) (LOCAL-SET3 0) (LOCAL-SET4 0) (LOCAL-SET 1) (DEEP-LOCAL-SET 1) (GOTO 1) (JUMP-FALSE 1) (JUMP-TRUE 1) (DEFINE-SYMBOL 1) (POP 0) (PUSH 0) (DBG-VM 1) (CREATE-CLOSURE 2) (RETURN 0) (PREPARE-CALL 0) (INVOKE 1) (TAIL-INVOKE 1) (ENTER-LET-STAR 1) (ENTER-LET 1) (ENTER-TAIL-LET-STAR 1) (ENTER-TAIL-LET 1) (LEAVE-LET 0) (PUSH-HANDLER 1) (POP-HANDLER 0) (END-OF-CODE 0) (IN-ADD2 0) (IN-SUB2 0) (IN-MUL2 0) (IN-DIV2 0) (IN-NUMEQ 0) (IN-NUMLT 0) (IN-NUMGT 0) (IN-NUMLE 0) (IN-NUMGE 0) (IN-INCR 0) (IN-DECR 0) (IN-CONS 0) (IN-NULLP 0) (IN-CAR 0) (IN-CDR 0) (IN-LIST 1) (IN-NOT 0) (IN-VREF 0) (IN-VSET 0) (IN-SREF 0) (IN-SSET 0) (IN-EQ 0) (IN-EQV 0) (IN-EQUAL 0) (IN-APPLY 2) (IN-CXR 1) (SET-CUR-MOD 0) (DOCSTRG 1) (PROCNAME 1) (FALSE-PUSH 0) (TRUE-PUSH 0) (NIL-PUSH 0) (MINUS1-PUSH 0) (ZERO-PUSH 0) (ONE-PUSH 0) (VOID-PUSH 0) (INT-PUSH 1) (CONSTANT-PUSH 1) (GREF-INVOKE 2) (UGREF-INVOKE 2) (IN-NUMDIFF 0) (IN-NOT-EQ 0) (IN-NOT-EQV 0) (IN-NOT-EQUAL 0) (JUMP-NUMDIFF 1) (JUMP-NUMEQ 1) (JUMP-NUMLT 1) (JUMP-NUMLE 1) (JUMP-NUMGT 1) (JUMP-NUMGE 1) (JUMP-NOT-EQ 1) (JUMP-NOT-EQV 1) (JUMP-NOT-EQUAL 1) (LOCAL-REF0-PUSH 0) (LOCAL-REF1-PUSH 0) (LOCAL-REF2-PUSH 0) (LOCAL-REF3-PUSH 0) (LOCAL-REF4-PUSH 0) (GLOBAL-REF-PUSH 1) (UGLOBAL-REF-PUSH 1) (GREF-TAIL-INVOKE 2) (UGREF-TAIL-INVOKE 2) (PUSH-PREPARE-CALL 0) (PUSH-GLOBAL-REF 1) (PUSH-UGLOBAL-REF 1) (PUSH-GREF-INVOKE 2) (PUSH-UGREF-INVOKE 2) (PUSH-GREF-TAIL-INV 2) (PUSH-UGREF-TAIL-INV 2) (DEEP-LOC-REF-PUSH 1) (UNUSED-3 0) (UNUSED-4 0) (UNUSED-5 0) (UNUSED-6 0) (UNUSED-7 0) (UNUSED-8 0) (UNUSED-9 0) (UNUSED-10 0) (UNUSED-11 0) (UNUSED-12 0) (UNUSED-13 0) (UNUSED-14 0) (UNUSED-15 0) (UNUSED-16 0) (UNUSED-17 0) (UNUSED-18 0) (UNUSED-19 0) (IN-SINT-ADD2 1) (IN-SINT-SUB2 1) (IN-SINT-MUL2 1) (IN-SINT-DIV2 1) (UNUSED-20 0) (UNUSED-21 0) (UNUSED-22 0) (UNUSED-23 0) (UNUSED-24 0) (UNUSED-25 0) (UNUSED-26 0) (UNUSED-27 0) (UNUSED-28 0) (CALL-LOCATION 1) (DEEP-LOC-REF-FAR 1) (DEEP-LOC-SET-FAR 1) (CREATE-CLOSURE-FAR 2) (PUSH-HANDLER-FAR 1) (IN-FXADD2 0) (IN-FXSUB2 0) (IN-FXMUL2 0) (IN-FXDIV2 0) (IN-SINT-FXADD2 1) (IN-SINT-FXSUB2 1) (IN-SINT-FXMUL2 1) (IN-SINT-FXDIV2 1) (IN-FXEQ 0) (IN-FXLT 0) (IN-FXGT 0) (IN-FXLE 0) (IN-FXGE 0) (IN-FXDIFF 0) (SOURCE 1) (FORMALS 1) (INSCHEME 0)) INSTRUCTION-SET \"non existent opcode ~S\" panic info-opcode (GOTO JUMP-FALSE JUMP-TRUE JUMP-NUMDIFF JUMP-NUMGE JUMP-NUMGT JUMP-NUMGE JUMP-NUMLT JUMP-NUMLE JUMP-NOT-EQ JUMP-NOT-EQV JUMP-NOT-EQUAL CREATE-CLOSURE CREATE-CLOSURE-FAR PUSH-HANDLER PUSH-HANDLER-FAR) use-address? string-upcase string-length #\\space make-string pretty-mnemonic \"Cannot decode ~S opcode\" find-instruction-infos CREATE-CLOSURE CREATE-CLOSURE-FAR PUSH-HANDLER PUSH-HANDLER-FAR \"No FAR version of instruction ~S\" find-far-codeop make-vector small-integer-constant? (CREATE-CLOSURE-FAR PUSH-HANDLER-FAR) memv fetch-constant \"Instr. using a big constant as 2nd operand ~S\" \"Instruction with more than 2 parameters ~S\" assemble \"~A~A~A\" quotient remainder \"\\t;; ==> ~A\" vector-length \"\\n~A:  ~A\" \" ~A\" \" ~S ~S\" \"cannot disassemble instruction (~S)\" \"\\n~A:\\n\" disassemble-code current-output-port \"too many optional parameters: ~a\" %procedure-code disassemble \"cannot disassemble ~S (not a closure with bytecode)\" compile END-OF-CODE emit vector-copy \"\\nConstants:\\n\" fprintf \"~A: ~W\\n\" dynamic-wind disassemble-expr \"*** PANIC *** \" getcwd string-position substring %path-without-cwd \"\" \"~A: \" %epair? \"~A:~A: \" %epair-file %epair-line %port-file-fd \"~A:~A: \" port-file-name port-current-line \"\" \"~AError: ~A~A\\n\" compiler-error \"\" \"~A: \" \"~A:~A: \" \"\" \"~Awarning: ~A~A\\n\" \"**** Warning;\\n~A~A\\n\" compiler-warning unquote \"used outside of a quasiquote context\" unquote-splicing \"used outside of a quasiquote context\" string? \"bad parameters ~S\" \"bad parameters ~S\" *file-module-list* file-module-list-reset! add-file-module-list! %syntax-source file-module-list-expanders #:prepend G33 #:version version #:globals #:macros clock compiler:warn-use-undefined-postpone compile-file \"prepend should be a list: ~S\" %include-file \"#!/usr/bin/env stklos\\n\" \"; A -*- Scheme -*- generated file *DO NOT EDIT**\\n\" \"STklos ~S\\n\" compiler:show-assembly-code \"\\n#|\\n\" \"\\n~S\\n|#\\n\" \"#~S\\n\" %dump-code close-output-port compiler-show-undefined-symbols interactive-port? compiler:time-display \"Compilation time ~S ms\\n\" round exact dirname \"stk-tmp.\" make-path create-temp-file file-exists? delete-file rename-file call-with-values ((compile-file . compile-file)) ((compiler:time-display . compiler:time-display) (compiler:gen-line-number . compiler:gen-line-number) (compiler:warn-use-undefined . compiler:warn-use-undefined) (compiler:warn-use-undefined-postpone . compiler:warn-use-undefined-postpone) (compiler:show-assembly-code . compiler:show-assembly-code) (compiler:keep-formals . compiler:keep-formals) (compiler:keep-source . compiler:keep-source) (compiler:inline-common-functions . compiler:inline-common-functions) (compiler:unroll-iterations . compiler:unroll-iterations)) compiler:gen-line-number compiler:warn-use-undefined compiler:keep-formals compiler:keep-source fixnum? positive? compiler:unroll-iterations \"must be a positive fixnum. It was ~s\" \"Fatal error: ~a\\nABORT\\n\" condition-message eprintf emergency-exit (#\\+ #\\-) #\\+ char=? line-info time-display keep-formals compiler:generate-signature keep-source inline-usuals compiler:inline-common-functions show-instructions \"bad boolean flag ~s\" \"=\" string-split string->number unroll-iterations \"bad value for unroll-iteration ~s\" \"bad flag name ~s\" \"bad valued flag ~s\" \",\" %compiler-set-flags scope (locals mlocals parent) make-struct-type make-struct make-scope struct? struct-is-a? scope? scope-locals %fast-struct-ref scope-mlocals scope-parent %fast-struct-set! find-symbol-in-env \"***SCOPE*** ~S\\n\" \"   ==> locals= ~S mlocals= ~S parent =~S\" %debug-scope find-syntax-in-env %macro-expand quasiquote %syntax-expander \"bad module parameter ~s\" new-label %compiler-new-label emit-label expt exact? compile-constant \"bad usage in ~S\" compile-quote *forward-globals* symbol-bound? known-var? \"reference to undefined symbol ~S\" compiler-warn-undef verify-global define define->lambda \"ill formed definition ~S\" \"bad definition\" DEFINE-SYMBOL \"bad variable name ~S\" \"internal define forbidden here ~S\" compile-define GLOBAL-SET LOCAL-SET0 LOCAL-SET1 LOCAL-SET2 LOCAL-SET3 LOCAL-SET4 LOCAL-REF LOCAL-SET DEEP-LOCAL-SET DEEP-LOC-REF-FAR DEEP-LOC-SET-FAR compile-access compile-reference \"~S is a bad symbol\" \"bad assignment syntax in ~S\" compile-set! \"bad syntax in ~S\" compile-if extended-lambda->lambda eval %symbol-define \"bad variable name ~S\" \"internal define-macro forbidden here ~S\" compile-define-macro compile-and compile-or compile-begin compute-arity extend-env extract-doc-and-name \"body is empty\" let compile-body DOCSTRG PROCNAME keyword->string FORMALS SOURCE compile-user-lambda ext-lambda-key-get and or 'lambda make-keyword \"too many optional parameters: ~a\" let* build-let* \"illegal ~a parameter: ~a\" \"optional\" \"keyword\" (#:optional #:key #:rest) \"duplicate parameter ~S\" \"bad class name ~S\" \"bad procedure parameter ~S\" last-pair #:rest #:optional #:key \"illegal lambda list ending with ~a\" \"rest parameter must be a single symbol\" parse-parameter-list rewrite-params-and-body method \"bad definition ~S\" compile-lambda compile-args compile-var-args CALL-LOCATION %maybe-generate-line-information generate-PREPARE-CALL compile-normal-call assoc can-be-inlined? \"1 argument required (~A provided)\" \"2 arguments required (~A provided)\" \"3 arguments required (~A provided)\" SET-CUR-MOD \"1 arg. only (~S)\" %%execute-handler EXEC-HANDLER number? IN-INCR IN-SINT-ADD2 IN-ADD2 \"needs at least one argument\" IN-SINT-SUB2 IN-DECR IN-SUB2 IN-SINT-MUL2 IN-MUL2 \"needs at least one argument\" IN-SINT-DIV2 IN-DIV2 (fx+ fx- fx* fxquotient) (fx+ fx*) IN-SINT-FXADD2 IN-SINT-FXMUL2 IN-SINT-FXSUB2 IN-SINT-FXDIV2 IN-FXADD2 IN-FXSUB2 IN-FXMUL2 IN-FXDIV2 (= < > <= >=) O \"needs at least one argument\" (fx=? fx<? fx>? fx<=? fx>=? fx= fx< fx> fx<= fx>=) \"needs at least one argument\" (fx=? fx=) (fx<? fx<) IN-FXLT (fx>? fx>) IN-FXGT (fx<=? fx<=) IN-FXLE (fx>=? fx>=) IN-FXGE IN-CONS IN-CAR IN-CDR IN-NULLP IN-LIST IN-VREF IN-VSET IN-SREF IN-SSET (caar cdar cadr cddr caaar cdaar cadar cddar caadr cdadr caddr cdddr caaaar cdaaar cadaar cddaar caadar cdadar caddar cdddar caaadr cdaadr cadadr cddadr caaddr cdaddr cadddr cddddr) string->list list->string string->keyword IN-CXR \"unimplemented inline primitive ~S\" compile-primitive-call negative? ENTER-TAIL-LET ENTER-LET LEAVE-LET \"bad number of parameters ~S\" compile-lambda-call |λ| compile-call \"duplicate binding ~S\" \"malformed binding ~S\" valid-let-bindings? letrec \"ill formed letrec ~S\" compile-letrec \"ill formed named let ~S\" compile-named-let \"ill formed let ~S\" compile-let \"ill formed let* ~S\" ENTER-TAIL-LET-STAR ENTER-LET-STAR compile-let* cond \"invalid clause ~S\" else \"else not in last clause ~S\" => rewrite-cond-clauses \"bad '=>' clause syntax ~S\" compile-cond ok case \"duplicate case value ~S in ~S\" \"ill formed case clause ~S\" \"invalid clause syntax in ~S\" \"ill formed else clause ~S\" \"ill formed clause ~S\" rewrite-case-clauses \"no key given\" compile-case do \"bad binding ~S\" rewrite-do \"bad syntax\" compile-do 'quasiquote backquotify 'unquote 'unquote-splicing vector? list->vector vector->list \"bad syntax\" compile-quasiquote POP-HANDLER \"bad syntax\" compile-with-handler open-input-file eof-object? %read close-port include \"bad include directive ~S\" compile-include include-ci \"bad include directive ~S\" read-case-sensitive compile-include-ci INSCHEME \"expected one argument\" compile-in-scheme %let-syntax \"ill formed %let-syntax ~S\" \"ill formed binding ~S\" compile-%let-syntax %file-information remove-file #:nature source data %library-prefix load-path find-path unknown find-file-information member import-file-information boolean? compile-require \"*** Exception on when-compile form of ~S\\n\" compile-when-compile (lambda body `(begin (%%when-compile ,@body) (void))) when-load-and-compile (lambda body `(begin (%%when-compile ,@body) ,@body (void))) %%label \"bad usage ~S\" compile-%%label %%goto \"bad usage ~S\" compile-%%goto compile-%%source-pos (lambda |λ|) (let %let) %%require %%include %%include-ci %%source-pos %execute %compile-time-define (lambda symbs `(when-compile ,@(map (lambda (x) `(define ,x #void)) symbs))) ((STKLOS-COMPILER)) ((with-input-from-file . with-input-from-file) (with-output-to-file . with-output-to-file) (with-error-to-file . with-error-to-file) (with-input-from-string . with-input-from-string) (with-output-to-string . with-output-to-string) (with-input-from-port . with-input-from-port) (with-output-to-port . with-output-to-port) (with-error-to-port . with-error-to-port) (%call-with . %call-with) (call-with-input-file . call-with-input-file) (call-with-output-file . call-with-output-file) (rationalize . rationalize) (call-with-values . call-with-values)) open-file &i/o-filename-error location \"cannot open file ~S\" backtrace %vm-backtrace filename make-condition %make-with-file with-input-from-file \"r\" with-output-to-file \"w\" with-error-to-file \"w\" open-input-string with-input-from-string open-output-string get-output-string with-output-to-string %make-with-port \"r\" with-input-from-port \"w\" with-output-to-port \"w\" with-error-to-port %call-with call-with-input-file open-output-file call-with-output-file rationalize \"bad rational ~S\" floor 0.0 rational? %call-for-values %use-utf8? string-blit! string-titlecase string-titlecase! \"bad string ~S\" \" \\t\\n\" %string-use-utf8? \"bad offset ~S\" string-mutable? \"changing the constant string ~S is not allowed\" \"bad starting index ~S\" \"bad ending index ~S\" char-alphabetic? char-upcase char-downcase \"bad starting index ~S\" \"bad ending index ~S\" ((call/cc . call/cc) (call-with-current-continuation . call-with-current-continuation) (dynamic-wind . dynamic-wind)) %make-continuation %fresh-continuation? %restore-continuation %call/cc call/cc %thread-dynwind-stack %thread-dynwind-stack-set! procedure? \"bad procedure ~S\" call-with-current-continuation ((define-struct . define-struct)) define-struct (lambda (name . slots) (define (compute-offset slot slots) (let ((sublist (memq slot slots))) (- (length slots) (length sublist)))) (let* ((pred (string->symbol (format \"~a?\" name))) (arg (gensym)) (val (gensym))) `(begin (define ,name (make-struct-type ',name #f ',slots)) (define (,(string->symbol (format \"make-~a\" name)) unquote arg) (apply make-struct ,name ,arg)) (define (,pred ,arg) (and (struct? ,arg) (struct-is-a? ,arg ,name))) ,@(map (lambda (x) (let ((fname (string->symbol (format \"~a-~a\" name x)))) `(define ,fname (lambda (,arg) (%fast-struct-ref ,arg ,name ',fname ,(compute-offset x slots)))))) slots) ,@(map (lambda (x) (let ((fname (string->symbol (format \"~a-~a\" name x)))) `(set! (setter ,fname) (lambda (,arg ,val) (%fast-struct-set! ,arg ,name ',fname ,(compute-offset x slots) ,val))))) slots) (values (void) ',name)))) \"~a?\" \"make-~a\" \"~a-~a\" \"~a-~a\" ((read-chars . read-chars) (read-chars! . read-chars!) (display-shared . display-shared) (gensym . gensym) (macro-expand . macro-expand) (macro-expand* . macro-expand*) (remove . remove) (remove! . remove!) (delete . delete) (delete! . delete!) (every . every) (any . any) (call-with-input-string . call-with-input-string) (call-with-output-string . call-with-output-string) (open-input-virtual . open-input-virtual) (open-output-virtual . open-output-virtual) (read-from-string . read-from-string) (eval-from-string . eval-from-string) (command-line . command-line) (program-name . program-name) (create-directories . create-directories) (ensure-directories-exist . ensure-directories-exist) (posix-error? . posix-error?) (posix-error-name . posix-error-name) (posix-error-message . posix-error-message) (posix-error-errno . posix-error-errno) (posix-error-procedure . posix-error-procedure) (posix-error-arguments . posix-error-arguments) (make-hash-table . make-hash-table) (hash-table->alist . hash-table->alist) (alist->hash-table . alist->hash-table) (hash-table-update! . hash-table-update!) (hash-table-update!/default . hash-table-update!/default) (hash-table-keys . hash-table-keys) (hash-table-values . hash-table-values) (hash-table-fold . hash-table-fold) (hash-table-merge! . hash-table-merge!) (hash-table-copy . hash-table-copy) (fluid-let . fluid-let) (time . time) (tagbody . tagbody) (dotimes . dotimes) (repeat . repeat) (while . while) (until . until) (call/ec . call/ec) (base64-encode-string . base64-encode-string) (base64-decode-string . base64-decode-string) (md5sum-file . md5sum-file) (ansi-color . ansi-color) (ansi-color-protect . ansi-color-protect) (do-color . do-color) (port->string . port->string) (port->sexp-list . port->sexp-list) (port->string-list . port->string-list) (print . print) (printerr . printerr) (eprintf . eprintf) (printf . printf) (fprintf . fprintf) (declare-new-error . declare-new-error) (exec . exec) (exec-list . exec-list) (apropos . apropos) (die . die) (decompose-file-name . decompose-file-name) (dirname . dirname) (basename . basename) (file-separator . file-separator) (make-path . make-path) (file-suffix . file-suffix) (file-prefix . file-prefix) (port-idle-register! . port-idle-register!) (port-idle-unregister! . port-idle-unregister!) (port-idle-reset! . port-idle-reset!) (chmod . chmod) (with-mutex . with-mutex) (error-object-location . error-object-location) (%push-id . %push-id) (%stable-version? . %stable-version?) (define-constant . define-constant) (void? . void?) (receive . receive) (case-lambda . case-lambda) (radians->degrees . radians->degrees) (degrees->radians . degrees->radians) (%define-condition-type-accessors . %define-condition-type-accessors) (message-condition? . message-condition?) (condition-message . condition-message) (serious-condition? . serious-condition?) (error? . error?) (error-message? . error-message?) (error-location . error-location) (error-message . error-message) (read-with-shared-structure . read-with-shared-structure) (read/ss . read/ss) (write-with-shared-structure . write-with-shared-structure) (write/ss . write/ss) (parameterize . parameterize) (require-extension . require-extension) (string->keyword . string->keyword) (get-environment-variable . get-environment-variable) (get-environment-variables . get-environment-variables) (implementation-name . implementation-name) (implementation-version . implementation-version) (cpu-architecture . cpu-architecture) (machine-name . machine-name) (os-name . os-name) (os-version . os-version) (fx-width . fx-width) (fx-greatest . fx-greatest) (fx-least . fx-least) (assume . assume) (version-alist . version-alist) (port-has-port-position? . port-has-port-position?) (port-position . port-position) (port-has-set-port-position!? . port-has-set-port-position!?) (set-port-position! . set-port-position!) (make-i/o-invalid-position-error . make-i/o-invalid-position-error) (i/o-invalid-position-error? . i/o-invalid-position-error?) (command-name . command-name) (command-args . command-args) (argc . argc) (script-file . script-file) (script-directory . script-directory) (make-nan . make-nan)) read-bytes read-chars read-bytes! read-chars! display-shared \"G\" \"bad gensym prefix ~S\" number->string string->uninterned-symbol macro-expand macro-expand* remove! delete delete! \"bad procedure\" any \"bad procedure\" call-with-input-string call-with-output-string #:read-char #:ready? #:eof? #:close vector %open-input-virtual open-input-virtual #:write-char #:write-string #:flush %open-output-virtual open-output-virtual read read-from-string eval-from-string *%system-state-plist* #:script-file \"\" \"\" \"\" #:program-name \"\" #:argv \"bad command line ~S\" command-line program-name file-is-directory? create-directories create-directory ensure-directories-exist condition? &posix-error condition-has-type? posix-error? \"expected a posix-error condition\" %posix-error-condition-ref errname posix-error-name r7rs-msg posix-error-message errno posix-error-errno posix-error-procedure r7rs-irritants posix-error-arguments hash-table-hash %make-hash-table make-hash-table hash-table-map hash-table->alist hash-table-exists? hash-table-set! alist->hash-table hash-table-ref hash-table-update! hash-table-ref/default hash-table-update!/default hash-table-keys hash-table-values hash-table-for-each hash-table-fold hash-table-merge! hash-table-equivalence-function hash-table-hash-function hash-table-copy fluid-let (lambda (bindings . body) (let* ((vars (map car bindings)) (vals (map cadr bindings)) (tmps (map (lambda (x) (gensym)) vars))) `(let ,(map list tmps vars) (dynamic-wind (lambda () ,@(map (lambda (x y) `(set! ,x ,y)) vars vals)) (lambda () ,@body) (lambda () ,@(map (lambda (x y) `(set! ,x ,y)) vars tmps)))))) time (lambda args (let ((tmp1 (gensym)) (tmp2 (gensym))) `(let* ((,tmp1 (clock)) (,tmp2 (begin ,@args))) (format (current-error-port) \"Elapsed time: ~S ms\\n\" (- (clock) ,tmp1)) ,tmp2))) \"Elapsed time: ~S ms\\n\" tagbody (lambda body (let ((tags (map (lambda (x) (cons x (%compiler-new-label))) (filter keyword? body)))) (define (replace code) (if (pair? code) (if (and (eq? (car code) '->) (= (length code) 2)) (let ((t (assq (cadr code) tags))) (if t `(%%goto ,(cdr t)) code)) (map replace code)) code)) (define (verify code) (if (pair? code) (cond ((and (eq? (car code) '->) (= (length code) 2)) (error 'tagbody \"destination label ~S not defined\\n\" (cadr code))) ((eq? (car code) 'tagbody) #void) (else (map verify code))))) (let ((new-body (map (lambda (x) (if (keyword? x) `(%%label ,(cdr (assq x tags))) (replace x))) body))) (verify new-body) `(begin ,@new-body)))) -> \"destination label ~S not defined\\n\" dotimes (lambda (bindings . body) (apply (lambda (var count . result) (let* ((result (if (null? result) (list '(void)) result)) (limit (if (number? count) count (gensym))) (head (if (number? count) '(begin) `(let ((,limit ,count))))) (plus (if (fixnum? count) 'fx+ '+)) (ge (if (fixnum? count) 'fx>= '>=))) `(,@head (do ((,var 0 (,plus ,var 1))) ((,ge ,var ,limit) ,@result) ,@body)))) bindings)) (void) (begin) repeat (lambda (count . body) (define (%repeat n body use-fx?) (let ((minus (if use-fx? 'fx- '-)) (gt (if use-fx? 'fx> '>))) `(tagbody #:top (when (,gt ,n 0) (set! ,n (,minus ,n 1)) ,@body (-> #:top))))) (define (%multiply-list L k) (cond ((fx=? k 0) '()) ((fx=? k 1) (list-copy L)) (else (append (list-copy L) (%multiply-list L (fx- k 1)))))) (let* ((it (compiler:unroll-iterations)) (inside (%multiply-list body it)) (c (gensym)) (q (gensym)) (r (gensym))) (if (fixnum? count) (if (and (= it 1) (positive? count)) `(let ((,c ,count)) ,(%repeat c body #t)) (let ((valq (quotient count it)) (valr (remainder count it))) `(begin ,(if (positive? valq) `(let ((,q ,valq)) ,(%repeat q inside #t)) `(void)) ,(if (positive? valr) `(let ((,r ,valr)) ,(%repeat r body #t)) `(void))))) (if (= it 1) `(let ((,c ,count)) ,(%repeat c body #f)) `(let* ((,c ,count) (,q (quotient ,c ,it)) (,r (remainder ,c ,it))) ,(%repeat q inside #f) ,(%repeat r body #f)))))) #:top while (lambda (test . body) `(tagbody #:top (when ,test (begin ,@body (-> #:top))))) until (lambda (test . body) `(tagbody #:top (unless ,test (begin ,@body (-> #:top))))) \"call/ec\" call/ec base64-encode-string base64-decode-string \"bad string ~s\" base64-encode base64-decode \"r\" md5sum close-input-port \"cannot read file ~s\" md5sum-file ansi-color ansi-color-protect \"\\x1b;[\" \"m\" ((normal . \"0\") (bold . \"1\") (no-bold . \"21\") (italic . \"2\") (no-italic . \"22\") (underline . \"4\") (no-underline . \"24\") (blink . \"5\") (no-blink . \"25\") (reverse . \"7\") (no-reverse . \"27\") (black . \"30\") (bg-black . \"40\") (red . \"31\") (bg-red . \"41\") (green . \"32\") (bg-green . \"42\") (yellow . \"33\") (bg-yellow . \"43\") (blue . \"34\") (bg-blue . \"44\") (magenta . \"35\") (bg-magenta . \"45\") (cyan . \"36\") (bg-cyan . \"46\") (white . \"37\") (bg-white . \"47\")) \"\" \"\\x1b;[\" \"m\" \"\" \"\" \";\" \"38;5;~a\" \"48;5;~a\" \";\" \"bad command ~S\" \"TERM\" getenv \"\" #:interactive regexp-match (\"rxvt\" \"xterm\" \"xterm-color\" \"linux\" \"cygwin\" \"cons25\") \"\" do-color input-port? port->list \"bad port ~S\" %port->list \"bad port ~S\" copy-port port->string port->sexp-list read-line port->string-list print printerr flush-output-port printf declare-new-error (lambda (name) (let ((cond-name (string->symbol (format \"&~a\" name))) (predicate (string->symbol (format \"&~a?\" name))) (args (gensym))) `(begin (define-condition-type ,cond-name &error-message ,predicate) (define (,name unquote args) (if (and (not (null? ,args)) (symbol? (car ,args))) (apply signal-error ,cond-name ,args) (apply signal-error ,cond-name ',name ,args)))))) \"&~a\" \"&~a?\" define-condition-type &error-message signal-error \"| \" exec \"| \" exec-list string<? apropos \"bad module ~S\" sort string-find? \"**** ~A\\n**** EXIT\\n\" exit die running-os cygwin-windows posixify-file-name #\\/ \"/\" \".\" \"/\" decompose-file-name \"^(.*)/(.+)$\" \"\\\\1\" regexp-replace \"\" string=? \"/\" \".\" \"^(.*)/(.*)$\" \"\\\\2\" basename \"/\" \".\" \"/\" \"^(.*)/(.+)$\" \"\\\\1\" \"\" \"/\" \".\" \"^(.*)/(.*)$\" \"\\\\2\" (unix cygwin-windows android) windows #\\\\ #\\? file-separator \"~A~A~A\" #\\. file-suffix file-prefix port-idle-register! \"bad procedure ~S\" %port-idle port-idle-unregister! \"bad procedure ~S\" port-idle-reset! expand-file-name %chmod bit-or write execute chmod \"bad option ~S\" \"bad option ~S\" mutex-lock! mutex-unlock! with-mutex error-object? \"bad error object: ~S\" error-object-location define-constant (lambda args (define (rewrite l) (if (<= (length l) 1) (error \"bad constant definition\")) (let ((bind (car l)) (body (cdr l))) (if (pair? bind) (rewrite `(,(car bind) (lambda ,(cdr bind) ,@body))) l))) (let ((args (rewrite args))) (if (= (length args) 2) `(begin (define ,@args) (symbol-immutable! ',(car args))) (error \"bad constant definition ~S\" `(define-constant ,@args))))) \"bad constant definition\" symbol-immutable! \"bad constant definition ~S\" void? real? \"bad real number ~S\" 3.14159265358979 radians->degrees \"bad real number ~S\" 3.14159265358979 degrees->radians %stable-version? \"stable\" %stklos-git #:commit \"unstable -- ~a\" \"unstable\" %push-id receive (lambda (vars producer . body) `(call-with-values (lambda () ,producer) (lambda ,vars ,@body))) case-lambda (lambda clauses (let ((len (gensym)) (args (gensym)) (compute-arity (in-module STKLOS-COMPILER compute-arity))) `(lambda ,args (let ((,len (length ,args))) (cond ,@(map (lambda (x) (unless (>= (length x) 2) (error 'case-lambda \"bad clause ~S\" x)) (let* ((formals (car x)) (body (cdr x)) (arity (compute-arity formals))) (cond ((positive? arity) `((= ,len ,arity) (apply (lambda ,formals ,@body) ,args))) ((zero? arity) `((= ,len ,arity) ,@body)) (else `((>= ,len ,(- (- arity) 1)) (apply (lambda ,formals ,@body) ,args)))))) clauses) (else (error 'case-lambda \"no matching clause in list ~S for ~S\" ',(map car clauses) ,args))))))) \"bad clause ~S\" \"no matching clause in list ~S for ~S\" %define-condition-type-accessors (lambda (name supertype predicate . slots) (let ((obj (gensym))) `(begin (define (,predicate ,obj) (and (condition? ,obj) (condition-has-type? ,obj ,name))) ,@(map (lambda (x) `(define (,(cadr x) ,obj) (unless (,predicate ,obj) (error ',(cadr x) \"bad type for condition ~S\" ,obj)) (condition-ref ,obj ',(car x)))) slots)))) \"bad type for condition ~S\" &message message-condition? &serious serious-condition? &error error? error-message? error-location error-message read-with-shared-structure write* write-with-shared-structure read/ss write/ss parameterize (lambda (bindings . body) (let ((tmp1 (map (lambda (_) (gensym)) bindings)) (tmp2 (map (lambda (_) (gensym)) bindings))) `(let (,@(map (lambda (x y) (list y (cadr x))) bindings tmp1) ,@(map (lambda (x y) (list y (list (car x)))) bindings tmp2)) (dynamic-wind (lambda () ,@(map (lambda (x y) `(,(car x) ,y)) bindings tmp1)) (lambda () ,@body) (lambda () ,@(map (lambda (x y) `(,(car x) ,y)) bindings tmp2)))))) require-extension (lambda args (%find-macro-clause 'require-extension args '(require-extension srfi) '(((_ \"internal\" (srfi id ...)) (begin (require-feature id) ...)) ((_ \"internal\" (x ...)) (import (x ...))) ((_ \"internal\" id) (cond-expand (id #void) (else (error \"cannot require extension named '~s'\" 'id)))) ((_ clause ...) (begin (require-extension \"internal\" clause) ...))) '...)) (require-extension srfi) (((_ \"internal\" (srfi id ...)) (begin (require-feature id) ...)) ((_ \"internal\" (x ...)) (import (x ...))) ((_ \"internal\" id) (cond-expand (id #void) (else (error \"cannot require extension named '~s'\" 'id)))) ((_ clause ...) (begin (require-extension \"internal\" clause) ...))) \"bad string ~S\" get-environment-variable get-environment-variables \"STklos\" implementation-name implementation-version %uname cpu-architecture machine-name os-name \" \" os-version fixnum-width fx-width greatest-fixnum fx-greatest least-fixnum fx-least assume (lambda (expr . args) (if (positive? (stklos-debug-level)) (let* ((efile (and (%epair? expr) (%epair-file expr))) (eline (and (%epair? expr) (%epair-line expr))) (fmt (string-append (if efile (format \"in ~A:~A, \" efile eline) \"\") \"invalid assumption:\"))) `(or ,expr (error ,fmt ',expr ,@args))) #void)) \"in ~A:~A, \" \"\" \"invalid assumption:\" \"srfi-\" %stklos-configure features #:use-utf8 command \"stklos\" scheme.id languages scheme r5rs r7rs encodings (utf-8) threads %thread-system install-dir website \"https://stklos.net\" scheme.features scheme.path scheme.srfi scheme.srfi.count build.configure #:configure build.git.tag #:tag build.git.branch #:branch build.git.commit build.git.modified #:modified c.version #:c-version c.compile #:c-compile c.link #:c-link c.type-bits #:c-type-bits c.library.compile #:shlib-compile c.library.link #:shlib-link c.library.extension #:shlib-suffix stklos.system-libs #:system stklos.compiled-libs #:compiled os.uname os.env.LANG \"LANG\" \"\" os.env.TERM \"TERM\" \"\" version-alist port? port-has-port-position? \"Not a port: ~A\" port-current-position port-position port-has-set-port-position!? \"Not a port: ~A\" output-port? flush port-seek set-port-position! &i/o-bad-parameter parameter make-i/o-invalid-position-error obj i/o-invalid-position-error? \"\" *load-suffixes* command-name command-args argc \"\" \"\" script-file \"\" \"\" \"/\" script-directory %make-nan make-nan ((regexp-replace . regexp-replace) (regexp-replace-all . regexp-replace-all)) regexp-replace-all \"\\\\\\\\[0-9]\" regexp-match-positions \"cannot match \\\\~A in model\" ((run-process . run-process) (process-kill . process-kill) (process-stop . process-stop) (process-continue . process-continue)) \"value expected after keyword ~S\" #:input #:output #:error #:wait #:fork #:args %run-process run-process SIGTERM process-send-signal process-kill SIGSTOP process-stop SIGCONT process-continue ((%equiv? . %equiv?)) %equiv? %equal-try ((time? . time?) (time->seconds . time->seconds) (seconds->time . seconds->time) (make-date . make-date) (date? . date?) (seconds->date . seconds->date) (date-nanosecond . date-nanosecond) (date-second . date-second) (date-minute . date-minute) (date-hour . date-hour) (date-day . date-day) (date-month . date-month) (date-year . date-year) (date-week-day . date-week-day) (date-year-day . date-year-day) (date-dst . date-dst) (date-tz . date-tz) (time-zone-name . time-zone-name) (seconds->list . seconds->list) (current-date . current-date) (current-time . current-time) (seconds->string . seconds->string) (date->string . date->string) (time-nanosecond . time-nanosecond) (set-time-nanosecond! . set-time-nanosecond!) (time-second . time-second) (set-time-second! . set-time-second!) (time-type . time-type) (set-time-type! . set-time-type!) (make-time . make-time) (time-tai->time-utc . time-tai->time-utc) (time-tai->time-utc! . time-tai->time-utc!) (time-utc->time-tai . time-utc->time-tai) (time-utc->time-tai! . time-utc->time-tai!) (%leap-second-table . %leap-second-table) (%leap-second-delta . %leap-second-delta) (%time-tai->time-utc! . %time-tai->time-utc!) (%time-utc->time-tai! . %time-utc->time-tai!)) \"since first argument is symbol, 3 args (type, nanosecond and second) required, only 2 given\" (time-tai time-utc time-monotonic time-process time-duration) \"bad time type ~S\" \"bad integer ~S\" \"bad integer ~S\" %time \"since first argument is integer, 2 args (nanosecond and second) required, but 3 given\" \"bad integer ~S\" time-utc \"bad symbol or integer ~S\" make-time type time-type set-time-type! second time-second set-time-second! nanosecond time-nanosecond set-time-nanosecond! struct-type time? 1000000000 %nano 86400 %sid exact->inexact time-seconds \"bad time ~S\" time->seconds inexact->exact #:time-utc seconds->time \"cannot convert ~S to a time\" \"bad number ~S\" ((1483228800 . 37) (1435708800 . 36) (1341100800 . 35) (1230768000 . 34) (1136073600 . 33) (915148800 . 32) (867715200 . 31) (820454400 . 30) (773020800 . 29) (741484800 . 28) (709948800 . 27) (662688000 . 26) (631152000 . 25) (567993600 . 24) (489024000 . 23) (425865600 . 22) (394329600 . 21) (362793600 . 20) (315532800 . 19) (283996800 . 18) (252460800 . 17) (220924800 . 16) (189302400 . 15) (157766400 . 14) (126230400 . 13) (94694400 . 12) (78796800 . 11) (63072000 . 10)) %leap-second-table %leap-second-delta %leap-second-neg-delta time-tai \"bad TAI time ~S\" %time-tai->time-utc! time-tai->time-utc time-tai->time-utc! \"bad UTC time ~S\" %time-utc->time-tai! time-utc->time-tai time-utc->time-tai! current-second %get-time-of-day %current-time-tai %current-time-utc %current-time \"too many arguments (0 or 1 expected, ~S given)\" \"unsupported time type ~S\" current-time %make-date-key %make-date-opt make-date #:nanosecond #:second #:minute #:hour #:day #:month #:year #:zone-offset %make-date \"bad ~s ~s\" check 999999999 minute hour day month \"bad year ~s\" \"bad zone offset ~s\" %date max date->seconds seconds->date local-timezone-offset week-day date-week-day year-day date-year-day dst date-dst tz date? date-tz \"Z\" abs #\\- \"~a~2f:~2f\" #\\0 string-map time-zone-name %seconds->date \"#[date ~A-~A-~A ~A:~A:~A]\" year struct-type-change-writer! date-nanosecond date-second date-minute date-hour date-day date-month date-year struct->list seconds->list current-date seconds->string \"bad string ~S\" #\\% \"%%\" #\\~ %seconds->string \"~c\" date->string \"bad string ~S\" ((bit-and . bit-and) (bit-or . bit-or) (bit-xor . bit-xor) (bit-not . bit-not) (bit-shift . bit-shift)) bit-and bit-xor %bit-and %bit-or %bit-xor bit-not bit-shift ((make-thread . make-thread) (thread-handler-error-show . thread-handler-error-show) (thread-sleep! . thread-sleep!) (thread-join! . thread-join!) (mutex-lock! . mutex-lock!) (mutex-unlock! . mutex-unlock!) (join-timeout-exception? . join-timeout-exception?) (abandoned-mutex-exception? . abandoned-mutex-exception?) (terminated-thread-exception? . terminated-thread-exception?) (&uncaught-exception . &uncaught-exception) (uncaught-exception? . uncaught-exception?) (uncaught-exception-reason . uncaught-exception-reason)) \"bad timeout ~S\" %thread-timeout->seconds \"thread\" current-thread thread-name %build-error-location bold red \"**** Error \" blue \"(in thread ~S):\\n\" \"~A: ~A\\n\" normal \"    (this error may be signaled again later)\\n\" %thread-end-exception-set! thread-handler-error-show %make-thread make-thread thread-sleep! \"cannot used #f as timeout\" %thread-sleep! thread-join! \"cannot join on myself (deadlock will occur)\" %thread-join! &thread-join-timeout %thread-end-exception &uncaught-exception reason %thread-end-result %mutex-lock! thread? &thread-abandonned-mutex %mutex-unlock! join-timeout-exception? abandoned-mutex-exception? &thread-terminated terminated-thread-exception? &condition (reason) make-condition-type uncaught-exception? uncaught-exception-reason ((make-external-function . make-external-function) (make-callback . make-callback) (define-external . define-external)) make-external-function make-callback ((#:void 0) (#:char 1) (#:short 2) (#:ushort 3) (#:int 4) (#:uint 5) (#:long 6) (#:ulong 7) (#:lonlong 8) (#:ulonlong 9) (#:float 10) (#:double 11) (#:boolean 12) (#:pointer 13) (#:string 14) (#:int8 15) (#:int16 16) (#:int32 17) (#:int64 18) (#:obj 19)) define-external \"parameter of type :void are forbidden\" \"bad type name ~S\" \"bad parameter description: ~S\" \"bad parameter description: ~S\" %make-ext-func %make-callback (lambda (name parameters . args) (let* ((lib (key-get args #:library-name \"\")) (lib-name (if (and (equal? lib \"\") (equal? (running-os) 'cygwin-windows)) \"cygwin1.dll\" lib)) (entry-name (key-get args #:entry-name (symbol->string name))) (return-type (key-get args #:return-type #:void))) `(define ,name (make-external-function ,entry-name ',parameters ,return-type ,lib-name)))) #:library-name \"\" \"\" \"cygwin1.dll\" #:entry-name #:return-type #:void ((write-shared . write-shared) (write-simple . write-simple) (letrec* . letrec*) (let-values . let-values) (let*-values . let*-values) (delay . delay) (delay-force . delay-force) (lazy . lazy) (make-promise . make-promise) (eager . eager) (define-values . define-values) (define-record-type . define-record-type) (equal-simple? . equal-simple?) (exact-integer? . exact-integer?) (floor-quotient . floor-quotient) (floor/ . floor/) (truncate/ . truncate/) (truncate-quotient . truncate-quotient) (truncate-remainder . truncate-remainder) (floor-remainder . floor-remainder) (square . square) (exact-integer-sqrt . exact-integer-sqrt) (exact . exact) (inexact . inexact) (boolean=? . boolean=?) (make-list . make-list) (member-simple . member-simple) (assoc-simple . assoc-simple) (member . member) (assoc . assoc) (symbol=? . symbol=?) (string=? . string=?) (%string2=? . %string2=?) (string<? . string<?) (%string2<? . %string2<?) (string<=? . string<=?) (%string2<=? . %string2<=?) (string>? . string>?) (%string2>? . %string2>?) (string>=? . string>=?) (%string2>=? . %string2>=?) (string-ci=? . string-ci=?) (%string-ci2=? . %string-ci2=?) (string-ci<? . string-ci<?) (%string-ci2<? . %string-ci2<?) (string-ci<=? . string-ci<=?) (%string-ci2<=? . %string-ci2<=?) (string-ci>? . string-ci>?) (%string-ci2>? . %string-ci2>?) (string-ci>=? . string-ci>=?) (%string-ci2>=? . %string-ci2>=?) (string->list . string->list) (string-copy! . string-copy!) (string-fill! . string-fill!) (%string-fill2! . %string-fill2!) (vector->list . vector->list) (vector-copy! . vector-copy!) (vector->string . vector->string) (string->vector . string->vector) (make-bytevector . make-bytevector) (bytevector? . bytevector?) (bytevector . bytevector) (bytevector-length . bytevector-length) (bytevector-u8-ref . bytevector-u8-ref) (bytevector-u8-set! . bytevector-u8-set!) (bytevector-copy! . bytevector-copy!) (string-map . string-map) (vector-map . vector-map) (string-for-each . string-for-each) (vector-for-each . vector-for-each) (error-object? . error-object?) (error-object-message . error-object-message) (error-object-irritants . error-object-irritants) (read-error? . read-error?) (file-error? . file-error?) (call-with-port . call-with-port) (input-port-open? . input-port-open?) (output-port-open? . output-port-open?) (read-string . read-string) (read-u8 . read-u8) (peek-u8 . peek-u8) (read-bytevector! . read-bytevector!) (write-string . write-string) (write-u8 . write-u8) (write-bytevector . write-bytevector) (with-exception-handler . with-exception-handler) (raise-continuable . raise-continuable) (guard . guard) (current-jiffy . current-jiffy) (jiffies-per-second . jiffies-per-second) (features . features) (%continuable-exception? . %continuable-exception?) (%continuable-exception-value . %continuable-exception-value)) write-shared write-simple letrec* (lambda (bindings . body) (if (list? bindings) (for-each (lambda (x) (unless (and (list? x) (= (length x) 2)) (error 'letrec* \"incorrect binding ~S\" x))) bindings) (error 'letrec* \"incorrect bindings ~S\" bindings)) `(let ,(map (lambda (x) (list (car x) #f)) bindings) ,@(map (lambda (x) `(set! ,@x)) bindings) (let () ,@body))) \"incorrect binding ~S\" \"incorrect bindings ~S\" let-values (lambda (bindings . body) (let ((tmps '())) (define (expand-once bindings tmps) (let ((first (car bindings))) `(call-with-values (lambda () ,(cadr first)) (lambda ,(map* (lambda (x) (cadr (assoc x tmps))) (car first)) ,(if (= (length bindings) 1) `(let ,tmps ,@body) (expand-once (cdr bindings) tmps)))))) (define (parse-binding binding) (unless (and (list? binding) (= (length binding) 2) (or (pair? (car binding)) (symbol? (car binding)))) (error 'let-values \"incorrect binding ~S\" binding)) (for-each* (lambda (x) (if (assoc x tmps) (error 'let-values \"duplicate binding ~s\" x) (set! tmps (cons (list x (gensym)) tmps)))) (car binding))) (for-each parse-binding bindings) (if (null? tmps) `(let () ,@body) (expand-once bindings tmps)))) \"incorrect binding ~S\" \"duplicate binding ~s\" let*-values (lambda (bindings . body) (if (> (length bindings) 1) `(let-values (,(car bindings)) (let*-values ,(cdr bindings) ,@body)) `(let-values ,bindings ,@body))) delay (lambda (exp) `(delay-force (%make-promise (list ,exp)))) delay-force %make-promise (lambda (exp) `(%make-promise (lambda () ,exp))) lazy (lambda (expr) `(delay-force ,expr)) promise? make-promise eager define-values (lambda (formals expr) (define (flat lst) (cond ((null? lst) lst) ((pair? lst) (cons (car lst) (flat (cdr lst)))) (else (list lst)))) (if (null? formals) `(call-with-values (lambda () ,expr) void) (let* ((tmps (map* (lambda (x) (gensym)) formals)) (ff (flat formals)) (ft (flat tmps))) `(begin ,@(map (lambda (x) `(define ,x #void)) ff) (call-with-values (lambda () ,expr) (lambda ,tmps ,@(map (lambda (x y) `(set! ,x ,y)) ff ft))) (values (void) ',formals))))) define-record-type (lambda (name constructor predicate . fields) (let ((struct-type (gensym)) (tmp (gensym)) (val (gensym))) `(begin (define ,(car constructor) #f) (define ,predicate #f) ,@(map (lambda (x) (case (length x) ((2) `(define ,(cadr x) #f)) ((3) `(begin (define ,(cadr x) #f) (define ,(caddr x) #f))) (else (error 'define-record-type \"bad field specification ~S\" x)))) fields) (let ((make-struct-type (%%in-scheme 'make-struct-type)) (make-struct (%%in-scheme 'make-struct)) (struct? (%%in-scheme 'struct?)) (struct-is-a? (%%in-scheme 'struct-is-a?)) (struct-ref (%%in-scheme 'struct-ref)) (struct-set! (%%in-scheme 'struct-set!))) (let ((,struct-type (make-struct-type ',name #f ',(map car fields)))) (set! ,(car constructor) (lambda ,(cdr constructor) (let ((,tmp (make-struct ,struct-type))) ,@(map (lambda (x) `(struct-set! ,tmp ',x ,x)) (cdr constructor)) ,tmp))) (set! ,predicate (lambda (,tmp) (and (struct? ,tmp) (struct-is-a? ,tmp ,struct-type)))) ,@(map (lambda (x) (if (= (length x) 2) `(set! ,(cadr x) (lambda (,tmp) (struct-ref ,tmp ',(car x)))) `(begin (set! ,(cadr x) (lambda (,tmp) (struct-ref ,tmp ',(car x)))) (set! ,(caddr x) (lambda (,tmp ,val) (struct-set! ,tmp ',(car x) ,val)))))) fields) (values (void) ',name)))))) \"bad field specification ~S\" equal-simple? exact-integer? floor-quotient floor-remainder floor/ truncate/ truncate-quotient truncate-remainder modulo square integer-length \"non negative integer expected. It was: ~S\" sqrt exact-integer-sqrt inexact boolean=? make-list member-simple assoc-simple symbol=? %generalize-string-compare (lambda (func func2) `(begin (define ,func2 ,func) (set! ,func (lambda (first . l) ,(string->keyword (symbol->string func)) (letrec ((compare (lambda (first . l) (or (null? l) (and (,func2 first (car l)) (apply compare l)))))) (unless (string? first) (error \"bad string ~W\" first)) (apply compare first l)))))) first l compare \"bad string ~W\" %string2=? %string2<? string<=? %string2<=? string>? %string2>? string>=? %string2>=? string-ci=? %string-ci2=? string-ci<? %string-ci2<? string-ci<=? %string-ci2<=? string-ci>? %string-ci2>? string-ci>=? %string-ci2>=? string-copy! \"bad string ~S\" \"bad string ~S\" \"bad destination index ~S\" \"bad integer for start index ~S\" \"bad integer for end index ~S\" \"not enough room in destination string ~S\" string-fill! %string-fill2! \"end index ~S < start index ~S\" vector-copy! \"bad vector ~S\" \"bad vector ~S\" \"bad destination index ~S\" \"bad integer for start index ~S\" \"bad integer for end index ~S\" \"not enough room in destination vector ~S\" \"bad vector ~S\" vector->string char? \"element at index ~S of ~S must be a character\" \"bad string ~S\" string->vector make-bytevector %make-uvector %uvector? bytevector? bytevector %uvector bytevector-length %uvector-length bytevector-u8-ref %uvector-ref bytevector-u8-set! %uvector-set! bytevector-copy! \"bad bytevector ~S\" \"bad bytevector ~S\" \"bad destination index ~S\" \"bad integer for start index ~S\" \"bad integer for end index ~S\" \"not enough room in destination bytevector ~S\" \"bad string ~S\" \"bad character in ~S\" vector-map \"bad list of vectors ~S\" string-for-each \"bad string ~S\" vector-for-each \"bad list of vectors ~S\" \"bad error object: ~S\" error-object-message \"bad error object: ~S\" error-object-irritants &read-error read-error? file-error? call-with-port \"bad input port ~S\" port-closed? input-port-open? \"bad output port ~S\" output-port-open? read-string \"parameter must be a positive integer. It was: ~S\" textual-port? \"bad textual input port ~S\" read-char eof-object read-u8 binary-port? \"bad binary port ~S\" read-byte peek-u8 \"bad binary port ~S\" peek-byte read-bytevector! \"bad bytevector ~S\" %read-bytevector! write-string %write-string write-u8 \"bad binary port ~S\" write-byte write-bytevector \"bad bytevector ~S\" \"bad binary port ~S\" %continuable-exception (value) make-%continuable-exception %continuable-exception? %continuable-exception-value \"exception handler returned on non-continuable exception\" with-exception-handler current-exception-handler raise-continuable guard (lambda (clauses . body) (let* ((var (car clauses)) (last (last-pair clauses)) (ex (gensym)) (old-hdlr (gensym)) (reraised (gensym)) (res (gensym))) `(let ((,old-hdlr (current-exception-handler))) (with-handler (lambda (,ex) (let* ((,var (if (%continuable-exception? ,ex) (%continuable-exception-value ,ex) ,ex)) (,reraised #f) (,res (cond ,@(cdr clauses) ,@(if (and (pair? last) (pair? (car last)) (eq? (caar last) 'else)) '() `((else (set! ,reraised #t) (,old-hdlr ,ex))))))) (if ,reraised ,res (if (%continuable-exception? ,ex) (raise ,res) ,res)))) ,@body)))) current-jiffy jiffies-per-second *all-features* SRFI-0 ((build-path-from-shell-variable . build-path-from-shell-variable) (load-path . load-path) (load-suffixes . load-suffixes) (load-verbose . load-verbose) (current-loading-file . current-loading-file) (try-load . try-load) (load . load) (find-path . find-path) (require . require) (provide . provide) (provided? . provided?) (require/provide . require/provide) (warning-when-not-provided . warning-when-not-provided) (require-library . require-library) (require-for-syntax . require-for-syntax) (include . include) (include-ci . include-ci) (include-file . include-file) (autoload . autoload) (%stklos-conf-dir . %stklos-conf-dir) (%stklos-conf-file . %stklos-conf-file) (%try-load-conditions . %try-load-conditions) (%do-include . %do-include) (%%require . %%require)) \";\" \":\" *path-separator* %shared-suffix \"ostk\" \"stk\" \"sld\" \"scm\" *load-verbose* *load-path* \"STKLOS_CONFDIR\" \"HOME\" \".stklos\" %stklos-conf-dir %stklos-conf-file build-path-from-shell-variable \"STKLOS_LOAD_PATH\" \".\" lib \"bad list of path names ~S\" \"bad path name ~S\" \"bad list of suffixes ~S\" \"bad path name ~S\" load-suffixes load-verbose current-loading-file \"%guess-pathname: trying ~S\\n\" file-is-readable? \".\" \"/\" %guess-pathname \"path must be a string (it was ~s)\" \".?.?/\" try-load %primitive-try-load %try-load-conditions \";; Loading file ~S.\\n\" \";; File ~S loaded.\\n\" %try-load load \"cannot load file ~S\" \"cannot load file\" %cannot-load %load require provide provided? warning-when-not-provided \"^srfi-([1-9][0-9]*)$\" \"srfi/~a\" %rewrite-require-spec \"STKLOS_BUILDING\" \"WARNING: ~S was not provided~%\" provided (lambda (what) (if (string? what) (let ((spec (%rewrite-require-spec what (load-path) (load-suffixes)))) (if (and spec (cdr spec)) `(begin (define-module STklos (import ,(cdr spec))) (provide ,what)) `(%%require ,what #f))) `(%%require ,what #f))) require-library (lambda (what) `(%%require ,what #t)) require-for-syntax (lambda (file) `(%%require4syntax ,file)) %%require4syntax %do-include (lambda (kind files) (let ((inc (string->symbol (format \"%%~a\" kind)))) (if (null? files) (error kind \"at least one parameter must be provided\") `(,inc ,@(map (lambda (x) (or (find-path x) x)) files))))) \"%%~a\" \"at least one parameter must be provided\" (lambda files `(%do-include include ,files)) (lambda files `(%do-include include-ci ,files)) include-file (lambda (file) `(%%include ,file)) autoload (lambda (file . symbols) (let ((args (gensym)) (old (gensym))) `(begin ,@(map (lambda (x) `(define ,x (lambda ,args (let ((,old ,x)) (require ,file) (if (eq? ,old ,x) (error 'autoload \"~S has not been defined in ~S\" ',x ,file) (apply ,x ,args)))))) symbols)))) \"~S has not been defined in ~S\" ((define-library . define-library) (library-name . library-name) (library-list . library-list) (%module-define-and-export . %module-define-and-export) (%make-copy-module . %make-copy-module)) %module-define-and-export (lambda lst `(begin ,@(map (lambda (x) `(%symbol-define ',x ,x)) lst) (export ,@lst))) %make-copy-module (lambda (old new) (%%import (compiler-current-module) (list old)) `(define-module ,new (import ,old) (export ,@(module-exports (find-module old))))) define-library (lambda (name . decls) (let* ((module-name (%normalize-library-name name)) (conds '()) (imports '()) (exports '()) (body '()) (lib (gensym)) (module-restore (symbol-value '%module-restore (find-module 'SCHEME)))) (define (parse-declarations decls) (for-each (lambda (d) (unless (pair? d) (error 'define-library \"bad library declaration clause ~s\" d)) (let ((key (car d)) (rest (cdr d))) (case key ((import) (set! imports (append imports rest))) ((export) (set! exports (append exports rest))) ((begin include include-ci) (set! body (append body (list d)))) ((include-library-declarations) (for-each (lambda (path) (parse-declarations (call-with-input-file (or (find-path path) path) port->sexp-list))) rest)) ((cond-expand) (set! conds (cons d conds))) (else (error 'define-library \"incorrect directive ~s\" d))))) decls)) (parse-declarations decls) `(begin (define-module ,module-name (begin ,@(reverse! conds)) (import ,@imports) (export ,@exports) (%module->library! ',module-name) ,@body)))) \"bad library declaration clause ~s\" (begin include include-ci) include-library-declarations cond-expand \"incorrect directive ~s\" %module->library! library-name \"module ~S is not a library\" \"bad module/library ~S\" library-list ((string-lower . string-lower) (string-upper . string-upper) (set-load-path! . set-load-path!) (set-load-suffixes! . set-load-suffixes!) (flush . flush) (rewind-file-port . rewind-file-port) (hash-table->list . hash-table->list) (hash-table-put! . hash-table-put!) (hash-table-get . hash-table-get) (hash-table-remove! . hash-table-remove!) (stklos-pragma . stklos-pragma) (remove-directory . remove-directory) (%build-path-from-shell-variable . %build-path-from-shell-variable) (copy-tree . copy-tree) (%set-std-port! . %set-std-port!) (make-box . make-box) (make-constant-box . make-constant-box) (box-set! . box-set!) (string-index . string-index) (argv . argv) (fxdiv . fxdiv) (fxrem . fxrem) (fxmod . fxmod) (fx< . fx<) (fx<= . fx<=) (fx> . fx>) (fx>= . fx>=) (fx= . fx=) (make-directory . make-directory) (make-directories . make-directories) (process-signal . process-signal) (compiler:generate-signature . compiler:generate-signature)) string-downcase string-lower string-upper \"*** Obsolete function set-load-path!. Use load-path instead.\\n\" set-load-path! \"*** Obsolete function set-load-suffixes!. Use load-suffixes instead.\\n\" set-load-suffixes! port-rewind rewind-file-port hash-table->list hash-table-put! hash-table-get hash-table-delete! hash-table-remove! \"Don't use anymore pragma, but compiler:warn-use-undef parameter\" stklos-pragma pragma define-reader-ctor delete-directory remove-directory %build-path-from-shell-variable copy-tree %set-std-port! \"bad port number\" box make-box constant-box make-constant-box set-box! box-set! string-index argv fxdiv fxremainder fxrem fxmodulo fxmod make-directory make-directories process-signal %file-informations STKLOS-OBJECT ((SCHEME)) ((find-class . find-class) (is-a? . is-a?) (ensure-metaclass . ensure-metaclass) (ensure-metaclass-with-supers . ensure-metaclass-with-supers) (ensure-class . ensure-class) (ensure-generic-function . ensure-generic-function) (ensure-method . ensure-method) (add-method! . add-method!) (object-eqv? . object-eqv?) (object-equal? . object-equal?) (write-object . write-object) (display-object . display-object) (slot-unbound . slot-unbound) (slot-missing . slot-missing) (slot-definition-name . slot-definition-name) (slot-definition-options . slot-definition-options) (slot-definition-allocation . slot-definition-allocation) (slot-definition-getter . slot-definition-getter) (slot-definition-setter . slot-definition-setter) (slot-definition-accessor . slot-definition-accessor) (slot-definition-init-form . slot-definition-init-form) (slot-definition-init-keyword . slot-definition-init-keyword) (slot-init-function . slot-init-function) (class-slot-definition . class-slot-definition) (compute-get-n-set . compute-get-n-set) (allocate-instance . allocate-instance) (initialize . initialize) (make-instance . make-instance) (make . make) (no-next-method . no-next-method) (no-applicable-method . no-applicable-method) (no-method . no-method) (change-class . change-class) (change-object-class . change-object-class) (shallow-clone . shallow-clone) (deep-clone . deep-clone) (apply-generic . apply-generic) (apply-method . apply-method) (apply-methods . apply-methods) (compute-applicable-methods . compute-applicable-methods) (method-more-specific? . method-more-specific?) (sort-applicable-methods . sort-applicable-methods) (method-procedure . method-procedure) (method-specializers . method-specializers) (method-generic-function . method-generic-function) (method-specializers-equal? . method-specializers-equal?) (class-subclasses . class-subclasses) (class-methods . class-methods) (class-name . class-name) (class-direct-superclasses . class-direct-superclasses) (class-direct-subclasses . class-direct-subclasses) (class-precedence-list . class-precedence-list) (class-direct-methods . class-direct-methods) (class-direct-slots . class-direct-slots) (class-slots . class-slots) (generic-function-name . generic-function-name) (generic-function-methods . generic-function-methods) (generic-function-documentation . generic-function-documentation) (slot-value . slot-value) (define-class . define-class) (define-generic . define-generic) (method . method) (define-method . define-method)) class-redefinition \"bad class ~S\" %error-bad-class \"bad generic function ~S\" %error-bad-generic \"bad method ~S\" %error-bad-method make-closure <top> specializers formals slot-definition-getter slot-definition-setter slot-definition-accessor declare-slots <generic> generic #:name ??? %make <method> #:generic-function #:specializers #:procedure basic-make \"cannot make ~S with ~S\" make class? name class-name direct-supers class-direct-superclasses direct-slots class-direct-slots direct-subclasses class-direct-subclasses direct-methods class-direct-methods cpl class-precedence-list slots class-slots slot-definition-name slot-definition-options #:instance #:allocation slot-definition-allocation #:getter #:accessor #:init-form slot-definition-init-form #:init-keyword slot-definition-init-keyword getters-n-setters slot-init-function class-slot-definition generic-function-name methods generic-function-methods documentation generic-function-documentation method? generic-function method-generic-function method-specializers procedure method-procedure class-of is-a? <class> find-class \"bad class ~S\" compute-slots \"bad slot name ~S\" %compute-slots #:dsupers #:slots \"metaclass\" ensure-metaclass-with-supers ensure-metaclass define-class (lambda (name supers slots . options) `(define ,name (ensure-class ',name ',supers ',(declare-slots slots) ,(or (key-get options #:metaclass #f) `(ensure-metaclass ',supers)) ,@options))) ensure-class #:metaclass <object> \"super class ~S is duplicated in class ~S\" \"slot ~S is duplicated in class ~S\" define-generic (lambda (gf #:optional (meta '<generic>) #:key (documentation #f)) `(define ,gf (ensure-generic-function ',gf ,meta ,documentation))) #:documentation ensure-generic-function #:default %method-specializers-equal? method-specializers-equal? add-method-in-classes! remove-method-in-classes! compute-new-list-of-methods add-method! next-method ensure-method (lambda (args . body) (ensure-method #f args body)) define-method (lambda (name args . body) (let ((gf (gensym \"gf\"))) `(let ((,gf (ensure-generic-function ',name))) (add-method! ,gf ,(ensure-method gf args body)) (values (void) ',name)))) \"gf\" object-eqv? (<top> <top>) object-equal? (<top> <top>) write-object (<top> <top>) \"#[instance ~A]\" address-of (<object> <top>) slot-bound? \"#[~A ~A]\" (<class> <top>) \"#[~A ~A ~A]\" (<generic> <top>) \"#[~A ~A (~A)]\" display-object (<top> <top>) slot-unbound (<class> <object> <top>) \"slot ~S is unbound in #p~A (an object of class ~S)\" slot-missing (<class> <object> <top> . <top>) \"no slot with name `~S' in #p~A (an object of class ~S)\" no-next-method (<generic> <top> <top>) \"no next method for ~S in call ~S\" no-applicable-method (<generic> <top>) \"no applicable method for ~S\\nin call ~S\" no-method (<generic> <top>) \"no method defined for ~S\" shallow-clone (<object>) %allocate-instance deep-clone (<object>) instance? remove-class-accessors update-direct-method update-direct-subclass (<class>) <accessor-method> (<method> <class> <class>) (<class> <class> <class>) (<class> <class>) redefined %find-inherited-get-n-set %direct-slot? #:before-slot-ref #:after-slot-ref #:before-slot-set! #:after-slot-set! %fast-slot-ref %fast-slot-set! %make-active-getter-n-setter compute-get-n-set (<class> <top>) nfields #:class #:each-subclass #:virtual #:slot-ref #:slot-set! \"a :slot-ref and a :slot-set! must be supplied in ~S\" #:active (<object> <top>) \"allocation type \\\"~S\\\" is unknown\" compute-slot-accessors %slot-ref closure? %procedure-arity \"bad getter closure for slot `~S' in ~S: ~S\" \"bad setter closure for slot `~S' in ~S: ~S\" list* compute-getters-n-setters compute-cpl initialize (<object> <top>) %initialize-object (<class> <top>) (<generic> <top>) (<method> <top>) allocate-instance (<class> <top>) make-instance (<class> . <top>) slot-exists-using-class? slot-bound-using-class? slot-ref-using-class slot-set-using-class! %modify-instance change-object-class change-class (<object> <class>) compute-applicable-methods (<generic> <top>) find-method method-more-specific? (<method> <method> <top>) %method-more-specific? sort-applicable-methods (<generic> <top> <top>) apply-method (<generic> <top> <top> <top>) %set-next-method! apply-methods (<generic> <list> <top>) apply-generic (<generic> <top>) (<generic> <top> <top>) class-subclasses class-methods slot-value (<object> <top>) (<object> <top> <top>) %object-system-initialized ((STKLOS-OBJECT)) ((SCHEME)) ((let-syntax . let-syntax) (letrec-syntax . letrec-syntax)) letrec-syntax (lambda args (error 'letrec-syntax \"cannot be used here. You must load the file \\\"full-syntax\\\" to access it:\" (cons 'letrec-syntax args))) \"cannot be used here. You must load the file \\\"full-syntax\\\" to access it:\" some split \"list is too short\" hyg:untag-no-tags hyg:untag-vanilla hyg:untag-lambda hyg:untag-letrec hyg:untag-named-let hyg:untag-let hyg:untag-let* hyg:untag-do hyg:untag-list hyg:untag-list* hyg:untag-quasiquote hyg:flatten mbe:ellipsis? mbe:split-at-ellipsis mbe:get-ellipsis-nestings mbe:ellipsis-sub-envs mbe:contained-in? hyg:rassq hyg:tag hyg:untag (if begin) (set! define) \"takes exactly one expression\" \"invalid context within quasiquote\" \"takes exactly one expression\" list-tail \"%%\" mbe:position mbe:append-map split-improper-tail mbe:matches-pattern? mbe:get-bindings mbe:expand-pattern \"no matching clause for ~S\" let-syntax (lambda (bindings . body) `(%let-syntax ,(map (lambda (x) (let ((macro-name (car x)) (syn-rules (cadr x))) (let ((alt-ellipsis? (not (list? (cadr syn-rules))))) (let ((ellipsis (if alt-ellipsis? (cadr syn-rules) '...)) (keywords (if alt-ellipsis? (cons macro-name (caddr syn-rules)) (cons macro-name (cadr syn-rules)))) (clauses (if alt-ellipsis? (cdddr syn-rules) (cddr syn-rules)))) `(,macro-name (lambda args (%find-macro-clause ',macro-name args ',keywords ',clauses ',ellipsis))))))) bindings) ,@body)) ((SCHEME)) ((srfi0-register-feature! . srfi0-register-feature!) (srfi-0-feature-implementation-file . srfi-0-feature-implementation-file) (require-feature . require-feature) (cond-expand . cond-expand) (%srfi-0-expand . %srfi-0-expand)) (srfi-0 (srfi-1 . \"srfi-1\") (lists . \"srfi-1\") (srfi-2 . \"srfi-2\") (and-let* . \"srfi-2\") (srfi-4 . \"srfi-4\") (hvectors . \"srfi-4\") (srfi-5 . \"srfi-5\") srfi-6 (srfi-7 . \"srfi-7\") (program . \"srfi-7\") srfi-8 (srfi-9 . \"srfi-9\") (records . \"srfi-9\") srfi-10 srfi-11 (srfi-13 . \"srfi-13\") (srfi-14 . \"srfi-14\") srfi-15 srfi-16 case-lambda (srfi-17 . \"srfi-17\") srfi-18 (srfi-19 . \"srfi-19\") srfi-22 srfi-23 error (srfi-25 . \"srfi-25\") (srfi-26 . \"srfi-26\") (srfi-27 . \"srfi-27\") (random . \"srfi-27\") srfi-28 (srfi-29 . \"srfi-29\") srfi-30 srfi-31 srfi-34 (srfi-35 . \"srfi-35\") (srfi-36 . \"srfi-36\") (srfi-37 . \"srfi-37\") (args-fold . \"srfi-37\") srfi-38 srfi-39 parameters (srfi-41 . \"srfi-41\") (streams . \"srfi-41\") (srfi-43 . \"srfi-43\") srfi-45 srfi-46 (srfi-48 . \"srfi-48\") (srfi-51 . \"srfi-51\") (rest-list . \"srfi-51\") (srfi-54 . \"srfi-54\") (formatting . \"srfi-54\") srfi-55 (srfi-59 . \"srfi-59\") (srfi-60 . \"srfi-60\") (srfi-61 . \"srfi-61\") srfi-62 (srfi-64 . \"srfi-64\") (testing . \"srfi-64\") (srfi-66 . \"srfi-66\") (srfi-69 . \"srfi-69\") (hash-tables . \"srfi-69\") srfi-70 (srfi-74 . \"srfi-74\") srfi-87 srfi-88 (srfi-89 . \"srfi-89\") (srfi-94 . \"srfi-94\") (srfi-95 . \"srfi-95\") (srfi-96 . \"srfi-96\") srfi-98 (srfi-100 . \"srfi-100\") srfi-111 boxes srfi-112 (srfi-113 . \"srfi-113\") (sets-bags . \"srfi-113\") (srfi-116 . \"srfi-116\") (immutable-lists . \"srfi-116\") (srfi-117 . \"srfi-117\") (queues-as-lists . \"srfi-117\") srfi-118 adjustable-strings (srfi-125 . \"srfi-125\") (hash-table . \"srfi-125\") (srfi-127 . \"srfi-127\") (lazy-sequences . \"srfi-127\") (srfi-128 . \"srfi-128\") (comparators-reduced . \"srfi-128\") (srfi-129 . \"srfi-129\") (titlecase . \"srfi-129\") (srfi-130 . \"srfi-130\") (srfi-132 . \"srfi-132\") (sort . \"srfi-132\") (srfi-133 . \"srfi-133\") (vector . \"srfi-133\") (srfi-134 . \"srfi-134\") (immutable-deques . \"srfi-134\") (srfi-135 . \"srfi-135\") (immutable-texts . \"srfi-135\") (srfi-137 . \"srfi-137\") srfi-138 (srfi-141 . \"srfi-141\") (integer-division . \"srfi-141\") srfi-143 (srfi-144 . \"srfi-144\") srfi-145 (srfi-151 . \"srfi-151\") (bitwise-ops . \"srfi-151\") (srfi-152 . \"srfi-152\") (srfi-154 . \"srfi-154\") (srfi-156 . \"srfi-156\") (srfi-158 . \"srfi-158\") (srfi-160 . \"srfi-160\") (srfi-161 . \"srfi-161\") (srfi-162 . \"srfi-128\") srfi-169 (srfi-170 . \"srfi-170\") (posix . \"srfi-170\") (srfi-171 . \"srfi-171\") (transducers . \"srfi-171\") (srfi-173 . \"srfi-173\") (hooks . \"srfi-173\") (srfi-174 . \"srfi-174\") (posix-timespecs . \"srfi-174\") (srfi-175 . \"srfi-175\") (ascii . \"srfi-175\") srfi-176 (srfi-180 . \"srfi-180\") (JSON . \"srfi-180\") (json . \"srfi-180\") (srfi-185 . \"srfi-185\") (srfi-189 . \"srfi-189\") (maybe-either . \"srfi-189\") (srfi-190 . \"srfi-190\") srfi-192 srfi-193 srfi-195 (srfi-196 . \"srfi-196\") (srfi-207 . \"srfi-207\") srfi-208 (srfi-214 . \"srfi-214\") (srfi-215 . \"srfi-215\") (srfi-216 . \"srfi-216\") (srfi-217 . \"srfi-217\") srfi-219 (srfi-221 . \"srfi-221\") (srfi-222 . \"srfi-222\") (srfi-223 . \"srfi-223\") (srfi-224 . \"srfi-224\") (srfi-227 . \"srfi-227\") (srfi-228 . \"srfi-228\") (srfi-229 . \"srfi-229\") (srfi-230 . \"srfi-230\") (srfi-233 . \"srfi-233\") (ini-files . \"srfi-233\") (srfi-235 . \"srfi-235\") (combinators . \"srfi-235\") (srfi-236 . \"srfi-236\") (srfi-238 . \"srfi-238\") srfi-244 (conditions \"srfi-35\" \"srfi-36\") (generators \"srfi-158\" \"srfi-190\")) %srfi-feature-list \"STklos-\" \"id-\" #:debug (debug) almost-r7rs exact-complex ieee-float (full-unicode utf-8 UTF-8) ratios %big-endian? big-endian little-endian srfi0-register-feature! \"feature ~S is not supported\" srfi-0-feature-implementation-file srfi- \"bad feature\" \"srfi-[0-9]+\" \"srfi/~a\" require-feature %load-implementation %find-feature \"no clause match\" \"bad clause ~S\" \"invalid 'not' clause\" library \"invalid 'library' clause\" \"bad clause ~S\" \"~a\" %srfi-0-expand (lambda clauses (%srfi-0-expand clauses)) REPL ((SCHEME)) ((main-repl . main-repl) (repl . repl) (repl-prompt . repl-prompt) (repl-make-prompt . repl-make-prompt) (repl-display-prompt . repl-display-prompt) (repl-prompt-use-color? . repl-prompt-use-color?) (repl-change-default-ports . repl-change-default-ports) (main-repl-hook . main-repl-hook) (repl-theme . repl-theme) (get-repl-color . get-repl-color) (repl-show-startup-message . repl-show-startup-message)) interactive? repl-level repl-backtrace default-in default-out default-err classic #:prompt magenta #:help-prompt green #:help #:repl-depth yellow #:info monochrome minimal underline *repl-themes* repl-theme \"\" get-repl-color \"^[ \\t]*\" \"\" (help h ?) \"Available Commands:\\n- ,backtrace ,bt   Show the stack when last error occurred\\n- ,cd              Change current directory\\n- ,pwd             Print working directory\\n- ,quit ,q         Exit STklos\\n- ,shell ,!        Run a shell command\\n- ,help ,? ,h      This help\\n\" (quit q) (backtrace bt) %display-backtrace (shell !) system cd chdir pwd \"~S\\n\" \"bad command name: ~S. Type ,help for some help\\n\" do-repl-command %other-error-handlers %try-matching-condition %add-error-to-repl-handler \" (near line ~a in file ~s)\" \"\" \"**** Error~A:\\n~A: ~A\\n\" \"\\t(type \\\"\" \",help\" \"\\\" for more information)\\n\" display-error-message repl-handler &exit-r7rs retcode %pre-exit \"**** Unknown condition raised.\\n\" \"Condition type: ~A\\n\" struct-type-name \"Condition slots: ~S\\n\" \"**** The following non-condition was raised: ~S\\n\" \"\" repl-prompt repl-prompt-use-color? \"[~A] \" \"\" \"~A>\" \" \" \" \" make-prompt repl-make-prompt display-prompt repl-display-prompt #:startup-message repl-show-startup-message main-repl-hook #:in G478 #:out G479 #:err G480 repl-change-default-ports G485 G486 G487 \"\\n\" \";; ~A\\n\" repl %initialize-signals \"STklos version ~a (~a)\\n\" \"Copyright (C) 1999-2023 Erick Gallesio <eg@stklos.net>\\n\" \"[~a/~a/~a/~a]\\n\" machine-type #:readline no-readline utf8 no-utf8 \"Type ',h' for help\\n\" \"  \\\\    \" \"   \\\\   \" \"  / \\\\  \" \" /   \\\\ \" main-repl READLINE ((SCHEME)) ((try-initialize-readline . try-initialize-readline) (readline . readline) (add-history . add-history) (read-history . read-history) (write-history . write-history) (read-with-history . read-with-history) (rl-event-hook . rl-event-hook) (rl-input-timeout . rl-input-timeout) (rl-completer-function . rl-completer-function)) readline add-history read-history write-history rl-event-hook rl-input-timeout \"> \" \"\" read-with-history \"readline\" (#:string) #:pointer #eof cpointer->string free-bytes \"add_history\" (#:string) \"read_history\" (#:string) #:int \"write_history\" (#:string) \"rl_set_keyboard_input_timeout\" \"\" %get-symbol-address \"rl_set_keyboard_input_timeout\" (#:int) \"rl_event_hook\" \"el_set\" \"\" libedit try-initialize default-complete-function rl-completer-function readline-completion-generator %shared-library-suffix \"libreadline.\" \"libedit.\" \"readline-complete.\" %init-readline-completion-function try-initialize-readline REPL-READLINE ((SCHEME) (REPL) (READLINE)) ((try-initialize-repl-with-readline . try-initialize-repl-with-readline)) \"history\" \"\\x01;\" \"\\x02;\" \"\" \"\" nothing register-exit-function! #() %string->bytes \"\" #() #\\newline integer->char repl-readline-integration #:line-editor try-initialize-repl-with-readline trace (lambda args (%trace-expand args)) %trace-expand untrace (lambda args (%untrace-expand args)) %untrace-expand parse-arguments (lambda (argv . clauses) (%parse-arguments-expand argv clauses)) %parse-arguments-expand match-lambda (lambda clauses (expand-match-lambda (cons '() clauses))) expand-match-lambda match-case (lambda (expr . clauses) `((match-lambda ,@clauses) ,expr)) describe \"describe\" \"~S has not been defined in ~S\" \"bigmatch\" \"getopt\" %print-usage \"trace\" pp \"pretty-print\" pretty-print help \"help\" lexer-next-token \"lex-rt\" random-integer \"srfi/27\" random-real srfi48:help \"srfi/48\" srfi48:format-fixed environment \"env\" null-environment scheme-report-environment interaction-environment ((STKLOS-OBJECT) (MBE) (SRFI-0) (REPL) (REPL-READLINE)) scheme/base ((SCHEME)) %define-here (lambda lst `(begin ,@(map (lambda (symb) `(define ,symb #void)) lst))) _ assv bytevector-append bytevector-copy ceiling char->integer char-ready? char<=? char<? char>=? char>? complex? denominator even? gcd get-output-bytevector inexact? lcm list-set! min numerator odd? open-input-bytevector open-output-bytevector peek-char read-bytevector string string->utf8 string-copy truncate u8-ready? utf8->string vector-append vector-fill! write-char ((* . *) (+ . +) (- . -) (... . ...) (/ . /) (< . <) (<= . <=) (= . =) (=> . =>) (> . >) (>= . >=) (_ . _) (abs . abs) (and . and) (append . append) (apply . apply) (assoc . assoc) (assq . assq) (assv . assv) (begin . begin) (binary-port? . binary-port?) (boolean=? . boolean=?) (boolean? . boolean?) (bytevector . bytevector) (bytevector-append . bytevector-append) (bytevector-copy . bytevector-copy) (bytevector-copy! . bytevector-copy!) (bytevector-length . bytevector-length) (bytevector-u8-ref . bytevector-u8-ref) (bytevector-u8-set! . bytevector-u8-set!) (bytevector? . bytevector?) (caar . caar) (cadr . cadr) (call-with-current-continuation . call-with-current-continuation) (call-with-port . call-with-port) (call-with-values . call-with-values) (call/cc . call/cc) (car . car) (case . case) (cdar . cdar) (cddr . cddr) (cdr . cdr) (ceiling . ceiling) (char->integer . char->integer) (char-ready? . char-ready?) (char<=? . char<=?) (char<? . char<?) (char=? . char=?) (char>=? . char>=?) (char>? . char>?) (char? . char?) (close-input-port . close-input-port) (close-output-port . close-output-port) (close-port . close-port) (complex? . complex?) (cond . cond) (cond-expand . cond-expand) (cons . cons) (current-error-port . current-error-port) (current-input-port . current-input-port) (current-output-port . current-output-port) (define . define) (define-record-type . define-record-type) (define-syntax . define-syntax) (define-values . define-values) (denominator . denominator) (do . do) (dynamic-wind . dynamic-wind) (else . else) (eof-object . eof-object) (eof-object? . eof-object?) (eq? . eq?) (equal? . equal?) (eqv? . eqv?) (error . error) (error-object-irritants . error-object-irritants) (error-object-message . error-object-message) (error-object? . error-object?) (even? . even?) (exact . exact) (exact-integer-sqrt . exact-integer-sqrt) (exact-integer? . exact-integer?) (exact? . exact?) (expt . expt) (features . features) (file-error? . file-error?) (floor . floor) (floor-quotient . floor-quotient) (floor-remainder . floor-remainder) (floor/ . floor/) (flush-output-port . flush-output-port) (for-each . for-each) (gcd . gcd) (get-output-bytevector . get-output-bytevector) (get-output-string . get-output-string) (guard . guard) (if . if) (include . include) (include-ci . include-ci) (inexact . inexact) (inexact? . inexact?) (input-port-open? . input-port-open?) (input-port? . input-port?) (integer->char . integer->char) (integer? . integer?) (lambda . lambda) (lcm . lcm) (length . length) (let . let) (let* . let*) (let*-values . let*-values) (let-syntax . let-syntax) (let-values . let-values) (letrec . letrec) (letrec* . letrec*) (letrec-syntax . letrec-syntax) (list . list) (list->string . list->string) (list->vector . list->vector) (list-copy . list-copy) (list-ref . list-ref) (list-set! . list-set!) (list-tail . list-tail) (list? . list?) (make-bytevector . make-bytevector) (make-list . make-list) (make-parameter . make-parameter) (make-string . make-string) (make-vector . make-vector) (map . map) (max . max) (member . member) (memq . memq) (memv . memv) (min . min) (modulo . modulo) (negative? . negative?) (newline . newline) (not . not) (null? . null?) (number->string . number->string) (number? . number?) (numerator . numerator) (odd? . odd?) (open-input-bytevector . open-input-bytevector) (open-input-string . open-input-string) (open-output-bytevector . open-output-bytevector) (open-output-string . open-output-string) (or . or) (output-port-open? . output-port-open?) (output-port? . output-port?) (pair? . pair?) (parameterize . parameterize) (peek-char . peek-char) (peek-u8 . peek-u8) (port? . port?) (positive? . positive?) (procedure? . procedure?) (quasiquote . quasiquote) (quote . quote) (quotient . quotient) (raise . raise) (raise-continuable . raise-continuable) (rational? . rational?) (rationalize . rationalize) (read-bytevector . read-bytevector) (read-bytevector! . read-bytevector!) (read-char . read-char) (read-error? . read-error?) (read-line . read-line) (read-string . read-string) (read-u8 . read-u8) (real? . real?) (remainder . remainder) (reverse . reverse) (round . round) (set! . set!) (set-car! . set-car!) (set-cdr! . set-cdr!) (square . square) (string . string) (string->list . string->list) (string->number . string->number) (string->symbol . string->symbol) (string->utf8 . string->utf8) (string->vector . string->vector) (string-append . string-append) (string-copy . string-copy) (string-copy! . string-copy!) (string-fill! . string-fill!) (string-for-each . string-for-each) (string-length . string-length) (string-map . string-map) (string-ref . string-ref) (string-set! . string-set!) (string<=? . string<=?) (string<? . string<?) (string=? . string=?) (string>=? . string>=?) (string>? . string>?) (string? . string?) (substring . substring) (symbol->string . symbol->string) (symbol=? . symbol=?) (symbol? . symbol?) (syntax-error . syntax-error) (syntax-rules . syntax-rules) (textual-port? . textual-port?) (truncate . truncate) (truncate-quotient . truncate-quotient) (truncate-remainder . truncate-remainder) (truncate/ . truncate/) (u8-ready? . u8-ready?) (unless . unless) (unquote . unquote) (unquote-splicing . unquote-splicing) (utf8->string . utf8->string) (values . values) (vector . vector) (vector->list . vector->list) (vector->string . vector->string) (vector-append . vector-append) (vector-copy . vector-copy) (vector-copy! . vector-copy!) (vector-fill! . vector-fill!) (vector-for-each . vector-for-each) (vector-length . vector-length) (vector-map . vector-map) (vector-ref . vector-ref) (vector-set! . vector-set!) (vector? . vector?) (when . when) (with-exception-handler . with-exception-handler) (write-bytevector . write-bytevector) (write-char . write-char) (write-string . write-string) (write-u8 . write-u8) (zero? . zero?)) \"scheme/base\" scheme/write ((display . display) (write . write) (write-shared . write-shared) (write-simple . write-simple)) \"scheme/write\" ((STKLOS-COMPILER) (STKLOS-OBJECT) (MBE) (SRFI-0) (REPL) (REPL-READLINE)) \"STKLOS_BUILDING\" module-immutable! %before-exit-hook main \"STKLOS_FRAMES\" \"  - ...\\nSet shell variable STKLOS_FRAMES to set visible frames\\n\" \"  - \" %procedure-name \"<<let/call>>\" \" @ [~A:~A]\\n\" \"???\" \"**** Error while ~A ~S\\n\" \"\\t Where: in ~A\" \" (near line ~a in file ~s)\" \"\\tReason: ~A\\n\" \"EXIT\\n\" %simple-fatal-exception-handler #:no-init-file #:load #:srfi-176 #:file #:sexpr #:conf-dir #:comp-flags #:prepend-dirs #:append-dirs \"Warning: cannot create configuration directory ~S\\n\" \"stklosrc\" \"loading file\" \"executing command\" \"evaluating\")";
+char* STk_boot_consts = "#(current-input-port original-input-port #:aa caar #:ad cdar #:da cadr #:dd cddr #:aaa caaar #:aad cdaar #:ada cadar #:add cddar #:daa caadr #:dad cdadr #:dda caddr #:ddd cdddr #:aaaa caaaar #:aaad cdaaar #:aada cadaar #:aadd cddaar #:adaa caadar #:adad cdadar #:adda caddar #:addd cdddar #:daaa caaadr #:daad cdaadr #:dada cadadr #:dadd cddadr #:ddaa caaddr #:ddad cdaddr #:ddda cadddr #:dddd cddddr pair? car map apply map* cdr for-each* filter filter-map append append-map append! append-map! generic? parameter? %procedure-plist #:setter key-get setter \"no setter defined for ~S\" error key-set! %set-procedure-plist! set-car! set-cdr! vector-ref vector-set! string-ref string-set! slot-ref slot-set! struct-ref struct-set! \"\" string->symbol \"~a\" format string-append symbol-append make-parameter stklos-debug-level compiler-known-globals memq register-new-global! for-each register-new-globals! %modules-stack current-module %create-module %module-create %module-restore raise %module-handler current-error-port \"\\x1b;[33m\" display \"\\x1b;[0m\" newline %debug STklos find-module when (lambda args (if (<= (length args) 1) (syntax-error 'when \"bad syntax in ~S\" `(when ,@args)) `(if ,(car args) (begin ,@(cdr args))))) length \"bad syntax in ~S\" %syntax-error if begin stklos %make-syntax unless (lambda args (if (<= (length args) 1) (syntax-error 'unless \"bad syntax in ~S\" `(unless ,@args)) `(if (not ,(car args)) (begin ,@(cdr args))))) \"bad syntax in ~S\" not set! (lambda args `(%%set! ,@args)) %%set! %claim-error (lambda (owner . body) (let ((x (gensym))) `(with-handler (lambda (,x) (error ,owner (condition-ref ,x 'message))) ,@body))) gensym with-handler lambda condition-ref quote message syntax-error (lambda args (if (zero? (length args)) (error 'syntax-error \"needs at least one argument\") `(%syntax-error ,@args))) zero? \"needs at least one argument\" define-syntax (lambda (macro-name syn-rules) (if (or (not (pair? syn-rules)) (not (eq? (car syn-rules) 'syntax-rules))) (error 'define-syntax \"in `~S', bad syntax-rules ~S\" macro-name syn-rules) (let ((ellipsis '...)) (when (or (symbol? (cadr syn-rules)) (keyword? (cadr syn-rules))) (set! ellipsis (cadr syn-rules)) (set! syn-rules (cdr syn-rules))) (let ((keywords (cons macro-name (cadr syn-rules))) (clauses (cddr syn-rules)) (find-clause (symbol-value 'find-clause (find-module 'MBE)))) `(define-macro (,macro-name . args) (%find-macro-clause ',macro-name args ',keywords ',clauses ',ellipsis)))))) syntax-rules \"in `~S', bad syntax-rules ~S\" ... symbol? keyword? find-clause MBE symbol-value define-macro args %find-macro-clause module-symbols library? module-symbols* module? %module-exports module-exports select-module (lambda (name) (let* ((compfile (in-module STKLOS-COMPILER *compiling-file*)) (mod (find-module name #f)) (newmod (or mod (if compfile (%module-create name) (error 'select-module \"module ~s does not exists\" name))))) (when (and mod (not (eq? name 'STklos))) (register-new-globals! (module-symbols mod))) `(begin (%%set-current-module (find-module ',name)) (when-compile (compiler-current-module ,newmod))))) symbol-value* *compiling-file* STKLOS-COMPILER \"module ~s does not exists\" %%set-current-module when-compile compiler-current-module define-module (lambda (name . body) (let ((oldmod (compiler-current-module)) (newmod (or (find-module name #f) (%module-create name)))) `(with-handler %module-handler (%%set-current-module (%module-create ',name)) (%%when-compile (compiler-current-module ,newmod)) ,@body (%%when-compile (compiler-current-module ,oldmod)) (%%set-current-module ((%%in-scheme '%module-restore))) (values (void) ',name)))) %%when-compile %%in-scheme values void list? only every import \"bad list of symbols ~s in only clause\" #:only \"bad only clause ~s\" except \"bad list of symbols ~s in except clause\" #:except \"bad except clause ~s\" prefix #:prefix \"bad prefix clause ~s\" rename \"bad list of associations ~s in rename clause\" #:rename \"bad rename clause ~s\" %normalize-library-name \"bad import set ~s\" %parse-imports %find-instanciated-module symbol->string require/provide \"module/library ~s does not exist\" %symbol->library-name \"symbol ~s is not in the import set\" filter! remove list-copy absent %syntax? %symbol-link reverse module-name module-imports %module-imports-set! %do-imports (lambda modules (let ((imp (%parse-imports modules))) (for-each (lambda (x) (%grab-file-information (symbol->string (car x)))) imp) (%do-imports (compiler-current-module) (list-copy imp) #t) `(%do-imports (current-module) (list-copy ',imp) #f))) %grab-file-information %%import reverse! %do-exports export \"bad renaming clause ~S\" \"bad exportation `~S'\" %parse-exports assq \"exported symbol ~s was previously renamed as ~S\" %module-exports-set! (lambda symbols (let ((s (%parse-exports symbols))) `(%do-exports (current-module) ',s))) export-syntax (lambda arg `(%%publish-syntax ,@arg)) %%publish-syntax in-module (lambda (mod symb . default) `(apply symbol-value* ',symb (find-module ',mod) ',default)) all-modules module-list %populate-scheme-module SCHEME ((SCHEME)) ((eval . eval) (disassemble . disassemble) (disassemble-expr . disassemble-expr) (%compiler-set-flags . %compiler-set-flags) (%grab-file-information . %grab-file-information) (%compiler-new-label . %compiler-new-label) (%macro-expand . %macro-expand) (compiler-current-module . compiler-current-module) (when-compile . when-compile) (when-load-and-compile . when-load-and-compile) (%syntax-error . %syntax-error) (%compile-time-define . %compile-time-define)) *compiler-port* + - * / fx+ fx- fx* fxquotient = < <= > >= fx=? fx<? fx<=? fx>? fx>=? fx= fx< fx<= fx> fx>= cons null? list eq? eqv? equal? %cxr list-ref *inline-table* *inline-symbols* (%set-current-module %%set-current-module %%execute %%execute-handler) *always-inlined* *code-instr* *code-constants* *code-labels* integer? label? NOP this-instr next-instr this-arg1 this-arg2 next-arg1 next-arg2 GOTO RETURN PUSH (IM-FALSE IM-TRUE IM-NIL IM-MINUS1 IM-ZERO IM-ONE IM-VOID) IM-FALSE FALSE-PUSH IM-TRUE TRUE-PUSH IM-NIL NIL-PUSH IM-MINUS1 MINUS1-PUSH IM-ZERO ZERO-PUSH IM-ONE ONE-PUSH IM-VOID VOID-PUSH SMALL-INT INT-PUSH CONSTANT CONSTANT-PUSH DEEP-LOCAL-REF DEEP-LOC-REF-PUSH IN-NOT (IN-NUMEQ IN-NUMDIFF IN-FXEQ IN-FXDIFF IN-NUMLT IN-NUMGT IN-NUMLE IN-NUMGE IN-EQ IN-EQV IN-EQUAL) IN-NUMEQ IN-NUMDIFF IN-FXEQ IN-FXDIFF IN-NUMLT IN-NUMGE IN-NUMGT IN-NUMLE IN-EQ IN-NOT-EQ IN-EQV IN-NOT-EQV IN-EQUAL IN-NOT-EQUAL JUMP-FALSE (IN-NUMEQ IN-NUMLT IN-NUMGT IN-NUMLE IN-NUMGE IN-EQ IN-EQV IN-EQUAL IN-NOT) JUMP-NUMDIFF JUMP-NUMEQ JUMP-NUMGE JUMP-NUMGT JUMP-NUMLE JUMP-NUMLT JUMP-NOT-EQ JUMP-NOT-EQV JUMP-NOT-EQUAL JUMP-TRUE GLOBAL-REF GLOBAL-REF-PUSH PUSH-GLOBAL-REF INVOKE PUSH-GREF-INVOKE TAIL-INVOKE PUSH-GREF-TAIL-INV PREPARE-CALL PUSH-PREPARE-CALL GREF-INVOKE GREF-TAIL-INVOKE (LOCAL-REF0 LOCAL-REF1 LOCAL-REF2 LOCAL-REF3 LOCAL-REF4) LOCAL-REF0 LOCAL-REF0-PUSH LOCAL-REF1 LOCAL-REF1-PUSH LOCAL-REF2 LOCAL-REF2-PUSH LOCAL-REF3 LOCAL-REF3-PUSH LOCAL-REF4 LOCAL-REF4-PUSH peephole ((NOP 0) (IM-FALSE 0) (IM-TRUE 0) (IM-NIL 0) (IM-MINUS1 0) (IM-ZERO 0) (IM-ONE 0) (IM-VOID 0) (SMALL-INT 1) (CONSTANT 1) (GLOBAL-REF 1) (UGLOBAL-REF 1) (LOCAL-REF0 0) (LOCAL-REF1 0) (LOCAL-REF2 0) (LOCAL-REF3 0) (LOCAL-REF4 0) (LOCAL-REF 1) (DEEP-LOCAL-REF 1) (GLOBAL-SET 1) (UGLOBAL-SET 1) (LOCAL-SET0 0) (LOCAL-SET1 0) (LOCAL-SET2 0) (LOCAL-SET3 0) (LOCAL-SET4 0) (LOCAL-SET 1) (DEEP-LOCAL-SET 1) (GOTO 1) (JUMP-FALSE 1) (JUMP-TRUE 1) (DEFINE-SYMBOL 1) (POP 0) (PUSH 0) (DBG-VM 1) (CREATE-CLOSURE 2) (RETURN 0) (PREPARE-CALL 0) (INVOKE 1) (TAIL-INVOKE 1) (ENTER-LET-STAR 1) (ENTER-LET 1) (ENTER-TAIL-LET-STAR 1) (ENTER-TAIL-LET 1) (LEAVE-LET 0) (PUSH-HANDLER 1) (POP-HANDLER 0) (END-OF-CODE 0) (IN-ADD2 0) (IN-SUB2 0) (IN-MUL2 0) (IN-DIV2 0) (IN-NUMEQ 0) (IN-NUMLT 0) (IN-NUMGT 0) (IN-NUMLE 0) (IN-NUMGE 0) (IN-INCR 0) (IN-DECR 0) (IN-CONS 0) (IN-NULLP 0) (IN-CAR 0) (IN-CDR 0) (IN-LIST 1) (IN-NOT 0) (IN-VREF 0) (IN-VSET 0) (IN-SREF 0) (IN-SSET 0) (IN-EQ 0) (IN-EQV 0) (IN-EQUAL 0) (IN-APPLY 2) (IN-CXR 1) (SET-CUR-MOD 0) (DOCSTRG 1) (PROCNAME 1) (FALSE-PUSH 0) (TRUE-PUSH 0) (NIL-PUSH 0) (MINUS1-PUSH 0) (ZERO-PUSH 0) (ONE-PUSH 0) (VOID-PUSH 0) (INT-PUSH 1) (CONSTANT-PUSH 1) (GREF-INVOKE 2) (UGREF-INVOKE 2) (IN-NUMDIFF 0) (IN-NOT-EQ 0) (IN-NOT-EQV 0) (IN-NOT-EQUAL 0) (JUMP-NUMDIFF 1) (JUMP-NUMEQ 1) (JUMP-NUMLT 1) (JUMP-NUMLE 1) (JUMP-NUMGT 1) (JUMP-NUMGE 1) (JUMP-NOT-EQ 1) (JUMP-NOT-EQV 1) (JUMP-NOT-EQUAL 1) (LOCAL-REF0-PUSH 0) (LOCAL-REF1-PUSH 0) (LOCAL-REF2-PUSH 0) (LOCAL-REF3-PUSH 0) (LOCAL-REF4-PUSH 0) (GLOBAL-REF-PUSH 1) (UGLOBAL-REF-PUSH 1) (GREF-TAIL-INVOKE 2) (UGREF-TAIL-INVOKE 2) (PUSH-PREPARE-CALL 0) (PUSH-GLOBAL-REF 1) (PUSH-UGLOBAL-REF 1) (PUSH-GREF-INVOKE 2) (PUSH-UGREF-INVOKE 2) (PUSH-GREF-TAIL-INV 2) (PUSH-UGREF-TAIL-INV 2) (DEEP-LOC-REF-PUSH 1) (UNUSED-3 0) (UNUSED-4 0) (UNUSED-5 0) (UNUSED-6 0) (UNUSED-7 0) (UNUSED-8 0) (UNUSED-9 0) (UNUSED-10 0) (UNUSED-11 0) (UNUSED-12 0) (UNUSED-13 0) (UNUSED-14 0) (UNUSED-15 0) (UNUSED-16 0) (UNUSED-17 0) (UNUSED-18 0) (UNUSED-19 0) (IN-SINT-ADD2 1) (IN-SINT-SUB2 1) (IN-SINT-MUL2 1) (IN-SINT-DIV2 1) (UNUSED-20 0) (UNUSED-21 0) (UNUSED-22 0) (UNUSED-23 0) (UNUSED-24 0) (UNUSED-25 0) (UNUSED-26 0) (UNUSED-27 0) (UNUSED-28 0) (CALL-LOCATION 1) (DEEP-LOC-REF-FAR 1) (DEEP-LOC-SET-FAR 1) (CREATE-CLOSURE-FAR 2) (PUSH-HANDLER-FAR 1) (IN-FXADD2 0) (IN-FXSUB2 0) (IN-FXMUL2 0) (IN-FXDIV2 0) (IN-SINT-FXADD2 1) (IN-SINT-FXSUB2 1) (IN-SINT-FXMUL2 1) (IN-SINT-FXDIV2 1) (IN-FXEQ 0) (IN-FXLT 0) (IN-FXGT 0) (IN-FXLE 0) (IN-FXGE 0) (IN-FXDIFF 0) (SOURCE 1) (FORMALS 1) (INSCHEME 0)) INSTRUCTION-SET \"non existent opcode ~S\" panic info-opcode (GOTO JUMP-FALSE JUMP-TRUE JUMP-NUMDIFF JUMP-NUMGE JUMP-NUMGT JUMP-NUMGE JUMP-NUMLT JUMP-NUMLE JUMP-NOT-EQ JUMP-NOT-EQV JUMP-NOT-EQUAL CREATE-CLOSURE CREATE-CLOSURE-FAR PUSH-HANDLER PUSH-HANDLER-FAR) use-address? string-upcase string-length #\\space make-string pretty-mnemonic \"Cannot decode ~S opcode\" find-instruction-infos CREATE-CLOSURE CREATE-CLOSURE-FAR PUSH-HANDLER PUSH-HANDLER-FAR \"No FAR version of instruction ~S\" find-far-codeop make-vector small-integer-constant? (CREATE-CLOSURE-FAR PUSH-HANDLER-FAR) memv fetch-constant \"Instr. using a big constant as 2nd operand ~S\" \"Instruction with more than 2 parameters ~S\" assemble \"~A~A~A\" quotient remainder \"\\t;; ==> ~A\" vector-length \"\\n~A:  ~A\" \" ~A\" \" ~S ~S\" \"cannot disassemble instruction (~S)\" \"\\n~A:\\n\" disassemble-code current-output-port \"too many optional parameters: ~a\" %procedure-code disassemble \"cannot disassemble ~S (not a closure with bytecode)\" compile END-OF-CODE emit vector-copy \"\\nConstants:\\n\" fprintf \"~A: ~W\\n\" dynamic-wind disassemble-expr \"*** PANIC *** \" getcwd string-position substring %path-without-cwd \"\" \"~A: \" %epair? \"~A:~A: \" %epair-file %epair-line %port-file-fd \"~A:~A: \" port-file-name port-current-line \"\" \"~AError: ~A~A\\n\" compiler-error \"\" \"~A: \" \"~A:~A: \" \"\" \"~Awarning: ~A~A\\n\" \"**** Warning;\\n~A~A\\n\" compiler-warning unquote \"used outside of a quasiquote context\" unquote-splicing \"used outside of a quasiquote context\" string? \"bad parameters ~S\" \"bad parameters ~S\" *file-module-list* file-module-list-reset! add-file-module-list! %syntax-source file-module-list-expanders #:prepend G33 #:version version #:globals #:macros clock compiler:warn-use-undefined-postpone compile-file \"prepend should be a list: ~S\" %include-file \"#!/usr/bin/env stklos\\n\" \"; A -*- Scheme -*- generated file *DO NOT EDIT**\\n\" \"STklos ~S\\n\" compiler:show-assembly-code \"\\n#|\\n\" \"\\n~S\\n|#\\n\" \"#~S\\n\" %dump-code close-output-port compiler-show-undefined-symbols interactive-port? compiler:time-display \"Compilation time ~S ms\\n\" round exact dirname \"stk-tmp.\" make-path create-temp-file file-exists? delete-file rename-file call-with-values ((compile-file . compile-file)) ((compiler:time-display . compiler:time-display) (compiler:gen-line-number . compiler:gen-line-number) (compiler:warn-use-undefined . compiler:warn-use-undefined) (compiler:warn-use-undefined-postpone . compiler:warn-use-undefined-postpone) (compiler:show-assembly-code . compiler:show-assembly-code) (compiler:keep-formals . compiler:keep-formals) (compiler:keep-source . compiler:keep-source) (compiler:inline-common-functions . compiler:inline-common-functions) (compiler:unroll-iterations . compiler:unroll-iterations)) compiler:gen-line-number compiler:warn-use-undefined compiler:keep-formals compiler:keep-source fixnum? positive? compiler:unroll-iterations \"must be a positive fixnum. It was ~s\" \"Fatal error: ~a\\nABORT\\n\" condition-message eprintf emergency-exit (#\\+ #\\-) #\\+ char=? line-info time-display keep-formals compiler:generate-signature keep-source inline-usuals compiler:inline-common-functions show-instructions \"bad boolean flag ~s\" \"=\" string-split string->number unroll-iterations \"bad value for unroll-iteration ~s\" \"bad flag name ~s\" \"bad valued flag ~s\" \",\" %compiler-set-flags scope (locals mlocals parent) make-struct-type make-struct make-scope struct? struct-is-a? scope? scope-locals %fast-struct-ref scope-mlocals scope-parent %fast-struct-set! find-symbol-in-env \"***SCOPE*** ~S\\n\" \"   ==> locals= ~S mlocals= ~S parent =~S\" %debug-scope find-syntax-in-env %macro-expand quasiquote %syntax-expander \"bad module parameter ~s\" new-label %compiler-new-label emit-label expt exact? compile-constant \"bad usage in ~S\" compile-quote *forward-globals* symbol-bound? known-var? \"reference to undefined symbol ~S\" compiler-warn-undef verify-global define define->lambda \"ill formed definition ~S\" \"bad definition\" DEFINE-SYMBOL \"bad variable name ~S\" \"internal define forbidden here ~S\" compile-define GLOBAL-SET LOCAL-SET0 LOCAL-SET1 LOCAL-SET2 LOCAL-SET3 LOCAL-SET4 LOCAL-REF LOCAL-SET DEEP-LOCAL-SET DEEP-LOC-REF-FAR DEEP-LOC-SET-FAR compile-access compile-reference \"~S is a bad symbol\" \"bad assignment syntax in ~S\" compile-set! \"bad syntax in ~S\" compile-if extended-lambda->lambda eval %symbol-define \"bad variable name ~S\" \"internal define-macro forbidden here ~S\" compile-define-macro compile-and compile-or compile-begin compute-arity extend-env extract-doc-and-name \"body is empty\" let compile-body DOCSTRG PROCNAME keyword->string FORMALS SOURCE compile-user-lambda ext-lambda-key-get and or 'lambda make-keyword \"too many optional parameters: ~a\" let* build-let* \"illegal ~a parameter: ~a\" \"optional\" \"keyword\" (#:optional #:key #:rest) \"duplicate parameter ~S\" \"bad class name ~S\" \"bad procedure parameter ~S\" last-pair #:rest #:optional #:key \"illegal lambda list ending with ~a\" \"rest parameter must be a single symbol\" parse-parameter-list rewrite-params-and-body method \"bad definition ~S\" compile-lambda compile-args compile-var-args CALL-LOCATION %maybe-generate-line-information generate-PREPARE-CALL compile-normal-call assoc can-be-inlined? \"1 argument required (~A provided)\" \"2 arguments required (~A provided)\" \"3 arguments required (~A provided)\" SET-CUR-MOD \"1 arg. only (~S)\" %%execute-handler EXEC-HANDLER number? IN-INCR IN-SINT-ADD2 IN-ADD2 \"needs at least one argument\" IN-SINT-SUB2 IN-DECR IN-SUB2 IN-SINT-MUL2 IN-MUL2 \"needs at least one argument\" IN-SINT-DIV2 IN-DIV2 (fx+ fx- fx* fxquotient) (fx+ fx*) IN-SINT-FXADD2 IN-SINT-FXMUL2 IN-SINT-FXSUB2 IN-SINT-FXDIV2 IN-FXADD2 IN-FXSUB2 IN-FXMUL2 IN-FXDIV2 (= < > <= >=) O \"needs at least one argument\" (fx=? fx<? fx>? fx<=? fx>=? fx= fx< fx> fx<= fx>=) \"needs at least one argument\" (fx=? fx=) (fx<? fx<) IN-FXLT (fx>? fx>) IN-FXGT (fx<=? fx<=) IN-FXLE (fx>=? fx>=) IN-FXGE IN-CONS IN-CAR IN-CDR IN-NULLP IN-LIST IN-VREF IN-VSET IN-SREF IN-SSET (caar cdar cadr cddr caaar cdaar cadar cddar caadr cdadr caddr cdddr caaaar cdaaar cadaar cddaar caadar cdadar caddar cdddar caaadr cdaadr cadadr cddadr caaddr cdaddr cadddr cddddr) string->list list->string string->keyword IN-CXR \"unimplemented inline primitive ~S\" compile-primitive-call negative? ENTER-TAIL-LET ENTER-LET LEAVE-LET \"bad number of parameters ~S\" compile-lambda-call |λ| compile-call \"duplicate binding ~S\" \"malformed binding ~S\" valid-let-bindings? letrec \"ill formed letrec ~S\" compile-letrec \"ill formed named let ~S\" compile-named-let \"ill formed let ~S\" compile-let \"ill formed let* ~S\" ENTER-TAIL-LET-STAR ENTER-LET-STAR compile-let* cond \"invalid clause ~S\" else \"else not in last clause ~S\" => rewrite-cond-clauses \"bad '=>' clause syntax ~S\" compile-cond ok case \"duplicate case value ~S in ~S\" \"ill formed case clause ~S\" \"invalid clause syntax in ~S\" \"ill formed else clause ~S\" \"ill formed clause ~S\" rewrite-case-clauses \"no key given\" compile-case do \"bad binding ~S\" rewrite-do \"bad syntax\" compile-do 'quasiquote backquotify 'unquote 'unquote-splicing vector? list->vector vector->list \"bad syntax\" compile-quasiquote POP-HANDLER \"bad syntax\" compile-with-handler open-input-file eof-object? %read close-port include \"bad include directive ~S\" compile-include include-ci \"bad include directive ~S\" read-case-sensitive compile-include-ci INSCHEME \"expected one argument\" compile-in-scheme %let-syntax \"ill formed %let-syntax ~S\" \"ill formed binding ~S\" compile-%let-syntax %file-information remove-file #:nature source data %library-prefix load-path find-path unknown find-file-information member import-file-information boolean? compile-require \"*** Exception on when-compile form of ~S\\n\" compile-when-compile (lambda body `(begin (%%when-compile ,@body) (void))) when-load-and-compile (lambda body `(begin (%%when-compile ,@body) ,@body (void))) %%label \"bad usage ~S\" compile-%%label %%goto \"bad usage ~S\" compile-%%goto compile-%%source-pos (lambda |λ|) (let %let) %%require %%include %%include-ci %%source-pos %execute %compile-time-define (lambda symbs `(when-compile ,@(map (lambda (x) `(define ,x #void)) symbs))) ((STKLOS-COMPILER)) ((with-input-from-file . with-input-from-file) (with-output-to-file . with-output-to-file) (with-error-to-file . with-error-to-file) (with-input-from-string . with-input-from-string) (with-output-to-string . with-output-to-string) (with-input-from-port . with-input-from-port) (with-output-to-port . with-output-to-port) (with-error-to-port . with-error-to-port) (%call-with . %call-with) (call-with-input-file . call-with-input-file) (call-with-output-file . call-with-output-file) (rationalize . rationalize) (call-with-values . call-with-values)) open-file &i/o-filename-error location \"cannot open file ~S\" backtrace %vm-backtrace filename make-condition %make-with-file with-input-from-file \"r\" with-output-to-file \"w\" with-error-to-file \"w\" open-input-string with-input-from-string open-output-string get-output-string with-output-to-string %make-with-port \"r\" with-input-from-port \"w\" with-output-to-port \"w\" with-error-to-port %call-with call-with-input-file open-output-file call-with-output-file rationalize \"bad rational ~S\" floor 0.0 rational? %call-for-values %use-utf8? string-blit! string-titlecase string-titlecase! \"bad string ~S\" \" \\t\\n\" %string-use-utf8? \"bad offset ~S\" string-mutable? \"changing the constant string ~S is not allowed\" \"bad starting index ~S\" \"bad ending index ~S\" char-alphabetic? char-upcase char-downcase \"bad starting index ~S\" \"bad ending index ~S\" ((call/cc . call/cc) (call-with-current-continuation . call-with-current-continuation) (dynamic-wind . dynamic-wind)) %make-continuation %fresh-continuation? %restore-continuation %call/cc call/cc %thread-dynwind-stack %thread-dynwind-stack-set! procedure? \"bad procedure ~S\" call-with-current-continuation ((define-struct . define-struct)) define-struct (lambda (name . slots) (define (compute-offset slot slots) (let ((sublist (memq slot slots))) (- (length slots) (length sublist)))) (let* ((pred (string->symbol (format \"~a?\" name))) (arg (gensym)) (val (gensym))) `(begin (define ,name (make-struct-type ',name #f ',slots)) (define (,(string->symbol (format \"make-~a\" name)) unquote arg) (apply make-struct ,name ,arg)) (define (,pred ,arg) (and (struct? ,arg) (struct-is-a? ,arg ,name))) ,@(map (lambda (x) (let ((fname (string->symbol (format \"~a-~a\" name x)))) `(define ,fname (lambda (,arg) (%fast-struct-ref ,arg ,name ',fname ,(compute-offset x slots)))))) slots) ,@(map (lambda (x) (let ((fname (string->symbol (format \"~a-~a\" name x)))) `(set! (setter ,fname) (lambda (,arg ,val) (%fast-struct-set! ,arg ,name ',fname ,(compute-offset x slots) ,val))))) slots) (values (void) ',name)))) \"~a?\" \"make-~a\" \"~a-~a\" \"~a-~a\" ((read-chars . read-chars) (read-chars! . read-chars!) (display-shared . display-shared) (gensym . gensym) (macro-expand . macro-expand) (macro-expand* . macro-expand*) (remove . remove) (remove! . remove!) (delete . delete) (delete! . delete!) (every . every) (any . any) (call-with-input-string . call-with-input-string) (call-with-output-string . call-with-output-string) (open-input-virtual . open-input-virtual) (open-output-virtual . open-output-virtual) (read-from-string . read-from-string) (eval-from-string . eval-from-string) (command-line . command-line) (program-name . program-name) (create-directories . create-directories) (ensure-directories-exist . ensure-directories-exist) (posix-error? . posix-error?) (posix-error-name . posix-error-name) (posix-error-message . posix-error-message) (posix-error-errno . posix-error-errno) (posix-error-procedure . posix-error-procedure) (posix-error-arguments . posix-error-arguments) (make-hash-table . make-hash-table) (hash-table->alist . hash-table->alist) (alist->hash-table . alist->hash-table) (hash-table-update! . hash-table-update!) (hash-table-update!/default . hash-table-update!/default) (hash-table-keys . hash-table-keys) (hash-table-values . hash-table-values) (hash-table-fold . hash-table-fold) (hash-table-merge! . hash-table-merge!) (hash-table-copy . hash-table-copy) (fluid-let . fluid-let) (time . time) (tagbody . tagbody) (dotimes . dotimes) (repeat . repeat) (while . while) (until . until) (call/ec . call/ec) (base64-encode-string . base64-encode-string) (base64-decode-string . base64-decode-string) (md5sum-file . md5sum-file) (ansi-color . ansi-color) (ansi-color-protect . ansi-color-protect) (do-color . do-color) (port->string . port->string) (port->sexp-list . port->sexp-list) (port->string-list . port->string-list) (print . print) (printerr . printerr) (eprintf . eprintf) (printf . printf) (fprintf . fprintf) (declare-new-error . declare-new-error) (exec . exec) (exec-list . exec-list) (apropos . apropos) (die . die) (decompose-file-name . decompose-file-name) (dirname . dirname) (basename . basename) (file-separator . file-separator) (make-path . make-path) (file-suffix . file-suffix) (file-prefix . file-prefix) (port-idle-register! . port-idle-register!) (port-idle-unregister! . port-idle-unregister!) (port-idle-reset! . port-idle-reset!) (chmod . chmod) (with-mutex . with-mutex) (error-object-location . error-object-location) (%push-id . %push-id) (%stable-version? . %stable-version?) (define-constant . define-constant) (void? . void?) (receive . receive) (case-lambda . case-lambda) (radians->degrees . radians->degrees) (degrees->radians . degrees->radians) (%define-condition-type-accessors . %define-condition-type-accessors) (message-condition? . message-condition?) (condition-message . condition-message) (serious-condition? . serious-condition?) (error? . error?) (error-message? . error-message?) (error-location . error-location) (error-message . error-message) (read-with-shared-structure . read-with-shared-structure) (read/ss . read/ss) (write-with-shared-structure . write-with-shared-structure) (write/ss . write/ss) (parameterize . parameterize) (require-extension . require-extension) (string->keyword . string->keyword) (get-environment-variable . get-environment-variable) (get-environment-variables . get-environment-variables) (implementation-name . implementation-name) (implementation-version . implementation-version) (cpu-architecture . cpu-architecture) (machine-name . machine-name) (os-name . os-name) (os-version . os-version) (fx-width . fx-width) (fx-greatest . fx-greatest) (fx-least . fx-least) (assume . assume) (version-alist . version-alist) (port-has-port-position? . port-has-port-position?) (port-position . port-position) (port-has-set-port-position!? . port-has-set-port-position!?) (set-port-position! . set-port-position!) (make-i/o-invalid-position-error . make-i/o-invalid-position-error) (i/o-invalid-position-error? . i/o-invalid-position-error?) (command-name . command-name) (command-args . command-args) (argc . argc) (script-file . script-file) (script-directory . script-directory) (make-nan . make-nan)) read-bytes read-chars read-bytes! read-chars! display-shared \"G\" \"bad gensym prefix ~S\" number->string string->uninterned-symbol macro-expand macro-expand* remove! delete delete! \"bad procedure\" any \"bad procedure\" call-with-input-string call-with-output-string #:read-char #:ready? #:eof? #:close vector %open-input-virtual open-input-virtual #:write-char #:write-string #:flush %open-output-virtual open-output-virtual read read-from-string eval-from-string *%system-state-plist* #:script-file \"\" \"\" \"\" #:program-name \"\" #:argv \"bad command line ~S\" command-line program-name file-is-directory? create-directories create-directory ensure-directories-exist condition? &posix-error condition-has-type? posix-error? \"expected a posix-error condition\" %posix-error-condition-ref errname posix-error-name r7rs-msg posix-error-message errno posix-error-errno posix-error-procedure r7rs-irritants posix-error-arguments hash-table-hash %make-hash-table make-hash-table hash-table-map hash-table->alist hash-table-exists? hash-table-set! alist->hash-table hash-table-ref hash-table-update! hash-table-ref/default hash-table-update!/default hash-table-keys hash-table-values hash-table-for-each hash-table-fold hash-table-merge! hash-table-equivalence-function hash-table-hash-function hash-table-copy fluid-let (lambda (bindings . body) (let* ((vars (map car bindings)) (vals (map cadr bindings)) (tmps (map (lambda (x) (gensym)) vars))) `(let ,(map list tmps vars) (dynamic-wind (lambda () ,@(map (lambda (x y) `(set! ,x ,y)) vars vals)) (lambda () ,@body) (lambda () ,@(map (lambda (x y) `(set! ,x ,y)) vars tmps)))))) time (lambda args (let ((tmp1 (gensym)) (tmp2 (gensym))) `(let* ((,tmp1 (clock)) (,tmp2 (begin ,@args))) (format (current-error-port) \"Elapsed time: ~S ms\\n\" (- (clock) ,tmp1)) ,tmp2))) \"Elapsed time: ~S ms\\n\" tagbody (lambda body (let ((tags (map (lambda (x) (cons x (%compiler-new-label))) (filter keyword? body)))) (define (replace code) (if (pair? code) (if (and (eq? (car code) '->) (= (length code) 2)) (let ((t (assq (cadr code) tags))) (if t `(%%goto ,(cdr t)) code)) (map replace code)) code)) (define (verify code) (if (pair? code) (cond ((and (eq? (car code) '->) (= (length code) 2)) (error 'tagbody \"destination label ~S not defined\\n\" (cadr code))) ((eq? (car code) 'tagbody) #void) (else (map verify code))))) (let ((new-body (map (lambda (x) (if (keyword? x) `(%%label ,(cdr (assq x tags))) (replace x))) body))) (verify new-body) `(begin ,@new-body)))) -> \"destination label ~S not defined\\n\" dotimes (lambda (bindings . body) (apply (lambda (var count . result) (let* ((result (if (null? result) (list '(void)) result)) (limit (if (number? count) count (gensym))) (head (if (number? count) '(begin) `(let ((,limit ,count))))) (plus (if (fixnum? count) 'fx+ '+)) (ge (if (fixnum? count) 'fx>= '>=))) `(,@head (do ((,var 0 (,plus ,var 1))) ((,ge ,var ,limit) ,@result) ,@body)))) bindings)) (void) (begin) repeat (lambda (count . body) (define (%repeat n body use-fx?) (let ((minus (if use-fx? 'fx- '-)) (gt (if use-fx? 'fx> '>))) `(tagbody #:top (when (,gt ,n 0) (set! ,n (,minus ,n 1)) ,@body (-> #:top))))) (define (%multiply-list L k) (cond ((fx=? k 0) '()) ((fx=? k 1) (list-copy L)) (else (append (list-copy L) (%multiply-list L (fx- k 1)))))) (let* ((it (compiler:unroll-iterations)) (inside (%multiply-list body it)) (c (gensym)) (q (gensym)) (r (gensym))) (if (fixnum? count) (if (and (= it 1) (positive? count)) `(let ((,c ,count)) ,(%repeat c body #t)) (let ((valq (quotient count it)) (valr (remainder count it))) `(begin ,(if (positive? valq) `(let ((,q ,valq)) ,(%repeat q inside #t)) `(void)) ,(if (positive? valr) `(let ((,r ,valr)) ,(%repeat r body #t)) `(void))))) (if (= it 1) `(let ((,c ,count)) ,(%repeat c body #f)) `(let* ((,c ,count) (,q (quotient ,c ,it)) (,r (remainder ,c ,it))) ,(%repeat q inside #f) ,(%repeat r body #f)))))) #:top while (lambda (test . body) `(tagbody #:top (when ,test (begin ,@body (-> #:top))))) until (lambda (test . body) `(tagbody #:top (unless ,test (begin ,@body (-> #:top))))) \"call/ec\" call/ec base64-encode-string base64-decode-string \"bad string ~s\" base64-encode base64-decode \"r\" md5sum close-input-port \"cannot read file ~s\" md5sum-file ansi-color ansi-color-protect \"\\x1b;[\" \"m\" ((normal . \"0\") (bold . \"1\") (no-bold . \"21\") (italic . \"2\") (no-italic . \"22\") (underline . \"4\") (no-underline . \"24\") (blink . \"5\") (no-blink . \"25\") (reverse . \"7\") (no-reverse . \"27\") (black . \"30\") (bg-black . \"40\") (red . \"31\") (bg-red . \"41\") (green . \"32\") (bg-green . \"42\") (yellow . \"33\") (bg-yellow . \"43\") (blue . \"34\") (bg-blue . \"44\") (magenta . \"35\") (bg-magenta . \"45\") (cyan . \"36\") (bg-cyan . \"46\") (white . \"37\") (bg-white . \"47\")) \"\" \"\\x1b;[\" \"m\" \"\" \"\" \";\" \"38;5;~a\" \"48;5;~a\" \";\" \"bad command ~S\" \"TERM\" getenv \"\" #:interactive regexp-match (\"rxvt\" \"xterm\" \"xterm-color\" \"linux\" \"cygwin\" \"cons25\") \"\" do-color input-port? port->list \"bad port ~S\" %port->list \"bad port ~S\" copy-port port->string port->sexp-list read-line port->string-list print printerr flush-output-port printf declare-new-error (lambda (name) (let ((cond-name (string->symbol (format \"&~a\" name))) (predicate (string->symbol (format \"&~a?\" name))) (args (gensym))) `(begin (define-condition-type ,cond-name &error-message ,predicate) (define (,name unquote args) (if (and (not (null? ,args)) (symbol? (car ,args))) (apply signal-error ,cond-name ,args) (apply signal-error ,cond-name ',name ,args)))))) \"&~a\" \"&~a?\" define-condition-type &error-message signal-error \"| \" exec \"| \" exec-list string<? apropos \"bad module ~S\" sort string-find? \"**** ~A\\n**** EXIT\\n\" exit die running-os cygwin-windows posixify-file-name #\\/ \"/\" \".\" \"/\" decompose-file-name \"^(.*)/(.+)$\" \"\\\\1\" regexp-replace \"\" string=? \"/\" \".\" \"^(.*)/(.*)$\" \"\\\\2\" basename \"/\" \".\" \"/\" \"^(.*)/(.+)$\" \"\\\\1\" \"\" \"/\" \".\" \"^(.*)/(.*)$\" \"\\\\2\" (unix cygwin-windows android) windows #\\\\ #\\? file-separator \"~A~A~A\" #\\. file-suffix file-prefix port-idle-register! \"bad procedure ~S\" %port-idle port-idle-unregister! \"bad procedure ~S\" port-idle-reset! expand-file-name %chmod bit-or write execute chmod \"bad option ~S\" \"bad option ~S\" mutex-lock! mutex-unlock! with-mutex error-object? \"bad error object: ~S\" error-object-location define-constant (lambda args (define (rewrite l) (if (<= (length l) 1) (error \"bad constant definition\")) (let ((bind (car l)) (body (cdr l))) (if (pair? bind) (rewrite `(,(car bind) (lambda ,(cdr bind) ,@body))) l))) (let ((args (rewrite args))) (if (= (length args) 2) `(begin (define ,@args) (symbol-immutable! ',(car args))) (error \"bad constant definition ~S\" `(define-constant ,@args))))) \"bad constant definition\" symbol-immutable! \"bad constant definition ~S\" void? real? \"bad real number ~S\" 3.14159265358979 radians->degrees \"bad real number ~S\" 3.14159265358979 degrees->radians %stable-version? \"stable\" %stklos-git #:commit \"unstable -- ~a\" \"unstable\" %push-id receive (lambda (vars producer . body) `(call-with-values (lambda () ,producer) (lambda ,vars ,@body))) case-lambda (lambda clauses (let ((len (gensym)) (args (gensym)) (compute-arity (in-module STKLOS-COMPILER compute-arity))) `(lambda ,args (let ((,len (length ,args))) (cond ,@(map (lambda (x) (unless (>= (length x) 2) (error 'case-lambda \"bad clause ~S\" x)) (let* ((formals (car x)) (body (cdr x)) (arity (compute-arity formals))) (cond ((positive? arity) `((= ,len ,arity) (apply (lambda ,formals ,@body) ,args))) ((zero? arity) `((= ,len ,arity) ,@body)) (else `((>= ,len ,(- (- arity) 1)) (apply (lambda ,formals ,@body) ,args)))))) clauses) (else (error 'case-lambda \"no matching clause in list ~S for ~S\" ',(map car clauses) ,args))))))) \"bad clause ~S\" \"no matching clause in list ~S for ~S\" %define-condition-type-accessors (lambda (name supertype predicate . slots) (let ((obj (gensym))) `(begin (define (,predicate ,obj) (and (condition? ,obj) (condition-has-type? ,obj ,name))) ,@(map (lambda (x) `(define (,(cadr x) ,obj) (unless (,predicate ,obj) (error ',(cadr x) \"bad type for condition ~S\" ,obj)) (condition-ref ,obj ',(car x)))) slots)))) \"bad type for condition ~S\" &message message-condition? &serious serious-condition? &error error? error-message? error-location error-message read-with-shared-structure write* write-with-shared-structure read/ss write/ss parameterize (lambda (bindings . body) (let ((tmp1 (map (lambda (_) (gensym)) bindings)) (tmp2 (map (lambda (_) (gensym)) bindings))) `(let (,@(map (lambda (x y) (list y (cadr x))) bindings tmp1) ,@(map (lambda (x y) (list y (list (car x)))) bindings tmp2)) (dynamic-wind (lambda () ,@(map (lambda (x y) `(,(car x) ,y)) bindings tmp1)) (lambda () ,@body) (lambda () ,@(map (lambda (x y) `(,(car x) ,y)) bindings tmp2)))))) require-extension (lambda args (%find-macro-clause 'require-extension args '(require-extension srfi) '(((_ \"internal\" (srfi id ...)) (begin (require-feature id) ...)) ((_ \"internal\" (x ...)) (import (x ...))) ((_ \"internal\" id) (cond-expand (id #void) (else (error \"cannot require extension named '~s'\" 'id)))) ((_ clause ...) (begin (require-extension \"internal\" clause) ...))) '...)) (require-extension srfi) (((_ \"internal\" (srfi id ...)) (begin (require-feature id) ...)) ((_ \"internal\" (x ...)) (import (x ...))) ((_ \"internal\" id) (cond-expand (id #void) (else (error \"cannot require extension named '~s'\" 'id)))) ((_ clause ...) (begin (require-extension \"internal\" clause) ...))) \"bad string ~S\" get-environment-variable get-environment-variables \"STklos\" implementation-name implementation-version %uname cpu-architecture machine-name os-name \" \" os-version fixnum-width fx-width greatest-fixnum fx-greatest least-fixnum fx-least assume (lambda (expr . args) (if (positive? (stklos-debug-level)) (let* ((efile (and (%epair? expr) (%epair-file expr))) (eline (and (%epair? expr) (%epair-line expr))) (fmt (string-append (if efile (format \"in ~A:~A, \" efile eline) \"\") \"invalid assumption:\"))) `(or ,expr (error ,fmt ',expr ,@args))) #void)) \"in ~A:~A, \" \"\" \"invalid assumption:\" \"srfi-\" %stklos-configure features #:use-utf8 command \"stklos\" scheme.id languages scheme r5rs r7rs encodings (utf-8) threads %thread-system install-dir website \"https://stklos.net\" scheme.features scheme.path scheme.srfi scheme.srfi.count build.configure #:configure build.git.tag #:tag build.git.branch #:branch build.git.commit build.git.modified #:modified c.version #:c-version c.compile #:c-compile c.link #:c-link c.type-bits #:c-type-bits c.library.compile #:shlib-compile c.library.link #:shlib-link c.library.extension #:shlib-suffix stklos.system-libs #:system stklos.compiled-libs #:compiled os.uname os.env.LANG \"LANG\" \"\" os.env.TERM \"TERM\" \"\" version-alist port? port-has-port-position? \"Not a port: ~A\" port-current-position port-position port-has-set-port-position!? \"Not a port: ~A\" output-port? flush port-seek set-port-position! &i/o-bad-parameter parameter make-i/o-invalid-position-error obj i/o-invalid-position-error? \"\" *load-suffixes* command-name command-args argc \"\" \"\" script-file \"\" \"\" \"/\" script-directory %make-nan make-nan ((regexp-replace . regexp-replace) (regexp-replace-all . regexp-replace-all)) regexp-replace-all \"\\\\\\\\[0-9]\" regexp-match-positions \"cannot match \\\\~A in model\" ((run-process . run-process) (process-kill . process-kill) (process-stop . process-stop) (process-continue . process-continue)) \"value expected after keyword ~S\" #:input #:output #:error #:wait #:fork #:args %run-process run-process SIGTERM process-send-signal process-kill SIGSTOP process-stop SIGCONT process-continue ((%equiv? . %equiv?)) %equiv? %equal-try ((time? . time?) (time->seconds . time->seconds) (seconds->time . seconds->time) (make-date . make-date) (date? . date?) (seconds->date . seconds->date) (date-nanosecond . date-nanosecond) (date-second . date-second) (date-minute . date-minute) (date-hour . date-hour) (date-day . date-day) (date-month . date-month) (date-year . date-year) (date-week-day . date-week-day) (date-year-day . date-year-day) (date-dst . date-dst) (date-tz . date-tz) (time-zone-name . time-zone-name) (seconds->list . seconds->list) (current-date . current-date) (current-time . current-time) (seconds->string . seconds->string) (date->string . date->string) (time-nanosecond . time-nanosecond) (set-time-nanosecond! . set-time-nanosecond!) (time-second . time-second) (set-time-second! . set-time-second!) (time-type . time-type) (set-time-type! . set-time-type!) (make-time . make-time) (time-tai->time-utc . time-tai->time-utc) (time-tai->time-utc! . time-tai->time-utc!) (time-utc->time-tai . time-utc->time-tai) (time-utc->time-tai! . time-utc->time-tai!) (%leap-second-table . %leap-second-table) (%leap-second-delta . %leap-second-delta) (%time-tai->time-utc! . %time-tai->time-utc!) (%time-utc->time-tai! . %time-utc->time-tai!)) \"since first argument is symbol, 3 args (type, nanosecond and second) required, only 2 given\" (time-tai time-utc time-monotonic time-process time-duration) \"bad time type ~S\" \"bad integer ~S\" \"bad integer ~S\" %time \"since first argument is integer, 2 args (nanosecond and second) required, but 3 given\" \"bad integer ~S\" time-utc \"bad symbol or integer ~S\" make-time type time-type set-time-type! second time-second set-time-second! nanosecond time-nanosecond set-time-nanosecond! struct-type time? 1000000000 %nano 86400 %sid exact->inexact time-seconds \"bad time ~S\" time->seconds inexact->exact #:time-utc seconds->time \"cannot convert ~S to a time\" \"bad number ~S\" ((1483228800 . 37) (1435708800 . 36) (1341100800 . 35) (1230768000 . 34) (1136073600 . 33) (915148800 . 32) (867715200 . 31) (820454400 . 30) (773020800 . 29) (741484800 . 28) (709948800 . 27) (662688000 . 26) (631152000 . 25) (567993600 . 24) (489024000 . 23) (425865600 . 22) (394329600 . 21) (362793600 . 20) (315532800 . 19) (283996800 . 18) (252460800 . 17) (220924800 . 16) (189302400 . 15) (157766400 . 14) (126230400 . 13) (94694400 . 12) (78796800 . 11) (63072000 . 10)) %leap-second-table %leap-second-delta %leap-second-neg-delta time-tai \"bad TAI time ~S\" %time-tai->time-utc! time-tai->time-utc time-tai->time-utc! \"bad UTC time ~S\" %time-utc->time-tai! time-utc->time-tai time-utc->time-tai! current-second %get-time-of-day %current-time-tai %current-time-utc %current-time \"too many arguments (0 or 1 expected, ~S given)\" \"unsupported time type ~S\" current-time %make-date-key %make-date-opt make-date #:nanosecond #:second #:minute #:hour #:day #:month #:year #:zone-offset %make-date \"bad ~s ~s\" check 999999999 minute hour day month \"bad year ~s\" \"bad zone offset ~s\" %date max date->seconds seconds->date local-timezone-offset week-day date-week-day year-day date-year-day dst date-dst tz date? date-tz \"Z\" abs #\\- \"~a~2f:~2f\" #\\0 string-map time-zone-name %seconds->date \"#[date ~A-~A-~A ~A:~A:~A]\" year struct-type-change-writer! date-nanosecond date-second date-minute date-hour date-day date-month date-year struct->list seconds->list current-date seconds->string \"bad string ~S\" #\\% \"%%\" #\\~ %seconds->string \"~c\" date->string \"bad string ~S\" ((bit-and . bit-and) (bit-or . bit-or) (bit-xor . bit-xor) (bit-not . bit-not) (bit-shift . bit-shift)) bit-and bit-xor %bit-and %bit-or %bit-xor bit-not bit-shift ((make-thread . make-thread) (thread-handler-error-show . thread-handler-error-show) (thread-sleep! . thread-sleep!) (thread-join! . thread-join!) (mutex-lock! . mutex-lock!) (mutex-unlock! . mutex-unlock!) (join-timeout-exception? . join-timeout-exception?) (abandoned-mutex-exception? . abandoned-mutex-exception?) (terminated-thread-exception? . terminated-thread-exception?) (&uncaught-exception . &uncaught-exception) (uncaught-exception? . uncaught-exception?) (uncaught-exception-reason . uncaught-exception-reason)) \"bad timeout ~S\" %thread-timeout->seconds \"thread\" current-thread thread-name %build-error-location bold red \"**** Error \" blue \"(in thread ~S):\\n\" \"~A: ~A\\n\" normal \"    (this error may be signaled again later)\\n\" %thread-end-exception-set! thread-handler-error-show %make-thread make-thread thread-sleep! \"cannot used #f as timeout\" %thread-sleep! thread-join! \"cannot join on myself (deadlock will occur)\" %thread-join! &thread-join-timeout %thread-end-exception &uncaught-exception reason %thread-end-result %mutex-lock! thread? &thread-abandonned-mutex %mutex-unlock! join-timeout-exception? abandoned-mutex-exception? &thread-terminated terminated-thread-exception? &condition (reason) make-condition-type uncaught-exception? uncaught-exception-reason ((make-external-function . make-external-function) (make-callback . make-callback) (define-external . define-external)) make-external-function make-callback ((#:void 0) (#:char 1) (#:short 2) (#:ushort 3) (#:int 4) (#:uint 5) (#:long 6) (#:ulong 7) (#:lonlong 8) (#:ulonlong 9) (#:float 10) (#:double 11) (#:boolean 12) (#:pointer 13) (#:string 14) (#:int8 15) (#:int16 16) (#:int32 17) (#:int64 18) (#:obj 19)) define-external \"parameter of type :void are forbidden\" \"bad type name ~S\" \"bad parameter description: ~S\" \"bad parameter description: ~S\" %make-ext-func %make-callback (lambda (name parameters . args) (let* ((lib (key-get args #:library-name \"\")) (lib-name (if (and (equal? lib \"\") (equal? (running-os) 'cygwin-windows)) \"cygwin1.dll\" lib)) (entry-name (key-get args #:entry-name (symbol->string name))) (return-type (key-get args #:return-type #:void))) `(define ,name (make-external-function ,entry-name ',parameters ,return-type ,lib-name)))) #:library-name \"\" \"\" \"cygwin1.dll\" #:entry-name #:return-type #:void ((write-shared . write-shared) (write-simple . write-simple) (letrec* . letrec*) (let-values . let-values) (let*-values . let*-values) (delay . delay) (delay-force . delay-force) (lazy . lazy) (make-promise . make-promise) (eager . eager) (define-values . define-values) (define-record-type . define-record-type) (equal-simple? . equal-simple?) (exact-integer? . exact-integer?) (floor-quotient . floor-quotient) (floor/ . floor/) (truncate/ . truncate/) (truncate-quotient . truncate-quotient) (truncate-remainder . truncate-remainder) (floor-remainder . floor-remainder) (square . square) (exact-integer-sqrt . exact-integer-sqrt) (exact . exact) (inexact . inexact) (boolean=? . boolean=?) (make-list . make-list) (member-simple . member-simple) (assoc-simple . assoc-simple) (member . member) (assoc . assoc) (symbol=? . symbol=?) (string=? . string=?) (%string2=? . %string2=?) (string<? . string<?) (%string2<? . %string2<?) (string<=? . string<=?) (%string2<=? . %string2<=?) (string>? . string>?) (%string2>? . %string2>?) (string>=? . string>=?) (%string2>=? . %string2>=?) (string-ci=? . string-ci=?) (%string-ci2=? . %string-ci2=?) (string-ci<? . string-ci<?) (%string-ci2<? . %string-ci2<?) (string-ci<=? . string-ci<=?) (%string-ci2<=? . %string-ci2<=?) (string-ci>? . string-ci>?) (%string-ci2>? . %string-ci2>?) (string-ci>=? . string-ci>=?) (%string-ci2>=? . %string-ci2>=?) (string->list . string->list) (string-copy! . string-copy!) (string-fill! . string-fill!) (%string-fill2! . %string-fill2!) (vector->list . vector->list) (vector-copy! . vector-copy!) (vector->string . vector->string) (string->vector . string->vector) (make-bytevector . make-bytevector) (bytevector? . bytevector?) (bytevector . bytevector) (bytevector-length . bytevector-length) (bytevector-u8-ref . bytevector-u8-ref) (bytevector-u8-set! . bytevector-u8-set!) (bytevector-copy! . bytevector-copy!) (string-map . string-map) (vector-map . vector-map) (string-for-each . string-for-each) (vector-for-each . vector-for-each) (error-object? . error-object?) (error-object-message . error-object-message) (error-object-irritants . error-object-irritants) (read-error? . read-error?) (file-error? . file-error?) (call-with-port . call-with-port) (input-port-open? . input-port-open?) (output-port-open? . output-port-open?) (read-string . read-string) (read-u8 . read-u8) (peek-u8 . peek-u8) (read-bytevector! . read-bytevector!) (write-string . write-string) (write-u8 . write-u8) (write-bytevector . write-bytevector) (with-exception-handler . with-exception-handler) (raise-continuable . raise-continuable) (guard . guard) (current-jiffy . current-jiffy) (jiffies-per-second . jiffies-per-second) (features . features) (%continuable-exception? . %continuable-exception?) (%continuable-exception-value . %continuable-exception-value)) write-shared write-simple letrec* (lambda (bindings . body) (if (list? bindings) (for-each (lambda (x) (unless (and (list? x) (= (length x) 2)) (error 'letrec* \"incorrect binding ~S\" x))) bindings) (error 'letrec* \"incorrect bindings ~S\" bindings)) `(let ,(map (lambda (x) (list (car x) #f)) bindings) ,@(map (lambda (x) `(set! ,@x)) bindings) (let () ,@body))) \"incorrect binding ~S\" \"incorrect bindings ~S\" let-values (lambda (bindings . body) (let ((tmps '())) (define (expand-once bindings tmps) (let ((first (car bindings))) `(call-with-values (lambda () ,(cadr first)) (lambda ,(map* (lambda (x) (cadr (assoc x tmps))) (car first)) ,(if (= (length bindings) 1) `(let ,tmps ,@body) (expand-once (cdr bindings) tmps)))))) (define (parse-binding binding) (unless (and (list? binding) (= (length binding) 2) (or (pair? (car binding)) (symbol? (car binding)))) (error 'let-values \"incorrect binding ~S\" binding)) (for-each* (lambda (x) (if (assoc x tmps) (error 'let-values \"duplicate binding ~s\" x) (set! tmps (cons (list x (gensym)) tmps)))) (car binding))) (for-each parse-binding bindings) (if (null? tmps) `(let () ,@body) (expand-once bindings tmps)))) \"incorrect binding ~S\" \"duplicate binding ~s\" let*-values (lambda (bindings . body) (if (> (length bindings) 1) `(let-values (,(car bindings)) (let*-values ,(cdr bindings) ,@body)) `(let-values ,bindings ,@body))) delay (lambda (exp) `(delay-force (%make-promise (list ,exp)))) delay-force %make-promise (lambda (exp) `(%make-promise (lambda () ,exp))) lazy (lambda (expr) `(delay-force ,expr)) promise? make-promise eager define-values (lambda (formals expr) (define (flat lst) (cond ((null? lst) lst) ((pair? lst) (cons (car lst) (flat (cdr lst)))) (else (list lst)))) (if (null? formals) `(call-with-values (lambda () ,expr) void) (let* ((tmps (map* (lambda (x) (gensym)) formals)) (ff (flat formals)) (ft (flat tmps))) `(begin ,@(map (lambda (x) `(define ,x #void)) ff) (call-with-values (lambda () ,expr) (lambda ,tmps ,@(map (lambda (x y) `(set! ,x ,y)) ff ft))) (values (void) ',formals))))) define-record-type (lambda (name constructor predicate . fields) (let ((struct-type (gensym)) (tmp (gensym)) (val (gensym))) `(begin (define ,(car constructor) #f) (define ,predicate #f) ,@(map (lambda (x) (case (length x) ((2) `(define ,(cadr x) #f)) ((3) `(begin (define ,(cadr x) #f) (define ,(caddr x) #f))) (else (error 'define-record-type \"bad field specification ~S\" x)))) fields) (let ((make-struct-type (%%in-scheme 'make-struct-type)) (make-struct (%%in-scheme 'make-struct)) (struct? (%%in-scheme 'struct?)) (struct-is-a? (%%in-scheme 'struct-is-a?)) (struct-ref (%%in-scheme 'struct-ref)) (struct-set! (%%in-scheme 'struct-set!))) (let ((,struct-type (make-struct-type ',name #f ',(map car fields)))) (set! ,(car constructor) (lambda ,(cdr constructor) (let ((,tmp (make-struct ,struct-type))) ,@(map (lambda (x) `(struct-set! ,tmp ',x ,x)) (cdr constructor)) ,tmp))) (set! ,predicate (lambda (,tmp) (and (struct? ,tmp) (struct-is-a? ,tmp ,struct-type)))) ,@(map (lambda (x) (if (= (length x) 2) `(set! ,(cadr x) (lambda (,tmp) (struct-ref ,tmp ',(car x)))) `(begin (set! ,(cadr x) (lambda (,tmp) (struct-ref ,tmp ',(car x)))) (set! ,(caddr x) (lambda (,tmp ,val) (struct-set! ,tmp ',(car x) ,val)))))) fields) (values (void) ',name)))))) \"bad field specification ~S\" equal-simple? exact-integer? floor-quotient floor-remainder floor/ truncate/ truncate-quotient truncate-remainder modulo square integer-length \"non negative integer expected. It was: ~S\" sqrt exact-integer-sqrt inexact boolean=? make-list member-simple assoc-simple symbol=? %generalize-string-compare (lambda (func func2) `(begin (define ,func2 ,func) (set! ,func (lambda (first . l) ,(string->keyword (symbol->string func)) (letrec ((compare (lambda (first . l) (or (null? l) (and (,func2 first (car l)) (apply compare l)))))) (unless (string? first) (error \"bad string ~W\" first)) (apply compare first l)))))) first l compare \"bad string ~W\" %string2=? %string2<? string<=? %string2<=? string>? %string2>? string>=? %string2>=? string-ci=? %string-ci2=? string-ci<? %string-ci2<? string-ci<=? %string-ci2<=? string-ci>? %string-ci2>? string-ci>=? %string-ci2>=? string-copy! \"bad string ~S\" \"bad string ~S\" \"bad destination index ~S\" \"bad integer for start index ~S\" \"bad integer for end index ~S\" \"not enough room in destination string ~S\" string-fill! %string-fill2! \"end index ~S < start index ~S\" vector-copy! \"bad vector ~S\" \"bad vector ~S\" \"bad destination index ~S\" \"bad integer for start index ~S\" \"bad integer for end index ~S\" \"not enough room in destination vector ~S\" \"bad vector ~S\" vector->string char? \"element at index ~S of ~S must be a character\" \"bad string ~S\" string->vector make-bytevector %make-uvector %uvector? bytevector? bytevector %uvector bytevector-length %uvector-length bytevector-u8-ref %uvector-ref bytevector-u8-set! %uvector-set! bytevector-copy! \"bad bytevector ~S\" \"bad bytevector ~S\" \"bad destination index ~S\" \"bad integer for start index ~S\" \"bad integer for end index ~S\" \"not enough room in destination bytevector ~S\" \"bad string ~S\" \"bad character in ~S\" vector-map \"bad list of vectors ~S\" string-for-each \"bad string ~S\" vector-for-each \"bad list of vectors ~S\" \"bad error object: ~S\" error-object-message \"bad error object: ~S\" error-object-irritants &read-error read-error? file-error? call-with-port \"bad input port ~S\" port-closed? input-port-open? \"bad output port ~S\" output-port-open? read-string \"parameter must be a positive integer. It was: ~S\" textual-port? \"bad textual input port ~S\" read-char eof-object read-u8 binary-port? \"bad binary port ~S\" read-byte peek-u8 \"bad binary port ~S\" peek-byte read-bytevector! \"bad bytevector ~S\" %read-bytevector! write-string %write-string write-u8 \"bad binary port ~S\" write-byte write-bytevector \"bad bytevector ~S\" \"bad binary port ~S\" %continuable-exception (value) make-%continuable-exception %continuable-exception? %continuable-exception-value \"exception handler returned on non-continuable exception\" with-exception-handler current-exception-handler raise-continuable guard (lambda (clauses . body) (let* ((var (car clauses)) (last (last-pair clauses)) (ex (gensym)) (old-hdlr (gensym)) (reraised (gensym)) (res (gensym))) `(let ((,old-hdlr (current-exception-handler))) (with-handler (lambda (,ex) (let* ((,var (if (%continuable-exception? ,ex) (%continuable-exception-value ,ex) ,ex)) (,reraised #f) (,res (cond ,@(cdr clauses) ,@(if (and (pair? last) (pair? (car last)) (eq? (caar last) 'else)) '() `((else (set! ,reraised #t) (,old-hdlr ,ex))))))) (if ,reraised ,res (if (%continuable-exception? ,ex) (raise ,res) ,res)))) ,@body)))) current-jiffy jiffies-per-second *all-features* SRFI-0 ((build-path-from-shell-variable . build-path-from-shell-variable) (load-path . load-path) (load-suffixes . load-suffixes) (load-verbose . load-verbose) (current-loading-file . current-loading-file) (try-load . try-load) (load . load) (find-path . find-path) (require . require) (provide . provide) (provided? . provided?) (require/provide . require/provide) (warning-when-not-provided . warning-when-not-provided) (require-library . require-library) (require-for-syntax . require-for-syntax) (include . include) (include-ci . include-ci) (include-file . include-file) (autoload . autoload) (%stklos-conf-dir . %stklos-conf-dir) (%stklos-conf-file . %stklos-conf-file) (%try-load-conditions . %try-load-conditions) (%do-include . %do-include) (%%require . %%require)) \";\" \":\" *path-separator* %shared-suffix \"ostk\" \"stk\" \"sld\" \"scm\" *load-verbose* *load-path* \"HOME\" \".stklos\" \"XDG_CONFIG_HOME\" \"STKLOS_CONFDIR\" \"~/.config\" \"stklos\" %stklos-conf-dir %stklos-conf-file build-path-from-shell-variable \"STKLOS_LOAD_PATH\" \".\" lib \"bad list of path names ~S\" \"bad path name ~S\" \"bad list of suffixes ~S\" \"bad path name ~S\" load-suffixes load-verbose current-loading-file \"%guess-pathname: trying ~S\\n\" file-is-readable? \".\" \"/\" %guess-pathname \"path must be a string (it was ~s)\" \".?.?/\" try-load %primitive-try-load %try-load-conditions \";; Loading file ~S.\\n\" \";; File ~S loaded.\\n\" %try-load load \"cannot load file ~S\" \"cannot load file\" %cannot-load %load require provide provided? warning-when-not-provided \"^srfi-([1-9][0-9]*)$\" \"srfi/~a\" %rewrite-require-spec \"STKLOS_BUILDING\" \"WARNING: ~S was not provided~%\" provided (lambda (what) (if (string? what) (let ((spec (%rewrite-require-spec what (load-path) (load-suffixes)))) (if (and spec (cdr spec)) `(begin (define-module STklos (import ,(cdr spec))) (provide ,what)) `(%%require ,what #f))) `(%%require ,what #f))) require-library (lambda (what) `(%%require ,what #t)) require-for-syntax (lambda (file) `(%%require4syntax ,file)) %%require4syntax %do-include (lambda (kind files) (let ((inc (string->symbol (format \"%%~a\" kind)))) (if (null? files) (error kind \"at least one parameter must be provided\") `(,inc ,@(map (lambda (x) (or (find-path x) x)) files))))) \"%%~a\" \"at least one parameter must be provided\" (lambda files `(%do-include include ,files)) (lambda files `(%do-include include-ci ,files)) include-file (lambda (file) `(%%include ,file)) autoload (lambda (file . symbols) (let ((args (gensym)) (old (gensym))) `(begin ,@(map (lambda (x) `(define ,x (lambda ,args (let ((,old ,x)) (require ,file) (if (eq? ,old ,x) (error 'autoload \"~S has not been defined in ~S\" ',x ,file) (apply ,x ,args)))))) symbols)))) \"~S has not been defined in ~S\" ((define-library . define-library) (library-name . library-name) (library-list . library-list) (%module-define-and-export . %module-define-and-export) (%make-copy-module . %make-copy-module)) %module-define-and-export (lambda lst `(begin ,@(map (lambda (x) `(%symbol-define ',x ,x)) lst) (export ,@lst))) %make-copy-module (lambda (old new) (%%import (compiler-current-module) (list old)) `(define-module ,new (import ,old) (export ,@(module-exports (find-module old))))) define-library (lambda (name . decls) (let* ((module-name (%normalize-library-name name)) (conds '()) (imports '()) (exports '()) (body '()) (lib (gensym)) (module-restore (symbol-value '%module-restore (find-module 'SCHEME)))) (define (parse-declarations decls) (for-each (lambda (d) (unless (pair? d) (error 'define-library \"bad library declaration clause ~s\" d)) (let ((key (car d)) (rest (cdr d))) (case key ((import) (set! imports (append imports rest))) ((export) (set! exports (append exports rest))) ((begin include include-ci) (set! body (append body (list d)))) ((include-library-declarations) (for-each (lambda (path) (parse-declarations (call-with-input-file (or (find-path path) path) port->sexp-list))) rest)) ((cond-expand) (set! conds (cons d conds))) (else (error 'define-library \"incorrect directive ~s\" d))))) decls)) (parse-declarations decls) `(begin (define-module ,module-name (begin ,@(reverse! conds)) (import ,@imports) (export ,@exports) (%module->library! ',module-name) ,@body)))) \"bad library declaration clause ~s\" (begin include include-ci) include-library-declarations cond-expand \"incorrect directive ~s\" %module->library! library-name \"module ~S is not a library\" \"bad module/library ~S\" library-list ((string-lower . string-lower) (string-upper . string-upper) (set-load-path! . set-load-path!) (set-load-suffixes! . set-load-suffixes!) (flush . flush) (rewind-file-port . rewind-file-port) (hash-table->list . hash-table->list) (hash-table-put! . hash-table-put!) (hash-table-get . hash-table-get) (hash-table-remove! . hash-table-remove!) (stklos-pragma . stklos-pragma) (remove-directory . remove-directory) (%build-path-from-shell-variable . %build-path-from-shell-variable) (copy-tree . copy-tree) (%set-std-port! . %set-std-port!) (make-box . make-box) (make-constant-box . make-constant-box) (box-set! . box-set!) (string-index . string-index) (argv . argv) (fxdiv . fxdiv) (fxrem . fxrem) (fxmod . fxmod) (fx< . fx<) (fx<= . fx<=) (fx> . fx>) (fx>= . fx>=) (fx= . fx=) (make-directory . make-directory) (make-directories . make-directories) (process-signal . process-signal) (compiler:generate-signature . compiler:generate-signature)) string-downcase string-lower string-upper \"*** Obsolete function set-load-path!. Use load-path instead.\\n\" set-load-path! \"*** Obsolete function set-load-suffixes!. Use load-suffixes instead.\\n\" set-load-suffixes! port-rewind rewind-file-port hash-table->list hash-table-put! hash-table-get hash-table-delete! hash-table-remove! \"Don't use anymore pragma, but compiler:warn-use-undef parameter\" stklos-pragma pragma define-reader-ctor delete-directory remove-directory %build-path-from-shell-variable copy-tree %set-std-port! \"bad port number\" box make-box constant-box make-constant-box set-box! box-set! string-index argv fxdiv fxremainder fxrem fxmodulo fxmod make-directory make-directories process-signal %file-informations STKLOS-OBJECT ((SCHEME)) ((find-class . find-class) (is-a? . is-a?) (ensure-metaclass . ensure-metaclass) (ensure-metaclass-with-supers . ensure-metaclass-with-supers) (ensure-class . ensure-class) (ensure-generic-function . ensure-generic-function) (ensure-method . ensure-method) (add-method! . add-method!) (object-eqv? . object-eqv?) (object-equal? . object-equal?) (write-object . write-object) (display-object . display-object) (slot-unbound . slot-unbound) (slot-missing . slot-missing) (slot-definition-name . slot-definition-name) (slot-definition-options . slot-definition-options) (slot-definition-allocation . slot-definition-allocation) (slot-definition-getter . slot-definition-getter) (slot-definition-setter . slot-definition-setter) (slot-definition-accessor . slot-definition-accessor) (slot-definition-init-form . slot-definition-init-form) (slot-definition-init-keyword . slot-definition-init-keyword) (slot-init-function . slot-init-function) (class-slot-definition . class-slot-definition) (compute-get-n-set . compute-get-n-set) (allocate-instance . allocate-instance) (initialize . initialize) (make-instance . make-instance) (make . make) (no-next-method . no-next-method) (no-applicable-method . no-applicable-method) (no-method . no-method) (change-class . change-class) (change-object-class . change-object-class) (shallow-clone . shallow-clone) (deep-clone . deep-clone) (apply-generic . apply-generic) (apply-method . apply-method) (apply-methods . apply-methods) (compute-applicable-methods . compute-applicable-methods) (method-more-specific? . method-more-specific?) (sort-applicable-methods . sort-applicable-methods) (method-procedure . method-procedure) (method-specializers . method-specializers) (method-generic-function . method-generic-function) (method-specializers-equal? . method-specializers-equal?) (class-subclasses . class-subclasses) (class-methods . class-methods) (class-name . class-name) (class-direct-superclasses . class-direct-superclasses) (class-direct-subclasses . class-direct-subclasses) (class-precedence-list . class-precedence-list) (class-direct-methods . class-direct-methods) (class-direct-slots . class-direct-slots) (class-slots . class-slots) (generic-function-name . generic-function-name) (generic-function-methods . generic-function-methods) (generic-function-documentation . generic-function-documentation) (slot-value . slot-value) (define-class . define-class) (define-generic . define-generic) (method . method) (define-method . define-method)) class-redefinition \"bad class ~S\" %error-bad-class \"bad generic function ~S\" %error-bad-generic \"bad method ~S\" %error-bad-method make-closure <top> specializers formals slot-definition-getter slot-definition-setter slot-definition-accessor declare-slots <generic> generic #:name ??? %make <method> #:generic-function #:specializers #:procedure basic-make \"cannot make ~S with ~S\" make class? name class-name direct-supers class-direct-superclasses direct-slots class-direct-slots direct-subclasses class-direct-subclasses direct-methods class-direct-methods cpl class-precedence-list slots class-slots slot-definition-name slot-definition-options #:instance #:allocation slot-definition-allocation #:getter #:accessor #:init-form slot-definition-init-form #:init-keyword slot-definition-init-keyword getters-n-setters slot-init-function class-slot-definition generic-function-name methods generic-function-methods documentation generic-function-documentation method? generic-function method-generic-function method-specializers procedure method-procedure class-of is-a? <class> find-class \"bad class ~S\" compute-slots \"bad slot name ~S\" %compute-slots #:dsupers #:slots \"metaclass\" ensure-metaclass-with-supers ensure-metaclass define-class (lambda (name supers slots . options) `(define ,name (ensure-class ',name ',supers ',(declare-slots slots) ,(or (key-get options #:metaclass #f) `(ensure-metaclass ',supers)) ,@options))) ensure-class #:metaclass <object> \"super class ~S is duplicated in class ~S\" \"slot ~S is duplicated in class ~S\" define-generic (lambda (gf #:optional (meta '<generic>) #:key (documentation #f)) `(define ,gf (ensure-generic-function ',gf ,meta ,documentation))) #:documentation ensure-generic-function #:default %method-specializers-equal? method-specializers-equal? add-method-in-classes! remove-method-in-classes! compute-new-list-of-methods add-method! next-method ensure-method (lambda (args . body) (ensure-method #f args body)) define-method (lambda (name args . body) (let ((gf (gensym \"gf\"))) `(let ((,gf (ensure-generic-function ',name))) (add-method! ,gf ,(ensure-method gf args body)) (values (void) ',name)))) \"gf\" object-eqv? (<top> <top>) object-equal? (<top> <top>) write-object (<top> <top>) \"#[instance ~A]\" address-of (<object> <top>) slot-bound? \"#[~A ~A]\" (<class> <top>) \"#[~A ~A ~A]\" (<generic> <top>) \"#[~A ~A (~A)]\" display-object (<top> <top>) slot-unbound (<class> <object> <top>) \"slot ~S is unbound in #p~A (an object of class ~S)\" slot-missing (<class> <object> <top> . <top>) \"no slot with name `~S' in #p~A (an object of class ~S)\" no-next-method (<generic> <top> <top>) \"no next method for ~S in call ~S\" no-applicable-method (<generic> <top>) \"no applicable method for ~S\\nin call ~S\" no-method (<generic> <top>) \"no method defined for ~S\" shallow-clone (<object>) %allocate-instance deep-clone (<object>) instance? remove-class-accessors update-direct-method update-direct-subclass (<class>) <accessor-method> (<method> <class> <class>) (<class> <class> <class>) (<class> <class>) redefined %find-inherited-get-n-set %direct-slot? #:before-slot-ref #:after-slot-ref #:before-slot-set! #:after-slot-set! %fast-slot-ref %fast-slot-set! %make-active-getter-n-setter compute-get-n-set (<class> <top>) nfields #:class #:each-subclass #:virtual #:slot-ref #:slot-set! \"a :slot-ref and a :slot-set! must be supplied in ~S\" #:active (<object> <top>) \"allocation type \\\"~S\\\" is unknown\" compute-slot-accessors %slot-ref closure? %procedure-arity \"bad getter closure for slot `~S' in ~S: ~S\" \"bad setter closure for slot `~S' in ~S: ~S\" list* compute-getters-n-setters compute-cpl initialize (<object> <top>) %initialize-object (<class> <top>) (<generic> <top>) (<method> <top>) allocate-instance (<class> <top>) make-instance (<class> . <top>) slot-exists-using-class? slot-bound-using-class? slot-ref-using-class slot-set-using-class! %modify-instance change-object-class change-class (<object> <class>) compute-applicable-methods (<generic> <top>) find-method method-more-specific? (<method> <method> <top>) %method-more-specific? sort-applicable-methods (<generic> <top> <top>) apply-method (<generic> <top> <top> <top>) %set-next-method! apply-methods (<generic> <list> <top>) apply-generic (<generic> <top>) (<generic> <top> <top>) class-subclasses class-methods slot-value (<object> <top>) (<object> <top> <top>) %object-system-initialized ((STKLOS-OBJECT)) ((SCHEME)) ((let-syntax . let-syntax) (letrec-syntax . letrec-syntax)) letrec-syntax (lambda args (error 'letrec-syntax \"cannot be used here. You must load the file \\\"full-syntax\\\" to access it:\" (cons 'letrec-syntax args))) \"cannot be used here. You must load the file \\\"full-syntax\\\" to access it:\" some split \"list is too short\" hyg:untag-no-tags hyg:untag-vanilla hyg:untag-lambda hyg:untag-letrec hyg:untag-named-let hyg:untag-let hyg:untag-let* hyg:untag-do hyg:untag-list hyg:untag-list* hyg:untag-quasiquote hyg:flatten mbe:ellipsis? mbe:split-at-ellipsis mbe:get-ellipsis-nestings mbe:ellipsis-sub-envs mbe:contained-in? hyg:rassq hyg:tag hyg:untag (if begin) (set! define) \"takes exactly one expression\" \"invalid context within quasiquote\" \"takes exactly one expression\" list-tail \"%%\" mbe:position mbe:append-map split-improper-tail mbe:matches-pattern? mbe:get-bindings mbe:expand-pattern \"no matching clause for ~S\" let-syntax (lambda (bindings . body) `(%let-syntax ,(map (lambda (x) (let ((macro-name (car x)) (syn-rules (cadr x))) (let ((alt-ellipsis? (not (list? (cadr syn-rules))))) (let ((ellipsis (if alt-ellipsis? (cadr syn-rules) '...)) (keywords (if alt-ellipsis? (cons macro-name (caddr syn-rules)) (cons macro-name (cadr syn-rules)))) (clauses (if alt-ellipsis? (cdddr syn-rules) (cddr syn-rules)))) `(,macro-name (lambda args (%find-macro-clause ',macro-name args ',keywords ',clauses ',ellipsis))))))) bindings) ,@body)) ((SCHEME)) ((srfi0-register-feature! . srfi0-register-feature!) (srfi-0-feature-implementation-file . srfi-0-feature-implementation-file) (require-feature . require-feature) (cond-expand . cond-expand) (%srfi-0-expand . %srfi-0-expand)) (srfi-0 (srfi-1 . \"srfi-1\") (lists . \"srfi-1\") (srfi-2 . \"srfi-2\") (and-let* . \"srfi-2\") (srfi-4 . \"srfi-4\") (hvectors . \"srfi-4\") (srfi-5 . \"srfi-5\") srfi-6 (srfi-7 . \"srfi-7\") (program . \"srfi-7\") srfi-8 (srfi-9 . \"srfi-9\") (records . \"srfi-9\") srfi-10 srfi-11 (srfi-13 . \"srfi-13\") (srfi-14 . \"srfi-14\") srfi-15 srfi-16 case-lambda (srfi-17 . \"srfi-17\") srfi-18 (srfi-19 . \"srfi-19\") srfi-22 srfi-23 error (srfi-25 . \"srfi-25\") (srfi-26 . \"srfi-26\") (srfi-27 . \"srfi-27\") (random . \"srfi-27\") srfi-28 (srfi-29 . \"srfi-29\") srfi-30 srfi-31 srfi-34 (srfi-35 . \"srfi-35\") (srfi-36 . \"srfi-36\") (srfi-37 . \"srfi-37\") (args-fold . \"srfi-37\") srfi-38 srfi-39 parameters (srfi-41 . \"srfi-41\") (streams . \"srfi-41\") (srfi-43 . \"srfi-43\") srfi-45 srfi-46 (srfi-48 . \"srfi-48\") (srfi-51 . \"srfi-51\") (rest-list . \"srfi-51\") (srfi-54 . \"srfi-54\") (formatting . \"srfi-54\") srfi-55 (srfi-59 . \"srfi-59\") (srfi-60 . \"srfi-60\") (srfi-61 . \"srfi-61\") srfi-62 (srfi-64 . \"srfi-64\") (testing . \"srfi-64\") (srfi-66 . \"srfi-66\") (srfi-69 . \"srfi-69\") (hash-tables . \"srfi-69\") srfi-70 (srfi-74 . \"srfi-74\") srfi-87 srfi-88 (srfi-89 . \"srfi-89\") (srfi-94 . \"srfi-94\") (srfi-95 . \"srfi-95\") (srfi-96 . \"srfi-96\") srfi-98 (srfi-100 . \"srfi-100\") srfi-111 boxes srfi-112 (srfi-113 . \"srfi-113\") (sets-bags . \"srfi-113\") (srfi-116 . \"srfi-116\") (immutable-lists . \"srfi-116\") (srfi-117 . \"srfi-117\") (queues-as-lists . \"srfi-117\") srfi-118 adjustable-strings (srfi-125 . \"srfi-125\") (hash-table . \"srfi-125\") (srfi-127 . \"srfi-127\") (lazy-sequences . \"srfi-127\") (srfi-128 . \"srfi-128\") (comparators-reduced . \"srfi-128\") (srfi-129 . \"srfi-129\") (titlecase . \"srfi-129\") (srfi-130 . \"srfi-130\") (srfi-132 . \"srfi-132\") (sort . \"srfi-132\") (srfi-133 . \"srfi-133\") (vector . \"srfi-133\") (srfi-134 . \"srfi-134\") (immutable-deques . \"srfi-134\") (srfi-135 . \"srfi-135\") (immutable-texts . \"srfi-135\") (srfi-137 . \"srfi-137\") srfi-138 (srfi-141 . \"srfi-141\") (integer-division . \"srfi-141\") srfi-143 (srfi-144 . \"srfi-144\") srfi-145 (srfi-151 . \"srfi-151\") (bitwise-ops . \"srfi-151\") (srfi-152 . \"srfi-152\") (srfi-154 . \"srfi-154\") (srfi-156 . \"srfi-156\") (srfi-158 . \"srfi-158\") (srfi-160 . \"srfi-160\") (srfi-161 . \"srfi-161\") (srfi-162 . \"srfi-128\") srfi-169 (srfi-170 . \"srfi-170\") (posix . \"srfi-170\") (srfi-171 . \"srfi-171\") (transducers . \"srfi-171\") (srfi-173 . \"srfi-173\") (hooks . \"srfi-173\") (srfi-174 . \"srfi-174\") (posix-timespecs . \"srfi-174\") (srfi-175 . \"srfi-175\") (ascii . \"srfi-175\") srfi-176 (srfi-180 . \"srfi-180\") (JSON . \"srfi-180\") (json . \"srfi-180\") (srfi-185 . \"srfi-185\") (srfi-189 . \"srfi-189\") (maybe-either . \"srfi-189\") (srfi-190 . \"srfi-190\") srfi-192 srfi-193 srfi-195 (srfi-196 . \"srfi-196\") (srfi-207 . \"srfi-207\") srfi-208 (srfi-214 . \"srfi-214\") (srfi-215 . \"srfi-215\") (srfi-216 . \"srfi-216\") (srfi-217 . \"srfi-217\") srfi-219 (srfi-221 . \"srfi-221\") (srfi-222 . \"srfi-222\") (srfi-223 . \"srfi-223\") (srfi-224 . \"srfi-224\") (srfi-227 . \"srfi-227\") (srfi-228 . \"srfi-228\") (srfi-229 . \"srfi-229\") (srfi-230 . \"srfi-230\") (srfi-233 . \"srfi-233\") (ini-files . \"srfi-233\") (srfi-235 . \"srfi-235\") (combinators . \"srfi-235\") (srfi-236 . \"srfi-236\") (srfi-238 . \"srfi-238\") srfi-244 (conditions \"srfi-35\" \"srfi-36\") (generators \"srfi-158\" \"srfi-190\")) %srfi-feature-list \"STklos-\" \"id-\" #:debug (debug) almost-r7rs exact-complex ieee-float (full-unicode utf-8 UTF-8) ratios %big-endian? big-endian little-endian srfi0-register-feature! \"feature ~S is not supported\" srfi-0-feature-implementation-file srfi- \"bad feature\" \"srfi-[0-9]+\" \"srfi/~a\" require-feature %load-implementation %find-feature \"no clause match\" \"bad clause ~S\" \"invalid 'not' clause\" library \"invalid 'library' clause\" \"bad clause ~S\" \"~a\" %srfi-0-expand (lambda clauses (%srfi-0-expand clauses)) REPL ((SCHEME)) ((main-repl . main-repl) (repl . repl) (repl-prompt . repl-prompt) (repl-make-prompt . repl-make-prompt) (repl-display-prompt . repl-display-prompt) (repl-prompt-use-color? . repl-prompt-use-color?) (repl-change-default-ports . repl-change-default-ports) (main-repl-hook . main-repl-hook) (repl-theme . repl-theme) (get-repl-color . get-repl-color) (repl-show-startup-message . repl-show-startup-message)) interactive? repl-level repl-backtrace default-in default-out default-err classic #:prompt magenta #:help-prompt green #:help #:repl-depth yellow #:info monochrome minimal underline *repl-themes* repl-theme \"\" get-repl-color \"^[ \\t]*\" \"\" (help h ?) \"Available Commands:\\n- ,backtrace ,bt   Show the stack when last error occurred\\n- ,cd              Change current directory\\n- ,pwd             Print working directory\\n- ,quit ,q         Exit STklos\\n- ,shell ,!        Run a shell command\\n- ,help ,? ,h      This help\\n\" (quit q) (backtrace bt) %display-backtrace (shell !) system cd chdir pwd \"~S\\n\" \"bad command name: ~S. Type ,help for some help\\n\" do-repl-command %other-error-handlers %try-matching-condition %add-error-to-repl-handler \" (near line ~a in file ~s)\" \"\" \"**** Error~A:\\n~A: ~A\\n\" \"\\t(type \\\"\" \",help\" \"\\\" for more information)\\n\" display-error-message repl-handler &exit-r7rs retcode %pre-exit \"**** Unknown condition raised.\\n\" \"Condition type: ~A\\n\" struct-type-name \"Condition slots: ~S\\n\" \"**** The following non-condition was raised: ~S\\n\" \"\" repl-prompt repl-prompt-use-color? \"[~A] \" \"\" \"~A>\" \" \" \" \" make-prompt repl-make-prompt display-prompt repl-display-prompt #:startup-message repl-show-startup-message main-repl-hook #:in G478 #:out G479 #:err G480 repl-change-default-ports G485 G486 G487 \"\\n\" \";; ~A\\n\" repl %initialize-signals \"STklos version ~a (~a)\\n\" \"Copyright (C) 1999-2023 Erick Gallesio <eg@stklos.net>\\n\" \"[~a/~a/~a/~a]\\n\" machine-type #:readline no-readline utf8 no-utf8 \"Type ',h' for help\\n\" \"  \\\\    \" \"   \\\\   \" \"  / \\\\  \" \" /   \\\\ \" main-repl READLINE ((SCHEME)) ((try-initialize-readline . try-initialize-readline) (readline . readline) (add-history . add-history) (read-history . read-history) (write-history . write-history) (read-with-history . read-with-history) (rl-event-hook . rl-event-hook) (rl-input-timeout . rl-input-timeout) (rl-completer-function . rl-completer-function)) readline add-history read-history write-history rl-event-hook rl-input-timeout \"> \" \"\" read-with-history \"readline\" (#:string) #:pointer #eof cpointer->string free-bytes \"add_history\" (#:string) \"read_history\" (#:string) #:int \"write_history\" (#:string) \"rl_set_keyboard_input_timeout\" \"\" %get-symbol-address \"rl_set_keyboard_input_timeout\" (#:int) \"rl_event_hook\" \"el_set\" \"\" libedit try-initialize default-complete-function rl-completer-function readline-completion-generator %shared-library-suffix \"libreadline.\" \"libedit.\" \"readline-complete.\" %init-readline-completion-function try-initialize-readline REPL-READLINE ((SCHEME) (REPL) (READLINE)) ((try-initialize-repl-with-readline . try-initialize-repl-with-readline)) \"history\" \"\\x01;\" \"\\x02;\" \"\" \"\" nothing register-exit-function! #() %string->bytes \"\" #() #\\newline integer->char repl-readline-integration #:line-editor try-initialize-repl-with-readline trace (lambda args (%trace-expand args)) %trace-expand untrace (lambda args (%untrace-expand args)) %untrace-expand parse-arguments (lambda (argv . clauses) (%parse-arguments-expand argv clauses)) %parse-arguments-expand match-lambda (lambda clauses (expand-match-lambda (cons '() clauses))) expand-match-lambda match-case (lambda (expr . clauses) `((match-lambda ,@clauses) ,expr)) describe \"describe\" \"~S has not been defined in ~S\" \"bigmatch\" \"getopt\" %print-usage \"trace\" pp \"pretty-print\" pretty-print help \"help\" lexer-next-token \"lex-rt\" random-integer \"srfi/27\" random-real srfi48:help \"srfi/48\" srfi48:format-fixed environment \"env\" null-environment scheme-report-environment interaction-environment ((STKLOS-OBJECT) (MBE) (SRFI-0) (REPL) (REPL-READLINE)) scheme/base ((SCHEME)) %define-here (lambda lst `(begin ,@(map (lambda (symb) `(define ,symb #void)) lst))) _ assv bytevector-append bytevector-copy ceiling char->integer char-ready? char<=? char<? char>=? char>? complex? denominator even? gcd get-output-bytevector inexact? lcm list-set! min numerator odd? open-input-bytevector open-output-bytevector peek-char read-bytevector string string->utf8 string-copy truncate u8-ready? utf8->string vector-append vector-fill! write-char ((* . *) (+ . +) (- . -) (... . ...) (/ . /) (< . <) (<= . <=) (= . =) (=> . =>) (> . >) (>= . >=) (_ . _) (abs . abs) (and . and) (append . append) (apply . apply) (assoc . assoc) (assq . assq) (assv . assv) (begin . begin) (binary-port? . binary-port?) (boolean=? . boolean=?) (boolean? . boolean?) (bytevector . bytevector) (bytevector-append . bytevector-append) (bytevector-copy . bytevector-copy) (bytevector-copy! . bytevector-copy!) (bytevector-length . bytevector-length) (bytevector-u8-ref . bytevector-u8-ref) (bytevector-u8-set! . bytevector-u8-set!) (bytevector? . bytevector?) (caar . caar) (cadr . cadr) (call-with-current-continuation . call-with-current-continuation) (call-with-port . call-with-port) (call-with-values . call-with-values) (call/cc . call/cc) (car . car) (case . case) (cdar . cdar) (cddr . cddr) (cdr . cdr) (ceiling . ceiling) (char->integer . char->integer) (char-ready? . char-ready?) (char<=? . char<=?) (char<? . char<?) (char=? . char=?) (char>=? . char>=?) (char>? . char>?) (char? . char?) (close-input-port . close-input-port) (close-output-port . close-output-port) (close-port . close-port) (complex? . complex?) (cond . cond) (cond-expand . cond-expand) (cons . cons) (current-error-port . current-error-port) (current-input-port . current-input-port) (current-output-port . current-output-port) (define . define) (define-record-type . define-record-type) (define-syntax . define-syntax) (define-values . define-values) (denominator . denominator) (do . do) (dynamic-wind . dynamic-wind) (else . else) (eof-object . eof-object) (eof-object? . eof-object?) (eq? . eq?) (equal? . equal?) (eqv? . eqv?) (error . error) (error-object-irritants . error-object-irritants) (error-object-message . error-object-message) (error-object? . error-object?) (even? . even?) (exact . exact) (exact-integer-sqrt . exact-integer-sqrt) (exact-integer? . exact-integer?) (exact? . exact?) (expt . expt) (features . features) (file-error? . file-error?) (floor . floor) (floor-quotient . floor-quotient) (floor-remainder . floor-remainder) (floor/ . floor/) (flush-output-port . flush-output-port) (for-each . for-each) (gcd . gcd) (get-output-bytevector . get-output-bytevector) (get-output-string . get-output-string) (guard . guard) (if . if) (include . include) (include-ci . include-ci) (inexact . inexact) (inexact? . inexact?) (input-port-open? . input-port-open?) (input-port? . input-port?) (integer->char . integer->char) (integer? . integer?) (lambda . lambda) (lcm . lcm) (length . length) (let . let) (let* . let*) (let*-values . let*-values) (let-syntax . let-syntax) (let-values . let-values) (letrec . letrec) (letrec* . letrec*) (letrec-syntax . letrec-syntax) (list . list) (list->string . list->string) (list->vector . list->vector) (list-copy . list-copy) (list-ref . list-ref) (list-set! . list-set!) (list-tail . list-tail) (list? . list?) (make-bytevector . make-bytevector) (make-list . make-list) (make-parameter . make-parameter) (make-string . make-string) (make-vector . make-vector) (map . map) (max . max) (member . member) (memq . memq) (memv . memv) (min . min) (modulo . modulo) (negative? . negative?) (newline . newline) (not . not) (null? . null?) (number->string . number->string) (number? . number?) (numerator . numerator) (odd? . odd?) (open-input-bytevector . open-input-bytevector) (open-input-string . open-input-string) (open-output-bytevector . open-output-bytevector) (open-output-string . open-output-string) (or . or) (output-port-open? . output-port-open?) (output-port? . output-port?) (pair? . pair?) (parameterize . parameterize) (peek-char . peek-char) (peek-u8 . peek-u8) (port? . port?) (positive? . positive?) (procedure? . procedure?) (quasiquote . quasiquote) (quote . quote) (quotient . quotient) (raise . raise) (raise-continuable . raise-continuable) (rational? . rational?) (rationalize . rationalize) (read-bytevector . read-bytevector) (read-bytevector! . read-bytevector!) (read-char . read-char) (read-error? . read-error?) (read-line . read-line) (read-string . read-string) (read-u8 . read-u8) (real? . real?) (remainder . remainder) (reverse . reverse) (round . round) (set! . set!) (set-car! . set-car!) (set-cdr! . set-cdr!) (square . square) (string . string) (string->list . string->list) (string->number . string->number) (string->symbol . string->symbol) (string->utf8 . string->utf8) (string->vector . string->vector) (string-append . string-append) (string-copy . string-copy) (string-copy! . string-copy!) (string-fill! . string-fill!) (string-for-each . string-for-each) (string-length . string-length) (string-map . string-map) (string-ref . string-ref) (string-set! . string-set!) (string<=? . string<=?) (string<? . string<?) (string=? . string=?) (string>=? . string>=?) (string>? . string>?) (string? . string?) (substring . substring) (symbol->string . symbol->string) (symbol=? . symbol=?) (symbol? . symbol?) (syntax-error . syntax-error) (syntax-rules . syntax-rules) (textual-port? . textual-port?) (truncate . truncate) (truncate-quotient . truncate-quotient) (truncate-remainder . truncate-remainder) (truncate/ . truncate/) (u8-ready? . u8-ready?) (unless . unless) (unquote . unquote) (unquote-splicing . unquote-splicing) (utf8->string . utf8->string) (values . values) (vector . vector) (vector->list . vector->list) (vector->string . vector->string) (vector-append . vector-append) (vector-copy . vector-copy) (vector-copy! . vector-copy!) (vector-fill! . vector-fill!) (vector-for-each . vector-for-each) (vector-length . vector-length) (vector-map . vector-map) (vector-ref . vector-ref) (vector-set! . vector-set!) (vector? . vector?) (when . when) (with-exception-handler . with-exception-handler) (write-bytevector . write-bytevector) (write-char . write-char) (write-string . write-string) (write-u8 . write-u8) (zero? . zero?)) \"scheme/base\" scheme/write ((display . display) (write . write) (write-shared . write-shared) (write-simple . write-simple)) \"scheme/write\" ((STKLOS-COMPILER) (STKLOS-OBJECT) (MBE) (SRFI-0) (REPL) (REPL-READLINE)) \"STKLOS_BUILDING\" module-immutable! %before-exit-hook main \"STKLOS_FRAMES\" \"  - ...\\nSet shell variable STKLOS_FRAMES to set visible frames\\n\" \"  - \" %procedure-name \"<<let/call>>\" \" @ [~A:~A]\\n\" \"???\" \"**** Error while ~A ~S\\n\" \"\\t Where: in ~A\" \" (near line ~a in file ~s)\" \"\\tReason: ~A\\n\" \"EXIT\\n\" %simple-fatal-exception-handler #:no-init-file #:load #:srfi-176 #:file #:sexpr #:conf-dir #:comp-flags #:prepend-dirs #:append-dirs \"Warning: cannot create configuration directory ~S\\n\" \"stklosrc\" \"loading file\" \"executing command\" \"evaluating\")";
 
 STk_instr STk_boot_code [] = { 
 0x25,
@@ -19392,7 +19392,7 @@ STk_instr STk_boot_code [] = {
 0xa,
 0x6e,
 0x2d,
-0x647f,
+0x64a3,
 0x25,
 0x55,
 0xf0,
@@ -42500,43 +42500,79 @@ STk_instr STk_boot_code [] = {
 0x68c,
 0x25,
 0x25,
+0x25,
+0x25,
 0x55,
 0x68d,
 0x56,
 0x3fb,
 0x1,
-0x1e,
-0x10,
-0x25,
-0x25,
+0x21,
 0x55,
 0x68e,
 0x56,
+0x1e4,
+0x2,
+0x6e,
+0x55,
+0x68f,
+0x56,
 0x3fb,
 0x1,
 0x21,
+0x29,
+0x2,
+0x25,
 0x55,
-0x68f,
+0x690,
+0x56,
+0x3fb,
+0x1,
+0x1e,
+0x1c,
+0x25,
+0x66,
+0x56,
+0x1e6,
+0x1,
+0x1d,
+0x3,
+0xd,
+0x1c,
+0xf,
+0x25,
+0xc,
+0x1e,
+0x5,
+0x9,
+0x691,
+0x1e,
+0x1,
+0x1,
+0x21,
+0x55,
+0x692,
 0x56,
 0x1e4,
 0x2,
 0x1e,
 0x1,
 0x1,
+0x2c,
 0x6f,
 0x44e,
 0x71,
 0x61,
 0x2,
 0x1f,
-0x690,
+0x693,
 0x23,
 0xc,
 0x1,
 0x25,
 0x25,
 0x56,
-0x690,
+0x693,
 0x0,
 0x21,
 0x65,
@@ -42545,7 +42581,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x691,
+0x694,
 0x23,
 0x44,
 0xfffe,
@@ -42617,13 +42653,13 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x24,
 0x1f,
-0x692,
+0x695,
 0x25,
 0x25,
 0x55,
-0x693,
+0x696,
 0x56,
-0x692,
+0x695,
 0x1,
 0x21,
 0x29,
@@ -42633,10 +42669,10 @@ STk_instr STk_boot_code [] = {
 0x1d,
 0x13,
 0x55,
-0x694,
+0x697,
 0x25,
 0x55,
-0x695,
+0x698,
 0x56,
 0x30e,
 0x1,
@@ -42672,7 +42708,7 @@ STk_instr STk_boot_code [] = {
 0x55,
 0x30f,
 0x55,
-0x696,
+0x699,
 0x65,
 0x56,
 0x4e,
@@ -42695,7 +42731,7 @@ STk_instr STk_boot_code [] = {
 0x55,
 0x30f,
 0x55,
-0x697,
+0x69a,
 0x65,
 0x6c,
 0x4e,
@@ -42735,7 +42771,7 @@ STk_instr STk_boot_code [] = {
 0x55,
 0x30f,
 0x55,
-0x698,
+0x69b,
 0x65,
 0x56,
 0x4e,
@@ -42758,7 +42794,7 @@ STk_instr STk_boot_code [] = {
 0x55,
 0x30f,
 0x55,
-0x699,
+0x69c,
 0x65,
 0x6c,
 0x4e,
@@ -42780,7 +42816,7 @@ STk_instr STk_boot_code [] = {
 0x61,
 0x2,
 0x1f,
-0x69a,
+0x69d,
 0x25,
 0x6a,
 0x68b,
@@ -42803,14 +42839,14 @@ STk_instr STk_boot_code [] = {
 0x61,
 0x2,
 0x1f,
-0x69b,
+0x69e,
 0x25,
 0x4d,
 0x56,
 0x61,
 0x1,
 0x1f,
-0x69c,
+0x69f,
 0x23,
 0x10e,
 0x3,
@@ -42834,7 +42870,7 @@ STk_instr STk_boot_code [] = {
 0x9,
 0x25,
 0x55,
-0x69d,
+0x6a0,
 0x65,
 0x56,
 0x1f6,
@@ -42852,7 +42888,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x69e,
+0x6a1,
 0x1,
 0x1d,
 0x9,
@@ -42892,7 +42928,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x201,
 0x55,
-0x69f,
+0x6a2,
 0xc,
 0x3d,
 0x71,
@@ -42955,7 +42991,7 @@ STk_instr STk_boot_code [] = {
 0x3d,
 0x21,
 0x55,
-0x6a0,
+0x6a3,
 0x75,
 0x202,
 0x56,
@@ -43019,9 +43055,9 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x25,
 0x55,
-0x6a1,
+0x6a4,
 0x55,
-0x6a2,
+0x6a5,
 0x75,
 0x102,
 0x56,
@@ -43032,7 +43068,7 @@ STk_instr STk_boot_code [] = {
 0x7,
 0x25,
 0x55,
-0x6a3,
+0x6a6,
 0x75,
 0x102,
 0x56,
@@ -43084,11 +43120,11 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x24,
 0x1f,
-0x6a1,
-0xa,
 0x6a4,
+0xa,
+0x6a7,
 0x1f,
-0x6a5,
+0x6a8,
 0x25,
 0x4f,
 0x23,
@@ -43100,7 +43136,7 @@ STk_instr STk_boot_code [] = {
 0x61,
 0x2,
 0x1f,
-0x6a6,
+0x6a9,
 0x23,
 0x8e,
 0x3,
@@ -43110,11 +43146,11 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x6a1,
+0x6a4,
 0x3,
 0x6e,
 0x56,
-0x69c,
+0x69f,
 0x0,
 0x21,
 0x4d,
@@ -43146,7 +43182,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x69,
 0x56,
-0x69c,
+0x69f,
 0x1,
 0x23,
 0x2c,
@@ -43155,17 +43191,17 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x56,
-0x6a6,
+0x6a9,
 0x0,
 0x3b,
 0x71,
-0x6a6,
+0x6a9,
 0x1,
 0x25,
 0x75,
 0x103,
 0x56,
-0x69c,
+0x69f,
 0x1,
 0x12,
 0x100,
@@ -43173,7 +43209,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x56,
-0x6a6,
+0x6a9,
 0x0,
 0x3d,
 0x21,
@@ -43182,11 +43218,11 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x56,
-0x6a6,
+0x6a9,
 0x0,
 0x3e,
 0x71,
-0x6a6,
+0x6a9,
 0x1,
 0x25,
 0x65,
@@ -43203,7 +43239,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x55,
-0x6a7,
+0x6aa,
 0x69,
 0x56,
 0x5e,
@@ -43214,7 +43250,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x69,
 0x56,
-0x6a5,
+0x6a8,
 0x1,
 0x17,
 0xa,
@@ -43224,7 +43260,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x55,
-0x6a8,
+0x6ab,
 0x69,
 0x56,
 0x5e,
@@ -43235,7 +43271,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x68,
 0x56,
-0x69c,
+0x69f,
 0x1,
 0xc,
 0x4a,
@@ -43246,7 +43282,7 @@ STk_instr STk_boot_code [] = {
 0xe,
 0x24,
 0x1f,
-0x6a9,
+0x6ac,
 0x23,
 0xf,
 0x1,
@@ -43258,16 +43294,16 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x56,
-0x69a,
+0x69d,
 0x0,
 0x73,
-0x6a9,
+0x6ac,
 0x3,
 0x24,
 0x4c,
-0x6a4,
+0x6a7,
 0x13,
-0x6a4,
+0x6a7,
 0x23,
 0x2d,
 0x1,
@@ -43278,12 +43314,12 @@ STk_instr STk_boot_code [] = {
 0x55,
 0x330,
 0x55,
-0x6aa,
+0x6ad,
 0x55,
 0x8e,
 0x25,
 0x55,
-0x6ab,
+0x6ae,
 0x65,
 0x56,
 0x5e,
@@ -43302,7 +43338,7 @@ STk_instr STk_boot_code [] = {
 0x55,
 0x3b0,
 0x55,
-0x6ac,
+0x6af,
 0x55,
 0x3b5,
 0x65,
@@ -43316,7 +43352,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x6ad,
+0x6b0,
 0x23,
 0x16,
 0x3,
@@ -43325,7 +43361,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x6a9,
+0x6ac,
 0x3,
 0x1d,
 0x6,
@@ -43338,11 +43374,11 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x67,
 0x6c,
-0x6ad,
+0x6b0,
 0x1,
 0x24,
 0x1f,
-0x6ae,
+0x6b1,
 0x23,
 0xf,
 0x1,
@@ -43354,14 +43390,14 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x56,
-0x69a,
+0x69d,
 0x0,
 0x73,
-0x6ae,
+0x6b1,
 0x3,
 0x24,
 0x1f,
-0x6aa,
+0x6ad,
 0x23,
 0x4f,
 0xfffe,
@@ -43440,7 +43476,7 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x66,
 0x6c,
-0x6a1,
+0x6a4,
 0x3,
 0x24,
 0x1f,
@@ -43450,13 +43486,13 @@ STk_instr STk_boot_code [] = {
 0x325,
 0x1,
 0x1f,
-0x6af,
+0x6b2,
 0x1,
 0x1f,
-0x6b0,
+0x6b3,
 0x1,
 0x1f,
-0x6b1,
+0x6b4,
 0x1,
 0x1f,
 0xcc,
@@ -43466,14 +43502,14 @@ STk_instr STk_boot_code [] = {
 0x61,
 0x1,
 0x1f,
-0x6b2,
+0x6b5,
 0x23,
 0x64,
 0x3,
 0x25,
 0x25,
 0x55,
-0x6b3,
+0x6b6,
 0x67,
 0x56,
 0x3fe,
@@ -43488,7 +43524,7 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x25,
 0x55,
-0x6b4,
+0x6b7,
 0x12,
 0x100,
 0x49,
@@ -43570,12 +43606,12 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x24,
 0x1f,
-0x6b5,
+0x6b8,
 0x25,
 0x4f,
 0x25,
 0x55,
-0x6b6,
+0x6b9,
 0x56,
 0x3fb,
 0x1,
@@ -43627,7 +43663,7 @@ STk_instr STk_boot_code [] = {
 0x15,
 0x25,
 0x56,
-0x69a,
+0x69d,
 0x0,
 0x16,
 0x25,
@@ -43636,7 +43672,7 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x66,
 0x56,
-0x6b5,
+0x6b8,
 0x3,
 0x17,
 0xe,
@@ -43656,7 +43692,7 @@ STk_instr STk_boot_code [] = {
 0x4f,
 0x4f,
 0x56,
-0x6ae,
+0x6b1,
 0x3,
 0xc,
 0x1d,
@@ -43684,7 +43720,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x201,
 0x56,
-0x6b0,
+0x6b3,
 0x1,
 0x1c,
 0x1,
@@ -43696,7 +43732,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x56,
-0x6ad,
+0x6b0,
 0x1,
 0x2c,
 0x1c,
@@ -43704,7 +43740,7 @@ STk_instr STk_boot_code [] = {
 0x7,
 0x25,
 0x56,
-0x6b2,
+0x6b5,
 0x0,
 0x1d,
 0xa,
@@ -43728,7 +43764,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x21,
 0x55,
-0x6b7,
+0x6ba,
 0x66,
 0x56,
 0x5e,
@@ -43754,9 +43790,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x4c,
-0x6af,
+0x6b2,
 0x13,
-0x6af,
+0x6b2,
 0x23,
 0x20,
 0x1,
@@ -43777,10 +43813,10 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x56,
-0x69a,
+0x69d,
 0x0,
 0x71,
-0x6ae,
+0x6b1,
 0x3,
 0x1c,
 0x1,
@@ -43788,7 +43824,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x6c,
-0x6b0,
+0x6b3,
 0x1,
 0x24,
 0x4c,
@@ -43819,9 +43855,9 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x24,
 0x4c,
-0x6b0,
+0x6b3,
 0x13,
-0x6b0,
+0x6b3,
 0x23,
 0xe,
 0x1,
@@ -43839,15 +43875,15 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x4c,
-0x6b8,
+0x6bb,
 0x13,
-0x6b1,
+0x6b4,
 0x2c,
 0x25,
 0x55,
-0x6af,
+0x6b2,
 0x55,
-0x6b9,
+0x6bc,
 0x23,
 0x58,
 0x1,
@@ -43867,10 +43903,10 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x56,
-0x69a,
+0x69d,
 0x0,
 0x71,
-0x6b5,
+0x6b8,
 0x3,
 0x21,
 0x2b,
@@ -43906,7 +43942,7 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x21,
 0x55,
-0x6b0,
+0x6b3,
 0x75,
 0x100,
 0x3,
@@ -43947,12 +43983,12 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x6af,
+0x6b2,
 0x25,
 0x55,
-0x6ba,
+0x6bd,
 0x55,
-0x6bb,
+0x6be,
 0x23,
 0xa,
 0x1,
@@ -43974,17 +44010,17 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x6ba,
+0x6bd,
 0x25,
 0x55,
-0x6bc,
+0x6bf,
 0x55,
-0x6bd,
+0x6c0,
 0x23,
 0x8,
 0x1,
 0x55,
-0x6be,
+0x6c1,
 0x65,
 0x3,
 0x3b,
@@ -43999,12 +44035,12 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x6bc,
+0x6bf,
 0x25,
 0x55,
-0x6bf,
+0x6c2,
 0x55,
-0x6c0,
+0x6c3,
 0x23,
 0x37,
 0x2,
@@ -44012,7 +44048,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x6c1,
+0x6c4,
 0x66,
 0x56,
 0x5e,
@@ -44032,7 +44068,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x6c2,
+0x6c5,
 0x6c,
 0x4e,
 0x2,
@@ -44071,17 +44107,17 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x6bf,
+0x6c2,
 0x25,
 0x55,
 0x2fb,
 0x55,
-0x6c3,
+0x6c6,
 0x23,
 0xb,
 0xffff,
 0x55,
-0x6bf,
+0x6c2,
 0x55,
 0x2fb,
 0x65,
@@ -44104,12 +44140,12 @@ STk_instr STk_boot_code [] = {
 0x55,
 0x2fe,
 0x55,
-0x6c4,
+0x6c7,
 0x23,
 0xb,
 0xffff,
 0x55,
-0x6bf,
+0x6c2,
 0x55,
 0x2fe,
 0x65,
@@ -44130,9 +44166,9 @@ STk_instr STk_boot_code [] = {
 0x2fe,
 0x25,
 0x55,
-0x6c5,
+0x6c8,
 0x55,
-0x6c6,
+0x6c9,
 0x23,
 0x8,
 0x1,
@@ -44152,12 +44188,12 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x6c5,
+0x6c8,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x6c8,
+0x6cb,
 0x23,
 0x7e,
 0xfffe,
@@ -44199,7 +44235,7 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x21,
 0x55,
-0x6af,
+0x6b2,
 0x75,
 0x201,
 0x3,
@@ -44223,13 +44259,13 @@ STk_instr STk_boot_code [] = {
 0x55,
 0x8d,
 0x55,
-0x6c7,
+0x6ca,
 0x3,
 0x3b,
 0x3b,
 0x21,
 0x55,
-0x6c9,
+0x6cc,
 0x55,
 0x8d,
 0x65,
@@ -44295,7 +44331,7 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x6c7,
+0x6ca,
 0x25,
 0x25,
 0x56,
@@ -44303,15 +44339,15 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x21,
 0x55,
-0x6ca,
+0x6cd,
 0x56,
 0xdf,
 0x2,
 0x25,
 0x55,
-0x6cb,
+0x6ce,
 0x55,
-0x6cc,
+0x6cf,
 0x23,
 0x29,
 0xffff,
@@ -44364,12 +44400,12 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x6cb,
+0x6ce,
 0x25,
 0x55,
-0x6cd,
+0x6d0,
 0x55,
-0x6ce,
+0x6d1,
 0x23,
 0x2a,
 0x2,
@@ -44423,12 +44459,12 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x6cd,
+0x6d0,
 0x25,
 0x55,
-0x6cf,
+0x6d2,
 0x55,
-0x6d0,
+0x6d3,
 0x23,
 0x108,
 0xfffe,
@@ -44489,9 +44525,9 @@ STk_instr STk_boot_code [] = {
 0xb,
 0x25,
 0x55,
-0x6cf,
+0x6d2,
 0x55,
-0x6d1,
+0x6d4,
 0x65,
 0x56,
 0x4e,
@@ -44542,7 +44578,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x55,
-0x6d2,
+0x6d5,
 0x56,
 0x185,
 0x2,
@@ -44564,7 +44600,7 @@ STk_instr STk_boot_code [] = {
 0x40,
 0x66,
 0x9,
-0x6d3,
+0x6d6,
 0x63,
 0x23,
 0x25,
@@ -44604,7 +44640,7 @@ STk_instr STk_boot_code [] = {
 0x18,
 0x66,
 0x9,
-0x6d4,
+0x6d7,
 0x63,
 0x9,
 0x75,
@@ -44618,9 +44654,9 @@ STk_instr STk_boot_code [] = {
 0xa,
 0x25,
 0x55,
-0x6cf,
+0x6d2,
 0x55,
-0x6d5,
+0x6d8,
 0x75,
 0x100,
 0x6c,
@@ -44669,7 +44705,7 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x21,
 0x55,
-0x6d6,
+0x6d9,
 0x55,
 0x8d,
 0x75,
@@ -44704,7 +44740,7 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x6cf,
+0x6d2,
 0x23,
 0x45,
 0x1,
@@ -44724,9 +44760,9 @@ STk_instr STk_boot_code [] = {
 0xf,
 0x25,
 0x55,
-0x6d7,
+0x6da,
 0x55,
-0x6d8,
+0x6db,
 0x25,
 0x65,
 0x56,
@@ -44739,9 +44775,9 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x25,
 0x55,
-0x6d7,
+0x6da,
 0x55,
-0x6d9,
+0x6dc,
 0x65,
 0x56,
 0x4e,
@@ -44777,7 +44813,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x6d7,
+0x6da,
 0x23,
 0xc,
 0x0,
@@ -44793,7 +44829,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x6da,
+0x6dd,
 0x25,
 0x25,
 0x56,
@@ -44801,18 +44837,18 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x21,
 0x55,
-0x6db,
+0x6de,
 0x56,
 0xdf,
 0x2,
 0xa,
-0x6dc,
+0x6df,
 0x1f,
-0x6dd,
+0x6e0,
 0xa,
 0x175,
 0x1f,
-0x6de,
+0x6e1,
 0x23,
 0x12,
 0x1,
@@ -44823,7 +44859,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x21,
 0x55,
-0x6df,
+0x6e2,
 0x56,
 0x5e,
 0x2,
@@ -44834,7 +44870,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x6e0,
+0x6e3,
 0x23,
 0x12,
 0x1,
@@ -44845,34 +44881,34 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x21,
 0x55,
-0x6e1,
+0x6e4,
 0x56,
 0x5e,
 0x2,
 0x25,
 0x65,
 0x6c,
-0x69a,
+0x69d,
 0x1,
 0x24,
 0x1f,
-0x6e2,
+0x6e5,
 0xa,
 0x40e,
 0x1f,
 0x4e5,
 0xa,
-0x6e3,
+0x6e6,
 0x1f,
-0x6e4,
+0x6e7,
 0xa,
 0x3bb,
 0x1f,
-0x6e5,
+0x6e8,
 0xa,
 0x3bd,
 0x1f,
-0x6e6,
+0x6e9,
 0x23,
 0x48,
 0xfffd,
@@ -44948,43 +44984,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x6e7,
+0x6ea,
 0xa,
-0x6e8,
+0x6eb,
 0x1f,
-0x6e9,
+0x6ec,
 0x23,
 0x8,
 0xffff,
 0x25,
 0x55,
-0x6ea,
+0x6ed,
 0x6c,
 0x4e,
 0x1,
 0x24,
 0x1f,
-0x6eb,
+0x6ee,
 0x25,
 0x55,
-0x6ec,
+0x6ef,
 0x6a,
-0x6eb,
+0x6ee,
 0x56,
-0x6ed,
+0x6f0,
 0x2,
 0xa,
-0x6ee,
+0x6f1,
 0x1f,
-0x6ef,
+0x6f2,
 0xa,
-0x692,
+0x695,
 0x1f,
-0x6f0,
+0x6f3,
 0xa,
 0xd2,
 0x1f,
-0x6f1,
+0x6f4,
 0x23,
 0x2c,
 0x2,
@@ -45023,48 +45059,48 @@ STk_instr STk_boot_code [] = {
 0x9,
 0x25,
 0x55,
-0x6f2,
+0x6f5,
 0x55,
-0x6f3,
+0x6f6,
 0x66,
 0x6c,
 0x4e,
 0x3,
 0x24,
 0x1f,
-0x6f2,
+0x6f5,
 0xa,
-0x6f4,
+0x6f7,
 0x1f,
-0x6f5,
+0x6f8,
 0xa,
-0x6f6,
+0x6f9,
 0x1f,
-0x6f7,
+0x6fa,
 0xa,
-0x6f8,
+0x6fb,
 0x1f,
-0x6f9,
+0x6fc,
 0xa,
 0x1a5,
 0x1f,
-0x6fa,
+0x6fd,
 0xa,
 0x4f0,
 0x1f,
-0x6fb,
+0x6fe,
 0xa,
 0xfb,
 0x1f,
-0x6fc,
+0x6ff,
 0xa,
-0x6fd,
+0x700,
 0x1f,
-0x6fe,
+0x701,
 0xa,
-0x6ff,
+0x702,
 0x1f,
-0x700,
+0x703,
 0xa,
 0x102,
 0x1f,
@@ -45088,15 +45124,15 @@ STk_instr STk_boot_code [] = {
 0xa,
 0x3a6,
 0x1f,
-0x701,
+0x704,
 0xa,
 0x3a5,
 0x1f,
-0x702,
+0x705,
 0xa,
 0x50b,
 0x1f,
-0x703,
+0x706,
 0xa,
 0x1ee,
 0x1f,
@@ -45104,7 +45140,7 @@ STk_instr STk_boot_code [] = {
 0xa,
 0x309,
 0x1f,
-0x704,
+0x707,
 0x25,
 0x9,
 0x6c,
@@ -45126,7 +45162,7 @@ STk_instr STk_boot_code [] = {
 0x1dc3,
 0x25,
 0x55,
-0x705,
+0x708,
 0x56,
 0x6b,
 0x1,
@@ -45138,7 +45174,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x55,
-0x706,
+0x709,
 0x56,
 0xd2,
 0x1,
@@ -45154,7 +45190,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x21,
 0x55,
-0x707,
+0x70a,
 0x56,
 0xdf,
 0x2,
@@ -45178,53 +45214,53 @@ STk_instr STk_boot_code [] = {
 0x24b,
 0x7,
 0x1f,
-0x708,
+0x70b,
 0x23,
 0xa,
 0x2,
 0x25,
 0x66,
 0x55,
-0x709,
+0x70c,
 0x65,
 0x6c,
 0x4e,
 0x3,
 0x24,
 0x1f,
-0x70a,
+0x70d,
 0x23,
 0xa,
 0x2,
 0x25,
 0x66,
 0x55,
-0x70b,
+0x70e,
 0x65,
 0x6c,
 0x4e,
 0x3,
 0x24,
 0x1f,
-0x70c,
+0x70f,
 0x23,
 0xa,
 0x2,
 0x25,
 0x66,
 0x55,
-0x70d,
+0x710,
 0x65,
 0x6c,
 0x4e,
 0x3,
 0x24,
 0x1f,
-0x70e,
+0x711,
 0xa,
 0x24c,
 0x1f,
-0x70f,
+0x712,
 0x23,
 0x29,
 0x1,
@@ -45255,21 +45291,21 @@ STk_instr STk_boot_code [] = {
 0x1c,
 0x2,
 0x9,
-0x710,
+0x713,
 0x6e,
 0xc,
 0x3e,
 0x71,
-0x711,
+0x714,
 0x1,
 0x3b,
 0x1c,
 0x2,
 0x9,
-0x710,
+0x713,
 0x24,
 0x1f,
-0x711,
+0x714,
 0x23,
 0x21,
 0x1,
@@ -45299,14 +45335,14 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x3e,
 0x71,
-0x712,
+0x715,
 0x1,
 0x3b,
 0x24,
 0xc,
 0x24,
 0x1f,
-0x712,
+0x715,
 0x23,
 0x40,
 0x1,
@@ -45318,17 +45354,17 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x713,
+0x716,
 0x1,
 0x6e,
 0x65,
 0x56,
-0x714,
+0x717,
 0x1,
 0x6e,
 0x65,
 0x56,
-0x715,
+0x718,
 0x1,
 0x21,
 0x2b,
@@ -45374,35 +45410,35 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x24,
 0x1f,
-0x716,
+0x719,
 0x23,
 0x4b,
 0xfffe,
 0x66,
 0xa,
-0x717,
+0x71a,
 0x62,
 0x11,
 0x25,
 0x66,
 0x55,
-0x718,
+0x71b,
 0x25,
 0x65,
 0x55,
-0x719,
+0x71c,
 0x55,
-0x71a,
+0x71d,
 0x56,
 0x4b,
 0x3,
 0x73,
-0x71b,
+0x71e,
 0x3,
 0x24,
 0x66,
 0xa,
-0x71c,
+0x71f,
 0x62,
 0x24,
 0x25,
@@ -45412,7 +45448,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x71d,
+0x720,
 0x4d,
 0x56,
 0x4b,
@@ -45420,7 +45456,7 @@ STk_instr STk_boot_code [] = {
 0x6e,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x4f,
 0x56,
 0x4b,
@@ -45428,7 +45464,7 @@ STk_instr STk_boot_code [] = {
 0x6e,
 0x65,
 0x55,
-0x71f,
+0x722,
 0x4f,
 0x56,
 0x4b,
@@ -45437,15 +45473,15 @@ STk_instr STk_boot_code [] = {
 0x3f,
 0x3,
 0x73,
-0x71b,
+0x71e,
 0x3,
 0x1c,
 0xa,
 0x25,
 0x55,
-0x720,
+0x723,
 0x55,
-0x721,
+0x724,
 0x66,
 0x65,
 0x6c,
@@ -45453,203 +45489,203 @@ STk_instr STk_boot_code [] = {
 0x4,
 0x24,
 0x1f,
-0x722,
+0x725,
 0x23,
 0x18,
 0x1,
 0x25,
 0x65,
 0x56,
-0x723,
+0x726,
 0x1,
 0x1d,
 0x8,
 0x25,
 0x65,
 0x55,
-0x724,
+0x727,
 0x6c,
 0x57,
 0x2,
 0x24,
 0x25,
 0x55,
-0x725,
+0x728,
 0x65,
 0x6c,
-0x70a,
+0x70d,
 0x2,
 0x24,
 0x1f,
-0x725,
+0x728,
 0x23,
 0x18,
 0x1,
 0x25,
 0x65,
 0x56,
-0x723,
+0x726,
 0x1,
 0x1d,
 0x8,
 0x25,
 0x65,
 0x55,
-0x726,
+0x729,
 0x6c,
 0x57,
 0x2,
 0x24,
 0x25,
 0x55,
-0x727,
+0x72a,
 0x65,
 0x6c,
-0x70a,
+0x70d,
 0x2,
 0x24,
 0x1f,
-0x727,
+0x72a,
 0x23,
 0x18,
 0x1,
 0x25,
 0x65,
 0x56,
-0x723,
+0x726,
 0x1,
 0x1d,
 0x8,
 0x25,
 0x65,
 0x55,
-0x728,
+0x72b,
 0x6c,
 0x57,
 0x2,
 0x24,
 0x25,
 0x55,
-0x729,
+0x72c,
 0x65,
 0x6c,
-0x70a,
+0x70d,
 0x2,
 0x24,
 0x1f,
-0x729,
+0x72c,
 0x23,
 0x18,
 0x1,
 0x25,
 0x65,
 0x56,
-0x723,
+0x726,
 0x1,
 0x1d,
 0x8,
 0x25,
 0x65,
 0x55,
-0x72a,
+0x72d,
 0x6c,
 0x57,
 0x2,
 0x24,
 0x25,
 0x55,
-0x72b,
+0x72e,
 0x65,
 0x6c,
-0x70a,
+0x70d,
 0x2,
 0x24,
 0x1f,
-0x72b,
+0x72e,
 0x23,
 0x18,
 0x1,
 0x25,
 0x65,
 0x56,
-0x723,
+0x726,
 0x1,
 0x1d,
 0x8,
 0x25,
 0x65,
 0x55,
-0x72c,
+0x72f,
 0x6c,
 0x57,
 0x2,
 0x24,
 0x25,
 0x55,
-0x72d,
+0x730,
 0x65,
 0x6c,
-0x70a,
+0x70d,
 0x2,
 0x24,
 0x1f,
-0x72d,
+0x730,
 0x23,
 0x18,
 0x1,
 0x25,
 0x65,
 0x56,
-0x723,
+0x726,
 0x1,
 0x1d,
 0x8,
 0x25,
 0x65,
 0x55,
-0x72e,
+0x731,
 0x6c,
 0x57,
 0x2,
 0x24,
 0x25,
 0x55,
-0x72f,
+0x732,
 0x65,
 0x6c,
-0x70a,
+0x70d,
 0x2,
 0x24,
 0x1f,
-0x72f,
+0x732,
 0x23,
 0x18,
 0x1,
 0x25,
 0x65,
 0x56,
-0x723,
+0x726,
 0x1,
 0x1d,
 0x8,
 0x25,
 0x65,
 0x55,
-0x730,
+0x733,
 0x6c,
 0x57,
 0x2,
 0x24,
 0x25,
 0x55,
-0x731,
+0x734,
 0x65,
 0x6c,
-0x70a,
+0x70d,
 0x2,
 0x24,
 0x1f,
-0x731,
+0x734,
 0x23,
 0xd,
 0x1,
@@ -45666,7 +45702,7 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x24,
 0x1f,
-0x732,
+0x735,
 0x23,
 0xd,
 0x1,
@@ -45683,7 +45719,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x733,
+0x736,
 0x23,
 0x17,
 0x1,
@@ -45695,22 +45731,22 @@ STk_instr STk_boot_code [] = {
 0x1d,
 0x3,
 0x9,
-0x734,
+0x737,
 0x24,
 0x25,
 0xc,
 0x3e,
 0x21,
 0x55,
-0x735,
+0x738,
 0x55,
-0x734,
+0x737,
 0x6c,
 0x4b,
 0x3,
 0x24,
 0x1f,
-0x736,
+0x739,
 0x23,
 0x15,
 0x1,
@@ -45726,7 +45762,7 @@ STk_instr STk_boot_code [] = {
 0x3e,
 0x21,
 0x55,
-0x737,
+0x73a,
 0x4d,
 0x6c,
 0x4b,
@@ -45735,7 +45771,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x713,
+0x716,
 0x23,
 0x15,
 0x1,
@@ -45760,7 +45796,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x714,
+0x717,
 0x23,
 0x15,
 0x1,
@@ -45776,7 +45812,7 @@ STk_instr STk_boot_code [] = {
 0x3e,
 0x21,
 0x55,
-0x738,
+0x73b,
 0x4d,
 0x6c,
 0x4b,
@@ -45785,7 +45821,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x715,
+0x718,
 0x23,
 0x15,
 0x1,
@@ -45801,7 +45837,7 @@ STk_instr STk_boot_code [] = {
 0x3e,
 0x21,
 0x55,
-0x739,
+0x73c,
 0x53,
 0x6c,
 0x4b,
@@ -45810,7 +45846,7 @@ STk_instr STk_boot_code [] = {
 0x7,
 0x24,
 0x1f,
-0x73a,
+0x73d,
 0x23,
 0x15,
 0x1,
@@ -45826,7 +45862,7 @@ STk_instr STk_boot_code [] = {
 0x3e,
 0x21,
 0x55,
-0x73b,
+0x73e,
 0x4d,
 0x6c,
 0x4b,
@@ -45835,7 +45871,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x73c,
+0x73f,
 0x23,
 0x1a,
 0x2,
@@ -45843,7 +45879,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x732,
+0x735,
 0x1,
 0x21,
 0x2b,
@@ -45854,7 +45890,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x73d,
+0x740,
 0x56,
 0x57,
 0x2,
@@ -45865,7 +45901,7 @@ STk_instr STk_boot_code [] = {
 0x6,
 0x24,
 0x1f,
-0x73e,
+0x741,
 0x23,
 0xc,
 0x2,
@@ -45874,14 +45910,14 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x731,
+0x734,
 0x1,
 0x73,
 0xe4,
 0x2,
 0x24,
 0x1f,
-0x73f,
+0x742,
 0x23,
 0x18,
 0x1,
@@ -45895,21 +45931,21 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x724,
+0x727,
 0x6c,
 0x57,
 0x2,
 0x24,
 0x25,
 0x55,
-0x740,
+0x743,
 0x65,
 0x6c,
-0x70c,
+0x70f,
 0x2,
 0x24,
 0x1f,
-0x740,
+0x743,
 0x23,
 0x18,
 0x1,
@@ -45923,21 +45959,21 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x741,
+0x744,
 0x6c,
 0x57,
 0x2,
 0x24,
 0x25,
 0x55,
-0x742,
+0x745,
 0x65,
 0x6c,
-0x70c,
+0x70f,
 0x2,
 0x24,
 0x1f,
-0x742,
+0x745,
 0x23,
 0x18,
 0x1,
@@ -45951,105 +45987,105 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x743,
+0x746,
 0x6c,
 0x57,
 0x2,
 0x24,
 0x25,
 0x55,
-0x744,
+0x747,
 0x65,
 0x6c,
-0x70c,
+0x70f,
 0x2,
 0x24,
 0x1f,
-0x744,
+0x747,
 0x23,
 0x18,
 0x1,
 0x25,
 0x65,
 0x56,
-0x745,
+0x748,
 0x1,
 0x1d,
 0x8,
 0x25,
 0x65,
 0x55,
-0x746,
+0x749,
 0x6c,
 0x57,
 0x2,
 0x24,
 0x25,
 0x55,
-0x747,
+0x74a,
 0x65,
 0x6c,
-0x70e,
+0x711,
 0x2,
 0x24,
 0x1f,
-0x747,
+0x74a,
 0x23,
 0x18,
 0x1,
 0x25,
 0x65,
 0x56,
-0x745,
+0x748,
 0x1,
 0x1d,
 0x8,
 0x25,
 0x65,
 0x55,
-0x711,
+0x714,
 0x6c,
 0x57,
 0x2,
 0x24,
 0x25,
 0x55,
-0x748,
+0x74b,
 0x65,
 0x6c,
-0x70e,
+0x711,
 0x2,
 0x24,
 0x1f,
-0x748,
+0x74b,
 0x23,
 0x18,
 0x1,
 0x25,
 0x65,
 0x56,
-0x745,
+0x748,
 0x1,
 0x1d,
 0x8,
 0x25,
 0x65,
 0x55,
-0x749,
+0x74c,
 0x6c,
 0x57,
 0x2,
 0x24,
 0x25,
 0x55,
-0x74a,
+0x74d,
 0x65,
 0x6c,
-0x70e,
+0x711,
 0x2,
 0x24,
 0x1f,
-0x74a,
+0x74d,
 0x23,
 0x15,
 0x2,
@@ -46059,10 +46095,10 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x74b,
+0x74e,
 0x1,
 0x71,
-0x72f,
+0x732,
 0x1,
 0x71,
 0x64,
@@ -46074,7 +46110,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x74c,
+0x74f,
 0x23,
 0x6c,
 0xfffe,
@@ -46158,9 +46194,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x6a,
-0x74d,
+0x750,
 0x56,
-0x74c,
+0x74f,
 0x2,
 0x1d,
 0x2,
@@ -46176,9 +46212,9 @@ STk_instr STk_boot_code [] = {
 0xa,
 0x25,
 0x55,
-0x74e,
+0x751,
 0x55,
-0x74f,
+0x752,
 0x75,
 0x201,
 0x6c,
@@ -46186,7 +46222,7 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x24,
 0x1f,
-0x74e,
+0x751,
 0x23,
 0xe4,
 0x1,
@@ -46210,7 +46246,7 @@ STk_instr STk_boot_code [] = {
 0xd,
 0x3d,
 0x71,
-0x732,
+0x735,
 0x1,
 0x21,
 0x2b,
@@ -46224,9 +46260,9 @@ STk_instr STk_boot_code [] = {
 0xb,
 0x25,
 0x55,
-0x750,
+0x753,
 0x55,
-0x751,
+0x754,
 0x65,
 0x56,
 0x4e,
@@ -46294,7 +46330,7 @@ STk_instr STk_boot_code [] = {
 0xd,
 0x3d,
 0x71,
-0x729,
+0x72c,
 0x1,
 0x21,
 0x65,
@@ -46346,11 +46382,11 @@ STk_instr STk_boot_code [] = {
 0xe,
 0x3d,
 0x71,
-0x736,
+0x739,
 0x1,
 0x21,
 0x9,
-0x734,
+0x737,
 0x62,
 0x11,
 0x25,
@@ -46405,7 +46441,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x72f,
+0x732,
 0x1,
 0x21,
 0x4f,
@@ -46418,7 +46454,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x752,
+0x755,
 0x25,
 0x4f,
 0x29,
@@ -46446,24 +46482,24 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x6a,
-0x74d,
+0x750,
 0x55,
-0x753,
+0x756,
 0x75,
 0x100,
 0x55,
-0x754,
+0x757,
 0x4f,
 0x55,
-0x719,
+0x71c,
 0x25,
 0x55,
-0x755,
+0x758,
 0x56,
 0x89,
 0x1,
 0x71,
-0x722,
+0x725,
 0x7,
 0x21,
 0x2b,
@@ -46483,7 +46519,7 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x1f,
-0x756,
+0x759,
 0x23,
 0x83,
 0x1,
@@ -46493,9 +46529,9 @@ STk_instr STk_boot_code [] = {
 0x7,
 0x25,
 0x6a,
-0x74d,
+0x750,
 0x6c,
-0x74e,
+0x751,
 0x1,
 0x24,
 0x2a,
@@ -46507,9 +46543,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x6a,
-0x74d,
+0x750,
 0x56,
-0x74c,
+0x74f,
 0x2,
 0x1d,
 0x2,
@@ -46519,10 +46555,10 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x74e,
+0x751,
 0x1,
 0x73,
-0x74b,
+0x74e,
 0x1,
 0x24,
 0x21,
@@ -46542,7 +46578,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x72f,
+0x732,
 0x1,
 0x3e,
 0x24,
@@ -46613,17 +46649,17 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x67,
 0x6c,
-0x756,
+0x759,
 0x1,
 0x24,
 0x24,
 0x1f,
-0x757,
+0x75a,
 0x25,
 0x55,
-0x758,
+0x75b,
 0x55,
-0x759,
+0x75c,
 0x23,
 0x45,
 0xfffc,
@@ -46631,7 +46667,7 @@ STk_instr STk_boot_code [] = {
 0x231,
 0x68,
 0x55,
-0x75a,
+0x75d,
 0x55,
 0x8d,
 0x68,
@@ -46651,7 +46687,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x716,
+0x719,
 0x1,
 0x21,
 0x3,
@@ -46660,7 +46696,7 @@ STk_instr STk_boot_code [] = {
 0x6e,
 0x65,
 0x55,
-0x75b,
+0x75e,
 0x4d,
 0x56,
 0x4b,
@@ -46668,7 +46704,7 @@ STk_instr STk_boot_code [] = {
 0x1e,
 0xf,
 0x55,
-0x757,
+0x75a,
 0x55,
 0x8d,
 0x67,
@@ -46697,14 +46733,14 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x21,
 0x55,
-0x705,
+0x708,
 0x9,
 0x7f,
 0xa9,
 0x26,
 0x4,
 0x1f,
-0x758,
+0x75b,
 0x23,
 0xc1,
 0xfffb,
@@ -46753,14 +46789,14 @@ STk_instr STk_boot_code [] = {
 0x1d,
 0x6,
 0x6a,
-0x75c,
+0x75f,
 0x3f,
 0x1,
 0x1c,
 0x8,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x75,
 0x103,
 0x56,
@@ -46807,9 +46843,9 @@ STk_instr STk_boot_code [] = {
 0xd,
 0x25,
 0x55,
-0x758,
+0x75b,
 0x55,
-0x75d,
+0x760,
 0x65,
 0x75,
 0x304,
@@ -46824,7 +46860,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x6a,
-0x732,
+0x735,
 0x65,
 0x56,
 0x3c,
@@ -46842,9 +46878,9 @@ STk_instr STk_boot_code [] = {
 0xd,
 0x25,
 0x55,
-0x758,
+0x75b,
 0x55,
-0x75e,
+0x761,
 0x65,
 0x75,
 0x304,
@@ -46861,21 +46897,21 @@ STk_instr STk_boot_code [] = {
 0x204,
 0x4d,
 0x56,
-0x74e,
+0x751,
 0x2,
 0x6e,
 0x6a,
-0x722,
+0x725,
 0x75,
 0x201,
 0x55,
-0x753,
+0x756,
 0x66,
 0x55,
-0x754,
+0x757,
 0x65,
 0x55,
-0x719,
+0x71c,
 0x75,
 0x204,
 0x75,
@@ -46893,7 +46929,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x708,
+0x70b,
 0x2,
 0x1c,
 0x1,
@@ -46901,12 +46937,12 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x24,
 0x1f,
-0x75a,
+0x75d,
 0x25,
 0x55,
-0x75f,
+0x762,
 0x55,
-0x760,
+0x763,
 0x23,
 0x4c,
 0xfffe,
@@ -46930,7 +46966,7 @@ STk_instr STk_boot_code [] = {
 0x1d,
 0x4,
 0x9,
-0x717,
+0x71a,
 0x1c,
 0xe,
 0x25,
@@ -46952,7 +46988,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x761,
+0x764,
 0x4d,
 0x56,
 0x4b,
@@ -46963,7 +46999,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x762,
+0x765,
 0x55,
 0x8d,
 0x75,
@@ -46987,14 +47023,14 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x21,
 0x55,
-0x705,
+0x708,
 0x9,
 0x7f,
 0xa9,
 0x26,
 0x4,
 0x1f,
-0x75f,
+0x762,
 0x23,
 0x88,
 0xfffe,
@@ -47006,7 +47042,7 @@ STk_instr STk_boot_code [] = {
 0x1d,
 0x4,
 0xa,
-0x717,
+0x71a,
 0x1c,
 0xe,
 0x25,
@@ -47101,11 +47137,11 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x719,
+0x71c,
 0x75,
 0x201,
 0x55,
-0x763,
+0x766,
 0x25,
 0x65,
 0x56,
@@ -47119,11 +47155,11 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x21,
 0x55,
-0x761,
+0x764,
 0x75,
 0x101,
 0x56,
-0x722,
+0x725,
 0x7,
 0x6e,
 0x56,
@@ -47134,7 +47170,7 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x24,
 0x1f,
-0x762,
+0x765,
 0x23,
 0x10,
 0x3,
@@ -47142,23 +47178,23 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x748,
+0x74b,
 0x1,
 0x6e,
 0x65,
 0x56,
-0x748,
+0x74b,
 0x1,
 0x73,
 0x110,
 0x2,
 0x24,
 0x1f,
-0x764,
+0x767,
 0xa,
-0x764,
+0x767,
 0x1f,
-0x765,
+0x768,
 0x23,
 0x2f,
 0x1,
@@ -47170,7 +47206,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x72d,
+0x730,
 0x1,
 0x21,
 0x2b,
@@ -47188,7 +47224,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x72c,
+0x72f,
 0x75,
 0x200,
 0xc,
@@ -47202,14 +47238,14 @@ STk_instr STk_boot_code [] = {
 0x6e,
 0x65,
 0x56,
-0x748,
+0x74b,
 0x1,
 0x73,
 0x40,
 0x2,
 0x24,
 0x1f,
-0x766,
+0x769,
 0x23,
 0x23,
 0x1,
@@ -47220,14 +47256,14 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x72c,
+0x72f,
 0x25,
 0x75,
 0x100,
 0x25,
 0x65,
 0x56,
-0x72d,
+0x730,
 0x1,
 0x6f,
 0x10e,
@@ -47241,14 +47277,14 @@ STk_instr STk_boot_code [] = {
 0x6e,
 0x65,
 0x56,
-0x748,
+0x74b,
 0x1,
 0x73,
 0x40,
 0x2,
 0x24,
 0x1f,
-0x767,
+0x76a,
 0x23,
 0x51,
 0x2,
@@ -47256,7 +47292,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x742,
+0x745,
 0x1,
 0x21,
 0x2b,
@@ -47290,7 +47326,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x300,
 0x56,
-0x765,
+0x768,
 0x3,
 0x1d,
 0x11,
@@ -47298,7 +47334,7 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x3d,
 0x71,
-0x767,
+0x76a,
 0x1,
 0x25,
 0x65,
@@ -47333,19 +47369,19 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x768,
+0x76b,
 0x23,
 0x15,
 0x2,
 0x25,
 0x66,
 0x55,
-0x741,
+0x744,
 0x25,
 0x66,
 0x65,
 0x56,
-0x768,
+0x76b,
 0x2,
 0x71,
 0x58,
@@ -47353,12 +47389,12 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x766,
+0x769,
 0x1,
 0xc,
 0x24,
 0x1f,
-0x769,
+0x76c,
 0x23,
 0x9a,
 0xfffc,
@@ -47432,33 +47468,33 @@ STk_instr STk_boot_code [] = {
 0x8,
 0x17,
 0x55,
-0x722,
+0x725,
 0x12,
 0x100,
 0x1e,
 0x5,
 0x9,
-0x71c,
+0x71f,
 0x1e,
 0x1,
 0x1,
 0x21,
 0x55,
-0x71d,
+0x720,
 0x75,
 0x203,
 0x55,
-0x71e,
+0x721,
 0x55,
 0x3e,
 0x55,
-0x74e,
+0x751,
 0x55,
 0x8d,
 0x25,
 0x66,
 0x56,
-0x711,
+0x714,
 0x1,
 0x21,
 0x3,
@@ -47471,11 +47507,11 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x55,
 0x258,
 0x55,
-0x76a,
+0x76d,
 0x55,
 0xb4,
 0x3,
@@ -47493,7 +47529,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x712,
+0x715,
 0x1,
 0x21,
 0xe,
@@ -47516,12 +47552,12 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x24,
 0x1f,
-0x76b,
+0x76e,
 0x25,
 0x55,
 0x277,
 0x55,
-0x76c,
+0x76f,
 0x23,
 0x9,
 0xfffe,
@@ -47530,12 +47566,12 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x6c,
-0x76b,
+0x76e,
 0x3,
 0x24,
 0x21,
 0x55,
-0x705,
+0x708,
 0x9,
 0x7f,
 0xa9,
@@ -47545,16 +47581,16 @@ STk_instr STk_boot_code [] = {
 0x277,
 0x25,
 0x55,
-0x76d,
+0x770,
 0x55,
-0x76e,
+0x771,
 0x23,
 0x4f,
 0xfffd,
 0x25,
 0x25,
 0x55,
-0x76f,
+0x772,
 0x56,
 0x89,
 0x1,
@@ -47565,7 +47601,7 @@ STk_instr STk_boot_code [] = {
 0x258,
 0x65,
 0x55,
-0x762,
+0x765,
 0x55,
 0x8d,
 0x75,
@@ -47586,7 +47622,7 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x21,
 0x55,
-0x769,
+0x76c,
 0x65,
 0x25,
 0x65,
@@ -47595,7 +47631,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x76b,
+0x76e,
 0x3,
 0x21,
 0x3,
@@ -47631,20 +47667,20 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x21,
 0x55,
-0x705,
+0x708,
 0x9,
 0x7f,
 0xa9,
 0x26,
 0x4,
 0x1f,
-0x76d,
+0x770,
 0x25,
 0x25,
 0x55,
-0x770,
+0x773,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -47653,23 +47689,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x771,
+0x774,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -47681,15 +47717,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x770,
+0x773,
 0x56,
 0xb3,
 0x2,
@@ -47697,9 +47733,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x772,
+0x775,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -47708,23 +47744,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x773,
+0x776,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -47738,15 +47774,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x772,
+0x775,
 0x56,
 0xb3,
 0x2,
@@ -47754,9 +47790,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x774,
+0x777,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -47765,23 +47801,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x775,
+0x778,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -47792,12 +47828,12 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x776,
+0x779,
 0x25,
 0x25,
 0x66,
 0x56,
-0x777,
+0x77a,
 0x1,
 0x21,
 0x54,
@@ -47811,15 +47847,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x774,
+0x777,
 0x56,
 0xb3,
 0x2,
@@ -47827,9 +47863,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x774,
+0x777,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -47838,23 +47874,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x778,
+0x77b,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -47866,7 +47902,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x74b,
+0x74e,
 0x1,
 0x21,
 0x2b,
@@ -47874,9 +47910,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x724,
+0x727,
 0x56,
-0x779,
+0x77c,
 0x2,
 0x1d,
 0x1b,
@@ -47884,18 +47920,18 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x77a,
+0x77d,
 0x25,
 0x65,
 0x56,
-0x725,
+0x728,
 0x1,
 0x6e,
 0x25,
 0x75,
 0x101,
 0x56,
-0x777,
+0x77a,
 0x1,
 0x21,
 0x54,
@@ -47915,15 +47951,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x774,
+0x777,
 0x56,
 0xb3,
 0x2,
@@ -47931,9 +47967,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x774,
+0x777,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -47942,23 +47978,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x77b,
+0x77e,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -47970,7 +48006,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x74b,
+0x74e,
 0x1,
 0x21,
 0x2b,
@@ -47979,18 +48015,18 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x724,
+0x727,
 0x56,
-0x779,
+0x77c,
 0x2,
 0x1d,
 0x9,
 0x25,
 0x65,
 0x55,
-0x724,
+0x727,
 0x56,
-0x779,
+0x77c,
 0x2,
 0x1c,
 0x1,
@@ -48001,24 +48037,24 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x77c,
+0x77f,
 0x25,
 0x65,
 0x56,
-0x725,
+0x728,
 0x1,
 0x6e,
 0x75,
 0x101,
 0x56,
-0x725,
+0x728,
 0x1,
 0x6e,
 0x25,
 0x75,
 0x101,
 0x56,
-0x777,
+0x77a,
 0x1,
 0x21,
 0x54,
@@ -48038,15 +48074,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x774,
+0x777,
 0x56,
 0xb3,
 0x2,
@@ -48054,9 +48090,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x774,
+0x777,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -48065,23 +48101,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x77d,
+0x780,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -48093,7 +48129,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x74b,
+0x74e,
 0x1,
 0x21,
 0x2b,
@@ -48102,18 +48138,18 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x724,
+0x727,
 0x56,
-0x779,
+0x77c,
 0x2,
 0x1d,
 0x13,
 0x25,
 0x65,
 0x55,
-0x724,
+0x727,
 0x56,
-0x779,
+0x77c,
 0x2,
 0x1d,
 0xa,
@@ -48121,9 +48157,9 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x741,
+0x744,
 0x56,
-0x779,
+0x77c,
 0x2,
 0x1c,
 0x1,
@@ -48134,24 +48170,24 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x77e,
+0x781,
 0x25,
 0x65,
 0x56,
-0x725,
+0x728,
 0x1,
 0x6e,
 0x75,
 0x101,
 0x56,
-0x740,
+0x743,
 0x1,
 0x6e,
 0x25,
 0x75,
 0x101,
 0x56,
-0x742,
+0x745,
 0x1,
 0x71,
 0x79,
@@ -48168,15 +48204,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x774,
+0x777,
 0x56,
 0xb3,
 0x2,
@@ -48184,9 +48220,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x77f,
+0x782,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -48195,23 +48231,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x780,
+0x783,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -48223,20 +48259,20 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x6c,
-0x774,
+0x777,
 0x2,
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x77f,
+0x782,
 0x56,
 0xb3,
 0x2,
@@ -48244,9 +48280,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x781,
+0x784,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -48255,23 +48291,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x782,
+0x785,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -48281,13 +48317,13 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x25,
 0x55,
-0x783,
+0x786,
 0x65,
 0x25,
 0x25,
 0x66,
 0x56,
-0x777,
+0x77a,
 0x1,
 0x21,
 0x54,
@@ -48303,15 +48339,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x781,
+0x784,
 0x56,
 0xb3,
 0x2,
@@ -48319,9 +48355,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x784,
+0x787,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -48330,23 +48366,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x785,
+0x788,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -48402,7 +48438,7 @@ STk_instr STk_boot_code [] = {
 0x7,
 0x25,
 0x55,
-0x786,
+0x789,
 0x75,
 0x101,
 0x25,
@@ -48410,7 +48446,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x102,
 0x56,
-0x777,
+0x77a,
 0x1,
 0x21,
 0x54,
@@ -48427,15 +48463,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x784,
+0x787,
 0x56,
 0xb3,
 0x2,
@@ -48443,9 +48479,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x787,
+0x78a,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -48454,23 +48490,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x788,
+0x78b,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -48480,12 +48516,12 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x25,
 0x55,
-0x789,
+0x78c,
 0x66,
 0x25,
 0x67,
 0x56,
-0x740,
+0x743,
 0x1,
 0x21,
 0xc,
@@ -48496,15 +48532,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x787,
+0x78a,
 0x56,
 0xb3,
 0x2,
@@ -48512,9 +48548,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x78a,
+0x78d,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -48523,23 +48559,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x78b,
+0x78e,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -48549,12 +48585,12 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x78c,
+0x78f,
 0x66,
 0x25,
 0x66,
 0x56,
-0x740,
+0x743,
 0x1,
 0x21,
 0xc,
@@ -48565,15 +48601,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x78a,
+0x78d,
 0x56,
 0xb3,
 0x2,
@@ -48581,9 +48617,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x78d,
+0x790,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -48592,23 +48628,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x78e,
+0x791,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -48618,7 +48654,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x78f,
+0x792,
 0x66,
 0x6c,
 0x4e,
@@ -48626,15 +48662,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x78d,
+0x790,
 0x56,
 0xb3,
 0x2,
@@ -48642,9 +48678,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x790,
+0x793,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -48653,23 +48689,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x791,
+0x794,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -48682,22 +48718,22 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x74b,
+0x74e,
 0x1,
 0x71,
-0x792,
+0x795,
 0x1,
 0x6e,
 0x6a,
-0x732,
+0x735,
 0x25,
 0x25,
 0x65,
 0x56,
-0x74b,
+0x74e,
 0x1,
 0x71,
-0x731,
+0x734,
 0x1,
 0x71,
 0x3c,
@@ -48714,7 +48750,7 @@ STk_instr STk_boot_code [] = {
 0x200,
 0x65,
 0x56,
-0x779,
+0x77c,
 0x2,
 0x1d,
 0xf,
@@ -48744,15 +48780,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x790,
+0x793,
 0x56,
 0xb3,
 0x2,
@@ -48760,9 +48796,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x793,
+0x796,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -48771,23 +48807,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x794,
+0x797,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -48800,22 +48836,22 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x74b,
+0x74e,
 0x1,
 0x71,
-0x792,
+0x795,
 0x1,
 0x6e,
 0x6a,
-0x732,
+0x735,
 0x25,
 0x25,
 0x65,
 0x56,
-0x74b,
+0x74e,
 0x1,
 0x71,
-0x731,
+0x734,
 0x1,
 0x71,
 0x3c,
@@ -48832,7 +48868,7 @@ STk_instr STk_boot_code [] = {
 0x200,
 0x65,
 0x56,
-0x779,
+0x77c,
 0x2,
 0x1d,
 0x23,
@@ -48854,14 +48890,14 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x795,
+0x798,
 0x1,
 0x1d,
 0x7,
 0x25,
 0x65,
 0x56,
-0x793,
+0x796,
 0x1,
 0x1c,
 0x1,
@@ -48882,58 +48918,58 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x793,
+0x796,
 0x56,
 0xb3,
 0x2,
 0x2c,
 0x25,
 0x55,
-0x796,
+0x799,
 0x6a,
-0x717,
+0x71a,
 0x4d,
 0x56,
-0x762,
+0x765,
 0x3,
 0x1f,
-0x796,
+0x799,
 0x25,
 0x55,
-0x797,
+0x79a,
 0x6a,
-0x717,
+0x71a,
 0x4d,
 0x56,
-0x762,
+0x765,
 0x3,
 0x1f,
-0x797,
+0x79a,
 0x25,
 0x55,
-0x798,
+0x79b,
 0x6a,
-0x717,
+0x71a,
 0x4d,
 0x56,
-0x762,
+0x765,
 0x3,
 0x1f,
-0x798,
+0x79b,
 0x25,
 0x25,
 0x55,
-0x796,
+0x799,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -48942,23 +48978,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x799,
+0x79c,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -48973,16 +49009,16 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x6a,
-0x79a,
+0x79d,
 0x56,
-0x74c,
+0x74f,
 0x2,
 0x1d,
 0x6,
 0x25,
 0x65,
 0x6c,
-0x767,
+0x76a,
 0x1,
 0x24,
 0x7,
@@ -48990,7 +49026,7 @@ STk_instr STk_boot_code [] = {
 0x6e,
 0x65,
 0x56,
-0x72d,
+0x730,
 0x1,
 0x73,
 0x66,
@@ -48998,15 +49034,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x796,
+0x799,
 0x56,
 0xb3,
 0x2,
@@ -49014,9 +49050,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x797,
+0x79a,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -49025,23 +49061,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x79b,
+0x79e,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -49053,7 +49089,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x67,
 0x56,
-0x748,
+0x74b,
 0x1,
 0x6e,
 0x4d,
@@ -49112,15 +49148,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x797,
+0x79a,
 0x56,
 0xb3,
 0x2,
@@ -49128,9 +49164,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x798,
+0x79b,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -49139,23 +49175,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x79c,
+0x79f,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -49181,7 +49217,7 @@ STk_instr STk_boot_code [] = {
 0x6e,
 0x67,
 0x56,
-0x727,
+0x72a,
 0x1,
 0x71,
 0x3c,
@@ -49194,7 +49230,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x102,
 0x56,
-0x725,
+0x728,
 0x1,
 0x21,
 0x65,
@@ -49202,29 +49238,29 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x102,
 0x56,
-0x729,
+0x72c,
 0x1,
 0x6e,
 0x75,
 0x102,
 0x56,
-0x74b,
+0x74e,
 0x1,
 0x73,
-0x75a,
+0x75d,
 0x4,
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x798,
+0x79b,
 0x56,
 0xb3,
 0x2,
@@ -49232,9 +49268,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x708,
+0x70b,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -49243,23 +49279,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x79d,
+0x7a0,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -49270,13 +49306,13 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x796,
+0x799,
 0x1,
 0x25,
 0x25,
 0x66,
 0x56,
-0x72d,
+0x730,
 0x1,
 0x21,
 0x29,
@@ -49292,7 +49328,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x6c,
-0x797,
+0x79a,
 0x3,
 0x24,
 0x21,
@@ -49304,7 +49340,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x72c,
+0x72f,
 0x65,
 0x56,
 0x58,
@@ -49317,14 +49353,14 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x72a,
+0x72d,
 0x25,
 0x75,
 0x101,
 0x25,
 0x65,
 0x56,
-0x72b,
+0x72e,
 0x1,
 0x6f,
 0x10e,
@@ -49338,7 +49374,7 @@ STk_instr STk_boot_code [] = {
 0x6e,
 0x66,
 0x56,
-0x727,
+0x72a,
 0x1,
 0x71,
 0x66,
@@ -49354,13 +49390,13 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x6c,
-0x798,
+0x79b,
 0x3,
 0x24,
 0x6e,
 0x66,
 0x56,
-0x72b,
+0x72e,
 0x1,
 0x71,
 0x66,
@@ -49368,7 +49404,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x55,
-0x79e,
+0x7a1,
 0x65,
 0x6c,
 0x58,
@@ -49376,15 +49412,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x708,
+0x70b,
 0x56,
 0xb3,
 0x2,
@@ -49396,7 +49432,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x72f,
+0x732,
 0x1,
 0x3e,
 0x6e,
@@ -49416,7 +49452,7 @@ STk_instr STk_boot_code [] = {
 0x3d,
 0x21,
 0x55,
-0x73d,
+0x740,
 0x56,
 0x57,
 0x2,
@@ -49456,7 +49492,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x79f,
+0x7a2,
 0x23,
 0x12,
 0x2,
@@ -49464,11 +49500,11 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x25,
 0x6a,
-0x732,
+0x735,
 0x25,
 0x65,
 0x56,
-0x729,
+0x72c,
 0x1,
 0x71,
 0x3c,
@@ -49478,7 +49514,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x7a0,
+0x7a3,
 0x23,
 0xdb,
 0x2,
@@ -49487,49 +49523,49 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x7a1,
+0x7a4,
 0x4d,
 0x56,
 0x4b,
 0x3,
 0x71,
-0x70f,
+0x712,
 0x1,
 0x6e,
 0x25,
 0x65,
 0x55,
-0x7a2,
+0x7a5,
 0x4d,
 0x56,
 0x4b,
 0x3,
 0x71,
-0x70f,
+0x712,
 0x1,
 0x6e,
 0x25,
 0x65,
 0x55,
-0x7a3,
+0x7a6,
 0x4d,
 0x56,
 0x4b,
 0x3,
 0x71,
-0x70f,
+0x712,
 0x1,
 0x6e,
 0x25,
 0x65,
 0x55,
-0x7a4,
+0x7a7,
 0x4d,
 0x56,
 0x4b,
 0x3,
 0x71,
-0x70f,
+0x712,
 0x1,
 0x21,
 0x2b,
@@ -49555,7 +49591,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x201,
 0x56,
-0x7a5,
+0x7a8,
 0x2,
 0x21,
 0x2b,
@@ -49590,7 +49626,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x201,
 0x56,
-0x7a5,
+0x7a8,
 0x2,
 0x21,
 0x2b,
@@ -49640,7 +49676,7 @@ STk_instr STk_boot_code [] = {
 0x201,
 0x65,
 0x56,
-0x7a6,
+0x7a9,
 0x3,
 0x12,
 0x100,
@@ -49664,7 +49700,7 @@ STk_instr STk_boot_code [] = {
 0x201,
 0x65,
 0x56,
-0x7a6,
+0x7a9,
 0x3,
 0x12,
 0x100,
@@ -49683,16 +49719,16 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x21,
 0x55,
-0x7a1,
+0x7a4,
 0x68,
 0x55,
-0x7a2,
+0x7a5,
 0x67,
 0x55,
-0x7a3,
+0x7a6,
 0x66,
 0x55,
-0x7a4,
+0x7a7,
 0x65,
 0x3f,
 0x8,
@@ -49701,13 +49737,13 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x24,
 0x1f,
-0x7a7,
+0x7aa,
 0x25,
 0x25,
 0x55,
-0x7a8,
+0x7ab,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -49716,23 +49752,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7a9,
+0x7ac,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -49744,7 +49780,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x732,
+0x735,
 0x1,
 0x21,
 0x2b,
@@ -49754,14 +49790,14 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x736,
+0x739,
 0x1,
 0x21,
 0x2b,
 0x1,
 0x65,
 0x9,
-0x734,
+0x737,
 0x63,
 0x19,
 0x25,
@@ -49769,7 +49805,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x201,
 0x55,
-0x7aa,
+0x7ad,
 0x56,
 0x57,
 0x2,
@@ -49780,7 +49816,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x301,
 0x55,
-0x7aa,
+0x7ad,
 0xc,
 0x39,
 0x71,
@@ -49791,7 +49827,7 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x65,
 0x9,
-0x7ab,
+0x7ae,
 0x63,
 0x2c,
 0x25,
@@ -49800,7 +49836,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x201,
 0x56,
-0x7a0,
+0x7a3,
 0x2,
 0x1d,
 0x18,
@@ -49834,13 +49870,13 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x201,
 0x6c,
-0x79f,
+0x7a2,
 0x2,
 0x1c,
 0xc3,
 0x65,
 0x9,
-0x7ac,
+0x7af,
 0x63,
 0x18,
 0x25,
@@ -49869,7 +49905,7 @@ STk_instr STk_boot_code [] = {
 0xa6,
 0x65,
 0x9,
-0x7ad,
+0x7b0,
 0x63,
 0x52,
 0x25,
@@ -49878,7 +49914,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x201,
 0x56,
-0x7a0,
+0x7a3,
 0x2,
 0x1d,
 0x3e,
@@ -49888,13 +49924,13 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x300,
 0x56,
-0x733,
+0x736,
 0x1,
 0x15,
 0x25,
 0x65,
 0x55,
-0x7ae,
+0x7b1,
 0x4d,
 0x56,
 0x4b,
@@ -49903,7 +49939,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x7af,
+0x7b2,
 0x4d,
 0x56,
 0x4b,
@@ -49920,7 +49956,7 @@ STk_instr STk_boot_code [] = {
 0x9,
 0x25,
 0x55,
-0x7b0,
+0x7b3,
 0x65,
 0x56,
 0x4e,
@@ -49931,12 +49967,12 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x70f,
+0x712,
 0x1,
 0x6e,
 0x67,
 0x56,
-0x70f,
+0x712,
 0x1,
 0x21,
 0x3f,
@@ -49950,13 +49986,13 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x201,
 0x6c,
-0x79f,
+0x7a2,
 0x2,
 0x1c,
 0x4f,
 0x65,
 0x9,
-0x7b1,
+0x7b4,
 0x63,
 0x45,
 0x25,
@@ -49964,7 +50000,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x201,
 0x55,
-0x7aa,
+0x7ad,
 0x56,
 0x57,
 0x2,
@@ -49975,7 +50011,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x301,
 0x55,
-0x7aa,
+0x7ad,
 0xc,
 0x39,
 0x71,
@@ -49987,7 +50023,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x301,
 0x56,
-0x7a0,
+0x7a3,
 0x2,
 0x1d,
 0xc,
@@ -49997,10 +50033,10 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x300,
 0x56,
-0x733,
+0x736,
 0x1,
 0x73,
-0x7a7,
+0x7aa,
 0x2,
 0x24,
 0x25,
@@ -50010,7 +50046,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x301,
 0x56,
-0x79f,
+0x7a2,
 0x2,
 0x21,
 0x2b,
@@ -50022,7 +50058,7 @@ STk_instr STk_boot_code [] = {
 0x49,
 0x16,
 0x73,
-0x7a7,
+0x7aa,
 0x2,
 0x24,
 0x24,
@@ -50036,15 +50072,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7a8,
+0x7ab,
 0x56,
 0xb3,
 0x2,
@@ -50052,9 +50088,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x7a8,
+0x7ab,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -50063,23 +50099,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7b2,
+0x7b5,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -50089,11 +50125,11 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x7b3,
+0x7b6,
 0x25,
 0x65,
 0x56,
-0x736,
+0x739,
 0x1,
 0x73,
 0x4e,
@@ -50101,15 +50137,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7a8,
+0x7ab,
 0x56,
 0xb3,
 0x2,
@@ -50129,7 +50165,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x2b,
@@ -50138,19 +50174,19 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x79a,
+0x79d,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x75,
 0x301,
 0x3f,
 0x1,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x23,
 0x9,
 0x1,
@@ -50163,10 +50199,10 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x71,
-0x722,
+0x725,
 0x7,
 0x73,
-0x769,
+0x76c,
 0x2,
 0x24,
 0x16,
@@ -50177,7 +50213,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x2b,
@@ -50186,21 +50222,21 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x79a,
+0x79d,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x75,
 0x301,
 0x6a,
-0x710,
+0x713,
 0x3f,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x23,
 0xa,
 0x2,
@@ -50214,10 +50250,10 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x24,
 0x71,
-0x722,
+0x725,
 0x7,
 0x73,
-0x769,
+0x76c,
 0x2,
 0x24,
 0x15,
@@ -50229,22 +50265,22 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x732,
+0x735,
 0x1,
 0x6e,
 0x65,
 0x56,
-0x713,
+0x716,
 0x1,
 0x6e,
 0x65,
 0x56,
-0x714,
+0x717,
 0x1,
 0x6e,
 0x65,
 0x56,
-0x715,
+0x718,
 0x1,
 0x21,
 0x2b,
@@ -50303,7 +50339,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x7b4,
+0x7b7,
 0x23,
 0x12f,
 0x2,
@@ -50319,7 +50355,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x73a,
+0x73d,
 0x1,
 0x21,
 0x2b,
@@ -50334,11 +50370,11 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x736,
+0x739,
 0x1,
 0x21,
 0x9,
-0x7ab,
+0x7ae,
 0x62,
 0x59,
 0x25,
@@ -50346,7 +50382,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x732,
+0x735,
 0x1,
 0x6e,
 0x56,
@@ -50370,7 +50406,7 @@ STk_instr STk_boot_code [] = {
 0x258,
 0x65,
 0x55,
-0x7b5,
+0x7b8,
 0x66,
 0x55,
 0x8d,
@@ -50425,7 +50461,7 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x3b,
 0x73,
-0x70f,
+0x712,
 0x1,
 0x24,
 0x1c,
@@ -50447,7 +50483,7 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x3b,
 0x73,
-0x70f,
+0x712,
 0x1,
 0x24,
 0x16,
@@ -50474,14 +50510,14 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x7b6,
+0x7b9,
 0x1,
 0x1d,
 0xa,
 0x25,
 0x66,
 0x56,
-0x7b7,
+0x7ba,
 0x1,
 0x21,
 0x6,
@@ -50493,7 +50529,7 @@ STk_instr STk_boot_code [] = {
 0xd,
 0x25,
 0x55,
-0x7b8,
+0x7bb,
 0x75,
 0x101,
 0x75,
@@ -50508,14 +50544,14 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x7b6,
+0x7b9,
 0x1,
 0x1d,
 0xb,
 0x25,
 0x65,
 0x56,
-0x7b7,
+0x7ba,
 0x1,
 0x21,
 0x8,
@@ -50528,7 +50564,7 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x25,
 0x55,
-0x7b9,
+0x7bc,
 0x75,
 0x101,
 0x75,
@@ -50572,13 +50608,13 @@ STk_instr STk_boot_code [] = {
 0x301,
 0x65,
 0x56,
-0x7a8,
+0x7ab,
 0x2,
 0x16,
 0x25,
 0x65,
 0x56,
-0x732,
+0x735,
 0x1,
 0x17,
 0x25,
@@ -50599,7 +50635,7 @@ STk_instr STk_boot_code [] = {
 0x21,
 0x66,
 0x6c,
-0x7ba,
+0x7bd,
 0x3,
 0x24,
 0x21,
@@ -50610,7 +50646,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x7bb,
+0x7be,
 0x23,
 0x136,
 0x1,
@@ -50888,7 +50924,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x726,
+0x729,
 0x56,
 0x57,
 0x2,
@@ -50906,7 +50942,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x72e,
+0x731,
 0x6c,
 0x57,
 0x2,
@@ -50924,13 +50960,13 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x7bc,
+0x7bf,
 0x25,
 0x25,
 0x55,
-0x7bd,
+0x7c0,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -50939,23 +50975,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7be,
+0x7c1,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -50967,20 +51003,20 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x6c,
-0x7bf,
+0x7c2,
 0x2,
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7bd,
+0x7c0,
 0x56,
 0xb3,
 0x2,
@@ -50988,9 +51024,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x7bd,
+0x7c0,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -50999,23 +51035,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7c0,
+0x7c3,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -51032,7 +51068,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x754,
+0x757,
 0x4f,
 0x56,
 0x4b,
@@ -51040,7 +51076,7 @@ STk_instr STk_boot_code [] = {
 0x6e,
 0x65,
 0x55,
-0x753,
+0x756,
 0x4f,
 0x56,
 0x4b,
@@ -51052,14 +51088,14 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x724,
+0x727,
 0x25,
 0x75,
 0x100,
 0x55,
-0x719,
+0x71c,
 0x55,
-0x71a,
+0x71d,
 0x56,
 0x4b,
 0x3,
@@ -51070,7 +51106,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x726,
+0x729,
 0x65,
 0x56,
 0x58,
@@ -51079,7 +51115,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x728,
+0x72b,
 0x66,
 0x56,
 0x58,
@@ -51088,7 +51124,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x72a,
+0x72d,
 0x4f,
 0x56,
 0x58,
@@ -51097,7 +51133,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x72c,
+0x72f,
 0x4f,
 0x56,
 0x58,
@@ -51106,12 +51142,12 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x72e,
+0x731,
 0x25,
 0x75,
 0x101,
 0x56,
-0x7bc,
+0x7bf,
 0x1,
 0x71,
 0x58,
@@ -51120,7 +51156,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x79e,
+0x7a1,
 0x4d,
 0x56,
 0x58,
@@ -51130,7 +51166,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x56,
-0x752,
+0x755,
 0x1,
 0x21,
 0x29,
@@ -51139,7 +51175,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x201,
 0x55,
-0x730,
+0x733,
 0x65,
 0x56,
 0x58,
@@ -51148,7 +51184,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x201,
 0x55,
-0x7aa,
+0x7ad,
 0x51,
 0x56,
 0x58,
@@ -51157,13 +51193,13 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x201,
 0x55,
-0x73d,
+0x740,
 0x25,
 0x75,
 0x201,
 0x65,
 0x56,
-0x7bb,
+0x7be,
 0x2,
 0x71,
 0x58,
@@ -51176,13 +51212,13 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x72a,
+0x72d,
 0x75,
 0x201,
 0x25,
 0x65,
 0x55,
-0x72a,
+0x72d,
 0x56,
 0x57,
 0x2,
@@ -51201,20 +51237,20 @@ STk_instr STk_boot_code [] = {
 0x101,
 0x66,
 0x6c,
-0x7b4,
+0x7b7,
 0x2,
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7bd,
+0x7c0,
 0x56,
 0xb3,
 0x2,
@@ -51222,9 +51258,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x7bd,
+0x7c0,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -51233,23 +51269,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7c1,
+0x7c4,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -51261,7 +51297,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x763,
+0x766,
 0x4d,
 0x56,
 0x4b,
@@ -51269,7 +51305,7 @@ STk_instr STk_boot_code [] = {
 0x6e,
 0x65,
 0x55,
-0x761,
+0x764,
 0x4d,
 0x56,
 0x4b,
@@ -51286,14 +51322,14 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x724,
+0x727,
 0x25,
 0x75,
 0x100,
 0x55,
-0x719,
+0x71c,
 0x55,
-0x71a,
+0x71d,
 0x56,
 0x4b,
 0x3,
@@ -51304,7 +51340,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x741,
+0x744,
 0x25,
 0x66,
 0x56,
@@ -51314,17 +51350,17 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71e,
+0x721,
 0x6a,
-0x710,
+0x713,
 0x55,
-0x71d,
+0x720,
 0x75,
 0x101,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x4d,
 0x29,
@@ -51342,7 +51378,7 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x21,
 0x3f,
@@ -51357,7 +51393,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x743,
+0x746,
 0x65,
 0x6c,
 0x58,
@@ -51365,15 +51401,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7bd,
+0x7c0,
 0x56,
 0xb3,
 0x2,
@@ -51381,9 +51417,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x7bd,
+0x7c0,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -51392,23 +51428,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7c2,
+0x7c5,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -51424,11 +51460,11 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x55,
-0x746,
+0x749,
 0x25,
 0x65,
 0x55,
-0x71d,
+0x720,
 0x4d,
 0x56,
 0x4b,
@@ -51439,11 +51475,11 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x55,
-0x711,
+0x714,
 0x25,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x4f,
 0x56,
 0x4b,
@@ -51454,11 +51490,11 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x55,
-0x749,
+0x74c,
 0x25,
 0x65,
 0x55,
-0x71f,
+0x722,
 0x23,
 0x3,
 0xffff,
@@ -51473,15 +51509,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7bd,
+0x7c0,
 0x56,
 0xb3,
 0x2,
@@ -51489,9 +51525,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x7c3,
+0x7c6,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -51500,23 +51536,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7c4,
+0x7c7,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -51527,20 +51563,20 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x6c,
-0x792,
+0x795,
 0x1,
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7c3,
+0x7c6,
 0x56,
 0xb3,
 0x2,
@@ -51548,9 +51584,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x7c5,
+0x7c8,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -51559,23 +51595,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7c6,
+0x7c9,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -51588,7 +51624,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x7c3,
+0x7c6,
 0x2,
 0x21,
 0x2b,
@@ -51598,29 +51634,29 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x7bd,
+0x7c0,
 0x2,
 0xc,
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7c5,
+0x7c8,
 0x56,
 0xb3,
 0x2,
 0x2c,
 0xa,
-0x7c5,
+0x7c8,
 0x1f,
-0x722,
+0x725,
 0x23,
 0x75,
 0x3,
@@ -51629,7 +51665,7 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x4f,
 0x56,
-0x7c3,
+0x7c6,
 0x2,
 0x21,
 0x2b,
@@ -51645,7 +51681,7 @@ STk_instr STk_boot_code [] = {
 0x202,
 0x65,
 0x56,
-0x7c7,
+0x7ca,
 0x3,
 0x1d,
 0x20,
@@ -51656,7 +51692,7 @@ STk_instr STk_boot_code [] = {
 0x202,
 0x65,
 0x56,
-0x7c8,
+0x7cb,
 0x3,
 0x1d,
 0x13,
@@ -51673,10 +51709,10 @@ STk_instr STk_boot_code [] = {
 0x202,
 0x65,
 0x56,
-0x7c9,
+0x7cc,
 0x3,
 0x73,
-0x7ca,
+0x7cd,
 0x4,
 0x24,
 0x7,
@@ -51687,7 +51723,7 @@ STk_instr STk_boot_code [] = {
 0x200,
 0x65,
 0x56,
-0x73e,
+0x741,
 0x2,
 0x21,
 0x2b,
@@ -51709,7 +51745,7 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x1,
 0x73,
-0x7ca,
+0x7cd,
 0x4,
 0x24,
 0x7,
@@ -51717,12 +51753,12 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x6e,
 0x6a,
-0x732,
+0x735,
 0x25,
 0x75,
 0x100,
 0x56,
-0x731,
+0x734,
 0x1,
 0x71,
 0x3c,
@@ -51735,19 +51771,19 @@ STk_instr STk_boot_code [] = {
 0x102,
 0x65,
 0x56,
-0x7cb,
+0x7ce,
 0x2,
 0x12,
 0x102,
 0x24,
 0x1f,
-0x7cc,
+0x7cf,
 0x25,
 0x25,
 0x55,
-0x7cd,
+0x7d0,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -51756,23 +51792,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7ce,
+0x7d1,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -51785,25 +51821,25 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x74b,
+0x74e,
 0x1,
 0x21,
 0x65,
 0x6c,
-0x7cc,
+0x7cf,
 0x3,
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7cd,
+0x7d0,
 0x56,
 0xb3,
 0x2,
@@ -51811,9 +51847,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x7cf,
+0x7d2,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -51822,23 +51858,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7d0,
+0x7d3,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -51848,7 +51884,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x6a,
-0x7d1,
+0x7d4,
 0x66,
 0x65,
 0x6c,
@@ -51857,15 +51893,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7cf,
+0x7d2,
 0x56,
 0xb3,
 0x2,
@@ -51873,9 +51909,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x7d2,
+0x7d5,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -51884,23 +51920,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7d3,
+0x7d6,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -51913,20 +51949,20 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x6c,
-0x7d4,
+0x7d7,
 0x3,
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7d2,
+0x7d5,
 0x56,
 0xb3,
 0x2,
@@ -51934,9 +51970,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x7d5,
+0x7d8,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -51945,23 +51981,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7d6,
+0x7d9,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -51972,7 +52008,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x6a,
-0x74b,
+0x74e,
 0x65,
 0x56,
 0x3c,
@@ -51992,7 +52028,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x6c,
-0x7d2,
+0x7d5,
 0x3,
 0x24,
 0x73,
@@ -52001,15 +52037,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7d5,
+0x7d8,
 0x56,
 0xb3,
 0x2,
@@ -52017,9 +52053,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x7d7,
+0x7da,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -52028,23 +52064,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7d8,
+0x7db,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -52057,7 +52093,7 @@ STk_instr STk_boot_code [] = {
 0xe,
 0x3d,
 0x71,
-0x74a,
+0x74d,
 0x1,
 0x21,
 0x2b,
@@ -52074,7 +52110,7 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x2,
 0x71,
-0x7d9,
+0x7dc,
 0x2,
 0x25,
 0x65,
@@ -52086,15 +52122,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7d7,
+0x7da,
 0x56,
 0xb3,
 0x2,
@@ -52102,9 +52138,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x7da,
+0x7dd,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -52113,23 +52149,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7db,
+0x7de,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -52176,7 +52212,7 @@ STk_instr STk_boot_code [] = {
 0x21,
 0x65,
 0x6c,
-0x787,
+0x78a,
 0x3,
 0x24,
 0x25,
@@ -52190,7 +52226,7 @@ STk_instr STk_boot_code [] = {
 0x300,
 0x65,
 0x6c,
-0x7d7,
+0x7da,
 0x4,
 0x24,
 0x24,
@@ -52210,20 +52246,20 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x6c,
-0x7d7,
+0x7da,
 0x4,
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7da,
+0x7dd,
 0x56,
 0xb3,
 0x2,
@@ -52231,9 +52267,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x7dc,
+0x7df,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -52242,23 +52278,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7dd,
+0x7e0,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -52269,7 +52305,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x742,
+0x745,
 0x1,
 0x3c,
 0x1d,
@@ -52278,7 +52314,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x78d,
+0x790,
 0x2,
 0x1c,
 0x1,
@@ -52288,7 +52324,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x7cf,
+0x7d2,
 0x2,
 0x21,
 0x2b,
@@ -52306,13 +52342,13 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x7d5,
+0x7d8,
 0x3,
 0x21,
 0x75,
 0x100,
 0x6c,
-0x7da,
+0x7dd,
 0x3,
 0x24,
 0x25,
@@ -52321,20 +52357,20 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x6c,
-0x78a,
+0x78d,
 0x2,
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7dc,
+0x7df,
 0x56,
 0xb3,
 0x2,
@@ -52342,9 +52378,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x765,
+0x768,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -52353,23 +52389,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7de,
+0x7e1,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -52382,30 +52418,30 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x6c,
-0x764,
+0x767,
 0x3,
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x765,
+0x768,
 0x56,
 0xb3,
 0x2,
 0x2c,
 0x1,
 0x1f,
-0x7df,
+0x7e2,
 0x1,
 0x1f,
-0x7e0,
+0x7e3,
 0x25,
 0x4d,
 0x4d,
@@ -52543,7 +52579,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x72b,
+0x72e,
 0x1,
 0x21,
 0x12,
@@ -52574,19 +52610,19 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x13,
-0x7df,
+0x7e2,
 0x23,
 0x17,
 0x1,
 0x25,
 0x25,
 0x6a,
-0x72d,
+0x730,
 0x65,
 0x25,
 0x65,
 0x56,
-0x7df,
+0x7e2,
 0x1,
 0x3b,
 0x21,
@@ -52601,14 +52637,14 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x13,
-0x7e0,
+0x7e3,
 0x2c,
 0x25,
 0x25,
 0x55,
-0x7e1,
+0x7e4,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -52617,23 +52653,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7e2,
+0x7e5,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -52650,15 +52686,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7e1,
+0x7e4,
 0x56,
 0xb3,
 0x2,
@@ -52666,9 +52702,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x7e1,
+0x7e4,
 0x56,
-0x762,
+0x765,
 0x1,
 0x21,
 0x29,
@@ -52677,23 +52713,23 @@ STk_instr STk_boot_code [] = {
 0x65,
 0x25,
 0x6a,
-0x71c,
+0x71f,
 0x55,
-0x71d,
+0x720,
 0x65,
 0x55,
-0x71e,
+0x721,
 0x25,
 0x6a,
-0x74e,
+0x751,
 0x55,
-0x7e3,
+0x7e6,
 0x56,
 0x3e,
 0x2,
 0x21,
 0x55,
-0x71f,
+0x722,
 0x25,
 0x53,
 0x29,
@@ -52711,22 +52747,22 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x71,
-0x722,
+0x725,
 0x7,
 0x71,
-0x769,
+0x76c,
 0x2,
 0x25,
 0x53,
 0x55,
-0x7e1,
+0x7e4,
 0x56,
 0xb3,
 0x2,
 0x2c,
 0x25,
 0x56,
-0x7e4,
+0x7e7,
 0x0,
 0x25,
 0x9,
@@ -52738,7 +52774,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x53,
 0x55,
-0x705,
+0x708,
 0x56,
 0xb3,
 0x2,
@@ -52758,7 +52794,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x55,
-0x7e5,
+0x7e8,
 0x56,
 0xd2,
 0x1,
@@ -52785,7 +52821,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x55,
-0x7e6,
+0x7e9,
 0x56,
 0xd2,
 0x1,
@@ -52801,25 +52837,25 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x21,
 0x55,
-0x7e7,
+0x7ea,
 0x56,
 0xdf,
 0x2,
 0x25,
 0x55,
-0x7e8,
+0x7eb,
 0x55,
-0x7e9,
+0x7ec,
 0x23,
 0xe,
 0xffff,
 0x25,
 0x55,
-0x7e8,
+0x7eb,
 0x55,
-0x7ea,
+0x7ed,
 0x55,
-0x7e8,
+0x7eb,
 0xc,
 0x3b,
 0x73,
@@ -52835,11 +52871,11 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x7e8,
+0x7eb,
 0xa,
 0x386,
 0x1f,
-0x7eb,
+0x7ee,
 0x23,
 0x46,
 0x2,
@@ -52874,9 +52910,9 @@ STk_instr STk_boot_code [] = {
 0xa,
 0x25,
 0x55,
-0x7ec,
+0x7ef,
 0x55,
-0x7ed,
+0x7f0,
 0x6c,
 0x4e,
 0x2,
@@ -52913,18 +52949,9 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x24,
 0x1f,
-0x7ec,
-0x1,
-0x1f,
-0x7ee,
-0x1,
-0x1f,
 0x7ef,
 0x1,
 0x1f,
-0x7f0,
-0x1,
-0x1f,
 0x7f1,
 0x1,
 0x1f,
@@ -52965,6 +52992,15 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x1f,
 0x7fe,
+0x1,
+0x1f,
+0x7ff,
+0x1,
+0x1f,
+0x800,
+0x1,
+0x1f,
+0x801,
 0x23,
 0x37,
 0x2,
@@ -53023,7 +53059,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x7ff,
+0x802,
 0x23,
 0xa1,
 0x4,
@@ -53048,7 +53084,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x800,
+0x803,
 0x4,
 0x15,
 0x25,
@@ -53064,7 +53100,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x800,
+0x803,
 0x4,
 0x16,
 0xc,
@@ -53098,7 +53134,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x800,
+0x803,
 0x4,
 0x73,
 0x2f0,
@@ -53139,7 +53175,7 @@ STk_instr STk_boot_code [] = {
 0x68,
 0x66,
 0x56,
-0x7ff,
+0x802,
 0x2,
 0x21,
 0x2b,
@@ -53188,7 +53224,7 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x24,
 0x1f,
-0x800,
+0x803,
 0x23,
 0x1ba,
 0x3,
@@ -53207,7 +53243,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x801,
+0x804,
 0x3,
 0x21,
 0x2b,
@@ -53231,7 +53267,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x6c,
-0x7ee,
+0x7f1,
 0x2,
 0x24,
 0x65,
@@ -53251,7 +53287,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x7f8,
+0x7fb,
 0x3,
 0x21,
 0x3f,
@@ -53261,7 +53297,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x802,
+0x805,
 0x56,
 0x185,
 0x2,
@@ -53279,7 +53315,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x6c,
-0x801,
+0x804,
 0x3,
 0x24,
 0x21,
@@ -53295,7 +53331,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x803,
+0x806,
 0x56,
 0x185,
 0x2,
@@ -53313,7 +53349,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x7ef,
+0x7f2,
 0x3,
 0x6e,
 0x23,
@@ -53326,7 +53362,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x6c,
-0x801,
+0x804,
 0x3,
 0x24,
 0x21,
@@ -53362,7 +53398,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x6c,
-0x7f0,
+0x7f3,
 0x4,
 0x1c,
 0xf2,
@@ -53387,7 +53423,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x6c,
-0x7f1,
+0x7f4,
 0x4,
 0x1c,
 0xd9,
@@ -53428,7 +53464,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x6c,
-0x7f2,
+0x7f5,
 0x5,
 0x24,
 0x25,
@@ -53443,7 +53479,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x6c,
-0x7f3,
+0x7f6,
 0x4,
 0x24,
 0x1c,
@@ -53469,7 +53505,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x6c,
-0x7f4,
+0x7f7,
 0x4,
 0x1c,
 0x87,
@@ -53499,7 +53535,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x6c,
-0x7f5,
+0x7f8,
 0x5,
 0x1c,
 0x69,
@@ -53521,7 +53557,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x7ef,
+0x7f2,
 0x3,
 0x6e,
 0x23,
@@ -53536,7 +53572,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x56,
-0x7ef,
+0x7f2,
 0x3,
 0x6e,
 0xc,
@@ -53547,7 +53583,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x56,
-0x7f6,
+0x7f9,
 0x3,
 0x3b,
 0x24,
@@ -53581,7 +53617,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x6c,
-0x7f6,
+0x7f9,
 0x3,
 0x24,
 0x21,
@@ -53605,7 +53641,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x7f6,
+0x7f9,
 0x3,
 0x3b,
 0x24,
@@ -53620,7 +53656,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x7f7,
+0x7fa,
 0x3,
 0x3b,
 0x24,
@@ -53630,11 +53666,11 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x6c,
-0x7ef,
+0x7f2,
 0x3,
 0x24,
 0x1f,
-0x801,
+0x804,
 0x23,
 0x15,
 0x3,
@@ -53649,7 +53685,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x6c,
-0x801,
+0x804,
 0x3,
 0x24,
 0x21,
@@ -53659,7 +53695,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x7f6,
+0x7f9,
 0x23,
 0x3d,
 0x3,
@@ -53689,7 +53725,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x56,
-0x801,
+0x804,
 0x3,
 0x6e,
 0xc,
@@ -53708,7 +53744,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x6c,
-0x801,
+0x804,
 0x3,
 0x24,
 0x21,
@@ -53724,7 +53760,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x7f7,
+0x7fa,
 0x23,
 0x50,
 0x2,
@@ -53741,7 +53777,7 @@ STk_instr STk_boot_code [] = {
 0x21,
 0x65,
 0x56,
-0x7ee,
+0x7f1,
 0x2,
 0x6e,
 0xd,
@@ -53749,7 +53785,7 @@ STk_instr STk_boot_code [] = {
 0x21,
 0x65,
 0x56,
-0x7ee,
+0x7f1,
 0x2,
 0x3b,
 0x24,
@@ -53770,7 +53806,7 @@ STk_instr STk_boot_code [] = {
 0x21,
 0x65,
 0x56,
-0x7ee,
+0x7f1,
 0x2,
 0x73,
 0x2f0,
@@ -53808,7 +53844,7 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x24,
 0x1f,
-0x7ee,
+0x7f1,
 0x23,
 0x18c,
 0x3,
@@ -53887,7 +53923,7 @@ STk_instr STk_boot_code [] = {
 0x55,
 0x1bc,
 0x55,
-0x804,
+0x807,
 0x6c,
 0x4e,
 0x2,
@@ -53911,7 +53947,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x400,
 0x56,
-0x801,
+0x804,
 0x3,
 0x21,
 0x3f,
@@ -53987,7 +54023,7 @@ STk_instr STk_boot_code [] = {
 0x55,
 0x1be,
 0x55,
-0x805,
+0x808,
 0x6c,
 0x4e,
 0x2,
@@ -54058,7 +54094,7 @@ STk_instr STk_boot_code [] = {
 0x55,
 0x1be,
 0x55,
-0x806,
+0x809,
 0x6c,
 0x4e,
 0x2,
@@ -54083,7 +54119,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x500,
 0x56,
-0x801,
+0x804,
 0x3,
 0x1c,
 0xd,
@@ -54192,7 +54228,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x201,
 0x6c,
-0x7ee,
+0x7f1,
 0x2,
 0x24,
 0x21,
@@ -54208,7 +54244,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x7f8,
+0x7fb,
 0x23,
 0x20,
 0x4,
@@ -54217,7 +54253,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x68,
 0x56,
-0x7f9,
+0x7fc,
 0x1,
 0x21,
 0x65,
@@ -54238,13 +54274,13 @@ STk_instr STk_boot_code [] = {
 0x101,
 0x65,
 0x56,
-0x7f6,
+0x7f9,
 0x3,
 0x3b,
 0x3b,
 0x24,
 0x1f,
-0x7f0,
+0x7f3,
 0x23,
 0x3d,
 0x4,
@@ -54283,7 +54319,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x801,
+0x804,
 0x3,
 0x21,
 0x3,
@@ -54303,13 +54339,13 @@ STk_instr STk_boot_code [] = {
 0x101,
 0x65,
 0x56,
-0x7f6,
+0x7f9,
 0x3,
 0x3b,
 0x3b,
 0x24,
 0x1f,
-0x7f1,
+0x7f4,
 0x23,
 0x3d,
 0x4,
@@ -54348,7 +54384,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x56,
-0x801,
+0x804,
 0x3,
 0x21,
 0x3,
@@ -54368,13 +54404,13 @@ STk_instr STk_boot_code [] = {
 0x101,
 0x65,
 0x56,
-0x7f6,
+0x7f9,
 0x3,
 0x3b,
 0x3b,
 0x24,
 0x1f,
-0x7f3,
+0x7f6,
 0x23,
 0x42,
 0x5,
@@ -54417,7 +54453,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x56,
-0x801,
+0x804,
 0x3,
 0x21,
 0x3,
@@ -54437,14 +54473,14 @@ STk_instr STk_boot_code [] = {
 0x101,
 0x65,
 0x56,
-0x7f6,
+0x7f9,
 0x3,
 0x3b,
 0x3b,
 0x3b,
 0x24,
 0x1f,
-0x7f2,
+0x7f5,
 0x23,
 0x74,
 0x4,
@@ -54515,10 +54551,10 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x807,
+0x80a,
 0x2,
 0x71,
-0x801,
+0x804,
 0x3,
 0x21,
 0x3,
@@ -54558,13 +54594,13 @@ STk_instr STk_boot_code [] = {
 0x101,
 0x65,
 0x56,
-0x7f6,
+0x7f9,
 0x3,
 0x3b,
 0x3b,
 0x24,
 0x1f,
-0x7f4,
+0x7f7,
 0x23,
 0x4b,
 0x5,
@@ -54610,7 +54646,7 @@ STk_instr STk_boot_code [] = {
 0x300,
 0x3b,
 0x71,
-0x7f6,
+0x7f9,
 0x3,
 0x3b,
 0x24,
@@ -54627,7 +54663,7 @@ STk_instr STk_boot_code [] = {
 0x101,
 0x65,
 0x56,
-0x7f6,
+0x7f9,
 0x3,
 0x6e,
 0x75,
@@ -54636,14 +54672,14 @@ STk_instr STk_boot_code [] = {
 0x101,
 0x65,
 0x56,
-0x7f6,
+0x7f9,
 0x3,
 0x3b,
 0x3b,
 0x3b,
 0x24,
 0x1f,
-0x7f5,
+0x7f8,
 0x23,
 0x90,
 0x3,
@@ -54661,7 +54697,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x7ef,
+0x7f2,
 0x3,
 0x6e,
 0xe,
@@ -54670,7 +54706,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x7ef,
+0x7f2,
 0x3,
 0x3b,
 0x24,
@@ -54692,7 +54728,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x7ef,
+0x7f2,
 0x3,
 0x73,
 0x2f0,
@@ -54768,7 +54804,7 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x21,
 0x55,
-0x808,
+0x80b,
 0x56,
 0x42f,
 0x2,
@@ -54791,7 +54827,7 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x24,
 0x1f,
-0x7ef,
+0x7f2,
 0x23,
 0x3c,
 0x1,
@@ -54855,7 +54891,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x7f9,
+0x7fc,
 0x23,
 0x3b,
 0x2,
@@ -54918,7 +54954,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x809,
+0x80c,
 0x23,
 0x32,
 0x2,
@@ -54972,7 +55008,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x80a,
+0x80d,
 0x23,
 0x39,
 0x1,
@@ -55033,7 +55069,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x80b,
+0x80e,
 0x23,
 0xf2,
 0x4,
@@ -55041,7 +55077,7 @@ STk_instr STk_boot_code [] = {
 0x68,
 0x65,
 0x56,
-0x7fa,
+0x7fd,
 0x2,
 0x1d,
 0x9e,
@@ -55053,7 +55089,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x103,
 0x6c,
-0x80b,
+0x80e,
 0x1,
 0x24,
 0x21,
@@ -55068,7 +55104,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x202,
 0x6c,
-0x80b,
+0x80e,
 0x1,
 0x24,
 0x21,
@@ -55114,7 +55150,7 @@ STk_instr STk_boot_code [] = {
 0x103,
 0x66,
 0x56,
-0x7fb,
+0x7fe,
 0x2,
 0x17,
 0xe,
@@ -55139,7 +55175,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x400,
 0x56,
-0x80c,
+0x80f,
 0x4,
 0x1d,
 0x2f,
@@ -55165,7 +55201,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x600,
 0x6c,
-0x80c,
+0x80f,
 0x4,
 0x24,
 0x21,
@@ -55184,7 +55220,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x500,
 0x6c,
-0x80c,
+0x80f,
 0x4,
 0x24,
 0x1,
@@ -55227,7 +55263,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x80c,
+0x80f,
 0x4,
 0x1d,
 0xe,
@@ -55241,7 +55277,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x6c,
-0x80c,
+0x80f,
 0x4,
 0x1c,
 0x20,
@@ -55279,7 +55315,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x80c,
+0x80f,
 0x23,
 0xda,
 0x4,
@@ -55287,7 +55323,7 @@ STk_instr STk_boot_code [] = {
 0x68,
 0x65,
 0x56,
-0x7fa,
+0x7fd,
 0x2,
 0x1d,
 0x90,
@@ -55299,7 +55335,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x103,
 0x6c,
-0x80b,
+0x80e,
 0x1,
 0x24,
 0x21,
@@ -55314,7 +55350,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x202,
 0x6c,
-0x80b,
+0x80e,
 0x1,
 0x24,
 0x21,
@@ -55346,7 +55382,7 @@ STk_instr STk_boot_code [] = {
 0x103,
 0x66,
 0x56,
-0x7fb,
+0x7fe,
 0x2,
 0x17,
 0xe,
@@ -55363,7 +55399,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x400,
 0x56,
-0x7fc,
+0x7ff,
 0x3,
 0x6e,
 0x23,
@@ -55378,7 +55414,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x500,
 0x6c,
-0x80d,
+0x810,
 0x4,
 0x24,
 0x21,
@@ -55395,7 +55431,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x400,
 0x56,
-0x80d,
+0x810,
 0x4,
 0x3b,
 0x21,
@@ -55419,7 +55455,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x500,
 0x56,
-0x80d,
+0x810,
 0x4,
 0x21,
 0x65,
@@ -55453,7 +55489,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x80d,
+0x810,
 0x4,
 0x6e,
 0xf,
@@ -55465,7 +55501,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x80d,
+0x810,
 0x4,
 0x73,
 0x43,
@@ -55501,7 +55537,7 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x24,
 0x1f,
-0x80d,
+0x810,
 0x23,
 0x95,
 0x4,
@@ -55509,7 +55545,7 @@ STk_instr STk_boot_code [] = {
 0x68,
 0x65,
 0x56,
-0x7fa,
+0x7fd,
 0x2,
 0x1d,
 0x45,
@@ -55527,7 +55563,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x7fc,
+0x7ff,
 0x3,
 0x16,
 0x25,
@@ -55535,7 +55571,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x102,
 0x56,
-0x7fd,
+0x800,
 0x2,
 0x17,
 0x25,
@@ -55558,7 +55594,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x6c,
-0x80e,
+0x811,
 0x4,
 0x24,
 0x21,
@@ -55576,7 +55612,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x80e,
+0x811,
 0x4,
 0x73,
 0x43,
@@ -55597,7 +55633,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x80e,
+0x811,
 0x4,
 0x6e,
 0xf,
@@ -55607,7 +55643,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x56,
-0x80e,
+0x811,
 0x4,
 0x3b,
 0x1c,
@@ -55654,7 +55690,7 @@ STk_instr STk_boot_code [] = {
 0xf,
 0x24,
 0x1f,
-0x80e,
+0x811,
 0x23,
 0x6a,
 0x3,
@@ -55673,7 +55709,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x56,
-0x7fa,
+0x7fd,
 0x2,
 0x1d,
 0x13,
@@ -55764,7 +55800,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x7fc,
+0x7ff,
 0x23,
 0xa1,
 0x2,
@@ -55806,7 +55842,7 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x3d,
 0x71,
-0x7fe,
+0x801,
 0x2,
 0x1d,
 0x8,
@@ -55882,7 +55918,7 @@ STk_instr STk_boot_code [] = {
 0x10c,
 0x66,
 0x56,
-0x7eb,
+0x7ee,
 0x2,
 0x1d,
 0x6,
@@ -55905,7 +55941,7 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x66,
 0x56,
-0x80a,
+0x80d,
 0x2,
 0x21,
 0xc,
@@ -55929,7 +55965,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x7fd,
+0x800,
 0x23,
 0x33,
 0x2,
@@ -55967,24 +56003,24 @@ STk_instr STk_boot_code [] = {
 0x100,
 0x65,
 0x6c,
-0x7fe,
+0x801,
 0x2,
 0x24,
 0x21,
 0x75,
 0x100,
 0x6c,
-0x7eb,
+0x7ee,
 0x2,
 0x24,
 0x21,
 0x66,
 0x6c,
-0x7eb,
+0x7ee,
 0x2,
 0x24,
 0x1f,
-0x7fe,
+0x801,
 0x23,
 0x1e,
 0x2,
@@ -56012,13 +56048,13 @@ STk_instr STk_boot_code [] = {
 0x101,
 0x65,
 0x6c,
-0x7ec,
+0x7ef,
 0x2,
 0x24,
 0x1,
 0x24,
 0x1f,
-0x7fb,
+0x7fe,
 0x23,
 0x19,
 0x2,
@@ -56047,7 +56083,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x7fa,
+0x7fd,
 0x23,
 0x8c,
 0x5,
@@ -56077,7 +56113,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x304,
 0x55,
-0x80f,
+0x812,
 0x75,
 0x200,
 0x6c,
@@ -56104,7 +56140,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x400,
 0x56,
-0x80c,
+0x80f,
 0x4,
 0x1d,
 0x3b,
@@ -56115,7 +56151,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x7f9,
+0x7fc,
 0x1,
 0x21,
 0x75,
@@ -56128,7 +56164,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x400,
 0x56,
-0x800,
+0x803,
 0x4,
 0x21,
 0x2b,
@@ -56147,7 +56183,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x500,
 0x56,
-0x80d,
+0x810,
 0x4,
 0x21,
 0x75,
@@ -56155,7 +56191,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x500,
 0x56,
-0x80e,
+0x811,
 0x4,
 0x21,
 0xc,
@@ -56163,7 +56199,7 @@ STk_instr STk_boot_code [] = {
 0x21,
 0x4f,
 0x6c,
-0x801,
+0x804,
 0x3,
 0x24,
 0x24,
@@ -56194,9 +56230,9 @@ STk_instr STk_boot_code [] = {
 0x9a,
 0x25,
 0x55,
-0x810,
+0x813,
 0x55,
-0x811,
+0x814,
 0x23,
 0x90,
 0xfffe,
@@ -56352,7 +56388,7 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x810,
+0x813,
 0x25,
 0x9,
 0x6c,
@@ -56400,7 +56436,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x55,
-0x812,
+0x815,
 0x56,
 0xd2,
 0x1,
@@ -56416,14 +56452,14 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x21,
 0x55,
-0x813,
+0x816,
 0x56,
 0xdf,
 0x2,
 0x9,
-0x814,
+0x817,
 0x1f,
-0x815,
+0x818,
 0x55,
 0x7e,
 0x55,
@@ -56431,7 +56467,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x816,
+0x819,
 0x25,
 0x56,
 0x1cb,
@@ -56445,7 +56481,7 @@ STk_instr STk_boot_code [] = {
 0x6e,
 0x25,
 0x55,
-0x817,
+0x81a,
 0x25,
 0x56,
 0x46f,
@@ -56462,7 +56498,7 @@ STk_instr STk_boot_code [] = {
 0x6a,
 0x399,
 0x55,
-0x818,
+0x81b,
 0x51,
 0x56,
 0x4b,
@@ -56473,17 +56509,17 @@ STk_instr STk_boot_code [] = {
 0x1d,
 0x4,
 0x9,
-0x819,
+0x81c,
 0x1c,
 0x1,
 0x3,
 0x21,
 0x55,
-0x81a,
+0x81d,
 0x55,
-0x81b,
+0x81e,
 0x55,
-0x81c,
+0x81f,
 0x25,
 0x25,
 0x56,
@@ -56492,31 +56528,31 @@ STk_instr STk_boot_code [] = {
 0x1d,
 0x4,
 0x9,
-0x81d,
+0x820,
 0x1c,
 0x1,
 0x3,
 0x21,
 0x55,
-0x81e,
+0x821,
 0x25,
 0x56,
 0x423,
 0x0,
 0x6e,
 0x56,
-0x81f,
+0x822,
 0x0,
 0x1d,
 0x4,
 0x9,
-0x820,
+0x823,
 0x1c,
 0x2,
 0x9,
-0x821,
+0x824,
 0x6f,
-0x815,
+0x818,
 0x3b,
 0x3b,
 0x3b,
@@ -56546,7 +56582,7 @@ STk_instr STk_boot_code [] = {
 0x680,
 0x24,
 0x1f,
-0x822,
+0x825,
 0x23,
 0x6a,
 0x1,
@@ -56567,7 +56603,7 @@ STk_instr STk_boot_code [] = {
 0x9,
 0x25,
 0x55,
-0x823,
+0x826,
 0x75,
 0x200,
 0x6c,
@@ -56656,7 +56692,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x824,
+0x827,
 0x23,
 0x8c,
 0x1,
@@ -56700,7 +56736,7 @@ STk_instr STk_boot_code [] = {
 0xa,
 0x25,
 0x55,
-0x825,
+0x828,
 0x75,
 0x100,
 0x56,
@@ -56710,7 +56746,7 @@ STk_instr STk_boot_code [] = {
 0x8,
 0x25,
 0x55,
-0x826,
+0x829,
 0x75,
 0x100,
 0x56,
@@ -56720,7 +56756,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x824,
+0x827,
 0x1,
 0x16,
 0xd,
@@ -56732,7 +56768,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x25,
 0x55,
-0x827,
+0x82a,
 0x65,
 0x56,
 0x3fe,
@@ -56742,7 +56778,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x828,
+0x82b,
 0x25,
 0x65,
 0x54,
@@ -56764,7 +56800,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x6b1,
+0x6b4,
 0x1,
 0x1e,
 0xd,
@@ -56778,7 +56814,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x6c,
-0x6b0,
+0x6b3,
 0x1,
 0x24,
 0x7,
@@ -56800,7 +56836,7 @@ STk_instr STk_boot_code [] = {
 0x7,
 0x24,
 0x1f,
-0x829,
+0x82c,
 0x23,
 0x12,
 0x1,
@@ -56822,7 +56858,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x82a,
+0x82d,
 0x23,
 0x53,
 0x1,
@@ -56909,7 +56945,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x82b,
+0x82e,
 0x23,
 0x193,
 0x1,
@@ -56919,9 +56955,9 @@ STk_instr STk_boot_code [] = {
 0x9,
 0x25,
 0x55,
-0x6d4,
+0x6d7,
 0x55,
-0x82c,
+0x82f,
 0x6c,
 0x4e,
 0x2,
@@ -56936,9 +56972,9 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x25,
 0x55,
-0x6d4,
+0x6d7,
 0x55,
-0x82d,
+0x830,
 0xc,
 0x3d,
 0x73,
@@ -57004,14 +57040,14 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x24,
 0x55,
-0x6d4,
+0x6d7,
 0x12,
 0x100,
 0x49,
 0x6,
 0x21,
 0x55,
-0x6d4,
+0x6d7,
 0x55,
 0x261,
 0x12,
@@ -57053,7 +57089,7 @@ STk_instr STk_boot_code [] = {
 0x1d,
 0x8,
 0x55,
-0x6d4,
+0x6d7,
 0x12,
 0x300,
 0x3e,
@@ -57061,7 +57097,7 @@ STk_instr STk_boot_code [] = {
 0x1c,
 0xab,
 0x55,
-0x6d4,
+0x6d7,
 0x12,
 0x100,
 0x49,
@@ -57117,23 +57153,23 @@ STk_instr STk_boot_code [] = {
 0xa,
 0x25,
 0x55,
-0x6d4,
+0x6d7,
 0x55,
-0x82e,
+0x831,
 0x6c,
 0x4e,
 0x2,
 0x1c,
 0x6a,
 0x55,
-0x6d4,
+0x6d7,
 0x12,
 0x100,
 0x49,
 0x6,
 0x21,
 0x55,
-0x6d4,
+0x6d7,
 0x12,
 0x300,
 0x3e,
@@ -57158,7 +57194,7 @@ STk_instr STk_boot_code [] = {
 0x4b,
 0x65,
 0x9,
-0x82f,
+0x832,
 0x63,
 0x3c,
 0x12,
@@ -57180,9 +57216,9 @@ STk_instr STk_boot_code [] = {
 0xa,
 0x25,
 0x55,
-0x6d4,
+0x6d7,
 0x55,
-0x830,
+0x833,
 0x6c,
 0x4e,
 0x2,
@@ -57213,7 +57249,7 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x24,
 0x55,
-0x6d4,
+0x6d7,
 0x12,
 0x400,
 0x3e,
@@ -57223,9 +57259,9 @@ STk_instr STk_boot_code [] = {
 0xa,
 0x25,
 0x55,
-0x6d4,
+0x6d7,
 0x55,
-0x831,
+0x834,
 0x75,
 0x200,
 0x6c,
@@ -57244,12 +57280,12 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x82b,
+0x82e,
 0x1,
 0x16,
 0x25,
 0x55,
-0x832,
+0x835,
 0x65,
 0x56,
 0x5e,
@@ -57268,7 +57304,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x67,
 0x56,
-0x6b1,
+0x6b4,
 0x1,
 0x1e,
 0x1,
@@ -57278,7 +57314,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x82a,
+0x82d,
 0x1,
 0x25,
 0x66,
@@ -57290,7 +57326,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x67,
 0x56,
-0x6b0,
+0x6b3,
 0x1,
 0x1c,
 0x4,
@@ -57307,7 +57343,7 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x24,
 0x55,
-0x6d4,
+0x6d7,
 0x12,
 0x200,
 0x3e,
@@ -57316,19 +57352,19 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x24,
 0x1f,
-0x833,
+0x836,
 0x25,
 0x55,
-0x6d4,
+0x6d7,
 0x55,
-0x834,
+0x837,
 0x23,
 0x7,
 0xffff,
 0x25,
 0x65,
 0x6c,
-0x833,
+0x836,
 0x1,
 0x24,
 0x21,
@@ -57340,7 +57376,7 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x6d4,
+0x6d7,
 0x25,
 0x9,
 0x6c,
@@ -57362,7 +57398,7 @@ STk_instr STk_boot_code [] = {
 0x643,
 0x25,
 0x55,
-0x835,
+0x838,
 0x56,
 0x6b,
 0x1,
@@ -57374,7 +57410,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x55,
-0x836,
+0x839,
 0x56,
 0xd2,
 0x1,
@@ -57390,7 +57426,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x21,
 0x55,
-0x837,
+0x83a,
 0x56,
 0xdf,
 0x2,
@@ -57403,33 +57439,33 @@ STk_instr STk_boot_code [] = {
 0x1dd,
 0x1,
 0x1f,
-0x838,
+0x83b,
 0x5,
 0x1f,
-0x839,
+0x83c,
 0x3,
 0x1f,
-0x83a,
+0x83d,
 0x25,
 0x56,
 0x0,
 0x0,
 0x1f,
-0x83b,
+0x83e,
 0x25,
 0x56,
 0x195,
 0x0,
 0x1f,
-0x83c,
+0x83f,
 0x25,
 0x56,
 0x6f,
 0x0,
 0x1f,
-0x83d,
+0x840,
 0x55,
-0x83e,
+0x841,
 0x55,
 0x504,
 0x55,
@@ -57451,27 +57487,27 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x21,
 0x55,
-0x83f,
+0x842,
 0x55,
 0x59d,
 0x55,
-0x840,
+0x843,
 0x3,
 0x3b,
 0x3b,
 0x21,
 0x55,
-0x841,
+0x844,
 0x55,
 0x59d,
 0x55,
-0x842,
+0x845,
 0x3,
 0x3b,
 0x3b,
 0x21,
 0x55,
-0x843,
+0x846,
 0x55,
 0x59d,
 0x55,
@@ -57481,11 +57517,11 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x21,
 0x55,
-0x844,
+0x847,
 0x55,
-0x845,
+0x848,
 0x55,
-0x846,
+0x849,
 0x55,
 0x59d,
 0x55,
@@ -57512,12 +57548,12 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x21,
 0x55,
-0x847,
+0x84a,
 0x3,
 0x3b,
 0x21,
 0x55,
-0x848,
+0x84b,
 0x55,
 0x504,
 0x55,
@@ -57529,9 +57565,9 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x21,
 0x55,
-0x83f,
+0x842,
 0x55,
-0x849,
+0x84c,
 0x3,
 0x3b,
 0x3b,
@@ -57544,7 +57580,7 @@ STk_instr STk_boot_code [] = {
 0x3b,
 0x3b,
 0x1f,
-0x84a,
+0x84d,
 0x25,
 0x4d,
 0x23,
@@ -57561,7 +57597,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x6a,
-0x84a,
+0x84d,
 0x56,
 0x280,
 0x2,
@@ -57583,25 +57619,25 @@ STk_instr STk_boot_code [] = {
 0x61,
 0x2,
 0x1f,
-0x84b,
+0x84e,
 0x23,
 0xe,
 0x1,
 0x25,
 0x25,
 0x56,
-0x84b,
+0x84e,
 0x0,
 0x21,
 0x65,
 0x55,
-0x84c,
+0x84f,
 0x6c,
 0x4b,
 0x3,
 0x24,
 0x1f,
-0x84d,
+0x850,
 0x23,
 0xb2,
 0x1,
@@ -57614,10 +57650,10 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x25,
 0x55,
-0x84e,
+0x851,
 0x65,
 0x55,
-0x84f,
+0x852,
 0x6c,
 0x42d,
 0x3,
@@ -57633,7 +57669,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x850,
+0x853,
 0x56,
 0x185,
 0x2,
@@ -57643,13 +57679,13 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x843,
+0x846,
 0x56,
-0x84d,
+0x850,
 0x1,
 0x6e,
 0x55,
-0x851,
+0x854,
 0x56,
 0x5e,
 0x1,
@@ -57678,7 +57714,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x852,
+0x855,
 0x56,
 0x185,
 0x2,
@@ -57694,7 +57730,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x853,
+0x856,
 0x56,
 0x185,
 0x2,
@@ -57702,18 +57738,18 @@ STk_instr STk_boot_code [] = {
 0xa,
 0x25,
 0x6a,
-0x83a,
+0x83d,
 0x54,
 0x6,
 0x6c,
-0x854,
+0x857,
 0x2,
 0x1c,
 0x47,
 0x25,
 0x65,
 0x55,
-0x855,
+0x858,
 0x56,
 0x185,
 0x2,
@@ -57725,13 +57761,13 @@ STk_instr STk_boot_code [] = {
 0x40a,
 0x0,
 0x73,
-0x856,
+0x859,
 0x1,
 0x1c,
 0x34,
 0x65,
 0x9,
-0x857,
+0x85a,
 0x63,
 0x10,
 0x25,
@@ -57746,18 +57782,18 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x1,
 0x73,
-0x858,
+0x85b,
 0x1,
 0x1c,
 0x1f,
 0x65,
 0x9,
-0x859,
+0x85c,
 0x63,
 0xc,
 0x25,
 0x55,
-0x85a,
+0x85d,
 0x25,
 0x56,
 0x1a4,
@@ -57774,7 +57810,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x21,
 0x55,
-0x85b,
+0x85e,
 0x12,
 0x200,
 0x3d,
@@ -57783,17 +57819,17 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x24,
 0x1f,
-0x85c,
+0x85f,
 0x3,
 0x1f,
-0x85d,
+0x860,
 0x23,
 0x12,
 0x1,
 0x25,
 0x65,
 0x6a,
-0x85d,
+0x860,
 0x23,
 0x7,
 0x2,
@@ -57808,7 +57844,7 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x24,
 0x1f,
-0x85e,
+0x861,
 0x23,
 0xa,
 0x2,
@@ -57816,13 +57852,13 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x3b,
 0x6f,
-0x85d,
+0x860,
 0x3b,
 0x13,
-0x85d,
+0x860,
 0x24,
 0x1f,
-0x85f,
+0x862,
 0x23,
 0x4e,
 0x4,
@@ -57844,7 +57880,7 @@ STk_instr STk_boot_code [] = {
 0xf,
 0x25,
 0x55,
-0x860,
+0x863,
 0xc,
 0x49,
 0x14,
@@ -57858,7 +57894,7 @@ STk_instr STk_boot_code [] = {
 0x1c,
 0x2,
 0x9,
-0x861,
+0x864,
 0x16,
 0x25,
 0x25,
@@ -57866,11 +57902,11 @@ STk_instr STk_boot_code [] = {
 0x55,
 0x504,
 0x56,
-0x84d,
+0x850,
 0x1,
 0x6e,
 0x55,
-0x862,
+0x865,
 0x66,
 0xc,
 0x3d,
@@ -57884,15 +57920,15 @@ STk_instr STk_boot_code [] = {
 0x55,
 0x5a3,
 0x55,
-0x863,
+0x866,
 0x55,
-0x849,
+0x84c,
 0x55,
-0x864,
+0x867,
 0x55,
 0x5a3,
 0x55,
-0x865,
+0x868,
 0x56,
 0x401,
 0x8,
@@ -57904,7 +57940,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x866,
+0x869,
 0x23,
 0xcc,
 0x2,
@@ -57956,11 +57992,11 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x866,
+0x869,
 0x4,
 0xc,
 0x13,
-0x83a,
+0x83d,
 0x24,
 0x24,
 0x25,
@@ -58004,14 +58040,14 @@ STk_instr STk_boot_code [] = {
 0x21,
 0x65,
 0x6c,
-0x867,
+0x86a,
 0x2,
 0x1c,
 0x44,
 0x25,
 0x66,
 0x6a,
-0x868,
+0x86b,
 0x56,
 0x3aa,
 0x2,
@@ -58021,7 +58057,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x55,
-0x869,
+0x86c,
 0x56,
 0x8c,
 0x2,
@@ -58031,7 +58067,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x86a,
+0x86d,
 0x1,
 0x25,
 0x65,
@@ -58044,14 +58080,14 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x86b,
+0x86e,
 0x56,
 0x5e,
 0x2,
 0x25,
 0x65,
 0x55,
-0x86c,
+0x86f,
 0x25,
 0x25,
 0x66,
@@ -58059,7 +58095,7 @@ STk_instr STk_boot_code [] = {
 0x529,
 0x1,
 0x71,
-0x86d,
+0x870,
 0x1,
 0x71,
 0x5e,
@@ -58067,7 +58103,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x86e,
+0x871,
 0x25,
 0x66,
 0x56,
@@ -58081,7 +58117,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x56,
-0x85e,
+0x861,
 0x1,
 0x21,
 0x2b,
@@ -58103,7 +58139,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x86f,
+0x872,
 0x75,
 0x101,
 0x6c,
@@ -58112,46 +58148,46 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x24,
 0x1f,
-0x867,
+0x86a,
 0x25,
 0x55,
-0x870,
+0x873,
 0x56,
 0x61,
 0x1,
 0x1f,
-0x871,
+0x874,
 0x25,
 0x4e,
 0x56,
 0x61,
 0x1,
 0x1f,
-0x872,
+0x875,
 0x23,
 0x5f,
 0x1,
 0x25,
 0x6a,
-0x839,
+0x83c,
 0x6,
 0x5f,
 0xa,
 0x25,
 0x55,
-0x873,
+0x876,
 0x6a,
-0x839,
+0x83c,
 0x56,
 0x5e,
 0x2,
 0x1c,
 0x2,
 0x9,
-0x874,
+0x877,
 0x6e,
 0x55,
-0x875,
+0x878,
 0x25,
 0x65,
 0x56,
@@ -58166,7 +58202,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x56,
-0x872,
+0x875,
 0x0,
 0x1d,
 0x2b,
@@ -58174,9 +58210,9 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x844,
+0x847,
 0x56,
-0x84d,
+0x850,
 0x1,
 0x21,
 0x66,
@@ -58188,9 +58224,9 @@ STk_instr STk_boot_code [] = {
 0x6e,
 0x25,
 0x55,
-0x83f,
+0x842,
 0x56,
-0x84d,
+0x850,
 0x1,
 0x21,
 0x65,
@@ -58200,14 +58236,14 @@ STk_instr STk_boot_code [] = {
 0x55,
 0x502,
 0x56,
-0x84d,
+0x850,
 0x1,
 0x71,
 0x401,
 0x4,
 0x21,
 0x55,
-0x876,
+0x879,
 0x56,
 0x5f,
 0x3,
@@ -58217,31 +58253,31 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x55,
-0x877,
+0x87a,
 0x56,
 0x5f,
 0x3,
 0x73,
-0x871,
+0x874,
 0x1,
 0x24,
 0x1f,
-0x878,
+0x87b,
 0x25,
 0x6a,
-0x878,
+0x87b,
 0x56,
 0x61,
 0x1,
 0x1f,
-0x879,
+0x87c,
 0x23,
 0x11,
 0x1,
 0x25,
 0x25,
 0x56,
-0x871,
+0x874,
 0x0,
 0x21,
 0x65,
@@ -58255,21 +58291,21 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x87a,
+0x87d,
 0x25,
 0x6a,
-0x87a,
+0x87d,
 0x56,
 0x61,
 0x1,
 0x1f,
-0x87b,
+0x87e,
 0x25,
 0x25,
 0x6a,
 0x399,
 0x55,
-0x87c,
+0x87f,
 0x4e,
 0x56,
 0x4b,
@@ -58278,7 +58314,7 @@ STk_instr STk_boot_code [] = {
 0x61,
 0x1,
 0x1f,
-0x87d,
+0x880,
 0x25,
 0x6a,
 0xb4,
@@ -58286,7 +58322,7 @@ STk_instr STk_boot_code [] = {
 0x61,
 0x1,
 0x1f,
-0x87e,
+0x881,
 0x23,
 0x51,
 0xffff,
@@ -58296,20 +58332,20 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x87f,
+0x882,
 0x55,
-0x880,
+0x883,
 0x56,
 0x4b,
 0x3,
 0x15,
 0x65,
 0x9,
-0x880,
+0x883,
 0x62,
 0x4,
 0xa,
-0x83b,
+0x83e,
 0x1c,
 0x1,
 0xc,
@@ -58318,20 +58354,20 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x881,
+0x884,
 0x55,
-0x882,
+0x885,
 0x56,
 0x4b,
 0x3,
 0x17,
 0x67,
 0x9,
-0x882,
+0x885,
 0x62,
 0x4,
 0xa,
-0x83c,
+0x83f,
 0x1c,
 0x1,
 0xe,
@@ -58340,20 +58376,20 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x883,
+0x886,
 0x55,
-0x884,
+0x887,
 0x56,
 0x4b,
 0x3,
 0x19,
 0x69,
 0x9,
-0x884,
+0x887,
 0x62,
 0x4,
 0xa,
-0x83d,
+0x840,
 0x1c,
 0x1,
 0x10,
@@ -58361,17 +58397,17 @@ STk_instr STk_boot_code [] = {
 0x5,
 0xd,
 0x13,
-0x83b,
+0x83e,
 0xf,
 0x13,
-0x83c,
+0x83f,
 0x11,
 0x5,
 0x13,
-0x83d,
+0x840,
 0x24,
 0x1f,
-0x885,
+0x888,
 0x23,
 0x15a,
 0xffff,
@@ -58381,20 +58417,20 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x87f,
+0x882,
 0x55,
-0x886,
+0x889,
 0x56,
 0x4b,
 0x3,
 0x15,
 0x65,
 0x9,
-0x886,
+0x889,
 0x62,
 0x4,
 0xa,
-0x83b,
+0x83e,
 0x1c,
 0x1,
 0xc,
@@ -58403,20 +58439,20 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x881,
+0x884,
 0x55,
-0x887,
+0x88a,
 0x56,
 0x4b,
 0x3,
 0x17,
 0x67,
 0x9,
-0x887,
+0x88a,
 0x62,
 0x4,
 0xa,
-0x83c,
+0x83f,
 0x1c,
 0x1,
 0xe,
@@ -58425,20 +58461,20 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x883,
+0x886,
 0x55,
-0x888,
+0x88b,
 0x56,
 0x4b,
 0x3,
 0x19,
 0x69,
 0x9,
-0x888,
+0x88b,
 0x62,
 0x4,
 0xa,
-0x83d,
+0x840,
 0x1c,
 0x1,
 0x10,
@@ -58449,10 +58485,10 @@ STk_instr STk_boot_code [] = {
 0x2b,
 0x1,
 0xa,
-0x839,
+0x83c,
 0x39,
 0x13,
-0x839,
+0x83c,
 0x25,
 0x25,
 0x4d,
@@ -58470,13 +58506,13 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x405,
 0x6c,
-0x867,
+0x86a,
 0x2,
 0x24,
 0x2d,
 0xdd,
 0xa,
-0x838,
+0x83b,
 0x1d,
 0x16,
 0x25,
@@ -58486,7 +58522,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x56,
-0x879,
+0x87c,
 0x0,
 0x26,
 0x1,
@@ -58495,7 +58531,7 @@ STk_instr STk_boot_code [] = {
 0x305,
 0x25,
 0x56,
-0x87b,
+0x87e,
 0x0,
 0x26,
 0x1,
@@ -58530,16 +58566,16 @@ STk_instr STk_boot_code [] = {
 0x1d,
 0x1c,
 0xa,
-0x839,
+0x83c,
 0x3a,
 0x13,
-0x839,
+0x83c,
 0x2,
 0x1b,
 0x300,
 0x25,
 0x55,
-0x889,
+0x88c,
 0x56,
 0x71,
 0x1,
@@ -58579,7 +58615,7 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x3e,
 0x71,
-0x85c,
+0x85f,
 0x1,
 0x1c,
 0x6f,
@@ -58599,7 +58635,7 @@ STk_instr STk_boot_code [] = {
 0x5e,
 0xffff,
 0xa,
-0x838,
+0x83b,
 0x1d,
 0x57,
 0xc,
@@ -58629,13 +58665,13 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x846,
+0x849,
 0x56,
-0x84d,
+0x850,
 0x1,
 0x6e,
 0x55,
-0x88a,
+0x88d,
 0xc,
 0x49,
 0x6,
@@ -58721,36 +58757,36 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x24,
 0x1f,
-0x88b,
+0x88e,
 0x23,
 0xde,
 0x0,
 0x25,
 0x56,
-0x88c,
+0x88f,
 0x0,
 0xa,
-0x838,
+0x83b,
 0x1d,
 0xc3,
 0x25,
 0x56,
-0x84b,
+0x84e,
 0x0,
 0x1e,
 0x8,
 0x25,
 0x55,
-0x83e,
+0x841,
 0x56,
-0x84b,
+0x84e,
 0x1,
 0x1c,
 0x1,
 0x7,
 0x25,
 0x56,
-0x87d,
+0x880,
 0x0,
 0x1d,
 0xab,
@@ -58768,7 +58804,7 @@ STk_instr STk_boot_code [] = {
 0x15,
 0x25,
 0x55,
-0x88d,
+0x890,
 0x25,
 0x56,
 0x1cb,
@@ -58782,14 +58818,14 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x16,
 0x9,
-0x88e,
+0x891,
 0x17,
 0x25,
 0x55,
-0x88f,
+0x892,
 0x25,
 0x56,
-0x890,
+0x893,
 0x0,
 0x6e,
 0x56,
@@ -58799,9 +58835,9 @@ STk_instr STk_boot_code [] = {
 0x6a,
 0x399,
 0x55,
-0x891,
+0x894,
 0x55,
-0x892,
+0x895,
 0x56,
 0x4b,
 0x3,
@@ -58810,31 +58846,31 @@ STk_instr STk_boot_code [] = {
 0x1d,
 0x4,
 0x9,
-0x893,
+0x896,
 0x1c,
 0x2,
 0x9,
-0x894,
+0x897,
 0x71,
 0x5e,
 0x5,
 0x18,
 0x9,
-0x895,
+0x898,
 0x19,
 0x25,
 0x55,
 0x502,
 0x56,
-0x84d,
+0x850,
 0x1,
 0x1a,
 0x5,
 0x25,
 0x55,
-0x846,
+0x849,
 0x56,
-0x84d,
+0x850,
 0x1,
 0x1a,
 0x6,
@@ -58846,7 +58882,7 @@ STk_instr STk_boot_code [] = {
 0x5,
 0x21,
 0x55,
-0x896,
+0x899,
 0x11,
 0x6,
 0x21,
@@ -58867,7 +58903,7 @@ STk_instr STk_boot_code [] = {
 0x5,
 0x21,
 0x55,
-0x897,
+0x89a,
 0x11,
 0x6,
 0x21,
@@ -58888,7 +58924,7 @@ STk_instr STk_boot_code [] = {
 0x5,
 0x21,
 0x55,
-0x898,
+0x89b,
 0x11,
 0x6,
 0x21,
@@ -58909,7 +58945,7 @@ STk_instr STk_boot_code [] = {
 0x5,
 0x21,
 0x55,
-0x899,
+0x89c,
 0x11,
 0x6,
 0x21,
@@ -58932,22 +58968,22 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x56,
-0x87e,
+0x881,
 0x0,
 0x26,
 0x0,
 0x25,
 0x56,
-0x88b,
+0x88e,
 0x0,
 0x25,
 0x51,
 0x6c,
-0x86a,
+0x86d,
 0x1,
 0x24,
 0x1f,
-0x89a,
+0x89d,
 0x25,
 0x9,
 0x6c,
@@ -58958,7 +58994,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x53,
 0x55,
-0x835,
+0x838,
 0x56,
 0xb3,
 0x2,
@@ -58966,10 +59002,10 @@ STk_instr STk_boot_code [] = {
 0xa,
 0x6e,
 0x2d,
-0x21f,
+0x224,
 0x25,
 0x55,
-0x89b,
+0x89e,
 0x56,
 0x6b,
 0x1,
@@ -58981,7 +59017,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x55,
-0x89c,
+0x89f,
 0x56,
 0xd2,
 0x1,
@@ -58997,28 +59033,28 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x21,
 0x55,
-0x89d,
+0x8a0,
 0x56,
 0xdf,
 0x2,
 0x1,
 0x1f,
-0x89e,
+0x8a1,
 0x1,
 0x1f,
-0x89f,
+0x8a2,
 0x1,
 0x1f,
-0x8a0,
+0x8a3,
 0x1,
 0x1f,
-0x8a1,
+0x8a4,
 0x1,
 0x1f,
-0x8a2,
+0x8a5,
 0x1,
 0x1f,
-0x8a3,
+0x8a6,
 0x23,
 0x53,
 0xffff,
@@ -59028,7 +59064,7 @@ STk_instr STk_boot_code [] = {
 0x1d,
 0x4,
 0x9,
-0x8a4,
+0x8a7,
 0x1c,
 0xd,
 0x25,
@@ -59070,7 +59106,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x89e,
+0x8a1,
 0x1,
 0x21,
 0x2b,
@@ -59085,7 +59121,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x55,
-0x8a5,
+0x8a8,
 0x56,
 0x110,
 0x2,
@@ -59097,7 +59133,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x89f,
+0x8a2,
 0x1,
 0x1c,
 0x1,
@@ -59105,7 +59141,7 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x24,
 0x1f,
-0x8a6,
+0x8a9,
 0x23,
 0xb0,
 0x1,
@@ -59119,11 +59155,11 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x8a7,
+0x8aa,
 0x55,
-0x8a8,
+0x8ab,
 0x55,
-0x8a9,
+0x8ac,
 0x65,
 0x56,
 0x5c2,
@@ -59149,13 +59185,13 @@ STk_instr STk_boot_code [] = {
 0x62,
 0x3,
 0x9,
-0x8aa,
+0x8ad,
 0x24,
 0x25,
 0x25,
 0x65,
 0x56,
-0x8ab,
+0x8ae,
 0x1,
 0x21,
 0x2b,
@@ -59164,18 +59200,18 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x8ac,
+0x8af,
 0x1,
 0xc,
 0x24,
 0x24,
 0x13,
-0x89e,
+0x8a1,
 0x25,
 0x55,
-0x8ad,
+0x8b0,
 0x55,
-0x8ae,
+0x8b1,
 0x55,
 0x5d3,
 0x75,
@@ -59184,89 +59220,89 @@ STk_instr STk_boot_code [] = {
 0x5c2,
 0x4,
 0x13,
-0x89f,
+0x8a2,
 0x25,
 0x55,
-0x8af,
+0x8b2,
 0x55,
-0x8b0,
+0x8b3,
 0x55,
-0x8b1,
+0x8b4,
 0x75,
 0x100,
 0x56,
 0x5c2,
 0x4,
 0x13,
-0x8a0,
+0x8a3,
 0x25,
 0x55,
-0x8b2,
+0x8b5,
 0x55,
-0x8b3,
+0x8b6,
 0x55,
-0x8b1,
+0x8b4,
 0x75,
 0x100,
 0x56,
 0x5c2,
 0x4,
 0x13,
-0x8a1,
+0x8a4,
 0x25,
 0x55,
-0x8b4,
+0x8b7,
 0x55,
-0x8b5,
+0x8b8,
 0x56,
-0x8b6,
+0x8b9,
 0x2,
 0x1d,
 0x1a,
 0x25,
 0x55,
-0x8b7,
+0x8ba,
 0x55,
-0x8b8,
+0x8bb,
 0x55,
-0x8b1,
+0x8b4,
 0x75,
 0x100,
 0x56,
 0x5c2,
 0x4,
 0x13,
-0x8a3,
+0x8a6,
 0x25,
 0x55,
-0x8b9,
+0x8bc,
 0x75,
 0x100,
 0x56,
-0x8b6,
+0x8b9,
 0x2,
 0x13,
-0x8a2,
+0x8a5,
 0x1c,
 0x1,
 0x7,
 0x25,
 0x25,
 0x55,
-0x8ba,
+0x8bd,
 0x55,
-0x8bb,
+0x8be,
 0x56,
-0x8b6,
+0x8b9,
 0x2,
 0x1d,
 0x4,
 0x9,
-0x8bc,
+0x8bf,
 0x1c,
 0x2,
 0x9,
-0x89e,
+0x8a1,
 0x21,
 0x29,
 0x1,
@@ -59274,7 +59310,7 @@ STk_instr STk_boot_code [] = {
 0x6a,
 0x399,
 0x55,
-0x891,
+0x894,
 0x65,
 0x56,
 0x4f,
@@ -59285,7 +59321,7 @@ STk_instr STk_boot_code [] = {
 0x2e,
 0x24,
 0x1f,
-0x8bd,
+0x8c0,
 0x23,
 0x4d,
 0x1,
@@ -59366,15 +59402,15 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x24,
 0x1f,
-0x8be,
+0x8c1,
 0x25,
 0x6a,
-0x8be,
+0x8c1,
 0x56,
 0x61,
 0x1,
 0x1f,
-0x8bf,
+0x8c2,
 0x25,
 0x4f,
 0x29,
@@ -59389,7 +59425,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x25,
 0x56,
-0x8bf,
+0x8c2,
 0x0,
 0x26,
 0x1,
@@ -59423,59 +59459,64 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x2c,
 0x1f,
-0x8c0,
+0x8c3,
 0x7,
 0x23,
-0x42,
+0x47,
 0x0,
 0x2a,
-0x2,
+0x3,
 0x25,
 0x56,
-0x8c1,
+0x8c4,
 0x0,
 0x15,
 0x25,
+0x56,
+0x686,
+0x0,
+0x16,
+0x25,
 0x25,
 0x55,
-0x8c2,
+0x8c5,
 0x65,
 0x56,
 0x5f,
 0x2,
 0x71,
-0x8bd,
+0x8c0,
 0x1,
 0x1e,
 0xe,
 0x25,
 0x25,
 0x55,
-0x8c3,
+0x8c6,
 0x65,
 0x56,
 0x5f,
 0x2,
 0x71,
-0x8bd,
+0x8c0,
 0x1,
 0x1e,
 0x1,
 0x1,
-0x16,
-0xd,
+0x17,
+0xe,
 0x1d,
 0xd,
 0x25,
 0x25,
 0x55,
-0x8c4,
-0x65,
+0x8c7,
+0x66,
 0x56,
 0x5f,
 0x2,
 0x71,
-0x6a4,
+0x6a7,
 0x1,
 0x1c,
 0x1,
@@ -59484,17 +59525,17 @@ STk_instr STk_boot_code [] = {
 0x8,
 0x25,
 0x6a,
-0x8c0,
+0x8c3,
 0x56,
-0x8c5,
+0x8c8,
 0x1,
 0x1c,
 0x1,
 0x7,
-0xd,
+0xe,
 0x24,
 0x1f,
-0x8c6,
+0x8c9,
 0x25,
 0x9,
 0x6c,
@@ -59505,7 +59546,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x53,
 0x55,
-0x89b,
+0x89e,
 0x56,
 0xb3,
 0x2,
@@ -59516,7 +59557,7 @@ STk_instr STk_boot_code [] = {
 0x192,
 0x25,
 0x55,
-0x8c7,
+0x8ca,
 0x56,
 0x6b,
 0x1,
@@ -59528,7 +59569,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x55,
-0x8c8,
+0x8cb,
 0x56,
 0xd2,
 0x1,
@@ -59544,7 +59585,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x21,
 0x55,
-0x8c9,
+0x8cc,
 0x56,
 0xdf,
 0x2,
@@ -59554,19 +59595,19 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x56,
-0x879,
+0x87c,
 0x0,
 0x6e,
 0x55,
-0x8ca,
+0x8cd,
 0x56,
-0x691,
+0x694,
 0x1,
 0x6e,
 0x6a,
 0x399,
 0x55,
-0x891,
+0x894,
 0x4d,
 0x56,
 0x4b,
@@ -59576,13 +59617,13 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x65,
 0x9,
-0x8bc,
+0x8bf,
 0x62,
 0x7,
 0x25,
 0x4d,
 0x56,
-0x872,
+0x875,
 0x1,
 0x1c,
 0x1e,
@@ -59592,9 +59633,9 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x25,
 0x55,
-0x8cb,
+0x8ce,
 0x55,
-0x8cc,
+0x8cf,
 0x56,
 0x3ec,
 0x2,
@@ -59606,30 +59647,30 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x25,
 0x55,
-0x8cd,
+0x8d0,
 0x55,
-0x8ce,
+0x8d1,
 0x6c,
 0x3ec,
 0x2,
 0x24,
 0x71,
-0x879,
+0x87c,
 0x1,
 0x25,
 0x23,
 0x4,
 0x1,
 0x9,
-0x8cf,
+0x8d2,
 0x24,
 0x71,
-0x87b,
+0x87e,
 0x1,
 0x25,
 0x66,
 0x56,
-0x8a0,
+0x8a3,
 0x1,
 0x25,
 0x23,
@@ -59639,16 +59680,16 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x6c,
-0x8a1,
+0x8a4,
 0x1,
 0x24,
 0x71,
-0x8d0,
+0x8d3,
 0x1,
 0x2a,
 0x4,
 0x9,
-0x8d1,
+0x8d4,
 0x15,
 0x4,
 0x16,
@@ -59659,10 +59700,10 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x56,
-0x871,
+0x874,
 0x0,
 0x71,
-0x8a6,
+0x8a9,
 0x1,
 0x21,
 0x2b,
@@ -59680,7 +59721,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x8d2,
+0x8d5,
 0x1,
 0x1b,
 0x200,
@@ -59689,10 +59730,10 @@ STk_instr STk_boot_code [] = {
 0x201,
 0x25,
 0x55,
-0x8d3,
+0x8d6,
 0x25,
 0x6a,
-0x871,
+0x874,
 0x56,
 0x4c,
 0x1,
@@ -59724,14 +59765,14 @@ STk_instr STk_boot_code [] = {
 0x1d,
 0xa,
 0x9,
-0x8d4,
+0x8d7,
 0x1b,
 0x300,
 0x4,
 0x1b,
 0x301,
 0x9,
-0x8aa,
+0x8ad,
 0x24,
 0x75,
 0x301,
@@ -59749,7 +59790,7 @@ STk_instr STk_boot_code [] = {
 0x1b,
 0x301,
 0x9,
-0x8d5,
+0x8d8,
 0x1c,
 0x36,
 0x25,
@@ -59803,7 +59844,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x6c,
-0x8d6,
+0x8d9,
 0x1,
 0x24,
 0x24,
@@ -59839,7 +59880,7 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x0,
 0x9,
-0x8aa,
+0x8ad,
 0x24,
 0x1,
 0x24,
@@ -59854,14 +59895,14 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x25,
 0x55,
-0x87f,
+0x882,
 0x68,
 0x6c,
-0x885,
+0x888,
 0x2,
 0x24,
 0x1f,
-0x8d7,
+0x8da,
 0x23,
 0x23,
 0x0,
@@ -59870,7 +59911,7 @@ STk_instr STk_boot_code [] = {
 0x6a,
 0x399,
 0x55,
-0x8d8,
+0x8db,
 0x4e,
 0x56,
 0x4b,
@@ -59883,7 +59924,7 @@ STk_instr STk_boot_code [] = {
 0x6,
 0x25,
 0x56,
-0x8c6,
+0x8c9,
 0x0,
 0x1c,
 0x1,
@@ -59892,15 +59933,15 @@ STk_instr STk_boot_code [] = {
 0x7,
 0x25,
 0x6a,
-0x8d7,
+0x8da,
 0x6c,
-0x87e,
+0x881,
 0x1,
 0x24,
 0x7,
 0x24,
 0x1f,
-0x8d9,
+0x8dc,
 0x25,
 0x9,
 0x6c,
@@ -59911,23 +59952,23 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x53,
 0x55,
-0x8c7,
+0x8ca,
 0x56,
 0xb3,
 0x2,
 0x2e,
 0x25,
 0x55,
-0x8da,
+0x8dd,
 0x55,
-0x8db,
+0x8de,
 0x23,
 0x7,
 0xffff,
 0x25,
 0x65,
 0x6c,
-0x8dc,
+0x8df,
 0x1,
 0x24,
 0x21,
@@ -59939,19 +59980,19 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x8da,
+0x8dd,
 0x25,
 0x55,
-0x8dd,
+0x8e0,
 0x55,
-0x8de,
+0x8e1,
 0x23,
 0x7,
 0xffff,
 0x25,
 0x65,
 0x6c,
-0x8df,
+0x8e2,
 0x1,
 0x24,
 0x21,
@@ -59963,12 +60004,12 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x8dd,
+0x8e0,
 0x25,
 0x55,
-0x8e0,
+0x8e3,
 0x55,
-0x8e1,
+0x8e4,
 0x23,
 0x8,
 0xfffe,
@@ -59976,7 +60017,7 @@ STk_instr STk_boot_code [] = {
 0x66,
 0x65,
 0x6c,
-0x8e2,
+0x8e5,
 0x2,
 0x24,
 0x21,
@@ -59988,12 +60029,12 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x8e0,
+0x8e3,
 0x25,
 0x55,
-0x8e3,
+0x8e6,
 0x55,
-0x8e4,
+0x8e7,
 0x23,
 0x9,
 0xffff,
@@ -60002,7 +60043,7 @@ STk_instr STk_boot_code [] = {
 0xc,
 0x3b,
 0x73,
-0x8e5,
+0x8e8,
 0x1,
 0x24,
 0x21,
@@ -60014,17 +60055,17 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x8e3,
+0x8e6,
 0x25,
 0x55,
-0x8e6,
+0x8e9,
 0x55,
-0x8e7,
+0x8ea,
 0x23,
 0xb,
 0xfffe,
 0x55,
-0x8e3,
+0x8e6,
 0xc,
 0x3b,
 0x21,
@@ -60042,7 +60083,51 @@ STk_instr STk_boot_code [] = {
 0x26,
 0x4,
 0x1f,
-0x8e6,
+0x8e9,
+0x23,
+0x28,
+0xffff,
+0x25,
+0x6a,
+0x8eb,
+0x2b,
+0x1,
+0x25,
+0x55,
+0x8ec,
+0x4d,
+0x56,
+0x325,
+0x2,
+0x65,
+0xa,
+0x8eb,
+0x62,
+0xd,
+0x25,
+0x55,
+0x6ca,
+0x55,
+0x8ed,
+0x55,
+0x8eb,
+0x55,
+0x8ec,
+0x6c,
+0x4e,
+0x4,
+0x24,
+0x25,
+0x6a,
+0x8eb,
+0x75,
+0x100,
+0x6c,
+0x3d,
+0x2,
+0x24,
+0x1f,
+0x8eb,
 0x23,
 0x28,
 0xffff,
@@ -60053,7 +60138,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x25,
 0x55,
-0x8e9,
+0x8ee,
 0x4d,
 0x56,
 0x325,
@@ -60065,13 +60150,13 @@ STk_instr STk_boot_code [] = {
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
 0x8e8,
 0x55,
-0x8e9,
+0x8ee,
 0x6c,
 0x4e,
 0x4,
@@ -60097,7 +60182,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x25,
 0x55,
-0x8eb,
+0x8ef,
 0x4d,
 0x56,
 0x325,
@@ -60109,13 +60194,13 @@ STk_instr STk_boot_code [] = {
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
 0x8e5,
 0x55,
-0x8eb,
+0x8ef,
 0x6c,
 0x4e,
 0x4,
@@ -60136,81 +60221,37 @@ STk_instr STk_boot_code [] = {
 0xffff,
 0x25,
 0x6a,
-0x8e2,
+0x8f0,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8ec,
+0x8ef,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x8e2,
+0x8f0,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
-0x55,
-0x8ea,
-0x55,
-0x8e2,
-0x55,
-0x8ec,
-0x6c,
-0x4e,
-0x4,
-0x24,
-0x25,
-0x6a,
-0x8e2,
-0x75,
-0x100,
-0x6c,
-0x3d,
-0x2,
-0x24,
-0x1f,
-0x8e2,
-0x23,
-0x28,
-0xffff,
-0x25,
-0x6a,
-0x8ed,
-0x2b,
-0x1,
-0x25,
+0x6ca,
 0x55,
-0x8ec,
-0x4d,
-0x56,
-0x325,
-0x2,
-0x65,
-0xa,
 0x8ed,
-0x62,
-0xd,
-0x25,
 0x55,
-0x6c7,
-0x55,
-0x8ea,
-0x55,
-0x8ed,
+0x8f0,
 0x55,
-0x8ec,
+0x8ef,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x8ed,
+0x8f0,
 0x75,
 0x100,
 0x6c,
@@ -60218,43 +60259,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x8ed,
+0x8f0,
 0x23,
 0x28,
 0xffff,
 0x25,
 0x6a,
-0x8dc,
+0x8df,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8ee,
+0x8f1,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x8dc,
+0x8df,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
-0x8dc,
+0x8df,
 0x55,
-0x8ee,
+0x8f1,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x8dc,
+0x8df,
 0x75,
 0x100,
 0x6c,
@@ -60262,43 +60303,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x8dc,
+0x8df,
 0x23,
 0x28,
 0xffff,
 0x25,
 0x6a,
-0x8df,
+0x8e2,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8ee,
+0x8f1,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x8df,
+0x8e2,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
-0x8df,
+0x8e2,
 0x55,
-0x8ee,
+0x8f1,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x8df,
+0x8e2,
 0x75,
 0x100,
 0x6c,
@@ -60306,43 +60347,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x8df,
+0x8e2,
 0x23,
 0x28,
 0xffff,
 0x25,
 0x6a,
-0x8ef,
+0x8f2,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8f0,
+0x8f3,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x8ef,
+0x8f2,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
-0x8ef,
+0x8f2,
 0x55,
-0x8f0,
+0x8f3,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x8ef,
+0x8f2,
 0x75,
 0x100,
 0x6c,
@@ -60350,43 +60391,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x8ef,
+0x8f2,
 0x23,
 0x28,
 0xffff,
 0x25,
 0x6a,
-0x8f1,
+0x8f4,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8f0,
+0x8f3,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x8f1,
+0x8f4,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
-0x8f1,
+0x8f4,
 0x55,
-0x8f0,
+0x8f3,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x8f1,
+0x8f4,
 0x75,
 0x100,
 0x6c,
@@ -60394,43 +60435,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x8f1,
+0x8f4,
 0x23,
 0x28,
 0xffff,
 0x25,
 0x6a,
-0x8f2,
+0x8f5,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8f3,
+0x8f6,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x8f2,
+0x8f5,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
-0x8f2,
+0x8f5,
 0x55,
-0x8f3,
+0x8f6,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x8f2,
+0x8f5,
 0x75,
 0x100,
 0x6c,
@@ -60438,43 +60479,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x8f2,
+0x8f5,
 0x23,
 0x28,
 0xffff,
 0x25,
 0x6a,
-0x8f4,
+0x8f7,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8f5,
+0x8f8,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x8f4,
+0x8f7,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
-0x8f4,
+0x8f7,
 0x55,
-0x8f5,
+0x8f8,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x8f4,
+0x8f7,
 0x75,
 0x100,
 0x6c,
@@ -60482,43 +60523,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x8f4,
+0x8f7,
 0x23,
 0x28,
 0xffff,
 0x25,
 0x6a,
-0x8f6,
+0x8f9,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8f7,
+0x8fa,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x8f6,
+0x8f9,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
-0x8f6,
+0x8f9,
 0x55,
-0x8f7,
+0x8fa,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x8f6,
+0x8f9,
 0x75,
 0x100,
 0x6c,
@@ -60526,43 +60567,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x8f6,
+0x8f9,
 0x23,
 0x28,
 0xffff,
 0x25,
 0x6a,
-0x8f8,
+0x8fb,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8f7,
+0x8fa,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x8f8,
+0x8fb,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
-0x8f8,
+0x8fb,
 0x55,
-0x8f7,
+0x8fa,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x8f8,
+0x8fb,
 0x75,
 0x100,
 0x6c,
@@ -60570,43 +60611,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x8f8,
+0x8fb,
 0x23,
 0x28,
 0xffff,
 0x25,
 0x6a,
-0x8f9,
+0x8fc,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8fa,
+0x8fd,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x8f9,
+0x8fc,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
-0x8f9,
+0x8fc,
 0x55,
-0x8fa,
+0x8fd,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x8f9,
+0x8fc,
 0x75,
 0x100,
 0x6c,
@@ -60614,43 +60655,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x8f9,
+0x8fc,
 0x23,
 0x28,
 0xffff,
 0x25,
 0x6a,
-0x8fb,
+0x8fe,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8fa,
+0x8fd,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x8fb,
+0x8fe,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
-0x8fb,
+0x8fe,
 0x55,
-0x8fa,
+0x8fd,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x8fb,
+0x8fe,
 0x75,
 0x100,
 0x6c,
@@ -60658,43 +60699,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x8fb,
+0x8fe,
 0x23,
 0x28,
 0xffff,
 0x25,
 0x6a,
-0x8fc,
+0x8ff,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8fd,
+0x900,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x8fc,
+0x8ff,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
-0x8fc,
+0x8ff,
 0x55,
-0x8fd,
+0x900,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x8fc,
+0x8ff,
 0x75,
 0x100,
 0x6c,
@@ -60702,43 +60743,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x8fc,
+0x8ff,
 0x23,
 0x28,
 0xffff,
 0x25,
 0x6a,
-0x8fe,
+0x901,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8fd,
+0x900,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x8fe,
+0x901,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
-0x8fe,
+0x901,
 0x55,
-0x8fd,
+0x900,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x8fe,
+0x901,
 0x75,
 0x100,
 0x6c,
@@ -60746,43 +60787,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x8fe,
+0x901,
 0x23,
 0x28,
 0xffff,
 0x25,
 0x6a,
-0x8ff,
+0x902,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8fd,
+0x900,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x8ff,
+0x902,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
-0x8ff,
+0x902,
 0x55,
-0x8fd,
+0x900,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x8ff,
+0x902,
 0x75,
 0x100,
 0x6c,
@@ -60790,43 +60831,43 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x8ff,
+0x902,
 0x23,
 0x28,
 0xffff,
 0x25,
 0x6a,
-0x900,
+0x903,
 0x2b,
 0x1,
 0x25,
 0x55,
-0x8fd,
+0x900,
 0x4d,
 0x56,
 0x325,
 0x2,
 0x65,
 0xa,
-0x900,
+0x903,
 0x62,
 0xd,
 0x25,
 0x55,
-0x6c7,
+0x6ca,
 0x55,
-0x8ea,
+0x8ed,
 0x55,
-0x900,
+0x903,
 0x55,
-0x8fd,
+0x900,
 0x6c,
 0x4e,
 0x4,
 0x24,
 0x25,
 0x6a,
-0x900,
+0x903,
 0x75,
 0x100,
 0x6c,
@@ -60834,7 +60875,7 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x24,
 0x1f,
-0x900,
+0x903,
 0x25,
 0x25,
 0x56,
@@ -60842,7 +60883,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x55,
-0x901,
+0x904,
 0x56,
 0xd2,
 0x1,
@@ -60902,7 +60943,7 @@ STk_instr STk_boot_code [] = {
 0x80e,
 0x25,
 0x55,
-0x902,
+0x905,
 0x56,
 0x6b,
 0x1,
@@ -60914,7 +60955,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x55,
-0x903,
+0x906,
 0x56,
 0xd2,
 0x1,
@@ -60925,9 +60966,9 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x25,
 0x55,
-0x904,
+0x907,
 0x55,
-0x905,
+0x908,
 0x23,
 0x17,
 0xffff,
@@ -60955,14 +60996,14 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x21,
 0x55,
-0x902,
+0x905,
 0x9,
 0x7f,
 0xa9,
 0x26,
 0x4,
 0x1f,
-0x904,
+0x907,
 0x7,
 0x1f,
 0x97,
@@ -60971,7 +61012,7 @@ STk_instr STk_boot_code [] = {
 0x2d8,
 0x7,
 0x1f,
-0x906,
+0x909,
 0x7,
 0x1f,
 0x261,
@@ -61010,10 +61051,10 @@ STk_instr STk_boot_code [] = {
 0x2c9,
 0x7,
 0x1f,
-0x810,
+0x813,
 0x7,
 0x1f,
-0x7e8,
+0x7eb,
 0x7,
 0x1f,
 0x262,
@@ -61122,9 +61163,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x906,
+0x909,
 0x6a,
-0x906,
+0x909,
 0x56,
 0x24d,
 0x2,
@@ -61178,9 +61219,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x907,
+0x90a,
 0x6a,
-0x907,
+0x90a,
 0x56,
 0x24d,
 0x2,
@@ -61226,17 +61267,17 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x908,
+0x90b,
 0x6a,
-0x908,
+0x90b,
 0x56,
 0x24d,
 0x2,
 0x25,
 0x55,
-0x909,
+0x90c,
 0x6a,
-0x909,
+0x90c,
 0x56,
 0x24d,
 0x2,
@@ -61370,41 +61411,41 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x90a,
+0x90d,
 0x6a,
-0x90a,
+0x90d,
 0x56,
 0x24d,
 0x2,
 0x25,
 0x55,
-0x90b,
+0x90e,
 0x6a,
-0x90b,
+0x90e,
 0x56,
 0x24d,
 0x2,
 0x25,
 0x55,
-0x90c,
+0x90f,
 0x6a,
-0x90c,
+0x90f,
 0x56,
 0x24d,
 0x2,
 0x25,
 0x55,
-0x90d,
+0x910,
 0x6a,
-0x90d,
+0x910,
 0x56,
 0x24d,
 0x2,
 0x25,
 0x55,
-0x90e,
+0x911,
 0x6a,
-0x90e,
+0x911,
 0x56,
 0x24d,
 0x2,
@@ -61418,17 +61459,17 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x90f,
+0x912,
 0x6a,
-0x90f,
+0x912,
 0x56,
 0x24d,
 0x2,
 0x25,
 0x55,
-0x910,
+0x913,
 0x6a,
-0x910,
+0x913,
 0x56,
 0x24d,
 0x2,
@@ -61466,9 +61507,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x911,
+0x914,
 0x6a,
-0x911,
+0x914,
 0x56,
 0x24d,
 0x2,
@@ -61482,9 +61523,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x6d4,
+0x6d7,
 0x6a,
-0x6d4,
+0x6d7,
 0x56,
 0x24d,
 0x2,
@@ -61554,9 +61595,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x912,
+0x915,
 0x6a,
-0x912,
+0x915,
 0x56,
 0x24d,
 0x2,
@@ -61658,9 +61699,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x913,
+0x916,
 0x6a,
-0x913,
+0x916,
 0x56,
 0x24d,
 0x2,
@@ -61770,17 +61811,17 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x914,
+0x917,
 0x6a,
-0x914,
+0x917,
 0x56,
 0x24d,
 0x2,
 0x25,
 0x55,
-0x915,
+0x918,
 0x6a,
-0x915,
+0x918,
 0x56,
 0x24d,
 0x2,
@@ -61834,9 +61875,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x916,
+0x919,
 0x6a,
-0x916,
+0x919,
 0x56,
 0x24d,
 0x2,
@@ -61858,9 +61899,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x8d6,
+0x8d9,
 0x6a,
-0x8d6,
+0x8d9,
 0x56,
 0x24d,
 0x2,
@@ -61882,9 +61923,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x917,
+0x91a,
 0x6a,
-0x917,
+0x91a,
 0x56,
 0x24d,
 0x2,
@@ -61922,9 +61963,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x810,
+0x813,
 0x6a,
-0x810,
+0x813,
 0x56,
 0x24d,
 0x2,
@@ -61954,9 +61995,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x7e8,
+0x7eb,
 0x6a,
-0x7e8,
+0x7eb,
 0x56,
 0x24d,
 0x2,
@@ -62002,17 +62043,17 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x918,
+0x91b,
 0x6a,
-0x918,
+0x91b,
 0x56,
 0x24d,
 0x2,
 0x25,
 0x55,
-0x807,
+0x80a,
 0x6a,
-0x807,
+0x80a,
 0x56,
 0x24d,
 0x2,
@@ -62106,9 +62147,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x919,
+0x91c,
 0x6a,
-0x919,
+0x91c,
 0x56,
 0x24d,
 0x2,
@@ -62170,25 +62211,25 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x91a,
+0x91d,
 0x6a,
-0x91a,
+0x91d,
 0x56,
 0x24d,
 0x2,
 0x25,
 0x55,
-0x91b,
+0x91e,
 0x6a,
-0x91b,
+0x91e,
 0x56,
 0x24d,
 0x2,
 0x25,
 0x55,
-0x91c,
+0x91f,
 0x6a,
-0x91c,
+0x91f,
 0x56,
 0x24d,
 0x2,
@@ -62202,9 +62243,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x91d,
+0x920,
 0x6a,
-0x91d,
+0x920,
 0x56,
 0x24d,
 0x2,
@@ -62258,9 +62299,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x91e,
+0x921,
 0x6a,
-0x91e,
+0x921,
 0x56,
 0x24d,
 0x2,
@@ -62354,9 +62395,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x91f,
+0x922,
 0x6a,
-0x91f,
+0x922,
 0x56,
 0x24d,
 0x2,
@@ -62474,9 +62515,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x920,
+0x923,
 0x6a,
-0x920,
+0x923,
 0x56,
 0x24d,
 0x2,
@@ -62506,9 +62547,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x921,
+0x924,
 0x6a,
-0x921,
+0x924,
 0x56,
 0x24d,
 0x2,
@@ -62530,9 +62571,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x922,
+0x925,
 0x6a,
-0x922,
+0x925,
 0x56,
 0x24d,
 0x2,
@@ -62698,9 +62739,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x923,
+0x926,
 0x6a,
-0x923,
+0x926,
 0x56,
 0x24d,
 0x2,
@@ -62730,9 +62771,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x924,
+0x927,
 0x6a,
-0x924,
+0x927,
 0x56,
 0x24d,
 0x2,
@@ -62762,9 +62803,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x925,
+0x928,
 0x6a,
-0x925,
+0x928,
 0x56,
 0x24d,
 0x2,
@@ -62802,9 +62843,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x926,
+0x929,
 0x6a,
-0x926,
+0x929,
 0x56,
 0x24d,
 0x2,
@@ -62826,9 +62867,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x927,
+0x92a,
 0x6a,
-0x927,
+0x92a,
 0x56,
 0x24d,
 0x2,
@@ -62906,9 +62947,9 @@ STk_instr STk_boot_code [] = {
 0x2,
 0x25,
 0x55,
-0x928,
+0x92b,
 0x6a,
-0x928,
+0x92b,
 0x56,
 0x24d,
 0x2,
@@ -62943,7 +62984,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x21,
 0x55,
-0x929,
+0x92c,
 0x56,
 0xdf,
 0x2,
@@ -62957,16 +62998,16 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x53,
 0x55,
-0x902,
+0x905,
 0x56,
 0xb3,
 0x2,
 0x2e,
 0x25,
 0x55,
-0x92a,
+0x92d,
 0x56,
-0x6b0,
+0x6b3,
 0x1,
 0xa,
 0x6e,
@@ -62974,7 +63015,7 @@ STk_instr STk_boot_code [] = {
 0x41,
 0x25,
 0x55,
-0x92b,
+0x92e,
 0x56,
 0x6b,
 0x1,
@@ -63018,7 +63059,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x21,
 0x55,
-0x92c,
+0x92f,
 0x56,
 0xdf,
 0x2,
@@ -63032,16 +63073,16 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x53,
 0x55,
-0x92b,
+0x92e,
 0x56,
 0xb3,
 0x2,
 0x2e,
 0x25,
 0x55,
-0x92d,
+0x930,
 0x56,
-0x6b0,
+0x6b3,
 0x1,
 0xa,
 0x6e,
@@ -63061,7 +63102,7 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x6e,
 0x55,
-0x92e,
+0x931,
 0x56,
 0xd2,
 0x1,
@@ -63072,7 +63113,7 @@ STk_instr STk_boot_code [] = {
 0x3,
 0x25,
 0x55,
-0x92f,
+0x932,
 0x56,
 0x3fb,
 0x1,
@@ -63084,7 +63125,7 @@ STk_instr STk_boot_code [] = {
 0x69,
 0x0,
 0x71,
-0x930,
+0x933,
 0x1,
 0x1c,
 0x1,
@@ -63107,11 +63148,11 @@ STk_instr STk_boot_code [] = {
 0xa,
 0xb4,
 0x1f,
-0x931,
+0x934,
 0xa,
 0xb4,
 0x1f,
-0x932,
+0x935,
 0x23,
 0xfc,
 0x2,
@@ -63146,7 +63187,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x200,
 0x56,
-0x807,
+0x80a,
 0x2,
 0x21,
 0x2b,
@@ -63175,7 +63216,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x933,
+0x936,
 0x56,
 0x3fb,
 0x1,
@@ -63223,7 +63264,7 @@ STk_instr STk_boot_code [] = {
 0x16,
 0x25,
 0x55,
-0x934,
+0x937,
 0x25,
 0x25,
 0x75,
@@ -63236,7 +63277,7 @@ STk_instr STk_boot_code [] = {
 0xd,
 0x31,
 0x71,
-0x807,
+0x80a,
 0x2,
 0x3b,
 0x73,
@@ -63276,7 +63317,7 @@ STk_instr STk_boot_code [] = {
 0x24,
 0x25,
 0x55,
-0x935,
+0x938,
 0x75,
 0x100,
 0x56,
@@ -63299,7 +63340,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x936,
+0x939,
 0x1,
 0x1c,
 0x8,
@@ -63307,7 +63348,7 @@ STk_instr STk_boot_code [] = {
 0x1e,
 0x4,
 0x9,
-0x937,
+0x93a,
 0x1c,
 0x1,
 0xc,
@@ -63326,7 +63367,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x55,
-0x938,
+0x93b,
 0xc,
 0x49,
 0x6,
@@ -63367,7 +63408,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x854,
+0x857,
 0x23,
 0x91,
 0x2,
@@ -63405,7 +63446,7 @@ STk_instr STk_boot_code [] = {
 0x1d,
 0x6,
 0x55,
-0x939,
+0x93c,
 0x4d,
 0x3f,
 0x2,
@@ -63425,7 +63466,7 @@ STk_instr STk_boot_code [] = {
 0x49,
 0x2,
 0x71,
-0x936,
+0x939,
 0x1,
 0x21,
 0x2b,
@@ -63530,7 +63571,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x6a,
-0x868,
+0x86b,
 0x56,
 0x3aa,
 0x2,
@@ -63543,7 +63584,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x55,
-0x869,
+0x86c,
 0x56,
 0x8c,
 0x2,
@@ -63553,7 +63594,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x86a,
+0x86d,
 0x1,
 0x25,
 0x65,
@@ -63576,7 +63617,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x55,
-0x93a,
+0x93d,
 0x75,
 0x103,
 0x75,
@@ -63625,7 +63666,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x93b,
+0x93e,
 0xc,
 0x3d,
 0x71,
@@ -63640,7 +63681,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x101,
 0x55,
-0x93c,
+0x93f,
 0xc,
 0x49,
 0x14,
@@ -63677,7 +63718,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x55,
-0x93d,
+0x940,
 0x25,
 0x75,
 0x101,
@@ -63708,7 +63749,7 @@ STk_instr STk_boot_code [] = {
 0x75,
 0x100,
 0x56,
-0x854,
+0x857,
 0x2,
 0x1c,
 0x1,
@@ -63716,7 +63757,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x66,
 0x55,
-0x93e,
+0x941,
 0x56,
 0x5e,
 0x2,
@@ -63728,7 +63769,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x24,
 0x1f,
-0x93f,
+0x942,
 0x25,
 0x25,
 0x56,
@@ -63742,7 +63783,7 @@ STk_instr STk_boot_code [] = {
 0x6a,
 0x399,
 0x55,
-0x940,
+0x943,
 0x4d,
 0x56,
 0x4b,
@@ -63751,7 +63792,7 @@ STk_instr STk_boot_code [] = {
 0x6a,
 0x399,
 0x55,
-0x941,
+0x944,
 0x4d,
 0x56,
 0x4b,
@@ -63760,7 +63801,7 @@ STk_instr STk_boot_code [] = {
 0x6a,
 0x399,
 0x55,
-0x942,
+0x945,
 0x4d,
 0x56,
 0x4b,
@@ -63769,7 +63810,7 @@ STk_instr STk_boot_code [] = {
 0x6a,
 0x399,
 0x55,
-0x943,
+0x946,
 0x4d,
 0x56,
 0x4b,
@@ -63778,7 +63819,7 @@ STk_instr STk_boot_code [] = {
 0x6a,
 0x399,
 0x55,
-0x944,
+0x947,
 0x4d,
 0x56,
 0x4b,
@@ -63787,7 +63828,7 @@ STk_instr STk_boot_code [] = {
 0x6a,
 0x399,
 0x55,
-0x945,
+0x948,
 0x4d,
 0x56,
 0x4b,
@@ -63796,7 +63837,7 @@ STk_instr STk_boot_code [] = {
 0x6a,
 0x399,
 0x55,
-0x818,
+0x81b,
 0x51,
 0x56,
 0x4b,
@@ -63805,7 +63846,7 @@ STk_instr STk_boot_code [] = {
 0x6a,
 0x399,
 0x55,
-0x946,
+0x949,
 0x4d,
 0x56,
 0x4b,
@@ -63814,7 +63855,7 @@ STk_instr STk_boot_code [] = {
 0x6a,
 0x399,
 0x55,
-0x947,
+0x94a,
 0x4f,
 0x56,
 0x4b,
@@ -63823,7 +63864,7 @@ STk_instr STk_boot_code [] = {
 0x6a,
 0x399,
 0x55,
-0x948,
+0x94b,
 0x4f,
 0x56,
 0x4b,
@@ -63878,7 +63919,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x69,
 0x56,
-0x690,
+0x693,
 0x1,
 0x1c,
 0x1,
@@ -63957,7 +63998,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x68,
 0x56,
-0x69b,
+0x69e,
 0x1,
 0x1c,
 0x4,
@@ -63968,7 +64009,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x56,
-0x690,
+0x693,
 0x0,
 0x21,
 0x29,
@@ -63985,7 +64026,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x25,
 0x55,
-0x949,
+0x94c,
 0x75,
 0x100,
 0x6c,
@@ -63997,7 +64038,7 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x65,
 0x56,
-0x702,
+0x705,
 0x1,
 0x2e,
 0x1c,
@@ -64011,12 +64052,12 @@ STk_instr STk_boot_code [] = {
 0x25,
 0x25,
 0x55,
-0x94a,
+0x94d,
 0x56,
-0x691,
+0x694,
 0x1,
 0x71,
-0x6a4,
+0x6a7,
 0x1,
 0x1c,
 0x1,
@@ -64030,14 +64071,14 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x25,
 0x55,
-0x94b,
+0x94e,
 0x75,
 0x108,
 0x65,
 0x54,
 0x7,
 0x6c,
-0x93f,
+0x942,
 0x4,
 0x24,
 0x2d,
@@ -64046,7 +64087,7 @@ STk_instr STk_boot_code [] = {
 0x11,
 0x8,
 0x71,
-0x6aa,
+0x6ad,
 0x1,
 0x2e,
 0x1c,
@@ -64061,7 +64102,7 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x25,
 0x55,
-0x94c,
+0x94f,
 0x75,
 0x106,
 0x25,
@@ -64074,7 +64115,7 @@ STk_instr STk_boot_code [] = {
 0x54,
 0x2,
 0x6c,
-0x93f,
+0x942,
 0x4,
 0x24,
 0x2d,
@@ -64083,7 +64124,7 @@ STk_instr STk_boot_code [] = {
 0x11,
 0x6,
 0x71,
-0x6aa,
+0x6ad,
 0x1,
 0x25,
 0x25,
@@ -64097,14 +64138,14 @@ STk_instr STk_boot_code [] = {
 0x0,
 0x3b,
 0x71,
-0x932,
+0x935,
 0x1,
 0x21,
 0x29,
 0x1,
 0x25,
 0x56,
-0x931,
+0x934,
 0x0,
 0x25,
 0x65,
@@ -64130,14 +64171,14 @@ STk_instr STk_boot_code [] = {
 0x1,
 0x25,
 0x55,
-0x94d,
+0x950,
 0x75,
 0x105,
 0x65,
 0x54,
 0x4,
 0x6c,
-0x93f,
+0x942,
 0x4,
 0x24,
 0x2d,
@@ -64158,11 +64199,11 @@ STk_instr STk_boot_code [] = {
 0x8,
 0x25,
 0x56,
-0x8d9,
+0x8dc,
 0x0,
 0x25,
 0x56,
-0x89a,
+0x89d,
 0x0,
 0x2c,
 0x2f};
diff --git a/src/stklos.c b/src/stklos.c
index 20443bbb3..8c3c48f4c 100644
--- a/src/stklos.c
+++ b/src/stklos.c
@@ -114,7 +114,7 @@ static void Usage(FILE *stream)
 "   -f file, --file=file            use 'file' as program\n"
 "   -e sexpr, --execute=sexpr       evaluate the given sexpr and exit\n"
 "   -b file, --boot-file=file       use 'file' to boot the system\n"
-"   -D dir, --conf-dir=dir          change configuration dir (default: ~/.stklos)\n"
+"   -D dir, --conf-dir=dir          change conf. dir (default: ~/.config/stklos)\n"
 "   -I dir, --prepend-load-path=dir prepend 'dir' to the load path list.\n"
 "   -A dir, --append-load-path=dir  append 'dir' to the load path list.\n"
 "   -q, --no-init-file              quiet: do not load the user init file\n"