CL-USER(5): (enable-interpol-syntax)
  CL-USER(6): (let ((a 42))
                #?"foo: \xC4\N{U with diaeresis}\nbar: ${a}")
  "foo: Δά
  bar: 42"
  CL-USER(7): (char-name (char #?"\x{2323}" 0))
  "smile"
  CL-USER(8): (char-name (char #?"\N{Greek capital letter Sigma}" 0))
  "greek_capital_letter_sigma"
  CL-USER(9): (setq cl-interpol:*short-unicode-names-p* t)
  T
  CL-USER(10): (char-name (char #?"\N{Greek:Sigma}" 0))
  "greek_capital_letter_sigma"
  CL-USER(11): (push "Greek" cl-interpol:*unicode-scripts*)
  ("Greek" "latin")
  CL-USER(12): (char-name (char #?"\N{Sigma}" 0))
  "greek_capital_letter_sigma"
  CL-USER(13): (char-name (char #?"\N{sigma}" 0))
  "greek_small_letter_sigma"
  CL-USER(14): (let* ((a "foo")
                      (b #\Space)
                      (c "bar")
                      (d (list a b c))
                      (x 40))
                 (values #?"$ @"
                         #?"$(a)"
                         (let ((cl-interpol:*list-delimiter* ""))
                         #?"$<a>$[b]"
                         #?"\U${a}\E \u${a}"
                           #?"@{d}")
                         #?"The result is ${(let ((y 2)) (+ x y))}"
                         (let ((cl-interpol:*list-delimiter* #\*))
                           #?"@{d}")
                         (let ((cl-interpol:*list-delimiter* ""))
                           #?"@{d}")
                         #?"The result is ${(let ((y 2)) (+ x y))}"
                         #?"${#?'${a} ${c}'} ${x}"))  ;; note the embedded CL-INTERPOL string
  "$ @"
  "foo"
  "foo "
  "FOO Foo"
  "foo* *bar"
  "foo bar"
  "The result is 42"
  "foo bar 40"