Fix escaped symbol printing

diff --git a/src/print.lisp b/src/print.lisp
index 941b97c..f7b558d 100644 (file)
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -28,6 +28,7 @@
         (when (or (terminalp ch)
                   (char= ch #\:)
                   (char= ch #\\)
+                  (not (char= ch (char-upcase ch)))
                   (char= ch #\|))
           (return-from escape-symbol-name-p t))))
     dots-only))