From 7f5482c9bc7a6c3dd8d9b7fd2071b2334f2dea8e Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Mon, 6 Jul 2009 15:42:34 +0000
Subject: [PATCH] Treat Unicode symbol characters like characters without case
 so they can be printed without quotes.

(Not sure if we should include all symbols.  Maybe just math symbols?)
---
 code/print.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/code/print.lisp b/code/print.lisp
index 2c491aa50..146d24445 100644
--- a/code/print.lisp
+++ b/code/print.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.124 2009/06/11 16:03:58 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.125 2009/07/06 15:42:34 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2200,7 +2200,9 @@ radix-R.  If you have a power-list then pass it in as PL."
 		 (set-bit char uppercase-attribute))
 		((lower-case-p char)
 		 (set-bit char lowercase-attribute))
-		((= (unicode-category i) +unicode-category-other+)
+		((or (= (unicode-category i) +unicode-category-other+)
+		     (= (ash (unicode-category i) -4) 6))
+		 ;; Includes characters without case and all Unicode symbols
 		 (set-bit char othercase-attribute))
 		(t
 		 (setf (aref character-attributes i) funny-attribute))))))))
-- 
GitLab