From: David Vázquez <davazp@gmail.com>
Date: Thu, 27 Jun 2013 01:42:20 +0000 (+0200)
Subject: Fix escaped symbol printing
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9d53da01e449ba33d78fbe7231d4ac99f79ab965;p=jscl.git

Fix escaped symbol printing
---

diff --git a/src/print.lisp b/src/print.lisp
index 941b97c..f7b558d 100644
--- 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))