1 files changed, 1 insertions, 5 deletions
diff --git a/gcl/o/read.d b/gcl/o/read.d
index bc9fc106..6eaf4361 100755
--- a/gcl/o/read.d
+++ b/gcl/o/read.d
@@ -1095,11 +1095,7 @@ DEFUN("SHARP-\\-READER",object,fSsharp_sl_reader,SI,3,3,NONE,OO,OO,OO,OO,(object
     if (type_of(y)!=t_fixnum ||	fix(y) != 0)
       FEerror("~S is an illegal CHAR-FONT.", 1, y);
   /*  assuming that CHAR-FONT-LIMIT is 1  */
-  {
-    union lispunion u;
-    u.ch=character_table['\\'];
-    unread_char(&u, s);
-  }
+  unread_char(character_table+'\\', s);
   if (READsuppress) {
     (void)read_object(s);
     RETURN1(Cnil);