Parent Directory | Revision Log | Patch
revision 1.347 by kfstorm, Mon Jul 12 14:35:53 2004 UTC | revision 1.348 by rms, Sun Jul 25 17:35:04 2004 UTC | |
---|---|---|
# | Line 2395 DEFUN ("cons", Fcons, Scons, 2, 2, 0, | Line 2395 DEFUN ("cons", Fcons, Scons, 2, 2, 0, |
2395 | return val; | return val; |
2396 | } | } |
2397 | ||
2398 | /* Get an error now if there's any junk in the cons free list. */ | |
2399 | void | |
2400 | check_cons_list () | |
2401 | { | |
2402 | struct Lisp_Cons *tail = cons_free_list; | |
2403 | ||
2404 | #if 0 | |
2405 | while (tail) | |
2406 | tail = *(struct Lisp_Cons **)&tail->cdr; | |
2407 | #endif | |
2408 | } | |
2409 | ||
2410 | /* Make a list of 2, 3, 4 or 5 specified objects. */ | /* Make a list of 2, 3, 4 or 5 specified objects. */ |
2411 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |