diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c index 647735c8555..7b73425f568 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1269,14 +1269,15 @@ read1 (readcharfun, pch, first_in_list) | |||
| 1269 | tmp = read1 (readcharfun, pch, first_in_list); | 1269 | tmp = read1 (readcharfun, pch, first_in_list); |
| 1270 | if (size_in_chars != XSTRING (tmp)->size) | 1270 | if (size_in_chars != XSTRING (tmp)->size) |
| 1271 | Fsignal (Qinvalid_read_syntax, | 1271 | Fsignal (Qinvalid_read_syntax, |
| 1272 | Fcons (make_string ("#&", 2), Qnil)); | 1272 | Fcons (make_string ("#&...", 2), Qnil)); |
| 1273 | 1273 | ||
| 1274 | val = Fmake_bool_vector (length, Qnil); | 1274 | val = Fmake_bool_vector (length, Qnil); |
| 1275 | bcopy (XSTRING (tmp)->data, XBOOL_VECTOR (val)->data, | 1275 | bcopy (XSTRING (tmp)->data, XBOOL_VECTOR (val)->data, |
| 1276 | size_in_chars); | 1276 | size_in_chars); |
| 1277 | return val; | 1277 | return val; |
| 1278 | } | 1278 | } |
| 1279 | Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&", 2), Qnil)); | 1279 | Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&...", 2), |
| 1280 | Qnil)); | ||
| 1280 | } | 1281 | } |
| 1281 | if (c == '[') | 1282 | if (c == '[') |
| 1282 | { | 1283 | { |