diff options
| author | Camm Maguire <camm@debian.org> | 2014-04-14 17:27:21 +0000 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014-04-14 17:27:21 +0000 |
| commit | a1af85ede7933e3866a377e86fff0b6e19377806 (patch) | |
| tree | 05697caf544ecca089c5624b125b24e1e0c5c1d2 | |
| parent | 69c79c7f5fdebb46d7d278a852308a4e99542b64 (diff) | |
| download | gcl-a1af85ede7933e3866a377e86fff0b6e19377806.tar.gz | |
sharp-\\ fix
| -rwxr-xr-x | gcl/o/read.d | 6 |
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); |