Mercurial > hg > xemacs-beta
diff src/lstream.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005
Checking in final CVS version of workspace 'ben-lisp-object'
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Sat, 26 Dec 2009 00:20:27 -0600 |
| parents | b7f26b2f78bd |
| children | e0db3c197671 |
line wrap: on
line diff
--- a/src/lstream.c Sat Dec 26 00:20:16 2009 -0600 +++ b/src/lstream.c Sat Dec 26 00:20:27 2009 -0600 @@ -150,12 +150,11 @@ 0, lstream_empty_extra_description_1 }; -DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("stream", lstream, - 0, /*dumpable-flag*/ - mark_lstream, print_lstream, - finalize_lstream, 0, 0, - lstream_description, - sizeof_lstream, Lstream); +DEFINE_NONDUMPABLE_SIZABLE_LISP_OBJECT ("stream", lstream, + mark_lstream, print_lstream, + finalize_lstream, 0, 0, + lstream_description, + sizeof_lstream, Lstream); /* Change the buffering of a stream. See lstream.h. By default the @@ -197,9 +196,8 @@ { Lstream *p; #ifdef MC_ALLOC - p = XLSTREAM (wrap_pointer_1 - (alloc_lrecord (aligned_sizeof_lstream (imp->size), - &lrecord_lstream))); + p = XLSTREAM (alloc_sized_lrecord (aligned_sizeof_lstream (imp->size), + &lrecord_lstream)); #else /* not MC_ALLOC */ int i; @@ -1882,5 +1880,5 @@ void vars_of_lstream (void) { - INIT_LRECORD_IMPLEMENTATION (lstream); + INIT_LISP_OBJECT (lstream); }