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