Mercurial > emacs

comparison src/lread.c @ 109271:de58fd0baac5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lread.c (read1): Signal error if #s is not followed by paren.
author Andreas Schwab <schwab@linux-m68k.org>
date Wed, 23 Jun 2010 10:22:36 +0200
parents 86ae2a69cf52
children 60516122d066 2f23047ca654 913b779aa4ee
comparison
equal deleted inserted replaced
109270:a7253b87aad9 109271:de58fd0baac5
2375 tmp = CDR_SAFE (tmp); 2375 tmp = CDR_SAFE (tmp);
2376 2376
2377 /* This is repetitive but fast and simple. */ 2377 /* This is repetitive but fast and simple. */
2378 params[param_count] = QCsize; 2378 params[param_count] = QCsize;
2379 params[param_count+1] = Fplist_get (tmp, Qsize); 2379 params[param_count+1] = Fplist_get (tmp, Qsize);
2380 if (!NILP (params[param_count+1])) 2380 if (!NILP (params[param_count + 1]))
2381 param_count+=2; 2381 param_count += 2;
2382 2382
2383 params[param_count] = QCtest; 2383 params[param_count] = QCtest;
2384 params[param_count+1] = Fplist_get (tmp, Qtest); 2384 params[param_count+1] = Fplist_get (tmp, Qtest);
2385 if (!NILP (params[param_count+1])) 2385 if (!NILP (params[param_count + 1]))
2386 param_count+=2; 2386 param_count += 2;
2387 2387
2388 params[param_count] = QCweakness; 2388 params[param_count] = QCweakness;
2389 params[param_count+1] = Fplist_get (tmp, Qweakness); 2389 params[param_count+1] = Fplist_get (tmp, Qweakness);
2390 if (!NILP (params[param_count+1])) 2390 if (!NILP (params[param_count + 1]))
2391 param_count+=2; 2391 param_count += 2;
2392 2392
2393 params[param_count] = QCrehash_size; 2393 params[param_count] = QCrehash_size;
2394 params[param_count+1] = Fplist_get (tmp, Qrehash_size); 2394 params[param_count+1] = Fplist_get (tmp, Qrehash_size);
2395 if (!NILP (params[param_count+1])) 2395 if (!NILP (params[param_count + 1]))
2396 param_count+=2; 2396 param_count += 2;
2397 2397
2398 params[param_count] = QCrehash_threshold; 2398 params[param_count] = QCrehash_threshold;
2399 params[param_count+1] = Fplist_get (tmp, Qrehash_threshold); 2399 params[param_count+1] = Fplist_get (tmp, Qrehash_threshold);
2400 if (!NILP (params[param_count+1])) 2400 if (!NILP (params[param_count + 1]))
2401 param_count+=2; 2401 param_count += 2;
2402 2402
2403 /* This is the hashtable data. */ 2403 /* This is the hashtable data. */
2404 data = Fplist_get (tmp, Qdata); 2404 data = Fplist_get (tmp, Qdata);
2405 2405
2406 /* Now use params to make a new hashtable and fill it. */ 2406 /* Now use params to make a new hashtable and fill it. */
2417 Fputhash (key, val, ht); 2417 Fputhash (key, val, ht);
2418 } 2418 }
2419 2419
2420 return ht; 2420 return ht;
2421 } 2421 }
2422 UNREAD (c);
2423 invalid_syntax ("#", 1);
2422 } 2424 }
2423 if (c == '^') 2425 if (c == '^')
2424 { 2426 {
2425 c = READCHAR; 2427 c = READCHAR;
2426 if (c == '[') 2428 if (c == '[')