someting wrong in cmucl cvs sources

May be i'm wrong, but

root <at> sunct1 build-20080507 # lisp
CMU Common Lisp 2008-05-20+ (sunct1) (19E), running on sunct1
With core: /opt/local/lib/cmucl/lib/lisp.core
Dumped on: Wed, 2008-05-21 10:15:56+04:00 on sunct1
Send questions and bug reports to your local CMUCL maintainer, 
or see <http://www.cons.org/cmucl/support.html>.
Loaded subsystems:
    Python 1.1, target Intel x86
    CLOS based on Gerd's PCL 2004/04/14 03:32:47
* (print '\,)

, 
,
* (print '\,b)

,B 
,B
* (print 'b\,b)

|B,B| 
|B,B|
* (lisp::symbol-quotep (symbol-name '\,))

NIL
* (lisp::symbol-quotep (symbol-name '\,a))

NIL
* (lisp::symbol-quotep (symbol-name '\,aa))

NIL
* (lisp::symbol-quotep (symbol-name 'a\,))

T
* (aref lisp::character-attributes (char-code #\,))

50431
* (aref lisp::character-attributes (char-code #\@))

1
* (dotimes (i char-code-limit)
    (print (code-char i)) (prin1 " ")
    (prin1 (aref lisp::character-attributes i)))

#\Null " "50431
#\^A " "50431
#\^B " "50431
#\^C " "50431
#\^D " "50431
#\^E " "50431
#\^F " "50431
#\Bell " "50431
#\Backspace " "50431
#\Tab " "50431
#\Newline " "50431
#\Vt " "50431
#\Page " "50431
#\Return " "50431
#\^N " "50431
#\^O " "50431
#\^P " "50431
#\^Q " "50431
#\^R " "50431
#\^S " "50431
#\^T " "50431
#\^U " "50431
#\^V " "50431
#\^W " "50431
#\^X " "50431
#\^Y " "50431
#\^Z " "50431
#\Escape " "50431
#\Fs " "50431
#\Gs " "50431
#\Rs " "50431
#\Us " "50431
#\  " "50431
#\! " "1
#\" " "50431
#\# " "50431
#\$ " "1
#\% " "1
#\& " "1
#\' " "50431
#\( " "50431
#\) " "50431
#\* " "1
#\+ " "16
#\, " "50431
#\- " "16
#\. " "64
#\/ " "128
#\0 " "2
#\1 " "2
#\2 " "2
#\3 " "2
#\4 " "2
#\5 " "2
#\6 " "2
#\7 " "2
#\8 " "2
#\9 " "2
#\: " "50431
#\; " "50431
#\< " "1
#\= " "1
#\> " "1
#\? " "1
#\@ " "1
#\A " "4
#\B " "4
#\C " "4
#\D " "4
#\E " "4
#\F " "4
#\G " "4
#\H " "4
#\I " "4
#\J " "4
#\K " "4
#\L " "4
#\M " "4
#\N " "4
#\O " "4
#\P " "4
#\Q " "4
#\R " "4
#\S " "4
#\T " "4
#\U " "4
#\V " "4
#\W " "4
#\X " "4
#\Y " "4
#\Z " "4
#\[ " "1
#\\ " "50431
#\] " "1
#\^ " "32
#\_ " "32
#\` " "50431
#\a " "8
#\b " "8
#\c " "8
#\d " "8
#\e " "8
#\f " "8
#\g " "8
#\h " "8
#\i " "8
#\j " "8
#\k " "8
#\l " "8
#\m " "8
#\n " "8
#\o " "8
#\p " "8
#\q " "8
#\r " "8
#\s " "8
#\t " "8
#\u " "8
#\v " "8
#\w " "8
#\x " "8
#\y " "8
#\z " "8
#\{ " "1
#\| " "50431
#\} " "1
#\~ " "1
#\Rubout " "50431
#\€ " "50431
#\ " "50431
#\‚ " "50431
#\ƒ " "50431
#\„ " "50431
#\… " "50431
#\† " "50431
#\‡ " "50431
#\ˆ " "50431
#\‰ " "50431
#\Š " "50431
#\‹ " "50431
#\Π" "50431
#\ " "50431
#\Ž " "50431
#\ " "50431
#\ " "50431
#\‘ " "50431
#\’ " "50431
#\“ " "50431
#\” " "50431
#\• " "50431
#\– " "50431
#\— " "50431
#\˜ " "50431
#\™ " "50431
#\š " "50431
#\› " "50431
#\œ " "50431
#\ " "50431
#\ž " "50431
#\Ÿ " "50431
#\  " "50431
#\Ё " "50431
#\Ђ " "50431
#\Ѓ " "50431
#\Є " "50431
#\Ѕ " "50431
#\І " "50431
#\Ї " "50431
#\Ј " "50431
#\Љ " "50431
#\Њ " "50431
#\Ћ " "50431
#\Ќ " "50431
#\­ " "50431
#\Ў " "50431
#\Џ " "50431
#\А " "50431
#\Б " "50431
#\В " "50431
#\Г " "50431
#\Д " "50431
#\Е " "50431
#\Ж " "50431
#\З " "50431
#\И " "50431
#\Й " "50431
#\К " "50431
#\Л " "50431
#\М " "50431
#\Н " "50431
#\О " "50431
#\П " "50431
#\Р " "50431
#\С " "50431
#\Т " "50431
#\У " "50431
#\Ф " "50431
#\Х " "50431
#\Ц " "50431
#\Ч " "50431
#\Ш " "50431
#\Щ " "50431
#\Ъ " "50431
#\Ы " "50431
#\Ь " "50431
#\Э " "50431
#\Ю " "50431
#\Я " "50431
#\а " "50431
#\б " "50431
#\в " "50431
#\г " "50431
#\д " "50431
#\е " "50431
#\ж " "50431
#\з " "50431
#\и " "50431
#\й " "50431
#\к " "50431
#\л " "50431
#\м " "50431
#\н " "50431
#\о " "50431
#\п " "50431
#\р " "50431
#\с " "50431
#\т " "50431
#\у " "50431
#\ф " "50431
#\х " "50431
#\ц " "50431
#\ч " "50431
#\ш " "50431
#\щ " "50431
#\ъ " "50431
#\ы " "50431
#\ь " "50431
#\э " "50431
#\ю " "50431
#\я " "50431
#\№ " "50431
#\ё " "50431
#\ђ " "50431
#\ѓ " "50431
#\є " "50431
#\ѕ " "50431
#\і " "50431
#\ї " "50431
#\ј " "50431
#\љ " "50431
#\њ " "50431
#\ћ " "50431
#\ќ " "50431
#\§ " "50431
#\ў " "50431
#\џ " "50431
NIL

Anatoly