do not downcase symbols

thodg · May 20, 2018 · 2aae465 · 2aae465
1 parent b603931
commit 2aae465
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/str.lisp b/str.lisp
@@ -29,7 +29,7 @@
   "")
 
 (defmethod atom-str ((x symbol))
-  (string-downcase (symbol-name x)))
+  (symbol-name x))
 
 (defmethod atom-str ((x character))
   (make-string 1 :initial-element x))