From 9d53da01e449ba33d78fbe7231d4ac99f79ab965 Mon Sep 17 00:00:00 2001
From: =?utf8?q?David=20V=C3=A1zquez?= <davazp@gmail.com>
Date: Thu, 27 Jun 2013 03:42:20 +0200
Subject: [PATCH] Fix escaped symbol printing

---
 src/print.lisp |    1 +
 1 file changed, 1 insertion(+)

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))
-- 
1.7.10.4