CMUCL commit: src/code (symbol.lisp)

[Raymond Toy]

    Date: Thursday, April 15, 2010 @ 21:28:37
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: symbol.lisp

MAKE-SYMBOL needs to convert the given string to NFC form to match
what INTERN and FIND-SYMBOL do with strings.


-------------+
 symbol.lisp |    7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)


Index: src/code/symbol.lisp
diff -u src/code/symbol.lisp:1.42 src/code/symbol.lisp:1.43
--- src/code/symbol.lisp:1.42	Fri Mar 19 11:19:00 2010
+++ src/code/symbol.lisp	Thu Apr 15 21:28:37 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/symbol.lisp,v 1.42 2010-03-19 15:19:00 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/symbol.lisp,v 1.43 2010-04-16 01:28:37 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -102,7 +102,10 @@
   #+gengc (%make-symbol (random most-positive-fixnum) string)
   ;; Initialize the symbol-hash to -1 to make this fast.  It will get
   ;; computed correctly later on.
-  #+(or sparc x86 amd64 ppc) (%make-symbol -1 (coerce string 'simple-string)))
+  #+(or sparc x86 amd64 ppc )
+  (%make-symbol -1 (coerce #-unicode string
+			   #+unicode (string-to-nfc string)
+			   'simple-string)))
 
 #+(or gengc x86 amd64 sparc ppc)
 (defun symbol-hash (symbol)